Return to execsbbs.c CVS log

Up to [Synchronet] / sbbs / sbbs2 / execsbbs

Annotation of sbbs/sbbs2/execsbbs/execsbbs.c, revision 1.1.1.1

1.1       root        1: /* execbbs.c */
                      2: 
                      3: /* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
                      4: 
                      5: #include <dos.h>
                      6: #include <dir.h>
                      7: #include <errno.h>
                      8: #include <stdio.h>
                      9: #include <stdlib.h>
                     10: #include <string.h>
                     11: #include <process.h>
                     12: 
                     13: extern unsigned _heaplen=2048;
                     14: 
                     15: /* usage: execsbbs start_dir "program parms" sbbspath [r] */
                     16: 
                     17: int main(int argc, char *argv[])
                     18: {
                     19:        char path[129],*comspec,*p,*arg[30],c;
                     20:        int disk;
                     21: 
                     22: if(argc<4) {
                     23:        printf("This program is for the internal use of Synchronet.\r\n");
                     24: /***   Debug stuff
                     25:        printf("argc=%d\r\n",argc);
                     26:        for(c=0;c<argc;c++)
                     27:                printf("argv[%d]='%s'\n",c,argv[c]);
                     28: ***/
                     29:        return(0); }
                     30: disk=getdisk();
                     31: getcwd(path,128);
                     32: comspec=getenv("COMSPEC");
                     33: 
                     34: /***                                   /* Removed */
                     35: strcpy(str,comspec);   /* save comspec */
                     36: strcpy(comspec,"");     /* destroy comspec */
                     37: ***/
                     38: 
                     39: if(argv[1][1]==':')                /* drive letter specified */
                     40:        setdisk(toupper(argv[1][0])-'A');
                     41: chdir(argv[1]);
                     42: 
                     43: p=strchr(argv[2],' ');
                     44: if(p)
                     45:        p++;
                     46: if(spawnlpe(P_WAIT,comspec,comspec,"/c",argv[2],NULL,environ))
                     47:        printf("EXECSBBS: Error %d spawning %s\r\n",errno,argv[2]);
                     48: /***
                     49: strcpy(comspec,str);   /* restore comspec */
                     50: ***/
                     51: setdisk(disk);
                     52: if(chdir(path))
                     53:        printf("\7\r\nEXECBBS: Error changing directory to %s\r\n",path);
                     54: for(c=0;c<30;c++)
                     55:        arg[c]=argv[c+3];
                     56: if(execve(arg[0],arg,environ))
                     57:        printf("EXECSBBS: Error %d executing %s\r\n",errno,arg[0]);
                     58: return(1);
                     59: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.