![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to atcodes.cpp CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / src / sbbs3|
Return to atcodes.cpp CVS log | Up to [Synchronet] / sbbs / src / sbbs3 |
1.1 root 1: /* atcodes.cpp */
2:
3: /* Synchronet "@code" functions */
4:
5: /* $Id: atcodes.cpp,v 1.46 2006/11/30 07:28:03 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 2006 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: #if defined(_WINSOCKAPI_)
42: extern WSADATA WSAData;
43: #define SOCKLIB_DESC WSAData.szDescription
44: #else
45: #define SOCKLIB_DESC NULL
46: #endif
47:
48: /****************************************************************************/
49: /* Returns 0 if invalid @ code. Returns length of @ code if valid. */
50: /****************************************************************************/
51: int sbbs_t::show_atcode(char *instr)
52: {
53: char str[128],str2[128],*p,*tp,*sp;
54: int len;
55: int disp_len;
56: bool padded_left=false;
57: bool padded_right=false;
58:
59: sprintf(str,"%.80s",instr);
60: tp=strchr(str+1,'@');
61: if(!tp) /* no terminating @ */
62: return(0);
63: sp=strchr(str+1,' ');
64: if(sp && sp<tp) /* space before terminating @ */
65: return(0);
66: len=(tp-str)+1;
67: (*tp)=0;
68: sp=(str+1);
69:
70: disp_len=len;
71: if((p=strstr(sp,"-L"))!=NULL)
72: padded_left=true;
73: else if((p=strstr(sp,"-R"))!=NULL)
74: padded_right=true;
75: if(p!=NULL) {
76: if(*(p+2) && isdigit(*(p+2)))
77: disp_len=atoi(p+2);
78: *p=0;
79: }
80:
81: p=atcode(sp,str2,sizeof(str2));
82: if(p==NULL)
83: return(0);
84:
85: if(padded_left)
86: rprintf("%-*.*s",disp_len,disp_len,p);
87: else if(padded_right)
88: rprintf("%*.*s",disp_len,disp_len,p);
89: else
90: rputs(p);
91:
92: return(len);
93: }
94:
95: char* sbbs_t::atcode(char* sp, char* str, size_t maxlen)
96: {
97: char* tp;
98: uint i;
99: uint ugrp;
100: uint usub;
101: long l;
102: stats_t stats;
103: node_t node;
104: struct tm tm;
105:
106: str[0]=0;
107:
108: if(!strcmp(sp,"VER"))
109: return(VERSION);
110:
111: if(!strcmp(sp,"REV")) {
112: safe_snprintf(str,maxlen,"%c",REVISION);
113: return(str);
114: }
115:
116: if(!strcmp(sp,"FULL_VER")) {
117: safe_snprintf(str,maxlen,"%s%c%s",VERSION,REVISION,beta_version);
118: truncsp(str);
119: #if defined(_DEBUG)
120: strcat(str," Debug");
121: #endif
122: return(str);
123: }
124:
125: if(!strcmp(sp,"VER_NOTICE"))
126: return(VERSION_NOTICE);
127:
128: if(!strcmp(sp,"OS_VER"))
129: return(os_version(str));
130:
131: #ifdef JAVASCRIPT
132: if(!strcmp(sp,"JS_VER"))
133: return((char *)JS_GetImplementationVersion());
134: #endif
135:
136: if(!strcmp(sp,"PLATFORM"))
137: return(PLATFORM_DESC);
138:
139: if(!strcmp(sp,"COPYRIGHT"))
140: return(COPYRIGHT_NOTICE);
141:
142: if(!strcmp(sp,"COMPILER")) {
143: DESCRIBE_COMPILER(str);
144: return(str);
145: }
146:
147: if(!strcmp(sp,"UPTIME")) {
148: extern time_t uptime;
149: time_t up=time(NULL)-uptime;
150: if(up<0)
151: up=0;
152: char days[64]="";
153: if((up/(24*60*60))>=2) {
154: sprintf(days,"%lu days ",(ulong)(up/(24L*60L*60L)));
155: up%=(24*60*60);
156: }
157: safe_snprintf(str,maxlen,"%s%lu:%02lu"
158: ,days
159: ,(ulong)(up/(60L*60L))
160: ,(ulong)((up/60L)%60L)
161: );
162: return(str);
163: }
164:
165: if(!strcmp(sp,"SERVED")) {
166: extern DWORD served;
167: safe_snprintf(str,maxlen,"%lu",served);
168: return(str);
169: }
170:
171: if(!strcmp(sp,"SOCKET_LIB"))
172: return(socklib_version(str,SOCKLIB_DESC));
173:
174: if(!strcmp(sp,"MSG_LIB")) {
175: safe_snprintf(str,maxlen,"SMBLIB %s",smb_lib_ver());
176: return(str);
177: }
178:
179: if(!strcmp(sp,"BBS") || !strcmp(sp,"BOARDNAME"))
180: return(cfg.sys_name);
181:
182: if(!strcmp(sp,"BAUD") || !strcmp(sp,"BPS")) {
183: safe_snprintf(str,maxlen,"%lu",cur_rate);
184: return(str);
185: }
186:
187: if(!strcmp(sp,"CONN"))
188: return(connection);
189:
190: if(!strcmp(sp,"SYSOP"))
191: return(cfg.sys_op);
192:
193: if(!strcmp(sp,"LOCATION"))
194: return(cfg.sys_location);
195:
196: if(!strcmp(sp,"NODE")) {
197: safe_snprintf(str,maxlen,"%u",cfg.node_num);
198: return(str);
199: }
200:
201: if(!strcmp(sp,"TNODE")) {
202: safe_snprintf(str,maxlen,"%u",cfg.sys_nodes);
203: return(str);
204: }
205:
206: if(!strcmp(sp,"INETADDR"))
207: return(cfg.sys_inetaddr);
208:
209: if(!strcmp(sp,"HOSTNAME"))
210: return(startup->host_name);
211:
212: if(!strcmp(sp,"FIDOADDR")) {
213: if(cfg.total_faddrs)
214: return(smb_faddrtoa(&cfg.faddr[0],str));
215: return(nulstr);
216: }
217:
218: if(!strcmp(sp,"EMAILADDR"))
219: return(usermailaddr(&cfg, str
220: ,cfg.inetmail_misc&NMAIL_ALIAS ? useron.alias : useron.name));
221:
222: if(!strcmp(sp,"QWKID"))
223: return(cfg.sys_id);
224:
225: if(!strcmp(sp,"TIME") || !strcmp(sp,"SYSTIME")) {
226: now=time(NULL);
227: memset(&tm,0,sizeof(tm));
228: localtime_r(&now,&tm);
229: if(cfg.sys_misc&SM_MILITARY)
230: safe_snprintf(str,maxlen,"%02d:%02d"
231: ,tm.tm_hour,tm.tm_min);
232: else
233: safe_snprintf(str,maxlen,"%02d:%02d %s"
234: ,tm.tm_hour==0 ? 12
235: : tm.tm_hour>12 ? tm.tm_hour-12
236: : tm.tm_hour, tm.tm_min, tm.tm_hour>11 ? "pm":"am");
237: return(str);
238: }
239:
240: if(!strcmp(sp,"DATE") || !strcmp(sp,"SYSDATE")) {
241: now=time(NULL);
242: return(unixtodstr(&cfg,now,str));
243: }
244:
245: if(!strcmp(sp,"TMSG")) {
246: l=0;
247: for(i=0;i<cfg.total_subs;i++)
248: l+=getposts(&cfg,i); /* l=total posts */
249: safe_snprintf(str,maxlen,"%lu",l);
250: return(str);
251: }
252:
253: if(!strcmp(sp,"TUSER")) {
254: safe_snprintf(str,maxlen,"%u",total_users(&cfg));
255: return(str);
256: }
257:
258: if(!strcmp(sp,"TFILE")) {
259: l=0;
260: for(i=0;i<cfg.total_dirs;i++)
261: l+=getfiles(&cfg,i);
262: safe_snprintf(str,maxlen,"%lu",l);
263: return(str);
264: }
265:
266: if(!strcmp(sp,"TCALLS") || !strcmp(sp,"NUMCALLS")) {
267: getstats(&cfg,0,&stats);
268: safe_snprintf(str,maxlen,"%lu",stats.logons);
269: return(str);
270: }
271:
272: if(!strcmp(sp,"PREVON") || !strcmp(sp,"LASTCALLERNODE")
273: || !strcmp(sp,"LASTCALLERSYSTEM"))
274: return(lastuseron);
275:
276: if(!strcmp(sp,"CLS")) {
277: CLS;
278: return(nulstr);
279: }
280:
281: if(!strcmp(sp,"PAUSE") || !strcmp(sp,"MORE")) {
282: pause();
283: return(nulstr);
284: }
285:
286: if(!strcmp(sp,"RESETPAUSE")) {
287: lncntr=0;
288: return(nulstr);
289: }
290:
291: if(!strcmp(sp,"NOPAUSE") || !strcmp(sp,"POFF")) {
292: sys_status^=SS_PAUSEOFF;
293: return(nulstr);
294: }
295:
296: if(!strcmp(sp,"PON") || !strcmp(sp,"AUTOMORE")) {
297: sys_status^=SS_PAUSEON;
298: return(nulstr);
299: }
300:
301: /* NOSTOP */
302:
303: /* STOP */
304:
305: if(!strcmp(sp,"BELL") || !strcmp(sp,"BEEP"))
306: return("\a");
307:
308: if(!strcmp(sp,"EVENT")) {
309: if(event_time==0)
310: return("<none>");
311: return(timestr(&event_time));
312: }
313:
314: /* LASTCALL */
315:
316: if(!strncmp(sp,"NODE",4)) {
317: i=atoi(sp+4);
318: if(i && i<=cfg.sys_nodes) {
319: getnodedat(i,&node,0);
320: printnodedat(i,&node);
321: }
322: return(nulstr);
323: }
324:
325: if(!strcmp(sp,"WHO")) {
326: whos_online(true);
327: return(nulstr);
328: }
329:
330: /* User Codes */
331:
332: if(!strcmp(sp,"USER") || !strcmp(sp,"ALIAS") || !strcmp(sp,"NAME"))
333: return(useron.alias);
334:
335: if(!strcmp(sp,"FIRST")) {
336: safe_snprintf(str,maxlen,"%s",useron.alias);
337: tp=strchr(str,' ');
338: if(tp) *tp=0;
339: return(str);
340: }
341:
342: if(!strcmp(sp,"USERNUM")) {
343: safe_snprintf(str,maxlen,"%u",useron.number);
344: return(str);
345: }
346:
347: if(!strcmp(sp,"PHONE") || !strcmp(sp,"HOMEPHONE")
348: || !strcmp(sp,"DATAPHONE") || !strcmp(sp,"DATA"))
349: return(useron.phone);
350:
351: if(!strcmp(sp,"ADDR1"))
352: return(useron.address);
353:
354: if(!strcmp(sp,"FROM"))
355: return(useron.location);
356:
357: if(!strcmp(sp,"CITY")) {
358: safe_snprintf(str,maxlen,"%s",useron.location);
359: char* p=strchr(str,',');
360: if(p) {
361: *p=0;
362: return(str);
363: }
364: return(nulstr);
365: }
366:
367: if(!strcmp(sp,"STATE")) {
368: char* p=strchr(useron.location,',');
369: if(p) {
370: p++;
371: if(*p==' ')
372: p++;
373: return(p);
374: }
375: return(nulstr);
376: }
377:
378: if(!strcmp(sp,"CPU"))
379: return(useron.comp);
380:
381: if(!strcmp(sp,"HOST"))
382: return(client_name);
383:
384: if(!strcmp(sp,"BDATE"))
385: return(useron.birth);
386:
387: if(!strcmp(sp,"AGE")) {
388: safe_snprintf(str,maxlen,"%u",getage(&cfg,useron.birth));
389: return(str);
390: }
391:
392: if(!strcmp(sp,"CALLS") || !strcmp(sp,"NUMTIMESON")) {
393: safe_snprintf(str,maxlen,"%u",useron.logons);
394: return(str);
395: }
396:
397: if(!strcmp(sp,"MEMO"))
398: return(unixtodstr(&cfg,useron.pwmod,str));
399:
400: if(!strcmp(sp,"SEC") || !strcmp(sp,"SECURITY")) {
401: safe_snprintf(str,maxlen,"%u",useron.level);
402: return(str);
403: }
404:
405: if(!strcmp(sp,"SINCE"))
406: return(unixtodstr(&cfg,useron.firston,str));
407:
408: if(!strcmp(sp,"TIMEON") || !strcmp(sp,"TIMEUSED")) {
409: now=time(NULL);
410: safe_snprintf(str,maxlen,"%lu",(ulong)(now-logontime)/60L);
411: return(str);
412: }
413:
414: if(!strcmp(sp,"TUSED")) { /* Synchronet only */
415: now=time(NULL);
416: return(sectostr(now-logontime,str)+1);
417: }
418:
419: if(!strcmp(sp,"TLEFT")) { /* Synchronet only */
420: gettimeleft();
421: return(sectostr(timeleft,str)+1);
422: }
423:
424: if(!strcmp(sp,"TPERD")) /* Synchronet only */
425: return(sectostr(cfg.level_timeperday[useron.level],str)+1);
426:
427: if(!strcmp(sp,"TPERC")) /* Synchronet only */
428: return(sectostr(cfg.level_timepercall[useron.level],str)+1);
429:
430: if(!strcmp(sp,"TIMELIMIT")) {
431: safe_snprintf(str,maxlen,"%u",cfg.level_timepercall[useron.level]);
432: return(str);
433: }
434:
435: if(!strcmp(sp,"MINLEFT") || !strcmp(sp,"LEFT") || !strcmp(sp,"TIMELEFT")) {
436: gettimeleft();
437: safe_snprintf(str,maxlen,"%lu",timeleft/60);
438: return(str);
439: }
440:
441: if(!strcmp(sp,"LASTON"))
442: return(timestr(&useron.laston));
443:
444: if(!strcmp(sp,"LASTDATEON"))
445: return(unixtodstr(&cfg,useron.laston,str));
446:
447: if(!strcmp(sp,"LASTTIMEON")) {
448: memset(&tm,0,sizeof(tm));
449: localtime_r(&useron.laston,&tm);
450: safe_snprintf(str,maxlen,"%02d:%02d %s"
451: ,tm.tm_hour==0 ? 12
452: : tm.tm_hour>12 ? tm.tm_hour-12
453: : tm.tm_hour, tm.tm_min, tm.tm_hour>11 ? "pm":"am");
454: return(str);
455: }
456:
457: if(!strcmp(sp,"MSGLEFT") || !strcmp(sp,"MSGSLEFT")) {
458: safe_snprintf(str,maxlen,"%u",useron.posts);
459: return(str);
460: }
461:
462: if(!strcmp(sp,"MSGREAD")) {
463: safe_snprintf(str,maxlen,"%lu",posts_read);
464: return(str);
465: }
466:
467: if(!strcmp(sp,"FREESPACE")) {
468: safe_snprintf(str,maxlen,"%lu",getfreediskspace(cfg.temp_dir,0));
469: return(str);
470: }
471:
472: if(!strcmp(sp,"FREESPACEK")) {
473: safe_snprintf(str,maxlen,"%lu",getfreediskspace(cfg.temp_dir,1024));
474: return(str);
475: }
476:
477: if(!strcmp(sp,"UPBYTES")) {
478: safe_snprintf(str,maxlen,"%lu",useron.ulb);
479: return(str);
480: }
481:
482: if(!strcmp(sp,"UPK")) {
483: safe_snprintf(str,maxlen,"%lu",useron.ulb/1024L);
484: return(str);
485: }
486:
487: if(!strcmp(sp,"UPS") || !strcmp(sp,"UPFILES")) {
488: safe_snprintf(str,maxlen,"%u",useron.uls);
489: return(str);
490: }
491:
492: if(!strcmp(sp,"DLBYTES")) {
493: safe_snprintf(str,maxlen,"%lu",useron.dlb);
494: return(str);
495: }
496:
497: if(!strcmp(sp,"DOWNK")) {
498: safe_snprintf(str,maxlen,"%lu",useron.dlb/1024L);
499: return(str);
500: }
501:
502: if(!strcmp(sp,"DOWNS") || !strcmp(sp,"DLFILES")) {
503: safe_snprintf(str,maxlen,"%u",useron.dls);
504: return(str);
505: }
506:
507: if(!strcmp(sp,"LASTNEW"))
508: return(unixtodstr(&cfg,ns_time,str));
509:
510: if(!strcmp(sp,"NEWFILETIME"))
511: return(timestr(&ns_time));
512:
513: /* MAXDL */
514:
515: if(!strcmp(sp,"MAXDK") || !strcmp(sp,"DLKLIMIT") || !strcmp(sp,"KBLIMIT")) {
516: safe_snprintf(str,maxlen,"%lu",cfg.level_freecdtperday[useron.level]/1024L);
517: return(str);
518: }
519:
520: if(!strcmp(sp,"DAYBYTES")) { /* amt of free cdts used today */
521: safe_snprintf(str,maxlen,"%lu",cfg.level_freecdtperday[useron.level]-useron.freecdt);
522: return(str);
523: }
524:
525: if(!strcmp(sp,"BYTELIMIT")) {
526: safe_snprintf(str,maxlen,"%lu",cfg.level_freecdtperday[useron.level]);
527: return(str);
528: }
529:
530: if(!strcmp(sp,"KBLEFT")) {
531: safe_snprintf(str,maxlen,"%lu",(useron.cdt+useron.freecdt)/1024L);
532: return(str);
533: }
534:
535: if(!strcmp(sp,"BYTESLEFT")) {
536: safe_snprintf(str,maxlen,"%lu",useron.cdt+useron.freecdt);
537: return(str);
538: }
539:
540: if(!strcmp(sp,"CONF")) {
541: safe_snprintf(str,maxlen,"%s %s"
542: ,usrgrps ? cfg.grp[usrgrp[curgrp]]->sname :nulstr
543: ,usrgrps ? cfg.sub[usrsub[curgrp][cursub[curgrp]]]->sname : nulstr);
544: return(str);
545: }
546:
547: if(!strcmp(sp,"CONFNUM")) {
548: safe_snprintf(str,maxlen,"%u %u",curgrp+1,cursub[curgrp]+1);
549: return(str);
550: }
551:
552: if(!strcmp(sp,"NUMDIR")) {
553: safe_snprintf(str,maxlen,"%u %u",usrlibs ? curlib+1 : 0,usrlibs ? curdir[curlib]+1 : 0);
554: return(str);
555: }
556:
557: if(!strcmp(sp,"EXDATE") || !strcmp(sp,"EXPDATE"))
558: return(unixtodstr(&cfg,useron.expire,str));
559:
560: if(!strcmp(sp,"EXPDAYS")) {
561: now=time(NULL);
562: l=useron.expire-now;
563: if(l<0)
564: l=0;
565: safe_snprintf(str,maxlen,"%lu",l/(1440L*60L));
566: return(str);
567: }
568:
569: if(!strcmp(sp,"MEMO1"))
570: return(useron.note);
571:
572: if(!strcmp(sp,"MEMO2") || !strcmp(sp,"COMPANY"))
573: return(useron.name);
574:
575: if(!strcmp(sp,"ZIP"))
576: return(useron.zipcode);
577:
578: if(!strcmp(sp,"HANGUP")) {
579: hangup();
580: return(nulstr);
581: }
582:
583: /* Synchronet Specific */
584:
585: if(!strncmp(sp,"SETSTR:",7)) {
586: strcpy(main_csi.str,sp+7);
587: return(nulstr);
588: }
589:
590: if(!strncmp(sp,"EXEC:",5)) {
591: exec_bin(sp+5,&main_csi);
592: return(nulstr);
593: }
594:
595: if(!strncmp(sp,"MENU:",5)) {
596: menu(sp+5);
597: return(nulstr);
598: }
599:
600: if(!strncmp(sp,"TYPE:",5)) {
601: printfile(cmdstr(sp+5,nulstr,nulstr,str),0);
602: return(nulstr);
603: }
604:
605: if(!strncmp(sp,"INCLUDE:",5)) {
606: printfile(cmdstr(sp+8,nulstr,nulstr,str),P_NOCRLF|P_SAVEATR);
607: return(nulstr);
608: }
609:
610: if(!strcmp(sp,"QUESTION"))
611: return(question);
612:
613: if(!strcmp(sp,"HANDLE"))
614: return(useron.handle);
615:
616: if(!strcmp(sp,"CID") || !strcmp(sp,"IP"))
617: return(cid);
618:
619: if(!strcmp(sp,"LOCAL-IP")) {
620: struct in_addr in_addr;
621: in_addr.s_addr=local_addr;
622: return(inet_ntoa(in_addr));
623: }
624:
625: if(!strcmp(sp,"CRLF"))
626: return("\r\n");
627:
628: if(!strcmp(sp,"PUSHXY")) {
629: ANSI_SAVE();
630: return(nulstr);
631: }
632:
633: if(!strcmp(sp,"POPXY")) {
634: ANSI_RESTORE();
635: return(nulstr);
636: }
637:
638: if(!strcmp(sp,"UP"))
639: return("\x1b[A");
640:
641: if(!strcmp(sp,"DOWN"))
642: return("\x1b[B");
643:
644: if(!strcmp(sp,"RIGHT"))
645: return("\x1b[C");
646:
647: if(!strcmp(sp,"LEFT"))
648: return("\x1b[D");
649:
650: if(!strncmp(sp,"UP:",3)) {
651: safe_snprintf(str,maxlen,"\x1b[%dA",atoi(sp+3));
652: return(str);
653: }
654:
655: if(!strncmp(sp,"DOWN:",5)) {
656: safe_snprintf(str,maxlen,"\x1b[%dB",atoi(sp+5));
657: return(str);
658: }
659:
660: if(!strncmp(sp,"LEFT:",5)) {
661: safe_snprintf(str,maxlen,"\x1b[%dC",atoi(sp+5));
662: return(str);
663: }
664:
665: if(!strncmp(sp,"RIGHT:",6)) {
666: safe_snprintf(str,maxlen,"\x1b[%dD",atoi(sp+6));
667: return(str);
668: }
669:
670: if(!strncmp(sp,"GOTOXY:",7)) {
671: tp=strchr(sp,',');
672: if(tp!=NULL) {
673: tp++;
674: GOTOXY(atoi(sp+7),atoi(tp));
675: }
676: return(nulstr);
677: }
678:
679: if(!strcmp(sp,"GRP")) {
680: if(SMB_IS_OPEN(&smb)) {
681: if(smb.subnum==INVALID_SUB)
682: return("Local");
683: if(smb.subnum<cfg.total_subs)
684: return(cfg.grp[cfg.sub[smb.subnum]->grp]->sname);
685: }
686: return(usrgrps ? cfg.grp[usrgrp[curgrp]]->sname : nulstr);
687: }
688:
689: if(!strcmp(sp,"GRPL")) {
690: if(SMB_IS_OPEN(&smb)) {
691: if(smb.subnum==INVALID_SUB)
692: return("Local");
693: if(smb.subnum<cfg.total_subs)
694: return(cfg.grp[cfg.sub[smb.subnum]->grp]->lname);
695: }
696: return(usrgrps ? cfg.grp[usrgrp[curgrp]]->lname : nulstr);
697: }
698:
699: if(!strcmp(sp,"GN")) {
700: if(SMB_IS_OPEN(&smb))
701: ugrp=getusrgrp(smb.subnum);
702: else
703: ugrp=usrgrps ? curgrp+1 : 0;
704: safe_snprintf(str,maxlen,"%u",ugrp);
705: return(str);
706: }
707:
708: if(!strcmp(sp,"GL")) {
709: if(SMB_IS_OPEN(&smb))
710: ugrp=getusrgrp(smb.subnum);
711: else
712: ugrp=usrgrps ? curgrp+1 : 0;
713: safe_snprintf(str,maxlen,"%-4u",ugrp);
714: return(str);
715: }
716:
717: if(!strcmp(sp,"GR")) {
718: if(SMB_IS_OPEN(&smb))
719: ugrp=getusrgrp(smb.subnum);
720: else
721: ugrp=usrgrps ? curgrp+1 : 0;
722: safe_snprintf(str,maxlen,"%4u",ugrp);
723: return(str);
724: }
725:
726: if(!strcmp(sp,"SUB")) {
727: if(SMB_IS_OPEN(&smb)) {
728: if(smb.subnum==INVALID_SUB)
729: return("Mail");
730: else if(smb.subnum<cfg.total_subs)
731: return(cfg.sub[smb.subnum]->sname);
732: }
733: return(usrgrps ? cfg.sub[usrsub[curgrp][cursub[curgrp]]]->sname : nulstr);
734: }
735:
736: if(!strcmp(sp,"SUBL")) {
737: if(SMB_IS_OPEN(&smb)) {
738: if(smb.subnum==INVALID_SUB)
739: return("Mail");
740: else if(smb.subnum<cfg.total_subs)
741: return(cfg.sub[smb.subnum]->lname);
742: }
743: return(usrgrps ? cfg.sub[usrsub[curgrp][cursub[curgrp]]]->lname : nulstr);
744: }
745:
746: if(!strcmp(sp,"SN")) {
747: if(SMB_IS_OPEN(&smb))
748: usub=getusrsub(smb.subnum);
749: else
750: usub=usrgrps ? cursub[curgrp]+1 : 0;
751: safe_snprintf(str,maxlen,"%u",usub);
752: return(str);
753: }
754:
755: if(!strcmp(sp,"SL")) {
756: if(SMB_IS_OPEN(&smb))
757: usub=getusrsub(smb.subnum);
758: else
759: usub=usrgrps ? cursub[curgrp]+1 : 0;
760: safe_snprintf(str,maxlen,"%-4u",usub);
761: return(str);
762: }
763:
764: if(!strcmp(sp,"SR")) {
765: if(SMB_IS_OPEN(&smb))
766: usub=getusrsub(smb.subnum);
767: else
768: usub=usrgrps ? cursub[curgrp]+1 : 0;
769: safe_snprintf(str,maxlen,"%4u",usub);
770: return(str);
771: }
772:
773: if(!strcmp(sp,"LIB"))
774: return(usrlibs ? cfg.lib[usrlib[curlib]]->sname : nulstr);
775:
776: if(!strcmp(sp,"LIBL"))
777: return(usrlibs ? cfg.lib[usrlib[curlib]]->lname : nulstr);
778:
779: if(!strcmp(sp,"LN")) {
780: safe_snprintf(str,maxlen,"%u",usrlibs ? curlib+1 : 0);
781: return(str);
782: }
783:
784: if(!strcmp(sp,"LL")) {
785: safe_snprintf(str,maxlen,"%-4u",usrlibs ? curlib+1 : 0);
786: return(str);
787: }
788:
789: if(!strcmp(sp,"LR")) {
790: safe_snprintf(str,maxlen,"%4u",usrlibs ? curlib+1 : 0);
791: return(str);
792: }
793:
794: if(!strcmp(sp,"DIR"))
795: return(usrlibs ? cfg.dir[usrdir[curlib][curdir[curlib]]]->sname :nulstr);
796:
797: if(!strcmp(sp,"DIRL"))
798: return(usrlibs ? cfg.dir[usrdir[curlib][curdir[curlib]]]->lname : nulstr);
799:
800: if(!strcmp(sp,"DN")) {
801: safe_snprintf(str,maxlen,"%u",usrlibs ? curdir[curlib]+1 : 0);
802: return(str);
803: }
804:
805: if(!strcmp(sp,"DL")) {
806: safe_snprintf(str,maxlen,"%-4u",usrlibs ? curdir[curlib]+1 : 0);
807: return(str);
808: }
809:
810: if(!strcmp(sp,"DR")) {
811: safe_snprintf(str,maxlen,"%4u",usrlibs ? curdir[curlib]+1 : 0);
812: return(str);
813: }
814:
815: if(!strcmp(sp,"NOACCESS")) {
816: if(noaccess_str==text[NoAccessTime])
817: safe_snprintf(str,maxlen,noaccess_str,noaccess_val/60,noaccess_val%60);
818: else if(noaccess_str==text[NoAccessDay])
819: safe_snprintf(str,maxlen,noaccess_str,wday[noaccess_val]);
820: else
821: safe_snprintf(str,maxlen,noaccess_str,noaccess_val);
822: return(str);
823: }
824:
825: if(!strcmp(sp,"LAST")) {
826: tp=strrchr(useron.alias,' ');
827: if(tp) tp++;
828: else tp=useron.alias;
829: return(tp);
830: }
831:
832: if(!strcmp(sp,"REAL") || !strcmp(sp,"FIRSTREAL")) {
833: safe_snprintf(str,maxlen,"%s",useron.name);
834: tp=strchr(str,' ');
835: if(tp) *tp=0;
836: return(str);
837: }
838:
839: if(!strcmp(sp,"LASTREAL")) {
840: tp=strrchr(useron.name,' ');
841: if(tp) tp++;
842: else tp=useron.name;
843: return(tp);
844: }
845:
846: if(!strcmp(sp,"MAILW")) {
847: safe_snprintf(str,maxlen,"%u",getmail(&cfg,useron.number,0));
848: return(str);
849: }
850:
851: if(!strcmp(sp,"MAILP")) {
852: safe_snprintf(str,maxlen,"%u",getmail(&cfg,useron.number,1));
853: return(str);
854: }
855:
856: if(!strncmp(sp,"MAILW:",6)) {
857: safe_snprintf(str,maxlen,"%u",getmail(&cfg,atoi(sp+6),0));
858: return(str);
859: }
860:
861: if(!strncmp(sp,"MAILP:",6)) {
862: safe_snprintf(str,maxlen,"%u",getmail(&cfg,atoi(sp+6),1));
863: return(str);
864: }
865:
866: if(!strcmp(sp,"MSGREPLY")) {
867: safe_snprintf(str,maxlen,"%c",cfg.sys_misc&SM_RA_EMU ? 'R' : 'A');
868: return(str);
869: }
870:
871: if(!strcmp(sp,"MSGREREAD")) {
872: safe_snprintf(str,maxlen,"%c",cfg.sys_misc&SM_RA_EMU ? 'A' : 'R');
873: return(str);
874: }
875:
876: if(!strncmp(sp,"STATS.",6)) {
877: getstats(&cfg,0,&stats);
878: sp+=6;
879: if(!strcmp(sp,"LOGONS"))
880: safe_snprintf(str,maxlen,"%lu",stats.logons);
881: else if(!strcmp(sp,"LTODAY"))
882: safe_snprintf(str,maxlen,"%lu",stats.ltoday);
883: else if(!strcmp(sp,"TIMEON"))
884: safe_snprintf(str,maxlen,"%lu",stats.timeon);
885: else if(!strcmp(sp,"TTODAY"))
886: safe_snprintf(str,maxlen,"%lu",stats.ttoday);
887: else if(!strcmp(sp,"ULS"))
888: safe_snprintf(str,maxlen,"%lu",stats.uls);
889: else if(!strcmp(sp,"ULB"))
890: safe_snprintf(str,maxlen,"%lu",stats.ulb);
891: else if(!strcmp(sp,"DLS"))
892: safe_snprintf(str,maxlen,"%lu",stats.dls);
893: else if(!strcmp(sp,"DLB"))
894: safe_snprintf(str,maxlen,"%lu",stats.dlb);
895: else if(!strcmp(sp,"PTODAY"))
896: safe_snprintf(str,maxlen,"%lu",stats.ptoday);
897: else if(!strcmp(sp,"ETODAY"))
898: safe_snprintf(str,maxlen,"%lu",stats.etoday);
899: else if(!strcmp(sp,"FTODAY"))
900: safe_snprintf(str,maxlen,"%lu",stats.ftoday);
901: else if(!strcmp(sp,"NUSERS"))
902: safe_snprintf(str,maxlen,"%u",stats.nusers);
903: return(str);
904: }
905:
906: /* Message header codes */
907: if(!strcmp(sp,"MSG_TO") && current_msg!=NULL) {
908: if(current_msg->to==NULL)
909: return(nulstr);
910: if(current_msg->to_ext!=NULL)
911: safe_snprintf(str,maxlen,"%s #%s",current_msg->to,current_msg->to_ext);
912: else if(current_msg->to_net.type!=NET_NONE)
913: safe_snprintf(str,maxlen,"%s (%s)",current_msg->to
914: ,smb_netaddr(¤t_msg->to_net));
915: else
916: return(current_msg->to);
917: return(str);
918: }
919: if(!strcmp(sp,"MSG_TO_NAME") && current_msg!=NULL)
920: return(current_msg->to==NULL ? nulstr : current_msg->to);
921: if(!strcmp(sp,"MSG_TO_EXT") && current_msg!=NULL) {
922: if(current_msg->to_ext==NULL)
923: return(nulstr);
924: return(current_msg->to_ext);
925: }
926: if(!strcmp(sp,"MSG_TO_NET") && current_msg!=NULL)
927: return(smb_netaddr(¤t_msg->to_net));
928: if(!strcmp(sp,"MSG_FROM") && current_msg!=NULL) {
929: if(current_msg->from==NULL)
930: return(nulstr);
931: if(current_msg->hdr.attr&MSG_ANONYMOUS && !SYSOP)
932: return(text[Anonymous]);
933: if(current_msg->from_ext!=NULL)
934: safe_snprintf(str,maxlen,"%s #%s",current_msg->from,current_msg->from_ext);
935: else if(current_msg->from_net.type!=NET_NONE)
936: safe_snprintf(str,maxlen,"%s (%s)",current_msg->from
937: ,smb_netaddr(¤t_msg->from_net));
938: else
939: return(current_msg->from);
940: return(str);
941: }
942: if(!strcmp(sp,"MSG_FROM_NAME") && current_msg!=NULL) {
943: if(current_msg->from==NULL)
944: return(nulstr);
945: if(current_msg->hdr.attr&MSG_ANONYMOUS && !SYSOP)
946: return(text[Anonymous]);
947: return(current_msg->from);
948: }
949: if(!strcmp(sp,"MSG_FROM_EXT") && current_msg!=NULL) {
950: if(!(current_msg->hdr.attr&MSG_ANONYMOUS) || SYSOP)
951: if(current_msg->from_ext!=NULL)
952: return(current_msg->from_ext);
953: return(nulstr);
954: }
955: if(!strcmp(sp,"MSG_FROM_NET") && current_msg!=NULL) {
956: if(current_msg->from_net.type!=NET_NONE
957: && (!(current_msg->hdr.attr&MSG_ANONYMOUS) || SYSOP))
958: return(smb_netaddr(¤t_msg->from_net));
959: return(nulstr);
960: }
961: if(!strcmp(sp,"MSG_SUBJECT") && current_msg!=NULL)
962: return(current_msg->subj==NULL ? nulstr : current_msg->subj);
963: if(!strcmp(sp,"MSG_DATE") && current_msg!=NULL)
964: return(timestr((time_t *)¤t_msg->hdr.when_written.time));
965: if(!strcmp(sp,"MSG_TIMEZONE") && current_msg!=NULL)
966: return(smb_zonestr(current_msg->hdr.when_written.zone,NULL));
967: if(!strcmp(sp,"MSG_ATTR") && current_msg!=NULL) {
968: safe_snprintf(str,maxlen,"%s%s%s%s%s%s%s%s%s%s"
969: ,current_msg->hdr.attr&MSG_PRIVATE ? "Private " :nulstr
970: ,current_msg->hdr.attr&MSG_READ ? "Read " :nulstr
971: ,current_msg->hdr.attr&MSG_DELETE ? "Deleted " :nulstr
972: ,current_msg->hdr.attr&MSG_KILLREAD ? "Kill " :nulstr
973: ,current_msg->hdr.attr&MSG_ANONYMOUS ? "Anonymous " :nulstr
974: ,current_msg->hdr.attr&MSG_LOCKED ? "Locked " :nulstr
975: ,current_msg->hdr.attr&MSG_PERMANENT ? "Permanent " :nulstr
976: ,current_msg->hdr.attr&MSG_MODERATED ? "Moderated " :nulstr
977: ,current_msg->hdr.attr&MSG_VALIDATED ? "Validated " :nulstr
978: ,current_msg->hdr.attr&MSG_REPLIED ? "Replied " :nulstr
979: );
980: return(str);
981: }
982: if(!strcmp(sp,"MSG_ID") && current_msg!=NULL)
983: return(current_msg->id==NULL ? nulstr : current_msg->id);
984: if(!strcmp(sp,"MSG_REPLY_ID") && current_msg!=NULL)
985: return(current_msg->reply_id==NULL ? nulstr : current_msg->reply_id);
986: if(!strcmp(sp,"MSG_NUM") && current_msg!=NULL) {
987: safe_snprintf(str,maxlen,"%lu",current_msg->hdr.number);
988: return(str);
989: }
990:
991: if(!strcmp(sp,"SMB_AREA")) {
992: if(smb.subnum!=INVALID_SUB && smb.subnum<cfg.total_subs)
993: safe_snprintf(str,maxlen,"%s %s"
994: ,cfg.grp[cfg.sub[smb.subnum]->grp]->sname
995: ,cfg.sub[smb.subnum]->sname);
996: return(str);
997: }
998: if(!strcmp(sp,"SMB_AREA_DESC")) {
999: if(smb.subnum!=INVALID_SUB && smb.subnum<cfg.total_subs)
1000: safe_snprintf(str,maxlen,"%s %s"
1001: ,cfg.grp[cfg.sub[smb.subnum]->grp]->lname
1002: ,cfg.sub[smb.subnum]->lname);
1003: return(str);
1004: }
1005: if(!strcmp(sp,"SMB_GROUP")) {
1006: if(smb.subnum!=INVALID_SUB && smb.subnum<cfg.total_subs)
1007: return(cfg.grp[cfg.sub[smb.subnum]->grp]->sname);
1008: return(nulstr);
1009: }
1010: if(!strcmp(sp,"SMB_GROUP_DESC")) {
1011: if(smb.subnum!=INVALID_SUB && smb.subnum<cfg.total_subs)
1012: return(cfg.grp[cfg.sub[smb.subnum]->grp]->lname);
1013: return(nulstr);
1014: }
1015: if(!strcmp(sp,"SMB_GROUP_NUM")) {
1016: if(smb.subnum!=INVALID_SUB && smb.subnum<cfg.total_subs)
1017: safe_snprintf(str,maxlen,"%u",getusrgrp(smb.subnum));
1018: return(str);
1019: }
1020: if(!strcmp(sp,"SMB_SUB")) {
1021: if(smb.subnum==INVALID_SUB)
1022: return("Mail");
1023: else if(smb.subnum<cfg.total_subs)
1024: return(cfg.sub[smb.subnum]->sname);
1025: return(nulstr);
1026: }
1027: if(!strcmp(sp,"SMB_SUB_DESC")) {
1028: if(smb.subnum==INVALID_SUB)
1029: return("Mail");
1030: else if(smb.subnum<cfg.total_subs)
1031: return(cfg.sub[smb.subnum]->lname);
1032: return(nulstr);
1033: }
1034: if(!strcmp(sp,"SMB_SUB_CODE")) {
1035: if(smb.subnum==INVALID_SUB)
1036: return("MAIL");
1037: else if(smb.subnum<cfg.total_subs)
1038: return(cfg.sub[smb.subnum]->code);
1039: return(nulstr);
1040: }
1041: if(!strcmp(sp,"SMB_SUB_NUM")) {
1042: if(smb.subnum!=INVALID_SUB && smb.subnum<cfg.total_subs)
1043: safe_snprintf(str,maxlen,"%u",getusrsub(smb.subnum));
1044: return(str);
1045: }
1046: if(!strcmp(sp,"SMB_MSGS")) {
1047: safe_snprintf(str,maxlen,"%ld",smb.msgs);
1048: return(str);
1049: }
1050: if(!strcmp(sp,"SMB_CURMSG")) {
1051: safe_snprintf(str,maxlen,"%ld",smb.curmsg+1);
1052: return(str);
1053: }
1054: if(!strcmp(sp,"SMB_LAST_MSG")) {
1055: safe_snprintf(str,maxlen,"%lu",smb.status.last_msg);
1056: return(str);
1057: }
1058: if(!strcmp(sp,"SMB_MAX_MSGS")) {
1059: safe_snprintf(str,maxlen,"%lu",smb.status.max_msgs);
1060: return(str);
1061: }
1062: if(!strcmp(sp,"SMB_MAX_CRCS")) {
1063: safe_snprintf(str,maxlen,"%lu",smb.status.max_crcs);
1064: return(str);
1065: }
1066: if(!strcmp(sp,"SMB_MAX_AGE")) {
1067: safe_snprintf(str,maxlen,"%hu",smb.status.max_age);
1068: return(str);
1069: }
1070: if(!strcmp(sp,"SMB_TOTAL_MSGS")) {
1071: safe_snprintf(str,maxlen,"%lu",smb.status.total_msgs);
1072: return(str);
1073: }
1074:
1075: return(NULL);
1076: }
1077:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.