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