![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to execfile.cpp CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / sbbs3|
Return to execfile.cpp CVS log | Up to [Synchronet] / sbbs / sbbs3 |
1.1 ! root 1: /* execfile.cpp */ ! 2: ! 3: /* Synchronet file transfer-related command shell/module routines */ ! 4: ! 5: /* $Id: execfile.cpp,v 1.2 2000/11/04 12:03:50 rswindell Exp $ */ ! 6: ! 7: /**************************************************************************** ! 8: * @format.tab-size 4 (Plain Text/Source Code File Header) * ! 9: * @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) * ! 10: * * ! 11: * Copyright 2000 Rob Swindell - http://www.synchro.net/copyright.html * ! 12: * * ! 13: * This program is free software; you can redistribute it and/or * ! 14: * modify it under the terms of the GNU General Public License * ! 15: * as published by the Free Software Foundation; either version 2 * ! 16: * of the License, or (at your option) any later version. * ! 17: * See the GNU General Public License for more details: gpl.txt or * ! 18: * http://www.fsf.org/copyleft/gpl.html * ! 19: * * ! 20: * Anonymous FTP access to the most recent released source is available at * ! 21: * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net * ! 22: * * ! 23: * Anonymous CVS access to the development source and modification history * ! 24: * is available at cvs.synchro.net:/cvsroot/sbbs, example: * ! 25: * cvs -d :pserver:[email protected]:/cvsroot/sbbs login * ! 26: * (just hit return, no password is necessary) * ! 27: * cvs -d :pserver:[email protected]:/cvsroot/sbbs checkout src * ! 28: * * ! 29: * For Synchronet coding style and modification guidelines, see * ! 30: * http://www.synchro.net/source.html * ! 31: * * ! 32: * You are encouraged to submit any modifications (preferably in Unix diff * ! 33: * format) via e-mail to [email protected] * ! 34: * * ! 35: * Note: If this box doesn't appear square, then you need to fix your tabs. * ! 36: ****************************************************************************/ ! 37: ! 38: #include "sbbs.h" ! 39: #include "cmdshell.h" ! 40: ! 41: int sbbs_t::execfile(csi_t *csi) ! 42: { ! 43: char str[256],ch; ! 44: int s; ! 45: uint i,j,x,y; ! 46: file_t f; ! 47: ! 48: switch(*(csi->ip++)) { ! 49: ! 50: case CS_FILE_SELECT_AREA: ! 51: csi->logic=LOGIC_FALSE; ! 52: if(!usrlibs) return(0); ! 53: while(online) { ! 54: j=0; ! 55: if(usrlibs>1) { ! 56: sprintf(str,"%smenu/libs.*", cfg.text_dir); ! 57: if(fexist(str)) ! 58: menu("libs"); ! 59: else { ! 60: bputs(text[CfgLibLstHdr]); ! 61: for(i=0;i<usrlibs && !msgabort();i++) { ! 62: if(i==curlib) ! 63: outchar('*'); ! 64: else outchar(SP); ! 65: if(i<9) outchar(SP); ! 66: if(i<99) outchar(SP); ! 67: bprintf(text[CfgLibLstFmt] ! 68: ,i+1,cfg.lib[usrlib[i]]->lname); } } ! 69: sprintf(str,text[JoinWhichLib],curlib+1); ! 70: mnemonics(str); ! 71: j=getnum(usrlibs); ! 72: if((int)j==-1) ! 73: return(0); ! 74: if(!j) ! 75: j=curlib; ! 76: else ! 77: j--; } ! 78: sprintf(str,"%smenu/dirs%u.*", cfg.text_dir, usrlib[j]+1); ! 79: if(fexist(str)) { ! 80: sprintf(str,"dirs%u",usrlib[j]+1); ! 81: menu(str); } ! 82: else { ! 83: CLS; ! 84: bprintf(text[DirLstHdr], cfg.lib[usrlib[j]]->lname); ! 85: for(i=0;i<usrdirs[j] && !msgabort();i++) { ! 86: if(i==curdir[j]) outchar('*'); ! 87: else outchar(SP); ! 88: sprintf(str,text[DirLstFmt],i+1 ! 89: ,cfg.dir[usrdir[j][i]]->lname,nulstr ! 90: ,getfiles(usrdir[j][i])); ! 91: if(i<9) outchar(SP); ! 92: if(i<99) outchar(SP); ! 93: bputs(str); } } ! 94: sprintf(str,text[JoinWhichDir],curdir[j]+1); ! 95: mnemonics(str); ! 96: i=getnum(usrdirs[j]); ! 97: if((int)i==-1) { ! 98: if(usrlibs==1) ! 99: return(0); ! 100: continue; } ! 101: if(!i) ! 102: i=curdir[j]; ! 103: else ! 104: i--; ! 105: curlib=j; ! 106: curdir[curlib]=i; ! 107: csi->logic=LOGIC_TRUE; ! 108: return(0); } ! 109: return(0); ! 110: ! 111: case CS_FILE_GET_DIR_NUM: ! 112: ! 113: if(useron.misc&COLDKEYS) { ! 114: i=atoi(csi->str); ! 115: if(i && i<=usrdirs[curlib] && usrlibs) ! 116: curdir[curlib]=i-1; ! 117: return(0); } ! 118: ! 119: ch=getkey(K_UPPER); ! 120: outchar(ch); ! 121: if((ch&0xf)*10U<=usrdirs[curlib] && (ch&0xf) && usrlibs) { ! 122: i=(ch&0xf)*10; ! 123: ch=getkey(K_UPPER); ! 124: if(!isdigit(ch) && ch!=CR) { ! 125: ungetkey(ch); ! 126: curdir[curlib]=(i/10)-1; ! 127: return(0); } ! 128: outchar(ch); ! 129: if(ch==CR) { ! 130: curdir[curlib]=(i/10)-1; ! 131: return(0); } ! 132: logch(ch,0); ! 133: i+=ch&0xf; ! 134: if(i*10<=usrdirs[curlib]) { /* 100+ dirs */ ! 135: i*=10; ! 136: ch=getkey(K_UPPER); ! 137: if(!isdigit(ch) && ch!=CR) { ! 138: ungetkey(ch); ! 139: curdir[curlib]=(i/10)-1; ! 140: return(0); } ! 141: outchar(ch); ! 142: if(ch==CR) { ! 143: curdir[curlib]=(i/10)-1; ! 144: return(0); } ! 145: logch(ch,0); ! 146: i+=ch&0xf; } ! 147: if(i<=usrdirs[curlib]) ! 148: curdir[curlib]=i-1; ! 149: return(0); } ! 150: if((ch&0xf)<=(int)usrdirs[curlib] && (ch&0xf) && usrlibs) ! 151: curdir[curlib]=(ch&0xf)-1; ! 152: return(0); ! 153: ! 154: case CS_FILE_GET_LIB_NUM: ! 155: ! 156: if(useron.misc&COLDKEYS) { ! 157: i=atoi(csi->str); ! 158: if(i && i<=usrlibs) ! 159: curlib=i-1; ! 160: return(0); } ! 161: ! 162: ch=getkey(K_UPPER); ! 163: outchar(ch); ! 164: if((ch&0xf)*10U<=usrlibs && (ch&0xf)) { ! 165: i=(ch&0xf)*10; ! 166: ch=getkey(K_UPPER); ! 167: if(!isdigit(ch) && ch!=CR) { ! 168: ungetkey(ch); ! 169: curlib=(i/10)-1; ! 170: return(0); } ! 171: outchar(ch); ! 172: if(ch==CR) { ! 173: curlib=(i/10)-1; ! 174: return(0); } ! 175: logch(ch,0); ! 176: i+=ch&0xf; ! 177: if(i<=usrlibs) ! 178: curlib=i-1; ! 179: return(0); } ! 180: if((ch&0xf)<=(int)usrlibs && (ch&0xf)) ! 181: curlib=(ch&0xf)-1; ! 182: return(0); ! 183: ! 184: case CS_FILE_SHOW_LIBRARIES: ! 185: if(!usrlibs) return(0); ! 186: sprintf(str,"%smenu/libs.*", cfg.text_dir); ! 187: if(fexist(str)) { ! 188: menu("libs"); ! 189: return(0); } ! 190: bputs(text[LibLstHdr]); ! 191: for(i=0;i<usrlibs && !msgabort();i++) { ! 192: if(i==curlib) ! 193: outchar('*'); ! 194: else outchar(SP); ! 195: if(i<9) outchar(SP); ! 196: bprintf(text[LibLstFmt],i+1 ! 197: ,cfg.lib[usrlib[i]]->lname,nulstr,usrdirs[i]); } ! 198: return(0); ! 199: ! 200: case CS_FILE_SHOW_DIRECTORIES: ! 201: if(!usrlibs) return(0); ! 202: sprintf(str,"%smenu/dirs%u.*", cfg.text_dir, usrlib[curlib]+1); ! 203: if(fexist(str)) { ! 204: sprintf(str,"dirs%u",usrlib[curlib]+1); ! 205: menu(str); ! 206: return(0); } ! 207: CRLF; ! 208: bprintf(text[DirLstHdr],cfg.lib[usrlib[curlib]]->lname); ! 209: for(i=0;i<usrdirs[curlib] && !msgabort();i++) { ! 210: if(i==curdir[curlib]) outchar('*'); ! 211: else outchar(SP); ! 212: sprintf(str,text[DirLstFmt],i+1 ! 213: ,cfg.dir[usrdir[curlib][i]]->lname,nulstr ! 214: ,getfiles(usrdir[curlib][i])); ! 215: if(i<9) outchar(SP); ! 216: if(i<99) outchar(SP); ! 217: bputs(str); } ! 218: return(0); ! 219: ! 220: case CS_FILE_LIBRARY_UP: ! 221: curlib++; ! 222: if(curlib>=usrlibs) ! 223: curlib=0; ! 224: return(0); ! 225: case CS_FILE_LIBRARY_DOWN: ! 226: if(!curlib) ! 227: curlib=usrlibs-1; ! 228: else curlib--; ! 229: return(0); ! 230: case CS_FILE_DIRECTORY_UP: ! 231: if(!usrlibs) return(0); ! 232: curdir[curlib]++; ! 233: if(curdir[curlib]>=usrdirs[curlib]) ! 234: curdir[curlib]=0; ! 235: return(0); ! 236: case CS_FILE_DIRECTORY_DOWN: ! 237: if(!usrlibs) return(0); ! 238: if(!curdir[curlib]) ! 239: curdir[curlib]=usrdirs[curlib]-1; ! 240: else curdir[curlib]--; ! 241: return(0); ! 242: case CS_FILE_SET_AREA: ! 243: csi->logic=LOGIC_TRUE; ! 244: for(i=0;i<usrlibs;i++) ! 245: for(j=0;j<usrdirs[i];j++) ! 246: if(!stricmp(csi->str,cfg.dir[usrdir[i][j]]->code)) { ! 247: curlib=i; ! 248: curdir[i]=j; ! 249: return(0); } ! 250: csi->logic=LOGIC_FALSE; ! 251: return(0); ! 252: case CS_FILE_SET_LIBRARY: ! 253: csi->logic=LOGIC_TRUE; ! 254: for(i=0;i<usrlibs;i++) ! 255: if(!stricmp(cfg.lib[usrlib[i]]->sname,csi->str)) ! 256: break; ! 257: if(i<usrlibs) ! 258: curlib=i; ! 259: else ! 260: csi->logic=LOGIC_FALSE; ! 261: return(0); ! 262: ! 263: case CS_FILE_UPLOAD: ! 264: csi->logic=LOGIC_FALSE; ! 265: if(useron.rest&FLAG('U')) { ! 266: bputs(text[R_Upload]); ! 267: return(0); } ! 268: if(usrlibs) { ! 269: i=usrdir[curlib][curdir[curlib]]; ! 270: if(cfg.upload_dir!=INVALID_DIR ! 271: && !chk_ar(cfg.dir[i]->ul_ar,&useron)) ! 272: i=cfg.upload_dir; } ! 273: else ! 274: i=cfg.upload_dir; ! 275: ! 276: if((uint)i==INVALID_DIR || !chk_ar(cfg.dir[i]->ul_ar,&useron)) { ! 277: bputs(text[CantUploadHere]); ! 278: return(0); } ! 279: ! 280: if(gettotalfiles(i)>=cfg.dir[i]->maxfiles) ! 281: bputs(text[DirFull]); ! 282: else { ! 283: upload(i); ! 284: csi->logic=LOGIC_TRUE; } ! 285: return(0); ! 286: case CS_FILE_UPLOAD_USER: ! 287: csi->logic=LOGIC_FALSE; ! 288: if(cfg.user_dir==INVALID_DIR) { ! 289: bputs(text[NoUserDir]); ! 290: return(0); } ! 291: if(gettotalfiles(cfg.user_dir)>=cfg.dir[cfg.user_dir]->maxfiles) ! 292: bputs(text[UserDirFull]); ! 293: else if(useron.rest&FLAG('U')) ! 294: bputs(text[R_Upload]); ! 295: else if(!chk_ar(cfg.dir[cfg.user_dir]->ul_ar,&useron)) ! 296: bputs(text[CantUploadToUser]); ! 297: else { ! 298: upload(cfg.user_dir); ! 299: csi->logic=LOGIC_TRUE; } ! 300: return(0); ! 301: case CS_FILE_UPLOAD_SYSOP: ! 302: csi->logic=LOGIC_FALSE; ! 303: if(cfg.sysop_dir==INVALID_DIR) { ! 304: bputs(text[NoSysopDir]); ! 305: return(0); } ! 306: if(gettotalfiles(cfg.sysop_dir)>=cfg.dir[cfg.sysop_dir]->maxfiles) ! 307: bputs(text[DirFull]); ! 308: else if(useron.rest&FLAG('U')) ! 309: bputs(text[R_Upload]); ! 310: else if(!chk_ar(cfg.dir[cfg.sysop_dir]->ul_ar,&useron)) ! 311: bputs(text[CantUploadToSysop]); ! 312: else { ! 313: upload(cfg.sysop_dir); ! 314: csi->logic=LOGIC_TRUE; } ! 315: return(0); ! 316: case CS_FILE_DOWNLOAD: ! 317: if(!usrlibs) return(0); ! 318: if(useron.rest&FLAG('D')) { ! 319: bputs(text[R_Download]); ! 320: return(0); } ! 321: padfname(csi->str,str); ! 322: strupr(str); ! 323: if(!listfileinfo(usrdir[curlib][curdir[curlib]],str,FI_DOWNLOAD)) { ! 324: bputs(text[SearchingAllDirs]); ! 325: for(i=0;i<usrdirs[curlib];i++) ! 326: if(i!=curdir[curlib] && ! 327: (s=listfileinfo(usrdir[curlib][i],str,FI_DOWNLOAD))!=0) ! 328: if(s==-1 || (!strchr(str,'?') && !strchr(str,'*'))) ! 329: return(0); ! 330: bputs(text[SearchingAllLibs]); ! 331: for(i=0;i<usrlibs;i++) { ! 332: if(i==curlib) continue; ! 333: for(j=0;j<usrdirs[i];j++) ! 334: if((s=listfileinfo(usrdir[i][j],str,FI_DOWNLOAD))!=0) ! 335: if(s==-1 || (!strchr(str,'?') && !strchr(str,'*'))) ! 336: return(0); } } ! 337: return(0); ! 338: case CS_FILE_DOWNLOAD_USER: /* Download from user dir */ ! 339: csi->logic=LOGIC_FALSE; ! 340: if(cfg.user_dir==INVALID_DIR) { ! 341: bputs(text[NoUserDir]); ! 342: return(0); } ! 343: if(useron.rest&FLAG('D')) { ! 344: bputs(text[R_Download]); ! 345: return(0); } ! 346: CRLF; ! 347: if(!listfileinfo(cfg.user_dir,nulstr,FI_USERXFER)) ! 348: bputs(text[NoFilesForYou]); ! 349: else ! 350: csi->logic=LOGIC_TRUE; ! 351: return(0); ! 352: case CS_FILE_DOWNLOAD_BATCH: ! 353: if(batdn_total && yesno(text[DownloadBatchQ])) { ! 354: start_batch_download(); ! 355: csi->logic=LOGIC_TRUE; } ! 356: else ! 357: csi->logic=LOGIC_FALSE; ! 358: return(0); ! 359: case CS_FILE_BATCH_ADD_LIST: ! 360: batch_add_list(csi->str); ! 361: return(0); ! 362: case CS_FILE_BATCH_ADD: ! 363: csi->logic=LOGIC_FALSE; ! 364: if(!csi->str[0]) ! 365: return(0); ! 366: padfname(csi->str,f.name); ! 367: strupr(f.name); ! 368: for(x=0;x<usrlibs;x++) { ! 369: for(y=0;y<usrdirs[x];y++) ! 370: if(findfile(&cfg,usrdir[x][y],f.name)) ! 371: break; ! 372: if(y<usrdirs[x]) ! 373: break; } ! 374: if(x>=usrlibs) ! 375: return(0); ! 376: f.dir=usrdir[x][y]; ! 377: getfileixb(&cfg,&f); ! 378: f.size=0; ! 379: getfiledat(&cfg,&f); ! 380: addtobatdl(&f); ! 381: csi->logic=LOGIC_TRUE; ! 382: return(0); ! 383: case CS_FILE_BATCH_CLEAR: ! 384: if(!batdn_total) { ! 385: csi->logic=LOGIC_FALSE; ! 386: return(0); } ! 387: csi->logic=LOGIC_TRUE; ! 388: for(i=0;i<batdn_total;i++) { ! 389: f.dir=batdn_dir[i]; ! 390: f.datoffset=batdn_offset[i]; ! 391: f.size=batdn_size[i]; ! 392: strcpy(f.name,batdn_name[i]); ! 393: closefile(&f); } ! 394: batdn_total=0; ! 395: return(0); ! 396: ! 397: case CS_FILE_VIEW: ! 398: if(!usrlibs) return(0); ! 399: padfname(csi->str,str); ! 400: strupr(str); ! 401: csi->logic=LOGIC_TRUE; ! 402: if(listfiles(usrdir[curlib][curdir[curlib]],str,0,FL_VIEW)) ! 403: return(0); ! 404: bputs(text[SearchingAllDirs]); ! 405: for(i=0;i<usrdirs[curlib];i++) { ! 406: if(i==curdir[curlib]) continue; ! 407: if(listfiles(usrdir[curlib][i],str,0,FL_VIEW)) ! 408: break; } ! 409: if(i<usrdirs[curlib]) ! 410: return(0); ! 411: bputs(text[SearchingAllLibs]); ! 412: for(i=0;i<usrlibs;i++) { ! 413: if(i==curlib) continue; ! 414: for(j=0;j<usrdirs[i];j++) ! 415: if(listfiles(usrdir[i][j],str,0,FL_VIEW)) ! 416: return(0); } ! 417: csi->logic=LOGIC_FALSE; ! 418: bputs(text[FileNotFound]); ! 419: return(0); ! 420: case CS_FILE_LIST: /* List files in current dir */ ! 421: if(!usrlibs) return(0); ! 422: csi->logic=LOGIC_FALSE; ! 423: if(!getfiles(usrdir[curlib][curdir[curlib]])) { ! 424: bputs(text[EmptyDir]); ! 425: return(0); } ! 426: padfname(csi->str,str); ! 427: strupr(str); ! 428: s=listfiles(usrdir[curlib][curdir[curlib]],str,0,0); ! 429: if(s>1) { ! 430: bprintf(text[NFilesListed],s); } ! 431: csi->logic=!s; ! 432: return(0); ! 433: case CS_FILE_LIST_EXTENDED: /* Extended Information on files */ ! 434: if(!usrlibs) return(0); ! 435: padfname(csi->str,str); ! 436: strupr(str); ! 437: if(!listfileinfo(usrdir[curlib][curdir[curlib]],str,FI_INFO)) { ! 438: bputs(text[SearchingAllDirs]); ! 439: for(i=0;i<usrdirs[curlib];i++) ! 440: if(i!=curdir[curlib] && (s=listfileinfo(usrdir[curlib][i] ! 441: ,str,FI_INFO))!=0) ! 442: if(s==-1 || (!strchr(str,'?') && !strchr(str,'*'))) ! 443: return(0); ! 444: bputs(text[SearchingAllLibs]); ! 445: for(i=0;i<usrlibs;i++) { ! 446: if(i==curlib) continue; ! 447: for(j=0;j<usrdirs[i];j++) ! 448: if((s=listfileinfo(usrdir[i][j],str,FI_INFO))!=0) ! 449: if(s==-1 || (!strchr(str,'?') && !strchr(str,'*'))) ! 450: return(0); } } ! 451: return(0); ! 452: case CS_FILE_FIND_TEXT: /* Find text in descriptions */ ! 453: scandirs(FL_FINDDESC); ! 454: return(0); ! 455: case CS_FILE_FIND_TEXT_ALL: /* Find text in descriptions */ ! 456: scanalldirs(FL_FINDDESC); ! 457: return(0); ! 458: case CS_FILE_FIND_NAME: /* Find text in descriptions */ ! 459: scandirs(FL_NO_HDR); ! 460: return(0); ! 461: case CS_FILE_FIND_NAME_ALL: /* Find text in descriptions */ ! 462: scanalldirs(FL_NO_HDR); ! 463: return(0); ! 464: case CS_FILE_BATCH_SECTION: ! 465: batchmenu(); ! 466: return(0); ! 467: case CS_FILE_TEMP_SECTION: ! 468: temp_xfer(); ! 469: return(0); ! 470: case CS_FILE_PTRS_CFG: ! 471: csi->logic=!inputnstime(&ns_time); ! 472: return(0); ! 473: case CS_FILE_NEW_SCAN: ! 474: scandirs(FL_ULTIME); ! 475: return(0); ! 476: case CS_FILE_NEW_SCAN_ALL: ! 477: scanalldirs(FL_ULTIME); ! 478: return(0); ! 479: case CS_FILE_REMOVE: ! 480: if(!usrlibs) return(0); ! 481: if(useron.rest&FLAG('R')) { ! 482: bputs(text[R_RemoveFiles]); ! 483: return(0); } ! 484: padfname(csi->str,str); ! 485: strupr(str); ! 486: if(!listfileinfo(usrdir[curlib][curdir[curlib]],str,FI_REMOVE)) { ! 487: if(cfg.user_dir!=INVALID_DIR ! 488: && cfg.user_dir!=usrdir[curlib][curdir[curlib]]) ! 489: if((s=listfileinfo(cfg.user_dir,str,FI_REMOVE))!=0) ! 490: if(s==-1 || (!strchr(str,'?') && !strchr(str,'*'))) ! 491: return(0); ! 492: bputs(text[SearchingAllDirs]); ! 493: for(i=0;i<usrdirs[curlib];i++) ! 494: if(i!=curdir[curlib] && i!=cfg.user_dir ! 495: && (s=listfileinfo(usrdir[curlib][i],str,FI_REMOVE))!=0) ! 496: if(s==-1 || (!strchr(str,'?') && !strchr(str,'*'))) ! 497: return(0); ! 498: bputs(text[SearchingAllLibs]); ! 499: for(i=0;i<usrlibs;i++) { ! 500: if(i==curlib || i==cfg.user_dir) continue; ! 501: for(j=0;j<usrdirs[i]; j++) ! 502: if((s=listfileinfo(usrdir[i][j],str,FI_REMOVE))!=0) ! 503: if(s==-1 || (!strchr(str,'?') && !strchr(str,'*'))) ! 504: return(0); } } ! 505: return(0); ! 506: } ! 507: ! 508: errormsg(WHERE,ERR_CHK,"shell function",*(csi->ip-1)); ! 509: return(0); ! 510: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.