![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to execdos.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / sbbs2 / execdos|
Return to execdos.c CVS log | Up to [Synchronet] / sbbs / sbbs2 / execdos |
1.1 root 1: /* EXECDOS.C */
2:
3: /* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
4:
5: /* Execute DOS external BBS programs from OS/2 BBS */
6:
7: #include "sbbs.h"
8:
9: extern unsigned _heaplen=2048;
10:
11: extern uint riobp;
12:
13: ulong user_misc;
14:
15: /****************************************************************************/
16: /* Truncates white-space chars off end of 'str' and terminates at first tab */
17: /****************************************************************************/
18: void truncsp(char *str)
19: {
20: uint c;
21:
22: str[strcspn(str,"\t")]=0;
23: c=strlen(str);
24: while(c && (uchar)str[c-1]<=SP) c--;
25: str[c]=0;
26: }
27:
28: void interrupt (*oldfunc)(void);
29:
30: /*****************************************************************************/
31: /* Interrupt routine to expand WWIV Ctrl-C# codes into ANSI escape sequences */
32: /*****************************************************************************/
33: void interrupt wwiv_expand()
34: {
35: char str[256],al;
36: static int ctrl_c;
37: int i,j;
38:
39: al=_AL;
40: if(al!=3 && !ctrl_c)
41: oldfunc();
42: else if(al!=3 && ctrl_c) {
43: ctrl_c=0;
44: if(user_misc&ANSI) {
45: switch(al) {
46: default:
47: strcpy(str,"\x1b[0m"); /* low grey */
48: break;
49: case '1':
50: strcpy(str,"\x1b[0;1;36m"); /* high cyan */
51: break;
52: case '2':
53: strcpy(str,"\x1b[0;1;33m"); /* high yellow */
54: break;
55: case '3':
56: strcpy(str,"\x1b[0;35m"); /* low magenta */
57: break;
58: case '4':
59: strcpy(str,"\x1b[0;1;44m"); /* white on blue */
60: break;
61: case '5':
62: strcpy(str,"\x1b[0;32m"); /* low green */
63: break;
64: case '6':
65: strcpy(str,"\x1b[0;1;5;31m"); /* high blinking red */
66: break;
67: case '7':
68: strcpy(str,"\x1b[0;1;34m"); /* high blue */
69: break;
70: case '8':
71: strcpy(str,"\x1b[0;34m"); /* low blue */
72: break;
73: case '9':
74: strcpy(str,"\x1b[0;36m"); /* low cyan */
75: break; }
76: j=strlen(str);
77: for(i=0;i<j;i++) {
78: _AL=str[i];
79: oldfunc(); } } }
80: else
81: ctrl_c=1;
82: }
83:
84: int main(int argc, char **argv)
85: {
86: char str[256],commandline[128],sbbsnode[81],sbbsnnum[81],msr[31]="0"
87: ,user_name[LEN_NAME+1]
88: ,user_alias[LEN_ALIAS+1]
89: ,user_phone[LEN_PHONE+1]
90: ,user_location[LEN_LOCATION+1]
91: ,user_age
92: ,user_sex
93: ,user_level
94: ,node_scrnlen
95: ,*envvar[30],*arg[30],c,d;
96: int i,file,base,com_base=0,com_irq,dte_rate,rmode,mode,node_num,col,row;
97: FILE *stream;
98:
99: if(argc<2) {
100: printf("This program is for the internal use of Synchronet.\r\n");
101: return(-1); }
102:
103: sprintf(sbbsnode,"SBBSNODE=%s",argv[1]);
104: putenv(sbbsnode);
105: sprintf(str,"%sEXECDOS.DAT",argv[1]);
106: if((file=open(str,O_RDONLY|O_BINARY))!=-1) {
107: stream=fdopen(file,"rb");
108: str[0]=0;
109: fgets(str,128,stream);
110: truncsp(str);
111: if(strcmp(str,"V1.00")) {
112: printf("\7EXECDOS: SBBS VERSION MISMATCH!\7\r\n");
113: delay(5000);
114: return(-1); }
115: str[0]=0;
116: fgets(str,128,stream);
117: com_base=strtoul(str,0,16);
118: str[0]=0;
119: fgets(str,128,stream);
120: com_irq=atoi(str);
121: str[0]=0;
122: fgets(str,128,stream);
123: dte_rate=atoi(str);
124: str[0]=0;
125: fgets(str,128,stream);
126: rmode=strtoul(str,0,16);
127: str[0]=0;
128: fgets(str,128,stream);
129: mode=strtoul(str,0,16);
130: str[0]=0;
131: fgets(str,128,stream);
132: user_misc=strtoul(str,0,16);
133: str[0]=0;
134: fgets(str,128,stream);
135: node_num=atoi(str);
136: if(node_num) {
137: sprintf(sbbsnnum,"SBBSNNUM=%u",node_num);
138: putenv(sbbsnnum); }
139: fgets(commandline,128,stream);
140: truncsp(commandline);
141: str[0]=0;
142: fgets(str,128,stream);
143: i=atoi(str); /* total env vars */
144: while(i--) {
145: str[0]=0;
146: fgets(str,128,stream);
147: truncsp(str);
148: if((envvar[i]=MALLOC(strlen(str)+1))!=NULL) {
149: strcpy(envvar[i],str);
150: putenv(envvar[i]); } }
151: str[0]=0;
152: fgets(str,128,stream);
153: truncsp(str);
154: sprintf(user_alias,"%.*s",LEN_ALIAS,str);
155: str[0]=0;
156: fgets(str,128,stream);
157: truncsp(str);
158: sprintf(user_name,"%.*s",LEN_NAME,str);
159: str[0]=0;
160: fgets(str,128,stream);
161: user_level=atoi(str);
162: str[0]=0;
163: fgets(str,128,stream);
164: user_age=atoi(str);
165: str[0]=0;
166: fgets(str,128,stream);
167: user_sex=str[0];
168: str[0]=0;
169: fgets(str,128,stream);
170: truncsp(str);
171: sprintf(user_phone,"%.*s",LEN_PHONE,str);
172: str[0]=0;
173: fgets(str,128,stream);
174: truncsp(str);
175: sprintf(user_location,"%.*s",LEN_LOCATION,str);
176: fclose(stream); }
177:
178: printf("\nEXECDOS: %s\n",commandline);
179:
180: if(rmode && com_base) { /* Capture the port and intercept I/O */
181: base=0xffff;
182: switch(com_base) {
183: case 0xb:
184: rioctl(I14PC);
185: break;
186: case 0xffff:
187: case 0xd:
188: rioctl(I14DB);
189: break;
190: case 0xe:
191: rioctl(I14PS);
192: break;
193: case 0xf:
194: rioctl(I14FO);
195: break;
196: default:
197: base=com_base;
198: break; }
199:
200: if(rioini(base,com_irq)) {
201: printf("\7EXECDOS: Error initializing COM port (%x,%d)\7\r\n"
202: ,base,com_irq);
203: return(-1); }
204: rioctl(IOSM|CTSCK|RTSCK|PAUSE|ABORT);
205: rioctl(CPTON); /* Cvt ^p to ^^ */
206:
207: sprintf(msr,"%lu",&riobp-1);
208:
209: sprintf(str,"%sINTRSBBS.DAT",argv[1]);
210: if((stream=fopen(str,"wb"))!=NULL) {
211: fprintf(stream,"%lu\r\n",&riobp-1);
212: fclose(stream); } }
213:
214: setbaud(dte_rate);
215:
216: if(rmode) {
217: ivhctl(rmode);
218:
219: if(mode&EX_WWIV) { /* WWIV code expansion */
220: rioctl(CPTOFF); /* turn off ctrl-p translation */
221: oldfunc=getvect(0x29);
222: setvect(0x29,wwiv_expand); } }
223:
224:
225: if(rmode&INT29L && user_alias[0]) {
226: node_scrnlen=lclini(0xd<<8); /* Tab expansion, no CRLF expansion */
227: lclini(node_scrnlen-1);
228: col=lclwx();
229: row=lclwy();
230: lclxy(1,node_scrnlen);
231: lclatr(CYAN|HIGH|(BLUE<<4));
232: lputs(" ");
233: sprintf(str,"%-25.25s %02d %-25.25s %02d %c %s"
234: ,user_alias,user_level,user_name[0] ? user_name : user_location
235: ,user_age
236: ,user_sex ? user_sex : SP
237: ,user_phone);
238: lputs(str);
239: lputc(CLREOL);
240: lclatr(LIGHTGRAY);
241: lclxy(col,row); }
242:
243: /* separate args */
244:
245: arg[0]=commandline; /* point to the beginning of the string */
246: for(c=0,d=1;commandline[c];c++) /* Break up command line */
247: if(commandline[c]==SP) {
248: commandline[c]=0; /* insert nulls */
249: if(!strncmp(commandline+c+1,"%& ",3))
250: arg[d++]=msr;
251: else /* point to the beginning of the next arg */
252: arg[d++]=commandline+c+1; }
253: arg[d]=0;
254:
255: /* spawn it */
256:
257: i=spawnvp(P_WAIT,arg[0],arg);
258:
259: if(rmode) {
260: rioctl(TXSYNC|(3<<8));
261: rioctl(IOFB);
262: if(mode&EX_WWIV)
263: setvect(0x29,oldfunc);
264: ivhctl(0); /* replace DOS output interrupt vectors */
265: if(com_base)
266: rioini(0,0); } /* replace com port */
267:
268: //if(i) // debug
269: // getch();
270: return(i);
271: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.