![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to execfunc.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / sbbs2|
Return to execfunc.c CVS log | Up to [Synchronet] / sbbs / sbbs2 |
1.1 root 1: #line 1 "EXECFUNC.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 exec_function(csi_t *csi)
9: {
10: uchar str[256],tmp2[128],ch,*p;
11: int i,j,k,s,file;
12: long l;
13: stats_t stats;
14: node_t node;
15: file_t f;
16: time_t t;
17:
18: switch(*(csi->ip++)) {
19:
20:
21: case CS_PRINTFILE_STR:
22: printfile(csi->str,P_NOATCODES);
23: return(0);
24:
25: /********************************/
26: /* General Main Menu Type Stuff */
27: /********************************/
28: case CS_AUTO_MESSAGE:
29: automsg();
30: return(0);
31: case CS_MINUTE_BANK:
32: if(sys_misc&SM_TIMEBANK) { /* Allow users to deposit free time */
33: s=(level_timeperday[useron.level]-useron.ttoday)+useron.textra;
34: if(s<0) s=0;
35: if(s>level_timepercall[useron.level])
36: s=level_timepercall[useron.level];
37: s-=(now-starttime)/60;
38: if(s<0) s=0;
39: bprintf(text[FreeMinLeft],s);
40: bprintf(text[UserMinutes],ultoac(useron.min,tmp));
41: if(max_minutes && useron.min>=max_minutes) {
42: bputs(text[YouHaveTooManyMinutes]);
43: return(0); }
44: if(max_minutes)
45: while(s>0 && s+useron.min>max_minutes) s--;
46: bprintf(text[FreeMinToDeposit],s);
47: s=getnum(s);
48: if(s>0) {
49: logline(" ","Minute Bank Deposit");
50: useron.min=adjustuserrec(useron.number,U_MIN,10,s);
51: useron.ttoday=adjustuserrec(useron.number,U_TTODAY,10,s);
52: sprintf(str,"Minute Adjustment: %u",s*cdt_min_value);
53: logline("*+",str); } }
54:
55: if(!(sys_misc&SM_NOCDTCVT)) {
56: bprintf(text[ConversionRate],cdt_min_value);
57: bprintf(text[UserCredits]
58: ,ultoac(useron.cdt,tmp)
59: ,ultoac(useron.freecdt,tmp2)
60: ,ultoac(level_freecdtperday[useron.level],str));
61: bprintf(text[UserMinutes],ultoac(useron.min,tmp));
62: if(useron.cdt/102400L<1L) {
63: bprintf(text[YouOnlyHaveNCredits],ultoac(useron.cdt,tmp));
64: return(0); }
65: if(max_minutes && useron.min>=max_minutes) {
66: bputs(text[YouHaveTooManyMinutes]);
67: return(0); }
68: s=useron.cdt/102400L;
69: if(max_minutes)
70: while(s>0 && (s*cdt_min_value)+useron.min>max_minutes) s--;
71: bprintf(text[CreditsToMin],s);
72: s=getnum(s);
73: if(s>0) {
74: logline(" ","Credit to Minute Conversion");
75: useron.cdt=adjustuserrec(useron.number,U_CDT,10,-(s*102400L));
76: useron.min=adjustuserrec(useron.number,U_MIN,10,s*cdt_min_value);
77: sprintf(str,"Credit Adjustment: %ld",-(s*102400L));
78: logline("$-",str);
79: sprintf(str,"Minute Adjustment: %u",s*cdt_min_value);
80: logline("*+",str); } }
81: return(0);
82: case CS_CHAT_SECTION:
83: if(useron.rest&FLAG('C'))
84: bputs(text[R_Chat]);
85: else
86: chatsection();
87: return(0);
88: case CS_USER_DEFAULTS:
89: maindflts(useron);
90: if(!(useron.rest&FLAG('G'))) /* not guest */
91: getuserdat(&useron);
92: return(0);
93: case CS_TEXT_FILE_SECTION:
94: text_sec();
95: return(0);
96: case CS_INFO_SYSTEM: /* System information */
97: bputs(text[SiHdr]);
98: getstats(0,&stats);
99: bprintf(text[SiSysName],sys_name);
100: bprintf(text[SiSysID],sys_id); /* QWK ID */
101: for(i=0;i<total_faddrs;i++)
102: bprintf(text[SiSysFaddr],faddrtoa(faddr[i]));
103: if(sys_psname[0]) /* PostLink/PCRelay */
104: bprintf(text[SiSysPsite],sys_psname,sys_psnum);
105: bprintf(text[SiSysLocation],sys_location);
106: bprintf(text[SiSysop],sys_op);
107: bprintf(text[SiSysNodes],sys_nodes);
108: bprintf(text[SiNodeNumberName],node_num,node_name);
109: bprintf(text[SiNodePhone],node_phone);
110: bprintf(text[SiTotalLogons],ultoac(stats.logons,tmp));
111: bprintf(text[SiLogonsToday],ultoac(stats.ltoday,tmp));
112: bprintf(text[SiTotalTime],ultoac(stats.timeon,tmp));
113: bprintf(text[SiTimeToday],ultoac(stats.ttoday,tmp));
114: ver();
115: if(yesno(text[ViewSysInfoFileQ])) {
116: CLS;
117: sprintf(str,"%sSYSTEM.MSG",text_dir);
118: printfile(str,0); }
119: if(yesno(text[ViewLogonMsgQ])) {
120: CLS;
121: menu("LOGON"); }
122: return(0);
123: case CS_INFO_SUBBOARD: /* Sub-board information */
124: if(!usrgrps) return(0);
125: subinfo(usrsub[curgrp][cursub[curgrp]]);
126: return(0);
127: case CS_INFO_DIRECTORY: /* Sub-board information */
128: if(!usrlibs) return(0);
129: dirinfo(usrdir[curlib][curdir[curlib]]);
130: return(0);
131: case CS_INFO_VERSION: /* Version */
132: ver();
133: return(0);
134: case CS_INFO_USER: /* User's statistics */
135: bprintf(text[UserStats],useron.alias,useron.number);
136: unixtodos(useron.laston,&date,&curtime);
137: bprintf(text[UserDates]
138: ,unixtodstr(useron.firston,str)
139: ,unixtodstr(useron.expire,tmp)
140: ,unixtodstr(useron.laston,tmp2)
141: ,curtime.ti_hour,curtime.ti_min);
142: bprintf(text[UserTimes]
143: ,useron.timeon,useron.ttoday
144: ,level_timeperday[useron.level]
145: ,useron.tlast
146: ,level_timepercall[useron.level]
147: ,useron.textra);
148: bprintf(text[UserLogons]
149: ,useron.logons,useron.ltoday
150: ,level_callsperday[useron.level],useron.posts
151: ,i ? 100/i : useron.posts>useron.logons ? 100 : 0
152: ,useron.ptoday);
153: bprintf(text[UserEmails]
154: ,useron.emails,useron.fbacks
155: ,getmail(useron.number,0),useron.etoday);
156: CRLF;
157: bprintf(text[UserUploads]
158: ,ultoac(useron.ulb,tmp),useron.uls);
159: bprintf(text[UserDownloads]
160: ,ultoac(useron.dlb,tmp),useron.dls,nulstr);
161: bprintf(text[UserCredits],ultoac(useron.cdt,tmp)
162: ,ultoac(useron.freecdt,tmp2)
163: ,ultoac(level_freecdtperday[useron.level],str));
164: bprintf(text[UserMinutes],ultoac(useron.min,tmp));
165: return(0);
166: case CS_INFO_XFER_POLICY:
167: if(!usrlibs) return(0);
168: sprintf(str,"%sMENU\\TPOLICY.*",text_dir);
169: if(fexist(str))
170: menu("TPOLICY");
171: else {
172: bprintf(text[TransferPolicyHdr],sys_name);
173: bprintf(text[TpUpload]
174: ,dir[usrdir[curlib][curdir[curlib]]]->up_pct);
175: bprintf(text[TpDownload]
176: ,dir[usrdir[curlib][curdir[curlib]]]->dn_pct);
177: }
178: return(0);
179: case CS_XTRN_EXEC:
180: csi->logic=LOGIC_TRUE;
181: for(i=0;i<total_xtrns;i++)
182: if(!stricmp(xtrn[i]->code,csi->str))
183: break;
184: if(i<total_xtrns)
185: exec_xtrn(i);
186: else
187: csi->logic=LOGIC_FALSE;
188: return(0);
189: case CS_XTRN_SECTION:
190: if(useron.rest&FLAG('X'))
191: bputs(text[R_ExternalPrograms]);
192: else
193: xtrn_sec(); /* If external available, don't pause */
194: return(0);
195: case CS_LOGOFF:
196: if(!noyes(text[LogOffQ])) {
197: if(logoff_mod[0])
198: exec_bin(logoff_mod,csi);
199: user_event(EVENT_LOGOFF);
200: menu("LOGOFF");
201: SYNC;
202: hangup(); }
203: return(0);
204: case CS_LOGOFF_FAST:
205: SYNC;
206: if(online==ON_REMOTE && !(mdm_misc&MDM_NODTR))
207: dtr(0);
208: hangup();
209: return(0);
210: case CS_NODELIST_ALL:
211: CRLF;
212: bputs(text[NodeLstHdr]);
213: for(i=1;i<=sys_nodes && i<=sys_lastnode;i++) {
214: getnodedat(i,&node,0);
215: printnodedat(i,node); }
216: return(0);
217: case CS_NODELIST_USERS:
218: whos_online(1);
219: return(0);
220: case CS_USERLIST_SUB:
221: userlist(UL_SUB);
222: return(0);
223: case CS_USERLIST_DIR:
224: userlist(UL_DIR);
225: return(0);
226: case CS_USERLIST_ALL:
227: userlist(UL_ALL);
228: return(0);
229: case CS_USERLIST_LOGONS:
230: sprintf(str,"%sLOGON.LST",data_dir);
231: if(flength(str)<1) {
232: bputs("\r\n\r\n");
233: bputs(text[NoOneHasLoggedOnToday]); }
234: else {
235: bputs(text[CallersToday]);
236: printfile(str,P_NOATCODES|P_OPENCLOSE);
237: CRLF; }
238: return(0);
239: case CS_PAGE_SYSOP:
240: ch=kbd_state(); /* Check scroll lock */
241: if(ch&16 || (sys_chat_ar[0] && chk_ar(sys_chat_ar,useron))
242: || useron.exempt&FLAG('C')) {
243: sysop_page();
244: return(0); }
245: bprintf(text[SysopIsNotAvailable],sys_op);
246: return(0);
247: case CS_PAGE_GURU:
248: csi->logic=LOGIC_FALSE;
249: for(i=0;i<total_gurus;i++)
250: if(!stricmp(csi->str,guru[i]->code)
251: && chk_ar(guru[i]->ar,useron))
252: break;
253: if(i>=total_gurus)
254: return(0);
255: sprintf(str,"%s%s.DAT",ctrl_dir,guru[i]->code);
256: if((file=nopen(str,O_RDONLY))==-1) {
257: errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
258: return(0); }
259: if((p=MALLOC(filelength(file)+1))==NULL) {
260: close(file);
261: errormsg(WHERE,ERR_ALLOC,str,filelength(file)+1);
262: return(0); }
263: read(file,p,filelength(file));
264: p[filelength(file)]=0;
265: close(file);
266: localguru(p,i);
267: FREE(p);
268: csi->logic=LOGIC_TRUE;
269: return(0);
270: case CS_PRIVATE_CHAT:
271: privchat();
272: return(0);
273: case CS_PRIVATE_MESSAGE:
274: nodemsg();
275: return(0);
276:
277: /*******************/
278: /* Sysop Functions */
279: /*******************/
280: case CS_USER_EDIT:
281: useredit(csi->str[0] ? finduser(csi->str) : 0,0);
282: return(0);
283:
284:
285: /******************/
286: /* Mail Functions */
287: /******************/
288:
289: case CS_MAIL_READ: /* Read E-mail */
290: readmail(useron.number,MAIL_YOUR);
291: return(0);
292: case CS_MAIL_READ_SENT: /* Kill/read sent mail */
293: if(useron.rest&FLAG('K'))
294: bputs(text[R_ReadSentMail]);
295: else
296: readmail(useron.number,MAIL_SENT);
297: return(0);
298: case CS_MAIL_READ_ALL:
299: readmail(useron.number,MAIL_ALL);
300: return(0);
301: case CS_MAIL_SEND: /* Send E-mail */
302: if(strchr(csi->str,'@')) {
303: i=1;
304: netmail(csi->str,nulstr,0); }
305: else if((i=finduser(csi->str))!=0)
306: email(i,nulstr,nulstr,WM_EMAIL);
307: csi->logic=!i;
308: return(0);
309: case CS_MAIL_SEND_FEEDBACK: /* Feedback */
310: if((i=finduser(csi->str))!=0)
311: email(i,text[ReFeedback],nulstr,WM_EMAIL);
312: csi->logic=!i;
313: return(0);
314: case CS_MAIL_SEND_NETMAIL:
315: bputs(text[EnterNetMailAddress]);
316: if(getstr(str,60,K_LINE)) {
317: netmail(str,nulstr,0);
318: csi->logic=LOGIC_TRUE; }
319: else
320: csi->logic=LOGIC_FALSE;
321: return(0);
322:
323: case CS_MAIL_SEND_NETFILE:
324: bputs(text[EnterNetMailAddress]);
325: if(getstr(str,60,K_LINE)) {
326: netmail(str,nulstr,WM_FILE);
327: csi->logic=LOGIC_TRUE; }
328: else
329: csi->logic=LOGIC_FALSE;
330: return(0);
331:
332: case CS_MAIL_SEND_FILE: /* Upload Attached File to E-mail */
333: if(strchr(csi->str,'@')) {
334: i=1;
335: netmail(csi->str,nulstr,WM_FILE); }
336: else if((i=finduser(csi->str))!=0)
337: email(i,nulstr,nulstr,WM_EMAIL|WM_FILE);
338: csi->logic=!i;
339: return(0);
340: case CS_MAIL_SEND_BULK:
341: if(csi->str[0])
342: p=arstr(0,csi->str);
343: else
344: p=nulstr;
345: bulkmail(p);
346: if(p && p[0])
347: FREE(p);
348: return(0);
349:
350: case CS_INC_MAIN_CMDS:
351: main_cmds++;
352: return(0);
353:
354: case CS_INC_FILE_CMDS:
355: xfer_cmds++;
356: return(0);
357:
358: case CS_SYSTEM_LOG: /* System log */
359: if(!chksyspass(0))
360: return(0);
361: unixtodos(now,&date,&curtime);
362: sprintf(str,"%sLOGS\\%2.2d%2.2d%2.2d.LOG",data_dir
363: ,date.da_mon,date.da_day,date.da_year-1900);
364: printfile(str,0);
365: return(0);
366: case CS_SYSTEM_YLOG: /* Yesterday's log */
367: if(!chksyspass(0))
368: return(0);
369: now-=(ulong)60L*24L*60L;
370: unixtodos(now,&date,&curtime);
371: sprintf(str,"%sLOGS\\%2.2d%2.2d%2.2d.LOG",data_dir
372: ,date.da_mon,date.da_day,date.da_year-1900);
373: printfile(str,0);
374: return(0);
375: case CS_SYSTEM_STATS: /* System Statistics */
376: bputs(text[SystemStatsHdr]);
377: getstats(0,&stats);
378: bprintf(text[StatsTotalLogons],ultoac(stats.logons,tmp));
379: bprintf(text[StatsLogonsToday],ultoac(stats.ltoday,tmp));
380: bprintf(text[StatsTotalTime],ultoac(stats.timeon,tmp));
381: bprintf(text[StatsTimeToday],ultoac(stats.ttoday,tmp));
382: bprintf(text[StatsUploadsToday],ultoac(stats.ulb,tmp)
383: ,stats.uls);
384: bprintf(text[StatsDownloadsToday],ultoac(stats.dlb,tmp)
385: ,stats.dls);
386: bprintf(text[StatsPostsToday],ultoac(stats.ptoday,tmp));
387: bprintf(text[StatsEmailsToday],ultoac(stats.etoday,tmp));
388: bprintf(text[StatsFeedbacksToday],ultoac(stats.ftoday,tmp));
389: return(0);
390: case CS_NODE_STATS: /* Node Statistics */
391: i=atoi(csi->str);
392: if(i>sys_nodes) {
393: bputs(text[InvalidNode]);
394: return(0); }
395: if(!i) i=node_num;
396: bprintf(text[NodeStatsHdr],i);
397: getstats(i,&stats);
398: bprintf(text[StatsTotalLogons],ultoac(stats.logons,tmp));
399: bprintf(text[StatsLogonsToday],ultoac(stats.ltoday,tmp));
400: bprintf(text[StatsTotalTime],ultoac(stats.timeon,tmp));
401: bprintf(text[StatsTimeToday],ultoac(stats.ttoday,tmp));
402: bprintf(text[StatsUploadsToday],ultoac(stats.ulb,tmp)
403: ,stats.uls);
404: bprintf(text[StatsDownloadsToday],ultoac(stats.dlb,tmp)
405: ,stats.dls);
406: bprintf(text[StatsPostsToday],ultoac(stats.ptoday,tmp));
407: bprintf(text[StatsEmailsToday],ultoac(stats.etoday,tmp));
408: bprintf(text[StatsFeedbacksToday],ultoac(stats.ftoday,tmp));
409: return(0);
410: case CS_CHANGE_USER: /* Change to another user */
411: if(!chksyspass(0))
412: return(0);
413: bputs(text[ChUserPrompt]);
414: if(!getstr(str,LEN_ALIAS,K_UPPER))
415: return(0);
416: if((i=finduser(str))==0)
417: return(0);
418: if(online==ON_REMOTE) {
419: getuserrec(i,U_LEVEL,2,str);
420: if(atoi(str)>logon_ml) {
421: getuserrec(i,U_PASS,8,tmp);
422: bputs(text[ChUserPwPrompt]);
423: console|=CON_R_ECHOX;
424: if(!(sys_misc&SM_ECHO_PW))
425: console|=CON_L_ECHOX;
426: getstr(str,8,K_UPPER);
427: console&=~(CON_R_ECHOX|CON_L_ECHOX);
428: if(strcmp(str,tmp))
429: return(0); } }
430: putmsgptrs();
431: putuserrec(useron.number,U_CURSUB,8
432: ,sub[usrsub[curgrp][cursub[curgrp]]]->code);
433: putuserrec(useron.number,U_CURDIR,8
434: ,dir[usrdir[curlib][curdir[curlib]]]->code);
435: useron.number=i;
436: getuserdat(&useron);
437: getnodedat(node_num,&thisnode,1);
438: thisnode.useron=useron.number;
439: putnodedat(node_num,thisnode);
440: getmsgptrs();
441: if(REALSYSOP) sys_status&=~SS_TMPSYSOP;
442: else sys_status|=SS_TMPSYSOP;
443: statline=sys_def_stat;
444: statusline();
445: sprintf(str,"Changed into %s #%u",useron.alias,useron.number);
446: logline("S+",str);
447: return(0);
448: case CS_SHOW_MEM:
449: #ifdef __MSDOS__
450: bprintf(text[NBytesFreeMemory],farcoreleft());
451: #endif
452: return(0);
453: case CS_ERROR_LOG:
454: sprintf(str,"%sERROR.LOG",data_dir);
455: if(fexist(str)) {
456: bputs(text[ErrorLogHdr]);
457: printfile(str,0);
458: if(!noyes(text[DeleteErrorLogQ]))
459: remove(str); }
460: else
461: bputs(text[NoErrorLogExists]);
462: for(i=1;i<=sys_nodes;i++) {
463: getnodedat(i,&node,0);
464: if(node.errors)
465: break; }
466: if(i<=sys_nodes || criterrs) {
467: if(!noyes(text[ClearErrCounter])) {
468: for(i=1;i<=sys_nodes;i++) {
469: getnodedat(i,&node,1);
470: node.errors=0;
471: putnodedat(i,node); }
472: criterrs=0; } }
473: return(0);
474: case CS_ANSI_CAPTURE: /* Capture ANSI codes */
475: sys_status^=SS_ANSCAP;
476: bprintf(text[ANSICaptureIsNow]
477: ,sys_status&SS_ANSCAP ? text[ON] : text[OFF]);
478: return(0);
479: case CS_LIST_TEXT_FILE: /* View ASCII/ANSI/Ctrl-A file */
480: if(!chksyspass(0))
481: return(0);
482: bputs(text[Filename]);
483: if(getstr(str,60,K_UPPER))
484: printfile(str,0);
485: return(0);
486: case CS_EDIT_TEXT_FILE: /* Edit ASCII/Ctrl-A file */
487: if(!chksyspass(0))
488: return(0);
489: bputs(text[Filename]);
490: if(getstr(str,60,K_UPPER))
491: editfile(str);
492: return(0);
493: case CS_GURU_LOG:
494: sprintf(str,"%sGURU.LOG",data_dir);
495: if(fexist(str)) {
496: printfile(str,0);
497: CRLF;
498: if(!noyes(text[DeleteGuruLogQ]))
499: remove(str); }
500: return(0);
501: case CS_FILE_SET_ALT_PATH:
502: altul=atoi(csi->str);
503: if(altul>altpaths)
504: altul=0;
505: bprintf(text[AltULPathIsNow],altul ? altpath[altul-1] : text[OFF]);
506: return(0);
507: case CS_FILE_RESORT_DIRECTORY:
508: for(i=1;i<=sys_nodes;i++)
509: if(i!=node_num) {
510: getnodedat(i,&node,0);
511: if(node.status==NODE_INUSE
512: || node.status==NODE_QUIET)
513: break; }
514:
515: if(i<=sys_nodes) {
516: bputs(text[ResortWarning]);
517: return(0); }
518:
519: if(!stricmp(csi->str,"ALL")) { /* all libraries */
520: for(i=0;i<usrlibs;i++)
521: for(j=0;j<usrdirs[i];j++)
522: resort(usrdir[i][j]);
523: return(0); }
524: if(!stricmp(csi->str,"LIB")) { /* current library */
525: for(i=0;i<usrdirs[curlib];i++)
526: resort(usrdir[curlib][i]);
527: return(0); }
528: resort(usrdir[curlib][curdir[curlib]]);
529: return(0);
530:
531: case CS_FILE_GET:
532:
533: if(!fexist(csi->str)) {
534: bputs(text[FileNotFound]);
535: return(0); }
536: if(!chksyspass(0))
537: return(0);
538:
539: case CS_FILE_SEND:
540:
541: menu("DLPROT");
542: mnemonics(text[ProtocolOrQuit]);
543: strcpy(str,"Q");
544: for(i=0;i<total_prots;i++)
545: if(prot[i]->dlcmd[0] && chk_ar(prot[i]->ar,useron)) {
546: sprintf(tmp,"%c",prot[i]->mnemonic);
547: strcat(str,tmp); }
548: ch=getkeys(str,0);
549: if(ch=='Q' || sys_status&SS_ABORT) {
550: return(0); }
551: for(i=0;i<total_prots;i++)
552: if(prot[i]->mnemonic==ch && chk_ar(prot[i]->ar,useron))
553: break;
554: if(i<total_prots) {
555: protocol(cmdstr(prot[i]->dlcmd,csi->str,csi->str,str),0);
556: autohangup(); }
557: return(0);
558:
559: case CS_FILE_PUT:
560: if(!chksyspass(0))
561: return(0);
562: menu("ULPROT");
563: mnemonics(text[ProtocolOrQuit]);
564: strcpy(str,"Q");
565: for(i=0;i<total_prots;i++)
566: if(prot[i]->ulcmd[0] && chk_ar(prot[i]->ar,useron)) {
567: sprintf(tmp,"%c",prot[i]->mnemonic);
568: strcat(str,tmp); }
569: ch=getkeys(str,0);
570: if(ch=='Q' || sys_status&SS_ABORT) {
571: lncntr=0;
572: return(0); }
573: for(i=0;i<total_prots;i++)
574: if(prot[i]->mnemonic==ch && chk_ar(prot[i]->ar,useron))
575: break;
576: if(i<total_prots) {
577: protocol(cmdstr(prot[i]->ulcmd,csi->str,csi->str,str),0);
578: autohangup(); }
579: return(0);
580:
581: case CS_FILE_UPLOAD_BULK:
582:
583: if(!usrlibs) return(0);
584:
585: if(!stricmp(csi->str,"ALL")) { /* all libraries */
586: for(i=0;i<usrlibs;i++)
587: for(j=0;j<usrdirs[i];j++) {
588: if(lib[i]->offline_dir==usrdir[i][j])
589: continue;
590: if(bulkupload(usrdir[i][j])) return(0); }
591: return(0); }
592: if(!stricmp(csi->str,"LIB")) { /* current library */
593: for(i=0;i<usrdirs[curlib];i++) {
594: if(lib[usrlib[curlib]]->offline_dir
595: ==usrdir[curlib][i])
596: continue;
597: if(bulkupload(usrdir[curlib][i])) return(0); }
598: return(0); }
599: bulkupload(usrdir[curlib][curdir[curlib]]); /* current dir */
600: return(0);
601:
602: case CS_FILE_FIND_OLD:
603: case CS_FILE_FIND_OPEN:
604: case CS_FILE_FIND_OFFLINE:
605: case CS_FILE_FIND_OLD_UPLOADS:
606: if(!usrlibs) return(0);
607: if(!getfilespec(tmp))
608: return(0);
609: padfname(tmp,str);
610: k=0;
611: bputs("\r\nSearching ");
612: if(!stricmp(csi->str,"ALL"))
613: bputs("all libraries");
614: else if(!stricmp(csi->str,"LIB"))
615: bputs("library");
616: else
617: bputs("directory");
618: bputs(" for files ");
619: if(*(csi->ip-1)==CS_FILE_FIND_OLD_UPLOADS) {
620: l=FI_OLDUL;
621: bprintf("uploaded before %s\r\n",timestr(&ns_time)); }
622: else if(*(csi->ip-1)==CS_FILE_FIND_OLD) { /* go by download date */
623: l=FI_OLD;
624: bprintf("not downloaded since %s\r\n",timestr(&ns_time)); }
625: else if(*(csi->ip-1)==CS_FILE_FIND_OFFLINE) {
626: l=FI_OFFLINE;
627: bputs("not online...\r\n"); }
628: else {
629: l=FI_CLOSE;
630: bputs("currently open...\r\n"); }
631: if(!stricmp(csi->str,"ALL")) {
632: for(i=0;i<usrlibs;i++)
633: for(j=0;j<usrdirs[i];j++) {
634: if(lib[i]->offline_dir==usrdir[i][j])
635: continue;
636: if((s=listfileinfo(usrdir[i][j],str,l))==-1)
637: return(0);
638: else k+=s; } }
639: else if(!stricmp(csi->str,"LIB")) {
640: for(i=0;i<usrdirs[curlib];i++) {
641: if(lib[usrlib[curlib]]->offline_dir==usrdir[curlib][i])
642: continue;
643: if((s=listfileinfo(usrdir[curlib][i],str,l))==-1)
644: return(0);
645: else k+=s; } }
646: else {
647: s=listfileinfo(usrdir[curlib][curdir[curlib]],str,l);
648: if(s==-1)
649: return(0);
650: k=s; }
651: if(k>1) {
652: bprintf(text[NFilesListed],k); }
653: return(0); }
654:
655: if(*(csi->ip-1)>=CS_MSG_SET_AREA && *(csi->ip-1)<=CS_MSG_UNUSED1) {
656: csi->ip--;
657: return(execmsg(csi)); }
658:
659: if(*(csi->ip-1)>=CS_FILE_SET_AREA && *(csi->ip-1)<=CS_FILE_UNUSED1) {
660: csi->ip--;
661: return(execfile(csi)); }
662:
663: errormsg(WHERE,ERR_CHK,"shell function",*(csi->ip-1));
664: return(0);
665: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.