![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to con_in.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / sbbs2|
Return to con_in.c CVS log | Up to [Synchronet] / sbbs / sbbs2 |
1.1 ! root 1: #line 1 "CON_IN.C" ! 2: ! 3: /* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */ ! 4: ! 5: #include "sbbs.h" ! 6: ! 7: #define LAST_STAT_LINE 16 ! 8: ! 9: #ifdef __WIN32__ ! 10: ! 11: #include <windows.h> ! 12: ! 13: uint lkbrd(int mode) ! 14: { ! 15: uint c; ! 16: ! 17: if(mode) ! 18: return(kbhit()); ! 19: c=getch(); ! 20: if(!c) ! 21: c=(getch()<<8); ! 22: return(c); ! 23: } ! 24: ! 25: int lclaes(void) ! 26: { ! 27: return(0); ! 28: } ! 29: ! 30: #elif defined(__OS2__) ! 31: ! 32: void fixkbdmode(void) ! 33: { ! 34: KBDINFO kbd; ! 35: ! 36: /* Disable Ctrl-C/Ctrl-P processing by OS/2 */ ! 37: KbdGetStatus(&kbd,0); ! 38: if(kbd.fsMask&KEYBOARD_ASCII_MODE) { ! 39: kbd.fsMask|=KEYBOARD_BINARY_MODE; ! 40: kbd.fsMask&=~KEYBOARD_ASCII_MODE; ! 41: KbdSetStatus(&kbd,0); } ! 42: } ! 43: ! 44: uint lkbrd(int leave) ! 45: { ! 46: KBDKEYINFO key; ! 47: ! 48: if(leave) ! 49: KbdPeek(&key,0); ! 50: else ! 51: KbdCharIn(&key,IO_NOWAIT,0); ! 52: if(!(key.fbStatus&KBDTRF_FINAL_CHAR_IN)) ! 53: return(0); ! 54: if(!(key.fbStatus&0x02) || key.chScan==0xE0) ! 55: return(key.chChar); ! 56: return(key.chScan<<8); ! 57: } ! 58: ! 59: #endif ! 60: ! 61: /****************************************************************************/ ! 62: /* Returns character if a key has been hit locally or remotely and responds */ ! 63: /* to local ctrl/function keys. Does not print character. */ ! 64: /* Called from functions getkey, msgabort and main_sec */ ! 65: /****************************************************************************/ ! 66: char inkey(int mode) ! 67: { ! 68: static inside; ! 69: uchar str[512],*scrnbuf,x,y,c,atr,*gurubuf,ch=0,*helpbuf; ! 70: int file,con=console; ! 71: uint i,j; ! 72: long l,length; ! 73: ! 74: if(!(node_misc&NM_NO_LKBRD) && (lkbrd(1) || sys_status&SS_FINPUT)) { ! 75: if(sys_status&SS_FINPUT) { ! 76: if(lkbrd(1)==0xff00) { ! 77: close(inputfile); ! 78: sys_status^=SS_FINPUT; ! 79: return(0); } ! 80: if(read(inputfile,&c,1)!=1) { ! 81: close(inputfile); ! 82: sys_status^=SS_FINPUT; ! 83: return(0); } ! 84: if(c) /* Regular character */ ! 85: i=c; ! 86: else { /* Scan code */ ! 87: if(read(inputfile,&c,1)!=1) { ! 88: close(inputfile); ! 89: sys_status^=SS_FINPUT; ! 90: return(0); } ! 91: i=c<<8; } } ! 92: else ! 93: i=lkbrd(0); ! 94: if(sys_status&SS_LCHAT && curatr!=color[clr_chatlocal]) ! 95: attr(color[clr_chatlocal]); ! 96: if(i&0xff) ! 97: ch=i&0xff; ! 98: else { /* Alt or Function key hit */ ! 99: i>>=8; ! 100: /* F1 - F10 Shift-F1 - Alt-F10 F11 - Alt-F12 */ ! 101: if((i>=0x3b &&i<=0x44) || (i>=0x54 &&i<=0x71) || (i>=0x85 &&i<=0x8c)) { ! 102: if(sys_status&SS_FINPUT) ! 103: return(0); /* MACROS */ ! 104: sprintf(str,"%s%sF%d.MAC",text_dir ! 105: ,i<0x45 || (i>=0x85 && i<=0x86) ? nulstr ! 106: :i<0x5e || (i>=0x87 && i<=0x88) ? "SHFT-" ! 107: :i<0x68 || (i>=0x89 && i<=0x8a) ? "CTRL-" : "ALT-" ! 108: ,i<0x45 ? i-0x3a : i<0x5e ? i-0x53 : i<0x68 ? i-0x5d ! 109: :i<0x72 ? i-0x67 : i<0x87 ? i-0x7a : i<0x89 ? i-0x7c ! 110: :i<0x8b ? i-0x7e : i-0x80); ! 111: if((inputfile=nopen(str,O_RDONLY))!=-1) ! 112: sys_status|=SS_FINPUT; ! 113: return(0); } ! 114: if(i>=0x78 && i<=0x81) { /* Alt-# Quick Validation */ ! 115: if(!(sys_status&SS_USERON) /* can't quick-validate if not */ ! 116: || !useron.number ! 117: || !(sys_misc&SM_QVALKEYS)) { /* or not valid user number */ ! 118: beep(100,500); /* online yet */ ! 119: nosound(); ! 120: return(0); } ! 121: if((node_misc&NM_SYSPW || SYSOP) && !chksyspass(1)) ! 122: return(0); ! 123: beep(1000,100); ! 124: beep(1500,100); ! 125: nosound(); ! 126: if(i==0x81) ! 127: i=0; ! 128: else ! 129: i-=0x77; ! 130: useron.level=val_level[i]; ! 131: useron.flags1=val_flags1[i]; ! 132: useron.flags2=val_flags2[i]; ! 133: useron.flags3=val_flags3[i]; ! 134: useron.flags4=val_flags4[i]; ! 135: useron.exempt=val_exempt[i]; ! 136: useron.rest=val_rest[i]; ! 137: now=time(NULL); ! 138: if(useron.expire<now && val_expire[i]) ! 139: useron.expire=now+((long)val_expire[i]*24L*60L*60L); ! 140: else ! 141: useron.expire+=((long)val_expire[i]*24L*60L*60L); ! 142: putuserrec(useron.number,U_LEVEL,2,itoa(useron.level,str,10)); ! 143: putuserrec(useron.number,U_FLAGS1,8,ultoa(useron.flags1,str,16)); ! 144: putuserrec(useron.number,U_FLAGS2,8,ultoa(useron.flags2,str,16)); ! 145: putuserrec(useron.number,U_FLAGS3,8,ultoa(useron.flags3,str,16)); ! 146: putuserrec(useron.number,U_FLAGS4,8,ultoa(useron.flags4,str,16)); ! 147: putuserrec(useron.number,U_EXEMPT,8 ! 148: ,ultoa(useron.exempt,str,16)); ! 149: putuserrec(useron.number,U_REST,8 ! 150: ,ultoa(useron.rest,str,16)); ! 151: putuserrec(useron.number,U_EXPIRE,8 ! 152: ,ultoa(useron.expire,str,16)); ! 153: useron.cdt=adjustuserrec(useron.number,U_CDT,10,val_cdt[i]); ! 154: statusline(); ! 155: return(0); } ! 156: switch(i) { ! 157: case 0x16: /* Alt-U - Runs Uedit local only with user online */ ! 158: sprintf(str,"%.*s",lbuflen,lbuf); ! 159: waitforsysop(1); ! 160: if((scrnbuf=MALLOC((node_scrnlen*80L)*2L))==NULL) { ! 161: errormsg(WHERE,ERR_ALLOC,nulstr,(node_scrnlen*80L)*2L); ! 162: return(CR); } ! 163: gettext(1,1,80,node_scrnlen-1,scrnbuf); ! 164: x=lclwx(); ! 165: y=lclwy(); ! 166: console&=~(CON_R_ECHO|CON_R_INPUT); ! 167: i=(sys_status&SS_TMPSYSOP); ! 168: if(!SYSOP) sys_status|=SS_TMPSYSOP; ! 169: useredit(0,1); ! 170: if(!i) sys_status&=~SS_TMPSYSOP; ! 171: lputc(FF); ! 172: puttext(1,1,80,node_scrnlen-1,scrnbuf); ! 173: FREE(scrnbuf); ! 174: lclxy(x,y); ! 175: statusline(); ! 176: if(online==ON_REMOTE) ! 177: rioctl(IOFI); /* flush input buffer */ ! 178: console=con; ! 179: waitforsysop(0); ! 180: strcpy(lbuf,str); ! 181: lbuflen=strlen(lbuf); ! 182: return(0); ! 183: case 0x1f: /* Alt-S - Toggles Spinning Cursor */ ! 184: useron.misc^=SPIN; ! 185: return(0); ! 186: case 0x12: /* Alt-E - Toggle Remote echo and input */ ! 187: if(online!=ON_REMOTE) return(0); ! 188: if(console&CON_R_ECHO) { ! 189: beep(500,50); ! 190: beep(1000,50); ! 191: nosound(); ! 192: waitforsysop(1); ! 193: console&=~(CON_R_ECHO|CON_R_INPUT); ! 194: j=bstrlen(text[Wait]); ! 195: for(i=0;i<j;i++) ! 196: bputs("\b \b"); } ! 197: else { ! 198: beep(1000,50); ! 199: beep(500,50); ! 200: nosound(); ! 201: j=bstrlen(text[Wait]); ! 202: for(i=0;i<j;i++) ! 203: outchar(SP); ! 204: console|=(CON_R_ECHO|CON_R_INPUT); ! 205: rioctl(IOFI); /* flush input buffer */ ! 206: waitforsysop(0); } ! 207: return(0); ! 208: case 0x10: /* Alt-Q - Toggles remote input */ ! 209: if(online!=ON_REMOTE) ! 210: return(0); ! 211: console^=CON_R_INPUT; ! 212: if(console&CON_R_INPUT) { ! 213: beep(1000,50); ! 214: beep(500,50); ! 215: nosound(); ! 216: rioctl(IOSM|PAUSE|ABORT); } ! 217: else { ! 218: beep(500,50); ! 219: beep(1000,50); ! 220: nosound(); ! 221: rioctl(IOCM|PAUSE|ABORT); } ! 222: rioctl(IOFI); /* flush input buffer */ ! 223: return(0); ! 224: case 0x19: /* Alt-P - Turns off sysop page */ ! 225: nosound(); ! 226: sys_status&=~SS_SYSPAGE; ! 227: return(0); ! 228: case 0x23: /* Alt-H - Hangs up on user */ ! 229: hangup(); ! 230: return(0); ! 231: case 0x1e: /* Alt-A - Alert Sysop when User's done */ ! 232: sys_status^=SS_SYSALERT; ! 233: statusline(); ! 234: return(0); ! 235: case 0x82: /* Alt-- - Sub Time (5 min) */ ! 236: starttime-=300; ! 237: return(0); ! 238: case 0x83: /* Alt-+ - Add time (5 min)*/ ! 239: starttime+=300; ! 240: return(0); ! 241: case 0x14: /* Alt-T - Temp SysOp */ ! 242: if(!(sys_status&SS_TMPSYSOP) && node_misc&NM_SYSPW ! 243: && !chksyspass(1)) ! 244: return(0); ! 245: if(sys_misc&SM_L_SYSOP) ! 246: sys_status^=SS_TMPSYSOP; ! 247: statusline(); ! 248: return(0); ! 249: case 0x2c: /* Alt-Z - Menu of local keys */ ! 250: if((scrnbuf=MALLOC((node_scrnlen*80L)*2L))==NULL) { ! 251: errormsg(WHERE,ERR_ALLOC,nulstr,(node_scrnlen*80L)*2L); ! 252: return(CR); } ! 253: gettext(1,1,80,node_scrnlen,scrnbuf); ! 254: sprintf(str,"%sSBBSHELP.DAB",exec_dir); ! 255: if((file=nopen(str,O_RDONLY))==-1) ! 256: lputs("\7Can't open SBBSHELP"); ! 257: else { ! 258: length=filelength(file); ! 259: if((helpbuf=MALLOC(length))==NULL) ! 260: lputs("\7Can't allocate for SBBSHELP"); ! 261: else { ! 262: read(file,helpbuf,length); ! 263: close(file); ! 264: puttext(13,1,66,24,helpbuf); ! 265: FREE(helpbuf); } } ! 266: while(!lkbrd(1)) mswait(1); ! 267: if(lkbrd(1)==0x2c00) /* suck up the alt-z */ ! 268: lkbrd(0); ! 269: puttext(1,1,80,node_scrnlen,scrnbuf); ! 270: FREE(scrnbuf); ! 271: return(0); ! 272: case 0x2e: /* Alt-C - Sysop Chat */ ! 273: if(sys_status&SS_LCHAT) { ! 274: sys_status^=SS_LCHAT; ! 275: return(CR); } ! 276: else { ! 277: sys_status|=SS_LCHAT; ! 278: SAVELINE; ! 279: localchat(); ! 280: return(0); } ! 281: case 0x2d: /* Alt-X exit after logoff */ ! 282: getnodedat(node_num,&thisnode,1); ! 283: thisnode.misc^=NODE_DOWN; ! 284: putnodedat(node_num,thisnode); ! 285: statusline(); ! 286: return(0); ! 287: case 0x47: /* Home - Same as Ctrl-B */ ! 288: return(2); /* ctrl-b beginning of line */ ! 289: case 0x8d: /* Ctrl-Up Arrow - decrement statusline */ ! 290: if(statline) { ! 291: statline--; ! 292: statusline(); } ! 293: return(0); ! 294: case 0x77: /* Ctrl-Home up - top of status line info */ ! 295: statline=1; ! 296: statusline(); ! 297: return(0); ! 298: case 0x4b: /* Left Arrow - same as ctrl-] */ ! 299: return(0x1d); ! 300: case 0x4d: /* Right Arrow - same as ctrl-f */ ! 301: return(6); ! 302: case 0x48: /* Up arrow - same as ctrl-^ */ ! 303: return(0x1e); ! 304: case 0x50: /* Down arrow - same as Ctrl-J */ ! 305: return(LF); ! 306: case 0x4f: /* End - same as Ctrl-E */ ! 307: return(5); /* ctrl-e - end of line */ ! 308: case 0x91: /* Ctrl-Dn Arrow - increment statusline */ ! 309: if(statline<LAST_STAT_LINE) { ! 310: statline++; ! 311: statusline(); } ! 312: return(0); ! 313: case 0x75: /* Ctrl-End - end of status line info */ ! 314: statline=LAST_STAT_LINE; ! 315: statusline(); ! 316: return(0); ! 317: case 0x52: /* Insert */ ! 318: return(0x1f); /* ctrl-minus - insert mode */ ! 319: case 0x53: /* Delete */ ! 320: return(0x7f); /* ctrl-bkspc - del cur char */ ! 321: case 0x26: /* Alt-L - Capture to cap_fname */ ! 322: if(lclaes()) ! 323: return(0); ! 324: if(sys_status&SS_CAP) { ! 325: sys_status^=SS_CAP; ! 326: fclose(capfile); ! 327: #ifdef __MSDOS__ ! 328: freedosmem=farcoreleft(); /* fclose frees memory */ ! 329: #endif ! 330: statusline(); ! 331: return(0); } ! 332: x=lclwx(); ! 333: y=lclwy(); ! 334: atr=lclatr(LIGHTGRAY<<4); ! 335: STATUSLINE; ! 336: lclxy(1,node_scrnlen); ! 337: lputs(" Filename: "); ! 338: lputc(CLREOL); ! 339: console&=~(CON_R_INPUT|CON_R_ECHO); ! 340: getstr(cap_fname,40,K_UPPER|K_EDIT); ! 341: TEXTWINDOW; ! 342: lclxy(x,y); ! 343: lclatr(atr); ! 344: console=con; ! 345: if(cap_fname[0] && ! 346: (capfile=fopen(cap_fname,"a"))==NULL) ! 347: bprintf("Couldn't open %s.\r\n",cap_fname); ! 348: else if(cap_fname[0]) { ! 349: #ifdef __MSDOS__ ! 350: freedosmem=farcoreleft(); /* fnopen allocates memory */ ! 351: #endif ! 352: sys_status|=SS_CAP; } ! 353: statusline(); ! 354: return(0); ! 355: case 0x17: /* Alt-I - Interrupt node now */ ! 356: getnodedat(node_num,&thisnode,1); ! 357: thisnode.misc^=NODE_INTR; ! 358: putnodedat(node_num,thisnode); ! 359: return(0); ! 360: case 0x13: /* Alt-R - Rerun node when caller hangs up */ ! 361: getnodedat(node_num,&thisnode,1); ! 362: thisnode.misc^=NODE_RRUN; ! 363: putnodedat(node_num,thisnode); ! 364: statusline(); ! 365: return(0); ! 366: case 0x31: /* Alt-N - Lock this node */ ! 367: getnodedat(node_num,&thisnode,1); ! 368: thisnode.misc^=NODE_LOCK; ! 369: putnodedat(node_num,thisnode); ! 370: statusline(); ! 371: return(0); ! 372: case 0x22: /* Alt-G - Guru Chat */ ! 373: if(sys_status&SS_GURUCHAT) { ! 374: sys_status&=~SS_GURUCHAT; ! 375: return(CR); } ! 376: if(!total_gurus) ! 377: break; ! 378: for(i=0;i<total_gurus;i++) ! 379: if(chk_ar(guru[i]->ar,useron)) ! 380: break; ! 381: if(i>=total_gurus) ! 382: i=0; ! 383: sprintf(str,"%s%s.DAT",ctrl_dir,guru[i]->code); ! 384: if((file=nopen(str,O_RDONLY))==-1) { ! 385: errormsg(WHERE,ERR_OPEN,str,O_RDONLY); ! 386: return(0); } ! 387: if((gurubuf=MALLOC(filelength(file)+1L))==NULL) { ! 388: close(file); ! 389: errormsg(WHERE,ERR_ALLOC,str,filelength(file)+1L); ! 390: return(0); } ! 391: read(file,gurubuf,filelength(file)); ! 392: gurubuf[filelength(file)]=0; ! 393: close(file); ! 394: localguru(gurubuf,i); ! 395: FREE(gurubuf); ! 396: return(CR); ! 397: case 0x20: /* Alt-D - Shell to DOS */ ! 398: sprintf(str,"%.*s",lbuflen,lbuf); ! 399: waitforsysop(1); ! 400: if((scrnbuf=MALLOC((node_scrnlen*80L)*2L))==NULL) { ! 401: errormsg(WHERE,ERR_ALLOC,nulstr,(node_scrnlen*80L)*2L); ! 402: return(CR); } ! 403: gettext(1,1,80,node_scrnlen,scrnbuf); ! 404: lclatr(LIGHTGRAY); ! 405: x=lclwx(); ! 406: y=lclwy(); ! 407: lclini(node_scrnlen); ! 408: lputc(FF); ! 409: if(!(node_misc&NM_SYSPW) || chksyspass(1)) ! 410: external(comspec,0); ! 411: lclini(node_scrnlen-1); ! 412: puttext(1,1,80,node_scrnlen,scrnbuf); ! 413: FREE(scrnbuf); ! 414: lclxy(x,y); ! 415: if(online==ON_REMOTE) ! 416: rioctl(IOFI); /* flush input buffer */ ! 417: waitforsysop(0); ! 418: strcpy(lbuf,str); ! 419: lbuflen=strlen(lbuf); ! 420: timeout=time(NULL); ! 421: return(0); ! 422: case 0x49: /* PgUp - local ASCII upload */ ! 423: if(sys_status&SS_FINPUT || lclaes() || inside) ! 424: return(0); ! 425: inside=1; ! 426: x=lclwx(); ! 427: y=lclwy(); ! 428: atr=lclatr(LIGHTGRAY<<4); ! 429: STATUSLINE; ! 430: lclxy(1,node_scrnlen); ! 431: lputs(" Filename: "); ! 432: lputc(CLREOL); ! 433: console&=~(CON_R_INPUT|CON_R_ECHO); ! 434: getstr(str,60,K_UPPER); ! 435: if(str[0] && (inputfile=nopen(str,O_RDONLY))!=-1) ! 436: sys_status|=SS_FINPUT; ! 437: statusline(); ! 438: lclxy(x,y); ! 439: lclatr(atr); ! 440: console=con; ! 441: inside=0; ! 442: return(0); ! 443: case 0xff: /* ctrl-break - bail immediately */ ! 444: lputs("\r\nTerminate BBS (y/N) ? "); ! 445: while((i=lkbrd(0))==0); ! 446: if(toupper(i&0xff)=='Y') { /* Ctrl-brk yes/no */ ! 447: lputs("Yes\r\n"); ! 448: bail(0); } ! 449: lputs("No\r\n"); ! 450: sys_status|=SS_ABORT; ! 451: return(0); } ! 452: return(0); } } ! 453: ! 454: if(!ch && console&CON_R_INPUT && rioctl(RXBC)) { ! 455: if(sys_status&SS_LCHAT && curatr!=color[clr_chatremote]) ! 456: attr(color[clr_chatremote]); ! 457: ch=incom(); ! 458: if(node_misc&NM_7BITONLY ! 459: && (!(sys_status&SS_USERON) || useron.misc&NO_EXASCII)) ! 460: ch&=0x7f; } ! 461: if(ch) ! 462: timeout=time(NULL); ! 463: if(ch==3) { /* Ctrl-C Abort */ ! 464: sys_status|=SS_ABORT; ! 465: if(mode&K_SPIN) /* back space once if on spinning cursor */ ! 466: bputs("\b \b"); ! 467: return(0); } ! 468: if(ch==26 && action!=NODE_PCHT) { /* Ctrl-Z toggle raw input mode */ ! 469: if(mode&K_SPIN) ! 470: bputs("\b "); ! 471: SAVELINE; ! 472: attr(LIGHTGRAY); ! 473: CRLF; ! 474: bputs(text[RawMsgInputModeIsNow]); ! 475: if(console&CON_RAW_IN) ! 476: bputs(text[OFF]); ! 477: else ! 478: bputs(text[ON]); ! 479: console^=CON_RAW_IN; ! 480: CRLF; ! 481: CRLF; ! 482: RESTORELINE; ! 483: lncntr=0; ! 484: if(action!=NODE_MAIN && action!=NODE_XFER) ! 485: return(26); ! 486: return(0); } ! 487: if(console&CON_RAW_IN) /* ignore ctrl-key commands if in raw mode */ ! 488: return(ch); ! 489: if(ch<SP) { /* Control chars */ ! 490: if(ch==LF) /* ignore LF's in not in raw mode */ ! 491: return(0); ! 492: if(ch==15) { /* Ctrl-O toggles pause temporarily */ ! 493: useron.misc^=UPAUSE; ! 494: return(0); } ! 495: if(ch==0x10) { /* Ctrl-P Private node-node comm */ ! 496: if(!(sys_status&SS_USERON)) ! 497: return(0); /* keep from being recursive */ ! 498: if(mode&K_SPIN) ! 499: bputs("\b "); ! 500: if(sys_status&SS_SPLITP) { ! 501: if((scrnbuf=MALLOC((24L*80L)*2L))==NULL) { ! 502: errormsg(WHERE,ERR_ALLOC,nulstr,(24L*80L)*2L); ! 503: return(CR); } ! 504: gettext(1,1,80,24,scrnbuf); ! 505: x=lclwx(); ! 506: y=lclwy(); ! 507: CLS; } ! 508: else { ! 509: SAVELINE; ! 510: attr(LIGHTGRAY); ! 511: CRLF; } ! 512: nodesync(); /* read any waiting messages */ ! 513: nodemsg(); /* send a message */ ! 514: SYNC; ! 515: if(sys_status&SS_SPLITP) { ! 516: lncntr=0; ! 517: CLS; ! 518: for(i=0;i<((24*80)-1)*2;i+=2) { ! 519: if(scrnbuf[i+1]!=curatr) ! 520: attr(scrnbuf[i+1]); ! 521: outchar(scrnbuf[i]); } ! 522: FREE(scrnbuf); ! 523: GOTOXY(x,y); } ! 524: else { ! 525: CRLF; ! 526: RESTORELINE; } ! 527: lncntr=0; ! 528: return(0); } ! 529: ! 530: if(ch==21) { /* Ctrl-U Users online */ ! 531: if(!(sys_status&SS_USERON)) ! 532: return(0); ! 533: if(mode&K_SPIN) ! 534: bputs("\b "); ! 535: if(sys_status&SS_SPLITP) { ! 536: if((scrnbuf=MALLOC((24L*80L)*2L))==NULL) { ! 537: errormsg(WHERE,ERR_ALLOC,nulstr,(24L*80L)*2L); ! 538: return(CR); } ! 539: gettext(1,1,80,24,scrnbuf); ! 540: x=lclwx(); ! 541: y=lclwy(); ! 542: CLS; } ! 543: else { ! 544: SAVELINE; ! 545: attr(LIGHTGRAY); ! 546: CRLF; } ! 547: whos_online(1); /* list users */ ! 548: ASYNC; ! 549: if(sys_status&SS_SPLITP) { ! 550: CRLF; ! 551: nodesync(); ! 552: pause(); ! 553: CLS; ! 554: for(i=0;i<((24*80)-1)*2;i+=2) { ! 555: if(scrnbuf[i+1]!=curatr) ! 556: attr(scrnbuf[i+1]); ! 557: outchar(scrnbuf[i]); } ! 558: FREE(scrnbuf); ! 559: GOTOXY(x,y); } ! 560: else { ! 561: CRLF; ! 562: RESTORELINE; } ! 563: lncntr=0; ! 564: return(0); } ! 565: if(ch==20 && !(sys_status&SS_SPLITP)) { /* Ctrl-T Time information */ ! 566: if(!(sys_status&SS_USERON)) ! 567: return(0); ! 568: if(mode&K_SPIN) ! 569: bputs("\b "); ! 570: SAVELINE; ! 571: attr(LIGHTGRAY); ! 572: now=time(NULL); ! 573: bprintf(text[TiLogon],timestr(&logontime)); ! 574: bprintf(text[TiNow],timestr(&now)); ! 575: bprintf(text[TiTimeon] ! 576: ,sectostr(now-logontime,tmp)); ! 577: bprintf(text[TiTimeLeft] ! 578: ,sectostr(timeleft,tmp)); ! 579: SYNC; ! 580: RESTORELINE; ! 581: lncntr=0; ! 582: return(0); } ! 583: if(ch==11 && !(sys_status&SS_SPLITP)) { /* Ctrl-k Control key menu */ ! 584: if(!(sys_status&SS_USERON)) ! 585: return(0); ! 586: if(mode&K_SPIN) ! 587: bputs("\b "); ! 588: SAVELINE; ! 589: attr(LIGHTGRAY); ! 590: lncntr=0; ! 591: bputs(text[ControlKeyMenu]); ! 592: ASYNC; ! 593: RESTORELINE; ! 594: lncntr=0; ! 595: return(0); } ! 596: ! 597: if(ch==ESC && console&CON_R_INPUT) { ! 598: for(i=0;i<20 && !rioctl(RXBC);i++) ! 599: mswait(1); ! 600: if(i==20) ! 601: return(ESC); ! 602: ch=incom(); ! 603: if(ch!='[') { ! 604: ungetkey(ESC); ! 605: ungetkey(ch); ! 606: return(0); } ! 607: i=j=0; ! 608: autoterm|=ANSI; /* <ESC>[x means they have ANSI */ ! 609: if(!(useron.misc&ANSI) && useron.misc&AUTOTERM && sys_status&SS_USERON ! 610: && useron.number) { ! 611: useron.misc|=ANSI; ! 612: putuserrec(useron.number,U_MISC,8,ultoa(useron.misc,str,16)); } ! 613: while(i<10 && j<30) { /* up to 3 seconds */ ! 614: if(rioctl(RXBC)) { ! 615: ch=incom(); ! 616: if(ch!=';' && !isdigit(ch) && ch!='R') { /* other ANSI */ ! 617: switch(ch) { ! 618: case 'A': ! 619: return(0x1e); /* ctrl-^ (up arrow) */ ! 620: case 'B': ! 621: return(LF); /* ctrl-j (dn arrow) */ ! 622: case 'C': ! 623: return(0x6); /* ctrl-f (rt arrow) */ ! 624: case 'D': ! 625: return(0x1d); /* ctrl-] (lf arrow) */ ! 626: case 'H': ! 627: return(0x2); /* ctrl-b (beg line) */ ! 628: case 'K': ! 629: return(0x5); /* ctrl-e (end line) */ ! 630: } ! 631: ungetkey(ESC); ! 632: ungetkey('['); ! 633: for(j=0;j<i;j++) ! 634: ungetkey(str[j]); ! 635: ungetkey(ch); ! 636: return(0); } ! 637: if(ch=='R') { /* cursor position report */ ! 638: if(i && !(useron.rows)) { /* auto-detect rows */ ! 639: str[i]=0; ! 640: rows=atoi(str); ! 641: if(rows<5 || rows>99) rows=24; } ! 642: return(0); } ! 643: str[i++]=ch; } ! 644: else { ! 645: mswait(100); ! 646: j++; } } ! 647: ! 648: ungetkey(ESC); /* should only get here if time-out */ ! 649: ungetkey('['); ! 650: for(j=0;j<i;j++) ! 651: ungetkey(str[j]); ! 652: return(0); } ! 653: ! 654: } /* end of control chars */ ! 655: ! 656: if(!ch && (!(mode&K_GETSTR) || mode&K_LOWPRIO || node_misc&NM_LOWPRIO)) ! 657: mswait(0); ! 658: return(ch); ! 659: } ! 660:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.