![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to main_ovl.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / sbbs2|
Return to main_ovl.c CVS log | Up to [Synchronet] / sbbs / sbbs2 |
1.1 root 1: #line 1 "MAIN_OVL.C"
2:
3: /* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
4:
5: #include "sbbs.h"
6: #include "etext.h"
7: #include <signal.h>
8:
9: #ifndef __FLAT__
10: #include "spawno.h"
11: #endif
12:
13: uint asmrev; // RCIOL.OBJ revision
14: char llo=0 // Local logon only
15: ,nmi=0; // No modem init
16: char cidarg[65]; // Caller ID arguments
17: uint addrio; // Additional RIOCTL call on init
18:
19: FILE *nodefile_fp,*node_ext_fp,*logfile_fp;
20:
21: char prompt[128];
22:
23: extern char *compile_time,*compile_date;
24:
25: #ifdef __FLAT__
26: int mswtyp=0;
27: #else
28: extern mswtyp;
29: extern uint riobp;
30: #endif
31:
32: extern char onquiet;
33: extern char term_ret;
34: extern ulong connect_rate; /* already connected at xbps */
35: extern char *wday[],*mon[];
36:
37: #ifdef __OS2__
38: extern long _timezone=0L;
39: extern int _daylight=0L;
40: #else
41: extern long timezone=0L;
42: extern int daylight=0L;
43: #endif
44:
45: #ifdef __OS2__
46: extern HEV con_out_sem;
47: void con_out_thread(void *);
48: #endif
49:
50:
51: #ifdef __OS2__
52: void cbreakh(int sig);
53: #else
54: int cbreakh();
55: #endif
56:
57: void reset_logon_vars(void);
58:
59: time_t checktime(void)
60: {
61: struct tm tm;
62:
63: memset(&tm,0,sizeof(tm));
64: tm.tm_year=94;
65: tm.tm_mday=1;
66: return(mktime(&tm)^0x2D24BD00L);
67: }
68:
69: void console_test(void)
70: {
71: int i;
72: time_t start=time(NULL);;
73:
74: lclxy(1,1);
75: online=ON_LOCAL;
76: console=CON_L_ECHO;
77: useron.misc=ANSI|COLOR;
78: for(i=0;i<500;i++)
79: bprintf("\1n%05d\t\1hWhite\1rRed\1bBlue\1gGreen\001\x82"
80: "\1mMagenta\t\b\b\1cCyan\1nNormal\1gGreen"
81: "\1yBrown\1hYellow\1rR\1gG\1bB\1cC\1mM\1yY\1kK"
82: "\1>\r\n"
83: ,i);
84: bprintf("\r\n%lu secs\r\n",time(NULL)-start);
85: getch();
86: lputc(FF);
87: }
88:
89:
90:
91:
92: void startup(int argc, char *argv[])
93: {
94: char str[256],HUGE16 *buf,c;
95: void *v;
96: int i,j,events_only=0;
97: int file;
98: ulong l;
99: node_t node;
100: struct ffblk ff;
101: struct tm *gm;
102: #ifdef __FLAT__
103: uchar *cptab; /* unused */
104: #else
105: uchar cptab[1024];
106: union REGS reg;
107: #endif
108:
109: #ifdef __MSDOS__
110: setcbrk(0);
111: #endif
112:
113: #ifndef __FLAT__
114: if((asmrev=*(&riobp-1))!=23) {
115: printf("Wrong rciol.obj\n");
116: exit(1); }
117: #endif
118:
119: #ifdef __OS2__
120: signal(SIGINT,cbreakh);
121: signal(SIGBREAK,cbreakh);
122: fixkbdmode();
123: #elif defined(__MSDOS__)
124: ctrlbrk(cbreakh);
125: #endif
126:
127: #ifndef __FLAT__ /* no DESQview under OS/2 */
128: inDV = 0;
129: _CX = 0x4445; /* 'DE' */ /* set CX to 4445H; DX to 5351H */
130: _DX = 0x5351; /* 'SQ' */ /* (an invalid date) */
131: _AX = 0x2B01; /* DOS' set data function */
132: geninterrupt( 0x21 ); /* call DOS */
133: if ( _AL != 0xFF ) /* if DOS didn't see as invalid */
134: _AX = _BX; /* AH=major ver; AL=minor ver */
135: else /* DOS saw as invalid */
136: _AX = 0; /* no desqview */
137: inDV = _AX; /* Save version in inDV flag */
138: #endif
139:
140: #ifdef __FLAT__
141: if(putenv("TZ=UCT0"))
142: printf("putenv() failed!\n");
143: tzset();
144: #endif
145:
146: if((l=checktime())!=0) { /* Check binary time */
147: printf("Time problem (%08lx)\n",l);
148: exit(1); }
149:
150: directvideo=1; /* default to direct video */
151:
152: _fmode=O_BINARY;
153: nulstr="";
154: crlf="\r\n";
155: strcpy(cap_fname,"CAPTURE.TXT");
156: sys_status=lncntr=tos=criterrs=keybufbot=keybuftop=lbuflen=slcnt=0L;
157: debug=1;
158: curatr=LIGHTGRAY;
159: errorlevel=0;
160: logcol=1;
161: next_event=0;
162: lastuseron[0]=0;
163: emsver=0;
164: emshandle=0xffff;
165: randomize();
166: srand(clock());
167:
168: for(i=0;i<127 && environ[i];i++) /* save original environment for execl() */
169: envp[i]=environ[i];
170: envp[i]=0;
171:
172: strcpy(str,getenv("PROMPT"));
173: if(!strstr(str,"[SBBS]")) {
174: sprintf(prompt,"PROMPT=[SBBS] %s",str);
175: putenv(prompt); }
176:
177: comspec=getenv("COMSPEC");
178:
179: lputc(FF);
180:
181: #ifndef __FLAT__
182: node_scrnlen=lclini(0xd<<8); /* Tab expansion, no CRLF expansion */
183: #else
184: node_scrnlen=25;
185: #endif
186: lclini(node_scrnlen);
187: lclatr(LIGHTGRAY);
188:
189: #ifdef __OS2__ // Test console speed
190:
191: if(DosCreateEventSem(NULL,&con_out_sem,0,0)) {
192: printf("Can't create console output semaphore.\n");
193: exit(2); }
194:
195: if(_beginthread(con_out_thread,1024,NULL)==-1) {
196: printf("Can't start console output thread.\n");
197: exit(3); }
198: //console_test();
199: #endif
200:
201: #if defined(__OS2__)
202: lputs(decrypt(VersionNoticeOS2,0));
203: #elif defined(__WIN32__)
204: lputs(decrypt(VersionNoticeW32,0));
205: #else
206: lputs(decrypt(VersionNoticeDOS,0));
207: #endif
208: lputs(decrypt(CopyrightNotice,0)); /* display copyright notice */
209: lputc(CR);
210: lputc(LF);
211: cidarg[0]=0;
212: addrio=0;
213: strcpy(orgcmd,argv[0]); /* build up original command line */
214: strcat(orgcmd," ");
215: for(i=1;i<argc;i++) {
216: for(c=0;c<strlen(argv[i]);c++)
217: switch(toupper(argv[i][c])) {
218: case '/': /* ignore these characters */
219: case '-':
220: break;
221: case 'B': /* desqview or other that needs bios video only */
222: directvideo=0;
223: strcat(orgcmd,"B");
224: break;
225: case 'C': /* connected at xbps */
226: connect_rate=atol(argv[i]+c+1);
227: c=strlen(argv[i]);
228: break;
229: case 'D': /* assume DCD is always high */
230: sys_status|=SS_DCDHIGH;
231: strcat(orgcmd,"D");
232: break;
233: case 'E':
234: next_event=time(NULL)+(atol(argv[i]+c+1)*60L);
235: c=strlen(argv[i]);
236: break;
237: case 'F':
238: sys_status|=SS_DAILY;
239: break;
240: #ifdef __OS2__
241: case 'H':
242: rio_handle=atoi(argv[i]+c+1);
243: c=strlen(argv[i]);
244: break;
245: #endif
246: case 'I': /* no modem init */
247: strcat(orgcmd,"I");
248: nmi=1;
249: break;
250: case 'L': /* local logon only */
251: strcat(orgcmd,"L");
252: llo=1;
253: break;
254: case 'M': /* modem debug info */
255: strcat(orgcmd,"M");
256: sys_status|=SS_MDMDEBUG;
257: break;
258: case 'O': /* execute events only */
259: events_only=1;
260: break;
261: case 'Q': /* quit after one caller - phone off hook */
262: strcat(orgcmd,"Q");
263: qoc=1;
264: break;
265: case 'R': /* additional rioctl call */
266: addrio=ahtoul(argv[i]+c+1);
267: c=strlen(argv[i]);
268: break;
269: case 'X': /* quit after one caller - phone on hook */
270: strcat(orgcmd,"X");
271: qoc=2;
272: break;
273: case 'Z':
274: sprintf(cidarg,"%-.64s",argv[i]+c+1);
275: c=strlen(argv[i]);
276: break;
277: case 'V':
278: lputs(crlf);
279: lprintf("Revision %c%s %s %.5s "
280: #ifdef __FLAT__
281: "RIOLIB %u.%02u"
282: #else
283: "RCIOL %u"
284: #endif
285: " SMBLIB %s BCC %X.%02X"
286: ,REVISION,BETA,compile_date,compile_time
287: #ifdef __FLAT__
288: ,rioctl(GVERS)/100,rioctl(GVERS)%100
289: #else
290: ,rioctl(GVERS)
291: #endif
292: ,SMBLIB_VERSION
293: ,__BORLANDC__>>8
294: ,__BORLANDC__&0xff);
295: lputs(crlf);
296: bail(0);
297: default:
298: lputs("\r\nusage: sbbs [bdmoqxfliv] [c#] [e#] [zs] [r#] [h#]"
299: "\r\n\r\n"
300: "b = use bios for video\r\n"
301: "d = assume DCD is always high\r\n"
302: "m = modem debug output\r\n"
303: "q = quit after one call (phone off hook)\r\n"
304: "x = quit after one call\r\n"
305: "o = execute events only and then quit\r\n"
306: "c# = connected at # bps (ex: c2400)\r\n"
307: "e# = external event in # minutes (ex: e30)\r\n"
308: "f = force daily event\r\n"
309: "l = local logon only\r\n"
310: "i = no modem initialization\r\n"
311: "zs = use s for caller-id information\r\n"
312: "r# = additional rioctl call during port init\r\n"
313: "h# = open port handle (SBBS4OS2 only)\r\n"
314: "v = version information\r\n"
315: );
316: bail(0); } }
317:
318:
319: node_disk=getdisk();
320: getcwd(node_dir,MAXDIR); /* Get current Directory */
321: if(strlen(node_dir)>40) {
322: lputs("\r\n\7Current Directory is too long for bbs to run reliably.\r\n");
323: bail(1); }
324: strcat(node_dir,"\\");
325: initdata(); /* auto-sense scrnlen can be overridden */
326:
327: mswtyp=0;
328: if(node_misc&NM_INT28)
329: mswtyp|=TS_INT28;
330: if(node_misc&NM_WINOS2)
331: mswtyp|=TS_WINOS2;
332: if(node_misc&NM_NODV)
333: mswtyp|=TS_NODV;
334:
335: #ifndef __FLAT__
336:
337: __spawn_ext = (node_swap & SWAP_EXT) != 0 ;
338: __spawn_ems = (node_swap & SWAP_EMS) != 0 ;
339: __spawn_xms = (node_swap & SWAP_XMS) != 0 ;
340:
341: #endif
342:
343: #ifndef __FLAT__ /* no EMS under OS/2 */
344: if(node_misc&NM_EMSOVL) {
345: lputs("\r\nEMS: ");
346: if((i=open("EMMXXXX0",O_RDONLY))==-1)
347: lputs("not installed.");
348: else {
349: close(i);
350: reg.h.ah=0x46; /* Get EMS version */
351: int86(0x67,®,®);
352: if(reg.h.ah)
353: lputs("\7error getting version.");
354: else {
355: lprintf("Version %u.%u ",(reg.h.al&0xf0)>>4,reg.h.al&0xf);
356: emsver=reg.h.al;
357: reg.h.ah=0x4b; /* get handle count */
358: int86(0x67,®,®);
359: if(reg.h.ah)
360: lputs("\7error getting handle count.");
361: else {
362: if(_OvrInitEms(0,0,23)) /* use up to 360K */
363: lprintf("allocation failed.");
364: else
365: emshandle=reg.x.bx; } } } }
366: #endif
367:
368: sprintf(str,"%s%s",ctrl_dir,"NODE.DAB");
369: if((nodefile_fp=fnopen(&nodefile,str
370: ,O_DENYNONE|O_RDWR|O_CREAT))==NULL) {
371: lprintf("\r\n\7Error opening/creating %s\r\n",str);
372: exit(1); }
373: sprintf(str,"%s%s",ctrl_dir,"NODE.EXB");
374: if((node_ext_fp=fnopen(&node_ext,str,O_DENYNONE|O_RDWR|O_CREAT))==NULL) {
375: lprintf("\r\n\7Error opening/creating %s\r\n",str);
376: exit(1); }
377: memset(&node,0,sizeof(node_t)); /* write NULL to node struct */
378: node.status=NODE_OFFLINE;
379: while(filelength(nodefile)<sys_nodes*sizeof(node_t)) {
380: lseek(nodefile,0L,SEEK_END);
381: write(nodefile,&node,sizeof(node_t)); }
382: if(lock(nodefile,(node_num-1)*sizeof(node_t),sizeof(node_t))
383: || unlock(nodefile,(node_num-1)*sizeof(node_t),sizeof(node_t))) {
384: lprintf("\r\n\7File locking failed.\r\n");
385:
386: #ifndef __FLAT__ /* no SHARE under Win32 and OS/2 */
387: reg.x.ax=0x1000;
388: int86(0x2f,®,®);
389: if(!reg.h.al) {
390: lputs("SHARE is not installed. Must run SHARE before SBBS.\r\n");
391: lputs("SHARE.EXE is included with DOS v3.0 and higher.\r\n"); }
392: else if(reg.h.al==1)
393: lputs("SHARE is not installed and NOT OKAY to install.\r\n");
394: else if(reg.h.al==0xff)
395: lputs("SHARE is installed.\r\n");
396: else
397: lprintf("INT 2F returned %xh in AL.\r\n",reg.h.al);
398: #endif
399:
400: bail(1); }
401: sys_status|=SS_NODEDAB; /* says that node.dab is okay to use */
402: getnodedat(node_num,&thisnode,1);
403:
404: /* if not returning, clear node.dab record */
405: if(!connect_rate) {
406: thisnode.status=thisnode.action=thisnode.useron=0;
407: thisnode.aux=0; /* use to always clear */
408: thisnode.misc&=NODE_EVENT; } /* turn off all misc bits but event */
409: criterrs=thisnode.errors;
410: putnodedat(node_num,thisnode);
411:
412: if(com_base==0xb)
413: rioctl(I14PC);
414: else if(com_base==0xd)
415: rioctl(I14DB);
416: else if(com_base==0xe)
417: rioctl(I14PS);
418: else if(com_base==0xf)
419: rioctl(I14FO);
420: if(com_port) {
421: comini();
422: setrate(); }
423:
424: for(i=0;i<total_qhubs;i++) {
425: if(qhub[i]->node!=node_num)
426: continue;
427: for(j=0;j<10;j++) {
428: sprintf(str,"%s%s.QW%c",data_dir,qhub[i]->id,j ? (j-1)+'0' : 'K');
429: if(fexist(str)) {
430: lclini(node_scrnlen-1);
431: delfiles(temp_dir,"*.*");
432: unpack_qwk(str,i); } } }
433:
434: sprintf(str,"%sTIME.DAB",ctrl_dir);
435: if((file=nopen(str,O_RDWR|O_CREAT))==-1) {
436: lprintf("Error opening/creating %s\r\n",str);
437: bail(1); }
438: for(i=0;i<total_events;i++) {
439: event[i]->last=0;
440: if(filelength(file)<sizeof(time_t)*(i+1))
441: write(file,&event[i]->last,sizeof(time_t));
442: else
443: read(file,&event[i]->last,sizeof(time_t)); }
444:
445: close(file);
446:
447: sprintf(str,"%sQNET.DAB",ctrl_dir);
448: if((file=nopen(str,O_RDWR|O_CREAT))==-1) {
449: lprintf("Error opening/creating %s\r\n",str);
450: bail(1); }
451:
452: for(i=0;i<total_qhubs;i++) {
453: qhub[i]->last=0;
454: if(filelength(file)<sizeof(time_t)*(i+1))
455: write(file,&qhub[i]->last,sizeof(time_t));
456: else
457: read(file,&qhub[i]->last,sizeof(time_t)); }
458:
459: close(file);
460:
461: sprintf(str,"%sPNET.DAB",ctrl_dir);
462: if((file=nopen(str,O_RDWR|O_CREAT))==-1) {
463: lprintf("Error opening/creating %s\r\n",str);
464: bail(1); }
465:
466: for(i=0;i<total_phubs;i++) {
467: phub[i]->last=0;
468: if(filelength(file)<sizeof(time_t)*(i+1))
469: write(file,&phub[i]->last,sizeof(time_t));
470: else
471: read(file,&phub[i]->last,sizeof(time_t)); }
472:
473: close(file);
474:
475: sprintf(str,"%sNODE.LOG",node_dir);
476: lprintf("\r\nOpening %s...",str);
477: if((logfile_fp=fnopen(&logfile,str,O_WRONLY|O_CREAT|O_APPEND|O_DENYALL))==NULL) {
478: lprintf("\r\n\7Error opening %s\r\n\r\n"
479: "Perhaps this node is already running.\r\n",str);
480: bail(1); }
481: lprintf("\r%s opened.",str);
482: sys_status|=SS_LOGOPEN;
483: if(filelength(logfile)) {
484: log(crlf);
485: now=time(NULL);
486: gm=localtime(&now);
487: sprintf(str,"%02d:%02d%c %s %s %02d %u "
488: "End of preexisting log entry (possible crash)"
489: ,gm->tm_hour>12 ? gm->tm_hour-12 : gm->tm_hour==0 ? 12 : gm->tm_hour
490: ,gm->tm_min,gm->tm_hour>=12 ? 'p' : 'a',wday[gm->tm_wday]
491: ,mon[gm->tm_mon],gm->tm_mday,gm->tm_year+1900);
492: logline("L!",str);
493: log(crlf);
494: catsyslog(1); }
495: lputc(CLREOL);
496: sprintf(dszlog,"DSZLOG=%sPROTOCOL.LOG",node_dir);
497: putenv(dszlog); /* Makes the DSZ LOG active */
498: sprintf(sbbsnode,"SBBSNODE=%s",node_dir);
499: putenv(sbbsnode); /* create enviornment var to contain node num */
500: sprintf(sbbsnnum,"SBBSNNUM=%d",node_num);
501: putenv(sbbsnnum); /* create enviornment var to contain node num */
502: backout();
503: if(events_only) {
504: reset_logon_vars();
505: while(!wfc_events(time(NULL)))
506: ;
507: bail(0); }
508: }
509:
510: /****************************************************************************/
511: /* Reads data from DSTS.DAB into stats structure */
512: /* If node is zero, reads from ctrl\dsts.dab, otherwise from each node */
513: /****************************************************************************/
514: void getstats(char node,stats_t *stats)
515: {
516: char str[256];
517: int file;
518:
519: sprintf(str,"%sDSTS.DAB",node ? node_path[node-1] : ctrl_dir);
520: if((file=nopen(str,O_RDONLY))==-1) {
521: errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
522: return; }
523: lseek(file,4L,SEEK_SET); /* Skip update time/date */
524: read(file,stats,sizeof(stats_t));
525: close(file);
526: }
527:
528:
529: /****************************************************************************/
530: /* Updates dstst.dab file upon user logoff. */
531: /* First node, then system stats. */
532: /****************************************************************************/
533: void logoffstats()
534: {
535: char str[256];
536: int i,file;
537: stats_t stats;
538:
539: for(i=0;i<2;i++) {
540: sprintf(str,"%sDSTS.DAB",i ? ctrl_dir : node_dir);
541: if((file=nopen(str,O_RDWR))==-1) {
542: errormsg(WHERE,ERR_OPEN,str,O_RDWR);
543: return; }
544: lseek(file,12L,SEEK_SET); /* Skip timestamp, logons and logons today */
545: read(file,&stats.timeon,4); /* Total time on system */
546: stats.timeon+=(now-logontime)/60;
547: read(file,&stats.ttoday,4); /* Time today on system */
548: stats.ttoday+=(now-logontime)/60;
549: read(file,&stats.uls,4); /* Uploads today */
550: stats.uls+=logon_uls;
551: read(file,&stats.ulb,4); /* Upload bytes today */
552: stats.ulb+=logon_ulb;
553: read(file,&stats.dls,4); /* Downloads today */
554: stats.dls+=logon_dls;
555: read(file,&stats.dlb,4); /* Download bytes today */
556: stats.dlb+=logon_dlb;
557: read(file,&stats.ptoday,4); /* Posts today */
558: if(!(useron.rest&FLAG('Q')))
559: stats.ptoday+=logon_posts;
560: read(file,&stats.etoday,4); /* Emails today */
561: stats.etoday+=logon_emails;
562: read(file,&stats.ftoday,4); /* Feedback sent today */
563: stats.ftoday+=logon_fbacks;
564: read(file,&stats.nusers,2); /* New users today */
565: if(sys_status&SS_NEWUSER)
566: stats.nusers++;
567: lseek(file,12L,SEEK_SET);
568: write(file,&stats.timeon,4); /* Total time on system */
569: write(file,&stats.ttoday,4); /* Time today on system */
570: write(file,&stats.uls,4); /* Uploads today */
571: write(file,&stats.ulb,4); /* Upload bytes today */
572: write(file,&stats.dls,4); /* Downloads today */
573: write(file,&stats.dlb,4); /* Download bytes today */
574: write(file,&stats.ptoday,4); /* Posts today */
575: write(file,&stats.etoday,4); /* Emails today */
576: write(file,&stats.ftoday,4); /* Feedback sent today */
577: write(file,&stats.nusers,2); /* New users today */
578: close(file); }
579:
580: }
581:
582: /****************************************************************************/
583: /* Lists system statistics for everyday the bbs has been running. */
584: /* Either for the current node (node=1) or the system (node=0) */
585: /****************************************************************************/
586: void printstatslog(uint node)
587: {
588: char str[256];
589: uchar *buf;
590: int file;
591: time_t timestamp;
592: long l;
593: ulong length,
594: logons,
595: timeon,
596: posts,
597: emails,
598: fbacks,
599: ulb,
600: uls,
601: dlb,
602: dls;
603:
604: if(node)
605: bprintf(text[NodeStatsLogHdr],node);
606: else
607: bputs(text[SysStatsLogHdr]);
608: sprintf(str,"%sCSTS.DAB",node ? node_path[node-1] : ctrl_dir);
609: if((file=nopen(str,O_RDONLY))==-1)
610: return;
611: length=filelength(file);
612: if(length<40) {
613: close(file);
614: return; }
615: if((buf=(char *)MALLOC(length))==0) {
616: close(file);
617: errormsg(WHERE,ERR_ALLOC,str,length);
618: return; }
619: read(file,buf,length);
620: close(file);
621: l=length-4;
622: while(l>-1L && !msgabort()) {
623: fbacks=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
624: |((long)buf[l+3]<<24);
625: l-=4;
626: emails=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
627: |((long)buf[l+3]<<24);
628: l-=4;
629: posts=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
630: |((long)buf[l+3]<<24);
631: l-=4;
632: dlb=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
633: |((long)buf[l+3]<<24);
634: l-=4;
635: dls=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
636: |((long)buf[l+3]<<24);
637: l-=4;
638: ulb=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
639: |((long)buf[l+3]<<24);
640: l-=4;
641: uls=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
642: |((long)buf[l+3]<<24);
643: l-=4;
644: timeon=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
645: |((long)buf[l+3]<<24);
646: l-=4;
647: logons=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
648: |((long)buf[l+3]<<24);
649: l-=4;
650: timestamp=buf[l]|((long)buf[l+1]<<8)|((long)buf[l+2]<<16)
651: |((long)buf[l+3]<<24);
652: l-=4;
653: unixtodos(timestamp-(24*60*60),&date,&curtime); /* 1 day less than stamp */
654: bprintf(text[SlogFmt]
655: ,date.da_mon,date.da_day,date.da_year-1900,timeon,logons,posts,emails
656: ,fbacks,ulb/1024,uls,dlb/1024,dls); }
657: FREE(buf);
658: }
659:
660: #ifdef __OS2__
661: #define INPUT_LOOP 1000
662: #else
663: #define INPUT_LOOP 1000
664: #endif
665:
666: /****************************************************************************/
667: /* Terminal mode */
668: /* Returns 1 if it is to logon locally, 0 if it is done. */
669: /****************************************************************************/
670: char terminal()
671: {
672: char str[256],c,x,y,*p;
673: int file;
674: uint i,l;
675:
676: lclini(node_scrnlen-1);
677: statline=-1;
678: statusline();
679: if(!term_ret) {
680: #ifdef __FLAT__
681: setbaud(com_rate);
682: #else
683: setbaud((uint)(com_rate&0xffffL));
684: #endif
685: mdmcmd(mdm_term); }
686: else
687: lputs("\r\nReturned.\r\n");
688:
689: l=0; /* l is the ansi response code counter */
690:
691: while(1) {
692: if(lkbrd(1)) {
693: i=lkbrd(0);
694: if((i&0xff)==0) {
695: i>>=8;
696: if(i==45) { /* Alt-X */
697: rioctl(0x11);
698: if(DCDHIGH) {
699: lputs("\r\nHang up (Yes/No/Abort) ? ");
700: c=toupper(getch());
701: if(c!='Y' && c!='N') { /* Hang-up Y/N/Abort */
702: lputs("Abort\r\n");
703: continue; }
704: if(c=='Y') { /* Yes, hang-up */
705: if(mdm_misc&MDM_NODTR)
706: mdmcmd(mdm_hang);
707: else
708: if(dtr(15))
709: lputs("Dropping DTR Failed"); } }
710: break; }
711: else if(i==35) { /* Alt-H */
712: if(mdm_misc&MDM_NODTR)
713: mdmcmd(mdm_hang);
714: else
715: if(dtr(15))
716: lputs("Dropping DTR Failed\r\n");
717: dtr(1); }
718: else if((i>=0x3b &&i<=0x44) || (i>=0x54 &&i<=0x71)
719: || (i>=0x85 &&i<=0x8c)) {
720: sprintf(str,"%s%sF%d.MAC",text_dir
721: ,i<0x45 || (i>=0x85 && i<=0x86) ? nulstr
722: :i<0x5e || (i>=0x87 && i<=0x88) ? "SHFT-"
723: :i<0x68 || (i>=0x89 && i<=0x8a) ? "CTRL-" : "ALT-"
724: ,i<0x45 ? i-0x3a : i<0x5e ? i-0x53 : i<0x68 ? i-0x5d
725: :i<0x72 ? i-0x67 : i<0x87 ? i-0x7a : i<0x89 ? i-0x7c
726: :i<0x8b ? i-0x7e : i-0x80);
727: if((file=nopen(str,O_RDONLY))==-1)
728: continue;
729: i=filelength(file);
730: while(i--) {
731: read(file,&c,1);
732: if(c!=LF)
733: putcomch(c); }
734: close(file); }
735: else if(i==0x48) /* up arrow */
736: putcom("\x1b[A");
737: else if(i==0x50) /* dn arrow */
738: putcom("\x1b[B");
739: else if(i==0x4b) /* left */
740: putcom("\x1b[D");
741: else if(i==0x4d) /* right */
742: putcom("\x1b[C");
743: else if(i==0x16) { /* Alt-U User Edit */
744: if((p=MALLOC((node_scrnlen*80)*2))==NULL) {
745: lputs("Allocation error.\r\n");
746: continue; }
747: gettext(1,1,80,node_scrnlen,p);
748: x=lclwx();
749: y=lclwy();
750: quicklogonstuff();
751: useredit(0,1);
752: puttext(1,1,80,node_scrnlen,p);
753: FREE(p);
754: lclxy(x,y); }
755: else if(i==0x26) { /* Alt-L logon locally */
756: lputc(FF);
757: quicklogonstuff();
758: if(!useron.number) {
759: lputc(7);
760: lputs("A Sysop account hasn't been created");
761: continue; }
762: term_ret=1;
763: return(1); }
764: else if(i==0x20) { /* Alt-D Shell to DOS */
765: if((p=MALLOC((node_scrnlen*80)*2))==NULL) {
766: lputs("Allocation error.\r\n");
767: continue; }
768: gettext(1,1,80,node_scrnlen,p);
769: x=lclwx();
770: y=lclwy();
771: lclini(node_scrnlen);
772: lputc(FF);
773: external(comspec,0);
774: puttext(1,1,80,node_scrnlen,p);
775: FREE(p);
776: lclxy(x,y); } }
777: else {
778: putcomch(i);
779: continue; } }
780: for(i=0;i<INPUT_LOOP;i++) {
781: if((c=incom())!=0) {
782: if(c==ESC)
783: l=!l;
784: else if(l) {
785: if(c=='[') {
786: if(l!=1) l=0; else l++; }
787: else if(c=='6') {
788: if(l!=2) l=0; else l++; }
789: else if(c=='n') {
790: if(l==3) {
791: sprintf(str,"\x1b[%u;%uR"
792: ,lclwy(),lclwx());
793: putcom(str); }
794: l=0; }
795: else l=0; }
796: outcon(c); }
797: else
798: break; }
799: if(!c)
800: mswait(0); }
801: term_ret=0;
802: return(0);
803: }
804:
805:
806: /****************************************************************************/
807: /* Exits bbs to DOS with appropriate error code after setting COM port isr */
808: /* back to normal. */
809: /****************************************************************************/
810: void bail(int code)
811: {
812:
813: if(sys_status&SS_COMISR)
814: rioini(0,0);
815:
816: lclatr(LIGHTGRAY);
817: if(code) {
818: getnodedat(node_num,&thisnode,1);
819: criterrs=++thisnode.errors;
820: putnodedat(node_num,thisnode);
821: now=time(NULL);
822: lprintf("\r\nExiting with errorlevel (%d) on %s\r\n",code,timestr(&now));
823: if(sys_misc&SM_ERRALARM) {
824: beep(500,220); beep(250,220);
825: beep(500,220); beep(250,220);
826: beep(500,220); beep(250,220);
827: nosound(); } }
828:
829: if(sys_status&SS_INITIAL) {
830: getnodedat(node_num,&thisnode,1);
831: thisnode.status=NODE_OFFLINE;
832: putnodedat(node_num,thisnode);
833: close(nodefile);
834: close(node_ext); }
835:
836: exit(code);
837: }
838:
839:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.