![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to xtrn.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / sbbs2|
Return to xtrn.c CVS log | Up to [Synchronet] / sbbs / sbbs2 |
1.1 ! root 1: #line 1 "XTRN.C" ! 2: ! 3: /* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */ ! 4: ! 5: /***************************************************************************/ ! 6: /* Functions that pertain to external programs (other EXE or COM programs) */ ! 7: /***************************************************************************/ ! 8: ! 9: #include "sbbs.h" ! 10: #include "cmdshell.h" ! 11: ! 12: #ifndef __FLAT__ ! 13: ! 14: #include "spawno.h" ! 15: ! 16: void interrupt (*oldfunc)(void); ! 17: ! 18: /*****************************************************************************/ ! 19: /* Interrupt routine to expand WWIV Ctrl-C# codes into ANSI escape sequences */ ! 20: /*****************************************************************************/ ! 21: void interrupt wwiv_expand() ! 22: { ! 23: char str[256],al; ! 24: static int ctrl_c; ! 25: int i,j; ! 26: ! 27: al=_AL; ! 28: if(al!=3 && !ctrl_c) ! 29: oldfunc(); ! 30: else if(al!=3 && ctrl_c) { ! 31: ctrl_c=0; ! 32: if(useron.misc&ANSI) { ! 33: switch(al) { ! 34: default: ! 35: strcpy(str,"\x1b[0m"); /* low grey */ ! 36: break; ! 37: case '1': ! 38: strcpy(str,"\x1b[0;1;36m"); /* high cyan */ ! 39: break; ! 40: case '2': ! 41: strcpy(str,"\x1b[0;1;33m"); /* high yellow */ ! 42: break; ! 43: case '3': ! 44: strcpy(str,"\x1b[0;35m"); /* low magenta */ ! 45: break; ! 46: case '4': ! 47: strcpy(str,"\x1b[0;1;44m"); /* white on blue */ ! 48: break; ! 49: case '5': ! 50: strcpy(str,"\x1b[0;32m"); /* low green */ ! 51: break; ! 52: case '6': ! 53: strcpy(str,"\x1b[0;1;5;31m"); /* high blinking red */ ! 54: break; ! 55: case '7': ! 56: strcpy(str,"\x1b[0;1;34m"); /* high blue */ ! 57: break; ! 58: case '8': ! 59: strcpy(str,"\x1b[0;34m"); /* low blue */ ! 60: break; ! 61: case '9': ! 62: strcpy(str,"\x1b[0;36m"); /* low cyan */ ! 63: break; } ! 64: j=strlen(str); ! 65: for(i=0;i<j;i++) { ! 66: _AL=str[i]; ! 67: oldfunc(); } } } ! 68: else ! 69: ctrl_c=1; ! 70: } ! 71: #endif ! 72: ! 73: /****************************************************************************/ ! 74: /* Runs an external program directly using spawnvp */ ! 75: /****************************************************************************/ ! 76: int external(char *cmdline,char mode) ! 77: { ! 78: char c,d,cmdlen,*arg[30],str[256],str2[256],fname[128],*p,x,y; ! 79: int i,file,rmode=0; ! 80: long l; ! 81: FILE *fp; ! 82: #ifdef __OS2__ ! 83: RESULTCODES rc; ! 84: #endif ! 85: ! 86: if(cmdline[0]=='*') { /* Baja module */ ! 87: strcpy(str,cmdline+1); ! 88: p=strchr(str,SP); ! 89: if(p) { ! 90: strcpy(main_csi.str,p+1); ! 91: *p=0; } ! 92: return(exec_bin(str,&main_csi)); } ! 93: ! 94: #ifdef __MSDOS__ ! 95: nosound(); /* if page is on, turn off sound */ ! 96: #endif ! 97: attr(LIGHTGRAY); /* set attributes to normal text */ ! 98: ! 99: strcpy(str,cmdline); /* Set str to program name only */ ! 100: p=strchr(str,SP); ! 101: if(p) *p=0; ! 102: strcpy(fname,str); ! 103: ! 104: ! 105: if(!(mode&EX_CC)) { ! 106: if(strcspn(cmdline,"<>|")!=strlen(cmdline)) ! 107: mode|=EX_CC; /* DOS I/O redirection; so, use command.com */ ! 108: else { ! 109: i=strlen(str); ! 110: if(i>4 && !stricmp(str+(i-4),".BAT")) /* specified .BAT file */ ! 111: mode|=EX_CC; ! 112: else { ! 113: strcat(str,".BAT"); ! 114: if(fexist(str)) /* and it's a .BAT file */ ! 115: mode|=EX_CC; } } } ! 116: ! 117: p=strrchr(fname,'\\'); ! 118: if(!p) p=strchr(fname,':'); ! 119: if(!p) p=fname; ! 120: else p++; ! 121: ! 122: #ifndef __FLAT__ ! 123: ! 124: for(i=0;i<total_swaps;i++) ! 125: if(!stricmp(p,swap[i]->cmd)) ! 126: break; ! 127: if(i<total_swaps) ! 128: mode|=EX_SWAP; ! 129: ! 130: #else ! 131: ! 132: for(i=0;i<total_os2pgms;i++) ! 133: if(!stricmp(p,os2pgm[i]->name)) ! 134: break; ! 135: if(i<total_os2pgms) { ! 136: mode|=EX_OS2; ! 137: if(os2pgm[i]->misc&OS2_POPEN) ! 138: mode|=EX_POPEN; } ! 139: ! 140: #endif ! 141: ! 142: #ifndef __FLAT__ ! 143: ! 144: if(node_swap&SWAP_NONE || mode&EX_WWIV) ! 145: mode&=~EX_SWAP; ! 146: ! 147: if(mode&EX_SWAP) { ! 148: if(lclwy()>1 || lclwx()>1) ! 149: lputs(crlf); ! 150: lputs("Swapping...\r\n"); } ! 151: ! 152: #endif ! 153: ! 154: ! 155: if(!(mode&EX_OS2) && mode&EX_CC) ! 156: sprintf(str,"%s /C %s", ! 157: #ifdef __OS2__ ! 158: node_comspec // Only used node_comspec for OS/2 ver ! 159: #else ! 160: comspec ! 161: #endif ! 162: ,cmdline); ! 163: ! 164: else strcpy(str,cmdline); ! 165: if(!(mode&EX_OS2) && strlen(str)>126) { ! 166: errormsg(WHERE,ERR_LEN,str,strlen(str)); ! 167: errorlevel=-1; ! 168: return(-1); } ! 169: ! 170: #ifndef __FLAT__ ! 171: ! 172: arg[0]=str; /* point to the beginning of the string */ ! 173: cmdlen=strlen(str); ! 174: for(c=0,d=1;c<cmdlen;c++) /* Break up command line */ ! 175: if(str[c]==SP) { ! 176: str[c]=0; /* insert nulls */ ! 177: arg[d++]=str+c+1; } /* point to the beginning of the next arg */ ! 178: arg[d]=0; ! 179: ! 180: #endif ! 181: ! 182: if(mode&EX_OUTR && (console&CON_R_ECHO)) ! 183: rmode|=INT29R; ! 184: if(mode&EX_OUTL) ! 185: rmode|=INT29L; ! 186: if(mode&EX_INR && (console&CON_R_INPUT)) ! 187: rmode|=INT16; ! 188: ! 189: #ifndef __FLAT__ ! 190: ! 191: if(rmode) ! 192: ivhctl(rmode); /* set DOS output interception vectors */ ! 193: ! 194: if(mode&EX_WWIV) { /* WWIV code expansion */ ! 195: rioctl(CPTOFF); /* turn off ctrl-p translation */ ! 196: oldfunc=getvect(0x29); ! 197: setvect(0x29,wwiv_expand); } ! 198: ! 199: if(com_port && sys_status&SS_COMISR && !(mode&(EX_OUTR|EX_INR))) { ! 200: riosync(0); ! 201: rioini(0,0); ! 202: sys_status&=~SS_COMISR; } ! 203: ! 204: if(!rmode) { /* clear the status line */ ! 205: lclini(node_scrnlen); ! 206: x=lclwx(); ! 207: y=lclwy(); ! 208: STATUSLINE; ! 209: lclxy(1,node_scrnlen); ! 210: lputc(CLREOL); ! 211: TEXTWINDOW; ! 212: lclxy(x,y); } ! 213: ! 214: if(mode&EX_SWAP) { /* set the resident size */ ! 215: if(rmode) ! 216: __spawn_resident=7000; /* was 6000 */ ! 217: else ! 218: __spawn_resident=0; ! 219: i=spawnvpeo(node_swapdir,arg[0],(const char **)arg ! 220: ,(const char **)environ); } ! 221: else ! 222: i=spawnvpe(P_WAIT,arg[0],arg,environ); ! 223: ! 224: #else //lif defined(__OS2__) ! 225: ! 226: if(com_port && !(mode&EX_POPEN) ! 227: && sys_status&SS_COMISR) { /* Uninstall COM routines */ ! 228: riosync(0); ! 229: rioini(0,0); ! 230: sys_status&=~SS_COMISR; } ! 231: ! 232: textattr(LIGHTGRAY); // Redundant ! 233: if(!(mode&EX_OS2)) { /* DOS pgm */ ! 234: if(lclwy()>1 || lclwx()>1) ! 235: lputs(crlf); ! 236: lprintf("Executing DOS program: %s\r\n",str); ! 237: sprintf(str2,"%sEXECDOS.DAT",node_dir); ! 238: if((file=nopen(str2,O_WRONLY|O_TRUNC|O_CREAT))!=-1) { ! 239: sprintf(str2,"V1.00\r\n%X\r\n%lu\r\n%u\r\n%X\r\n%X\r\n%lX\r\n%u\r\n" ! 240: "%s\r\n" ! 241: ,online==ON_REMOTE ? com_base:0 ! 242: ,com_irq,dte_rate,rmode,mode,useron.misc,node_num,str); ! 243: write(file,str2,strlen(str2)); ! 244: sprintf(str2,"%u\r\nDSZLOG=%s\r\n" ! 245: ,1 /* Total env vars to setup */ ! 246: ,getenv("DSZLOG")); ! 247: write(file,str2,strlen(str2)); ! 248: if(online) { ! 249: sprintf(str2,"%s\r\n%s\r\n%u\r\n%u\r\n%c\r\n%s\r\n%s\r\n" ! 250: ,useron.alias ! 251: ,useron.name ! 252: ,useron.level ! 253: ,getage(useron.birth) ! 254: ,useron.sex ! 255: ,useron.phone ! 256: ,useron.location); ! 257: write(file,str2,strlen(str2)); } ! 258: close(file); } ! 259: ! 260: sprintf(str,"%sEXECDOS.EXE %s",exec_dir,node_dir); ! 261: ! 262: x=wherex(); ! 263: y=wherey(); ! 264: i=system(str); ! 265: gotoxy(x,y); } ! 266: else { /* OS/2 pgm */ ! 267: window(1,1,80,node_scrnlen); ! 268: x=lclwx(); ! 269: y=lclwy(); ! 270: lclxy(1,node_scrnlen); ! 271: lputc(CLREOL); ! 272: lclxy(x,y); ! 273: i=system(cmdline); ! 274: lputs(crlf); ! 275: lputs(crlf); ! 276: lclxy(1,node_scrnlen-1); ! 277: } ! 278: ! 279: #ifdef __OS2__ ! 280: fixkbdmode(); ! 281: #endif ! 282: textattr(LIGHTGRAY); ! 283: ! 284: #endif ! 285: ! 286: #ifndef __WIN32__ ! 287: while(lkbrd(0)) /* suck up any chars in the keyboard buffer */ ! 288: ; ! 289: #endif ! 290: ! 291: #ifdef __MSDOS__ ! 292: setcbrk(0); ! 293: ! 294: lclatr(LIGHTGRAY); ! 295: c=wherey(); ! 296: if(c>=node_scrnlen) ! 297: c=node_scrnlen-1; ! 298: lclxy(wherex(),c); /* put the cursor where BIOS thinks it is */ ! 299: ! 300: #endif ! 301: ! 302: if(com_port && !(mode&EX_POPEN) ! 303: #ifndef __OS2__ ! 304: && !(mode&(EX_OUTR|EX_INR)) ! 305: #endif ! 306: ) { ! 307: comini(); ! 308: setrate(); ! 309: rioctl(IOSM|PAUSE|ABORT); } ! 310: ! 311: rioctl(CPTON); /* turn on ctrl-p translation */ ! 312: ! 313: #ifndef __FLAT__ ! 314: if(mode&EX_WWIV) ! 315: setvect(0x29,oldfunc); ! 316: ! 317: if(rmode) ! 318: ivhctl(0); /* replace DOS output interrupt vectors */ ! 319: #endif ! 320: ! 321: setdisk(node_disk); ! 322: strcpy(str,node_dir); ! 323: str[strlen(str)-1]=0; ! 324: if(chdir(str)) ! 325: errormsg(WHERE,ERR_CHDIR,str,0); ! 326: ! 327: #ifndef __FLAT__ ! 328: lclini(node_scrnlen-1); ! 329: #endif ! 330: ! 331: lncntr=0; ! 332: if(online) ! 333: statusline(); /* Replace status line after calling external program */ ! 334: errorlevel=i; ! 335: return(i); ! 336: } ! 337: ! 338: #ifndef __FLAT__ ! 339: extern uint riobp; ! 340: extern mswtyp; ! 341: #endif ! 342: ! 343: uint fakeriobp=0xffff; ! 344: ! 345: /*****************************************************************************/ ! 346: /* Returns command line generated from instr with %c replacments */ ! 347: /*****************************************************************************/ ! 348: char *cmdstr(char *instr, char *fpath, char *fspec, char *outstr) ! 349: { ! 350: static char static_cmd[128]; ! 351: char str[256],str2[128],*cmd; ! 352: int i,j,len; ! 353: ! 354: if(outstr==NULL) ! 355: cmd=static_cmd; ! 356: else ! 357: cmd=outstr; ! 358: len=strlen(instr); ! 359: for(i=j=0;i<len && j<128;i++) { ! 360: if(instr[i]=='%') { ! 361: i++; ! 362: cmd[j]=0; ! 363: switch(toupper(instr[i])) { ! 364: case 'A': /* User alias */ ! 365: strcat(cmd,useron.alias); ! 366: break; ! 367: case 'B': /* Baud (DTE) Rate */ ! 368: strcat(cmd,ultoa(dte_rate,str,10)); ! 369: break; ! 370: case 'C': /* Connect Description */ ! 371: strcat(cmd,connection); ! 372: break; ! 373: case 'D': /* Connect (DCE) Rate */ ! 374: strcat(cmd,ultoa((ulong)cur_rate,str,10)); ! 375: break; ! 376: case 'E': /* Estimated Rate */ ! 377: strcat(cmd,ultoa((ulong)cur_cps*10,str,10)); ! 378: break; ! 379: case 'F': /* File path */ ! 380: strcat(cmd,fpath); ! 381: break; ! 382: case 'G': /* Temp directory */ ! 383: strcat(cmd,temp_dir); ! 384: break; ! 385: case 'H': /* Port Handle or Hardware Flow Control */ ! 386: #ifdef __OS2__ ! 387: strcat(cmd,itoa(rio_handle,str,10)); ! 388: #else ! 389: if(mdm_misc&MDM_CTS) ! 390: strcat(cmd,"Y"); ! 391: else ! 392: strcat(cmd,"N"); ! 393: #endif ! 394: break; ! 395: case 'I': /* UART IRQ Line */ ! 396: strcat(cmd,itoa(com_irq,str,10)); ! 397: break; ! 398: case 'J': ! 399: strcat(cmd,data_dir); ! 400: break; ! 401: case 'K': ! 402: strcat(cmd,ctrl_dir); ! 403: break; ! 404: case 'L': /* Lines per message */ ! 405: strcat(cmd,itoa(level_linespermsg[useron.level],str,10)); ! 406: break; ! 407: case 'M': /* Minutes (credits) for user */ ! 408: strcat(cmd,ultoa(useron.min,str,10)); ! 409: break; ! 410: case 'N': /* Node Directory (same as SBBSNODE environment var) */ ! 411: strcat(cmd,node_dir); ! 412: break; ! 413: case 'O': /* SysOp */ ! 414: strcat(cmd,sys_op); ! 415: break; ! 416: case 'P': /* COM Port */ ! 417: strcat(cmd,itoa(online==ON_LOCAL ? 0:com_port,str,10)); ! 418: break; ! 419: case 'Q': /* QWK ID */ ! 420: strcat(cmd,sys_id); ! 421: break; ! 422: case 'R': /* Rows */ ! 423: strcat(cmd,itoa(rows,str,10)); ! 424: break; ! 425: case 'S': /* File Spec */ ! 426: strcat(cmd,fspec); ! 427: break; ! 428: case 'T': /* Time left in seconds */ ! 429: gettimeleft(); ! 430: strcat(cmd,itoa(timeleft,str,10)); ! 431: break; ! 432: case 'U': /* UART I/O Address (in hex) */ ! 433: strcat(cmd,itoa(com_base,str,16)); ! 434: break; ! 435: case 'V': /* Synchronet Version */ ! 436: sprintf(str,"%s%c",VERSION,REVISION); ! 437: break; ! 438: case 'W': /* Time-slice API type (mswtype) */ ! 439: #ifndef __FLAT__ ! 440: strcat(cmd,itoa(mswtyp,str,10)); ! 441: #endif ! 442: break; ! 443: case 'X': ! 444: strcat(cmd,shell[useron.shell]->code); ! 445: break; ! 446: case '&': /* Address of msr */ ! 447: #ifndef __FLAT__ ! 448: sprintf(str,"%lu",sys_status&SS_DCDHIGH ? &fakeriobp ! 449: : online==ON_REMOTE ? &riobp-1 : 0); ! 450: strcat(cmd,str); ! 451: #else ! 452: strcat(cmd,"%&"); ! 453: #endif ! 454: break; ! 455: case 'Y': ! 456: strcat(cmd, ! 457: #ifdef __OS2__ ! 458: node_comspec ! 459: #else ! 460: comspec ! 461: #endif ! 462: ); ! 463: break; ! 464: case 'Z': ! 465: strcat(cmd,text_dir); ! 466: break; ! 467: case '!': /* EXEC Directory */ ! 468: strcat(cmd,exec_dir); ! 469: break; ! 470: case '#': /* Node number (same as SBBSNNUM environment var) */ ! 471: sprintf(str,"%d",node_num); ! 472: strcat(cmd,str); ! 473: break; ! 474: case '*': ! 475: sprintf(str,"%03d",node_num); ! 476: strcat(cmd,str); ! 477: break; ! 478: case '$': /* Credits */ ! 479: strcat(cmd,ultoa(useron.cdt+useron.freecdt,str,10)); ! 480: break; ! 481: case '%': /* %% for percent sign */ ! 482: strcat(cmd,"%"); ! 483: break; ! 484: default: /* unknown specification */ ! 485: if(isdigit(instr[i])) { ! 486: sprintf(str,"%0*d",instr[i]&0xf,useron.number); ! 487: strcat(cmd,str); } ! 488: /* ! 489: else ! 490: errormsg(WHERE,ERR_CHK,instr,i); ! 491: */ ! 492: break; } ! 493: j=strlen(cmd); } ! 494: else ! 495: cmd[j++]=instr[i]; } ! 496: cmd[j]=0; ! 497: ! 498: return(cmd); ! 499: } ! 500:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.