![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to execfile.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / sbbs2|
Return to execfile.c CVS log | Up to [Synchronet] / sbbs / sbbs2 |
1.1 root 1: #line 1 "EXECFILE.C"
2:
3: /* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
4:
5: #include "sbbs.h"
6: #include "cmdshell.h"
7:
8: int execfile(csi_t *csi)
9: {
10: uchar str[256],tmp2[128],*path,ch,*p;
11: int i,j,k,s,file,x,y;
12: long l;
13: stats_t stats;
14: node_t node;
15: file_t f;
16: time_t t;
17: csi_t bin;
18:
19: switch(*(csi->ip++)) {
20:
21: case CS_FILE_SELECT_AREA:
22: csi->logic=LOGIC_FALSE;
23: if(!usrlibs) return(0);
24: while(online) {
25: j=0;
26: if(usrlibs>1) {
27: sprintf(str,"%sMENU\\LIBS.*",text_dir);
28: if(fexist(str))
29: menu("LIBS");
30: else {
31: bputs(text[CfgLibLstHdr]);
32: for(i=0;i<usrlibs && !msgabort();i++) {
33: if(i==curlib)
34: outchar('*');
35: else outchar(SP);
36: if(i<9) outchar(SP);
37: if(i<99) outchar(SP);
38: bprintf(text[CfgLibLstFmt]
39: ,i+1,lib[usrlib[i]]->lname); } }
40: sprintf(str,text[JoinWhichLib],curlib+1);
41: mnemonics(str);
42: j=getnum(usrlibs);
43: if((int)j==-1)
44: return(0);
45: if(!j)
46: j=curlib;
47: else
48: j--; }
49: sprintf(str,"%sMENU\\DIRS%u.*",text_dir,usrlib[j]+1);
50: if(fexist(str)) {
51: sprintf(str,"DIRS%u",usrlib[j]+1);
52: menu(str); }
53: else {
54: CLS;
55: bprintf(text[DirLstHdr],lib[usrlib[j]]->lname);
56: for(i=0;i<usrdirs[j] && !msgabort();i++) {
57: if(i==curdir[j]) outchar('*');
58: else outchar(SP);
59: sprintf(str,text[DirLstFmt],i+1
60: ,dir[usrdir[j][i]]->lname,nulstr
61: ,getfiles(usrdir[j][i]));
62: if(i<9) outchar(SP);
63: if(i<99) outchar(SP);
64: bputs(str); } }
65: sprintf(str,text[JoinWhichDir],curdir[j]+1);
66: mnemonics(str);
67: i=getnum(usrdirs[j]);
68: if((int)i==-1) {
69: if(usrlibs==1)
70: return(0);
71: continue; }
72: if(!i)
73: i=curdir[j];
74: else
75: i--;
76: curlib=j;
77: curdir[curlib]=i;
78: csi->logic=LOGIC_TRUE;
79: return(0); }
80: return(0);
81:
82: case CS_FILE_GET_DIR_NUM:
83:
84: if(useron.misc&COLDKEYS) {
85: i=atoi(csi->str);
86: if(i && i<=usrdirs[curlib] && usrlibs)
87: curdir[curlib]=i-1;
88: return(0); }
89:
90: ch=getkey(K_UPPER);
91: outchar(ch);
92: if((ch&0xf)*10<=usrdirs[curlib] && (ch&0xf) && usrlibs) {
93: i=(ch&0xf)*10;
94: ch=getkey(K_UPPER);
95: if(!isdigit(ch) && ch!=CR) {
96: ungetkey(ch);
97: curdir[curlib]=(i/10)-1;
98: return(0); }
99: outchar(ch);
100: if(ch==CR) {
101: curdir[curlib]=(i/10)-1;
102: return(0); }
103: logch(ch,0);
104: i+=ch&0xf;
105: if(i*10<=usrdirs[curlib]) { /* 100+ dirs */
106: i*=10;
107: ch=getkey(K_UPPER);
108: if(!isdigit(ch) && ch!=CR) {
109: ungetkey(ch);
110: curdir[curlib]=(i/10)-1;
111: return(0); }
112: outchar(ch);
113: if(ch==CR) {
114: curdir[curlib]=(i/10)-1;
115: return(0); }
116: logch(ch,0);
117: i+=ch&0xf; }
118: if(i<=usrdirs[curlib])
119: curdir[curlib]=i-1;
120: return(0); }
121: if((ch&0xf)<=usrdirs[curlib] && (ch&0xf) && usrlibs)
122: curdir[curlib]=(ch&0xf)-1;
123: return(0);
124:
125: case CS_FILE_GET_LIB_NUM:
126:
127: if(useron.misc&COLDKEYS) {
128: i=atoi(csi->str);
129: if(i && i<=usrlibs)
130: curlib=i-1;
131: return(0); }
132:
133: ch=getkey(K_UPPER);
134: outchar(ch);
135: if((ch&0xf)*10<=usrlibs && (ch&0xf)) {
136: i=(ch&0xf)*10;
137: ch=getkey(K_UPPER);
138: if(!isdigit(ch) && ch!=CR) {
139: ungetkey(ch);
140: curlib=(i/10)-1;
141: return(0); }
142: outchar(ch);
143: if(ch==CR) {
144: curlib=(i/10)-1;
145: return(0); }
146: logch(ch,0);
147: i+=ch&0xf;
148: if(i<=usrlibs)
149: curlib=i-1;
150: return(0); }
151: if((ch&0xf)<=usrlibs && (ch&0xf))
152: curlib=(ch&0xf)-1;
153: return(0);
154:
155: case CS_FILE_SHOW_LIBRARIES:
156: if(!usrlibs) return(0);
157: sprintf(str,"%sMENU\\LIBS.*",text_dir);
158: if(fexist(str)) {
159: menu("LIBS");
160: return(0); }
161: bputs(text[LibLstHdr]);
162: for(i=0;i<usrlibs && !msgabort();i++) {
163: if(i==curlib)
164: outchar('*');
165: else outchar(SP);
166: if(i<9) outchar(SP);
167: bprintf(text[LibLstFmt],i+1
168: ,lib[usrlib[i]]->lname,nulstr,usrdirs[i]); }
169: return(0);
170:
171: case CS_FILE_SHOW_DIRECTORIES:
172: if(!usrlibs) return(0);
173: sprintf(str,"%sMENU\\DIRS%u.*",text_dir,usrlib[curlib]+1);
174: if(fexist(str)) {
175: sprintf(str,"DIRS%u",usrlib[curlib]+1);
176: menu(str);
177: return(0); }
178: CRLF;
179: bprintf(text[DirLstHdr],lib[usrlib[curlib]]->lname);
180: for(i=0;i<usrdirs[curlib] && !msgabort();i++) {
181: if(i==curdir[curlib]) outchar('*');
182: else outchar(SP);
183: sprintf(str,text[DirLstFmt],i+1
184: ,dir[usrdir[curlib][i]]->lname,nulstr
185: ,getfiles(usrdir[curlib][i]));
186: if(i<9) outchar(SP);
187: if(i<99) outchar(SP);
188: bputs(str); }
189: return(0);
190:
191: case CS_FILE_LIBRARY_UP:
192: curlib++;
193: if(curlib>=usrlibs)
194: curlib=0;
195: return(0);
196: case CS_FILE_LIBRARY_DOWN:
197: if(!curlib)
198: curlib=usrlibs-1;
199: else curlib--;
200: return(0);
201: case CS_FILE_DIRECTORY_UP:
202: if(!usrlibs) return(0);
203: curdir[curlib]++;
204: if(curdir[curlib]>=usrdirs[curlib])
205: curdir[curlib]=0;
206: return(0);
207: case CS_FILE_DIRECTORY_DOWN:
208: if(!usrlibs) return(0);
209: if(!curdir[curlib])
210: curdir[curlib]=usrdirs[curlib]-1;
211: else curdir[curlib]--;
212: return(0);
213: case CS_FILE_SET_AREA:
214: csi->logic=LOGIC_TRUE;
215: for(i=0;i<usrlibs;i++)
216: for(j=0;j<usrdirs[i];j++)
217: if(!stricmp(csi->str,dir[usrdir[i][j]]->code)) {
218: curlib=i;
219: curdir[i]=j;
220: return(0); }
221: csi->logic=LOGIC_FALSE;
222: return(0);
223: case CS_FILE_SET_LIBRARY:
224: csi->logic=LOGIC_TRUE;
225: for(i=0;i<usrlibs;i++)
226: if(!stricmp(lib[usrlib[i]]->sname,csi->str))
227: break;
228: if(i<usrlibs)
229: curlib=i;
230: else
231: csi->logic=LOGIC_FALSE;
232: return(0);
233:
234: case CS_FILE_UPLOAD:
235: csi->logic=LOGIC_FALSE;
236: if(useron.rest&FLAG('U')) {
237: bputs(text[R_Upload]);
238: return(0); }
239: if(usrlibs) {
240: i=usrdir[curlib][curdir[curlib]];
241: if(upload_dir!=INVALID_DIR
242: && !chk_ar(dir[i]->ul_ar,useron))
243: i=upload_dir; }
244: else
245: i=upload_dir;
246:
247: if((uint)i==INVALID_DIR || !chk_ar(dir[i]->ul_ar,useron)) {
248: bputs(text[CantUploadHere]);
249: return(0); }
250:
251: if(gettotalfiles(i)>=dir[i]->maxfiles)
252: bputs(text[DirFull]);
253: else {
254: upload(i);
255: csi->logic=LOGIC_TRUE; }
256: return(0);
257: case CS_FILE_UPLOAD_USER:
258: csi->logic=LOGIC_FALSE;
259: if(user_dir==INVALID_DIR) {
260: bputs(text[NoUserDir]);
261: return(0); }
262: if(gettotalfiles(user_dir)>=dir[user_dir]->maxfiles)
263: bputs(text[UserDirFull]);
264: else if(useron.rest&FLAG('U'))
265: bputs(text[R_Upload]);
266: else if(!chk_ar(dir[user_dir]->ul_ar,useron))
267: bputs(text[CantUploadToUser]);
268: else {
269: upload(user_dir);
270: csi->logic=LOGIC_TRUE; }
271: return(0);
272: case CS_FILE_UPLOAD_SYSOP:
273: csi->logic=LOGIC_FALSE;
274: if(sysop_dir==INVALID_DIR) {
275: bputs(text[NoSysopDir]);
276: return(0); }
277: if(gettotalfiles(sysop_dir)>=dir[sysop_dir]->maxfiles)
278: bputs(text[DirFull]);
279: else if(useron.rest&FLAG('U'))
280: bputs(text[R_Upload]);
281: else if(!chk_ar(dir[sysop_dir]->ul_ar,useron))
282: bputs(text[CantUploadToSysop]);
283: else {
284: upload(sysop_dir);
285: csi->logic=LOGIC_TRUE; }
286: return(0);
287: case CS_FILE_DOWNLOAD:
288: if(!usrlibs) return(0);
289: if(useron.rest&FLAG('D')) {
290: bputs(text[R_Download]);
291: return(0); }
292: padfname(csi->str,str);
293: strupr(str);
294: if(!listfileinfo(usrdir[curlib][curdir[curlib]],str,FI_DOWNLOAD)) {
295: bputs(text[SearchingAllDirs]);
296: for(i=0;i<usrdirs[curlib];i++)
297: if(i!=curdir[curlib] &&
298: (s=listfileinfo(usrdir[curlib][i],str,FI_DOWNLOAD))!=0)
299: if(s==-1 || (!strchr(str,'?') && !strchr(str,'*')))
300: return(0);
301: bputs(text[SearchingAllLibs]);
302: for(i=0;i<usrlibs;i++) {
303: if(i==curlib) continue;
304: for(j=0;j<usrdirs[i];j++)
305: if((s=listfileinfo(usrdir[i][j],str,FI_DOWNLOAD))!=0)
306: if(s==-1 || (!strchr(str,'?') && !strchr(str,'*')))
307: return(0); } }
308: return(0);
309: case CS_FILE_DOWNLOAD_USER: /* Download from user dir */
310: csi->logic=LOGIC_FALSE;
311: if(user_dir==INVALID_DIR) {
312: bputs(text[NoUserDir]);
313: return(0); }
314: if(useron.rest&FLAG('D')) {
315: bputs(text[R_Download]);
316: return(0); }
317: CRLF;
318: if(!listfileinfo(user_dir,nulstr,FI_USERXFER))
319: bputs(text[NoFilesForYou]);
320: else
321: csi->logic=LOGIC_TRUE;
322: return(0);
323: case CS_FILE_DOWNLOAD_BATCH:
324: if(batdn_total && yesno(text[DownloadBatchQ])) {
325: start_batch_download();
326: csi->logic=LOGIC_TRUE; }
327: else
328: csi->logic=LOGIC_FALSE;
329: return(0);
330: case CS_FILE_BATCH_ADD_LIST:
331: batch_add_list(csi->str);
332: return(0);
333: case CS_FILE_BATCH_ADD:
334: csi->logic=LOGIC_FALSE;
335: if(!csi->str[0])
336: return(0);
337: padfname(csi->str,f.name);
338: strupr(f.name);
339: for(x=0;x<usrlibs;x++) {
340: for(y=0;y<usrdirs[x];y++)
341: if(findfile(usrdir[x][y],f.name))
342: break;
343: if(y<usrdirs[x])
344: break; }
345: if(x>=usrlibs)
346: return(0);
347: f.dir=usrdir[x][y];
348: getfileixb(&f);
349: f.size=0;
350: getfiledat(&f);
351: addtobatdl(f);
352: csi->logic=LOGIC_TRUE;
353: return(0);
354: case CS_FILE_BATCH_CLEAR:
355: if(!batdn_total) {
356: csi->logic=LOGIC_FALSE;
357: return(0); }
358: csi->logic=LOGIC_TRUE;
359: for(i=0;i<batdn_total;i++) {
360: f.dir=batdn_dir[i];
361: f.datoffset=batdn_offset[i];
362: f.size=batdn_size[i];
363: strcpy(f.name,batdn_name[i]);
364: closefile(f); }
365: batdn_total=0;
366: return(0);
367:
368: case CS_FILE_VIEW:
369: if(!usrlibs) return(0);
370: padfname(csi->str,str);
371: strupr(str);
372: csi->logic=LOGIC_TRUE;
373: if(listfiles(usrdir[curlib][curdir[curlib]],str,0,FL_VIEW))
374: return(0);
375: bputs(text[SearchingAllDirs]);
376: for(i=0;i<usrdirs[curlib];i++) {
377: if(i==curdir[curlib]) continue;
378: if(listfiles(usrdir[curlib][i],str,0,FL_VIEW))
379: break; }
380: if(i<usrdirs[curlib])
381: return(0);
382: bputs(text[SearchingAllLibs]);
383: for(i=0;i<usrlibs;i++) {
384: if(i==curlib) continue;
385: for(j=0;j<usrdirs[i];j++)
386: if(listfiles(usrdir[i][j],str,0,FL_VIEW))
387: return(0); }
388: csi->logic=LOGIC_FALSE;
389: bputs(text[FileNotFound]);
390: return(0);
391: case CS_FILE_LIST: /* List files in current dir */
392: if(!usrlibs) return(0);
393: csi->logic=LOGIC_FALSE;
394: if(!getfiles(usrdir[curlib][curdir[curlib]])) {
395: bputs(text[EmptyDir]);
396: return(0); }
397: padfname(csi->str,str);
398: strupr(str);
399: s=listfiles(usrdir[curlib][curdir[curlib]],str,0,0);
400: if(s>1) {
401: bprintf(text[NFilesListed],s); }
402: csi->logic=!s;
403: return(0);
404: case CS_FILE_LIST_EXTENDED: /* Extended Information on files */
405: if(!usrlibs) return(0);
406: padfname(csi->str,str);
407: strupr(str);
408: if(!listfileinfo(usrdir[curlib][curdir[curlib]],str,FI_INFO)) {
409: bputs(text[SearchingAllDirs]);
410: for(i=0;i<usrdirs[curlib];i++)
411: if(i!=curdir[curlib] && (s=listfileinfo(usrdir[curlib][i]
412: ,str,FI_INFO))!=0)
413: if(s==-1 || (!strchr(str,'?') && !strchr(str,'*')))
414: return(0);
415: bputs(text[SearchingAllLibs]);
416: for(i=0;i<usrlibs;i++) {
417: if(i==curlib) continue;
418: for(j=0;j<usrdirs[i];j++)
419: if((s=listfileinfo(usrdir[i][j],str,FI_INFO))!=0)
420: if(s==-1 || (!strchr(str,'?') && !strchr(str,'*')))
421: return(0); } }
422: return(0);
423: case CS_FILE_FIND_TEXT: /* Find text in descriptions */
424: scandirs(FL_FINDDESC);
425: return(0);
426: case CS_FILE_FIND_TEXT_ALL: /* Find text in descriptions */
427: scanalldirs(FL_FINDDESC);
428: return(0);
429: case CS_FILE_FIND_NAME: /* Find text in descriptions */
430: scandirs(FL_NO_HDR);
431: return(0);
432: case CS_FILE_FIND_NAME_ALL: /* Find text in descriptions */
433: scanalldirs(FL_NO_HDR);
434: return(0);
435: case CS_FILE_BATCH_SECTION:
436: batchmenu();
437: return(0);
438: case CS_FILE_TEMP_SECTION:
439: temp_xfer();
440: return(0);
441: case CS_FILE_PTRS_CFG:
442: csi->logic=!inputnstime(&ns_time);
443: return(0);
444: case CS_FILE_NEW_SCAN:
445: scandirs(FL_ULTIME);
446: return(0);
447: case CS_FILE_NEW_SCAN_ALL:
448: scanalldirs(FL_ULTIME);
449: return(0);
450: case CS_FILE_REMOVE:
451: if(!usrlibs) return(0);
452: if(useron.rest&FLAG('R')) {
453: bputs(text[R_RemoveFiles]);
454: return(0); }
455: padfname(csi->str,str);
456: strupr(str);
457: if(!listfileinfo(usrdir[curlib][curdir[curlib]],str,FI_REMOVE)) {
458: if(user_dir!=INVALID_DIR
459: && user_dir!=usrdir[curlib][curdir[curlib]])
460: if((s=listfileinfo(user_dir,str,FI_REMOVE))!=0)
461: if(s==-1 || (!strchr(str,'?') && !strchr(str,'*')))
462: return(0);
463: bputs(text[SearchingAllDirs]);
464: for(i=0;i<usrdirs[curlib];i++)
465: if(i!=curdir[curlib] && i!=user_dir
466: && (s=listfileinfo(usrdir[curlib][i],str,FI_REMOVE))!=0)
467: if(s==-1 || (!strchr(str,'?') && !strchr(str,'*')))
468: return(0);
469: bputs(text[SearchingAllLibs]);
470: for(i=0;i<usrlibs;i++) {
471: if(i==curlib || i==user_dir) continue;
472: for(j=0;j<usrdirs[i]; j++)
473: if((s=listfileinfo(usrdir[i][j],str,FI_REMOVE))!=0)
474: if(s==-1 || (!strchr(str,'?') && !strchr(str,'*')))
475: return(0); } }
476: return(0);
477: }
478:
479: errormsg(WHERE,ERR_CHK,"shell function",*(csi->ip-1));
480: return(0);
481: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.