Return to scfgxtrn.c CVS log

Up to [Synchronet] / sbbs / sbbs2 / scfg

Annotation of sbbs/sbbs2/scfg/scfgxtrn.c, revision 1.1

1.1     ! root        1: #line 2 "SCFGXTRN.C"
        !             2: 
        !             3: /* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
        !             4: 
        !             5: extern char *wday[];
        !             6: 
        !             7: char *daystr(char days);
        !             8: 
        !             9: 
        !            10: /****************************************************************************/
        !            11: /* Synchronet configuration utility                                                                            */
        !            12: /****************************************************************************/
        !            13: 
        !            14: #include "scfg.h"
        !            15: 
        !            16: void xprogs_cfg()
        !            17: {
        !            18:        static int xprogs_dflt;
        !            19:        int     i;
        !            20:        char    str[81];
        !            21: 
        !            22: while(1) {
        !            23:        i=0;
        !            24:        strcpy(opt[i++],"Fixed Events");
        !            25:        strcpy(opt[i++],"Timed Events");
        !            26:        strcpy(opt[i++],"Global Swap List");
        !            27:        strcpy(opt[i++],"OS/2 Program List");
        !            28:        strcpy(opt[i++],"External Editors");
        !            29:        strcpy(opt[i++],"Online Programs");
        !            30:        opt[i][0]=0;
        !            31:        SETHELP(WHERE);
        !            32: /*
        !            33: &Online External Programs:&
        !            34: 
        !            35: From this menu, you can configure external events, external editors, or
        !            36: online external programs (doors).
        !            37: */
        !            38:        switch(ulist(WIN_ORG|WIN_CHE|WIN_ACT,0,0,0,&xprogs_dflt,0
        !            39:                ,"External Programs",opt)) {
        !            40:                case -1:
        !            41:                        i=save_changes(WIN_MID);
        !            42:             if(i==-1)
        !            43:                 break;
        !            44:                        if(!i) {
        !            45:                 write_xtrn_cfg();
        !            46:                                write_main_cfg(); }
        !            47:                        return;
        !            48:                case 0:
        !            49:                        fevents_cfg();
        !            50:                        break;
        !            51:                case 1:
        !            52:                        tevents_cfg();
        !            53:                        break;
        !            54:                case 2:
        !            55:                        swap_cfg();
        !            56:                        break;
        !            57:                case 3:
        !            58:                        os2pgm_cfg();
        !            59:                        break;
        !            60:                case 4:
        !            61:                        xedit_cfg();
        !            62:                        break;
        !            63:                case 5:
        !            64:                        xtrnsec_cfg();
        !            65:                        break; } }
        !            66: }
        !            67: 
        !            68: void fevents_cfg()
        !            69: {
        !            70:        static int event_dflt;
        !            71:        char str[81],*p;
        !            72:        int i;
        !            73: 
        !            74: while(1) {
        !            75:        i=0;
        !            76:        sprintf(opt[i++],"%-32.32s%.40s","Logon Event",sys_logon);
        !            77:        sprintf(opt[i++],"%-32.32s%.40s","Logout Event",sys_logout);
        !            78:        sprintf(opt[i++],"%-32.32s%.40s","Daily Event",sys_daily);
        !            79:        opt[i][0]=0;
        !            80:        savnum=0;
        !            81:        SETHELP(WHERE);
        !            82: /*
        !            83: &External Events:&
        !            84: 
        !            85: From this menu, you can configure the logon and logout events, and the
        !            86: system daily event.
        !            87: */
        !            88:        switch(ulist(WIN_ACT|WIN_SAV|WIN_CHE|WIN_BOT|WIN_RHT,0,0,60,&event_dflt,0
        !            89:                ,"Fixed Events",opt)) {
        !            90:                case -1:
        !            91:                        return;
        !            92:                case 0:
        !            93:                        SETHELP(WHERE);
        !            94: /*
        !            95: &Logon Event:&
        !            96: 
        !            97: This is the command line for a program that will execute during the
        !            98: logon sequence of every user. The program cannot have user interaction.
        !            99: The program will be executed after the LOGON message is displayed and
        !           100: before the logon user list is displayed. If you wish to place a program
        !           101: in the logon sequence of users that includes interaction or requires
        !           102: account information, you probably want to use an online external
        !           103: program configured to run as a logon event.
        !           104: */
        !           105:                        uinput(WIN_MID|WIN_SAV,0,0,"Logon Event"
        !           106:                                ,sys_logon,50,K_EDIT);
        !           107:                        break;
        !           108:                case 1:
        !           109:                        SETHELP(WHERE);
        !           110: /*
        !           111: &Logout Event:&
        !           112: 
        !           113: This is the command line for a program that will execute during the
        !           114: logout sequence of every user. This program cannot have user
        !           115: interaction because it is executed after carrier is dropped. If you
        !           116: wish to have a program execute before carrier is dropped, you probably
        !           117: want to use an &Online External Program& configured to run as a logoff
        !           118: event.
        !           119: */
        !           120:                        uinput(WIN_MID|WIN_SAV,0,0,"Logout Event"
        !           121:                                ,sys_logout,50,K_EDIT);
        !           122:                        break;
        !           123:                case 2:
        !           124:                        SETHELP(WHERE);
        !           125: /*
        !           126: &Daily Event:&
        !           127: 
        !           128: This is the command line for a program that will run after the first
        !           129: user that logs on after midnight, logs off (regardless of what node).
        !           130: */
        !           131:                        uinput(WIN_MID|WIN_SAV,0,0,"Daily Event"
        !           132:                                ,sys_daily,50,K_EDIT);
        !           133: 
        !           134:                        break; } }
        !           135: }
        !           136: 
        !           137: void tevents_cfg()
        !           138: {
        !           139:        static int dflt,dfltopt,bar;
        !           140:        char str[81],done=0,*p;
        !           141:        int j,k;
        !           142:        uint i;
        !           143:        static event_t savevent;
        !           144: 
        !           145: while(1) {
        !           146:        for(i=0;i<total_events && i<MAX_OPTS;i++)
        !           147:                sprintf(opt[i],"%-8.8s      %.50s",event[i]->code,event[i]->cmd);
        !           148:        opt[i][0]=0;
        !           149:        j=WIN_SAV|WIN_ACT|WIN_CHE|WIN_RHT;
        !           150:        savnum=0;
        !           151:        if(total_events)
        !           152:                j|=WIN_DEL|WIN_GET;
        !           153:        if(total_events<MAX_OPTS)
        !           154:                j|=WIN_INS|WIN_INSACT;
        !           155:        if(savevent.code[0])
        !           156:                j|=WIN_PUT;
        !           157:        SETHELP(WHERE);
        !           158: /*
        !           159: &Timed Events:&
        !           160: 
        !           161: This is a list of the configured timed external events.
        !           162: 
        !           163: To add an event hit  INS .
        !           164: 
        !           165: To delete an event, select it and hit  DEL .
        !           166: 
        !           167: To configure an event, select it and hit  ENTER .
        !           168: */
        !           169:        i=ulist(j,0,0,45,&dflt,&bar,"Timed Events",opt);
        !           170:        if((signed)i==-1)
        !           171:                return;
        !           172:        if((i&MSK_ON)==MSK_INS) {
        !           173:                i=total_events;
        !           174:                SETHELP(WHERE);
        !           175: /*
        !           176: &Timed Event Internal Code:&
        !           177: 
        !           178: This is the internal code for the timed event.
        !           179: */
        !           180:                if(uinput(WIN_MID|WIN_SAV,0,0,"Event Internal Code",str,8
        !           181:                        ,K_UPPER)<1)
        !           182:             continue;
        !           183:                if((event=(event_t **)REALLOC(event
        !           184:                        ,sizeof(event_t *)*(total_events+1)))==NULL) {
        !           185:                        errormsg(WHERE,ERR_ALLOC,nulstr,total_events+1);
        !           186:                        total_events=0;
        !           187:                        bail(1);
        !           188:             continue; }
        !           189:                if((event[i]=(event_t *)MALLOC(sizeof(event_t)))==NULL) {
        !           190:                        errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(event_t));
        !           191:                        continue; }
        !           192:                memset((event_t *)event[i],0,sizeof(event_t));
        !           193:                strcpy(event[i]->code,str);
        !           194:                event[i]->node=1;
        !           195:                event[i]->days=0xff;
        !           196:                total_events++;
        !           197:                changes=1;
        !           198:                continue; }
        !           199:        if((i&MSK_ON)==MSK_DEL) {
        !           200:                i&=MSK_OFF;
        !           201:                FREE(event[i]);
        !           202:                total_events--;
        !           203:                for(j=i;j<total_events;j++)
        !           204:                        event[j]=event[j+1];
        !           205:                changes=1;
        !           206:                continue; }
        !           207:        if((i&MSK_ON)==MSK_GET) {
        !           208:                i&=MSK_OFF;
        !           209:                savevent=*event[i];
        !           210:                continue; }
        !           211:        if((i&MSK_ON)==MSK_PUT) {
        !           212:                i&=MSK_OFF;
        !           213:                *event[i]=savevent;
        !           214:                changes=1;
        !           215:         continue; }
        !           216:        done=0;
        !           217:        while(!done) {
        !           218:                k=0;
        !           219:                sprintf(opt[k++],"%-32.32s%s","Internal Code",event[i]->code);
        !           220:                sprintf(opt[k++],"%-32.32s%.40s","Start-up Directory",event[i]->dir);
        !           221:                sprintf(opt[k++],"%-32.32s%.40s","Command Line",event[i]->cmd);
        !           222:                sprintf(opt[k++],"%-32.32s%u","Execution Node",event[i]->node);
        !           223:                sprintf(opt[k++],"%-32.32s%s","Execution Days",daystr(event[i]->days));
        !           224:                sprintf(opt[k++],"%-32.32s%02u:%02u","Execution Time"
        !           225:                        ,event[i]->time/60,event[i]->time%60);
        !           226:                sprintf(opt[k++],"%-32.32s%s","Requires Exclusive Execution"
        !           227:                        ,event[i]->misc&EVENT_EXCL ? "Yes":"No");
        !           228:                sprintf(opt[k++],"%-32.32s%s","Force Users Off-line For Event"
        !           229:                        ,event[i]->misc&EVENT_FORCE ? "Yes":"No");
        !           230:                opt[k][0]=0;
        !           231:                SETHELP(WHERE);
        !           232: /*
        !           233: &Timed Event:&
        !           234: 
        !           235: This is the configuration menu for a timed event. An event is an
        !           236: external program that performs some type of automated function on the
        !           237: system. Use this menu to configure how and when this event will be
        !           238: executed.
        !           239: 
        !           240: If you need the BBS to swap out of memory for this event (to make more
        !           241: available memory), add the program name (first word of the command line)
        !           242: to &Global Swap List& from the &External Programs& menu.
        !           243: */
        !           244:                savnum=1;
        !           245:                sprintf(str,"%s Timed Event",event[i]->code);
        !           246:                switch(ulist(WIN_SAV|WIN_ACT|WIN_L2R|WIN_BOT,0,0,70,&dfltopt,0
        !           247:                        ,str,opt)) {
        !           248:                        case -1:
        !           249:                                done=1;
        !           250:                                break;
        !           251:                        case 0:
        !           252:                                strcpy(str,event[i]->code);
        !           253:                                SETHELP(WHERE);
        !           254: /*
        !           255: &Timed Event Internal Code:&
        !           256: 
        !           257: Every timed event must have its own unique internal code for Synchronet
        !           258: to reference it by. It is helpful if this code is an abreviation of the
        !           259: command line.
        !           260: */
        !           261:                                uinput(WIN_MID|WIN_SAV,0,17,"Internal Code (unique)"
        !           262:                                        ,str,8,K_EDIT|K_UPPER);
        !           263:                                if(code_ok(str))
        !           264:                                        strcpy(event[i]->code,str);
        !           265:                                else {
        !           266:                                        helpbuf=invalid_code;
        !           267:                                        umsg("Invalid Code");
        !           268:                                        helpbuf=0; }
        !           269:                 break;
        !           270:                        case 1:
        !           271:                                SETHELP(WHERE);
        !           272: /*
        !           273: &Timed Event Start-up Directory:&
        !           274: 
        !           275: This is the DOS drive/directory where the event program is located.
        !           276: If a path is specified here, it will be made the current directory
        !           277: before the event's command line is executed. This eliminates the need
        !           278: for batch files that just change the current drive and directory before
        !           279: executing the event.
        !           280: 
        !           281: If this option is not used, the current NODE's directory will be the
        !           282: current DOS drive/directory before the command line is executed.
        !           283: */
        !           284:                                uinput(WIN_MID|WIN_SAV,0,10,"Directory"
        !           285:                                        ,event[i]->dir,50,K_EDIT|K_UPPER);
        !           286:                 break;
        !           287:                        case 2:
        !           288:                                SETHELP(WHERE);
        !           289: /*
        !           290: &Timed Event Command Line:&
        !           291: 
        !           292: This is the command line to execute upon this timed event.
        !           293: */
        !           294:                                uinput(WIN_MID|WIN_SAV,0,10,"Command"
        !           295:                                        ,event[i]->cmd,50,K_EDIT);
        !           296:                                break;
        !           297:                        case 3:
        !           298:                                SETHELP(WHERE);
        !           299: /*
        !           300: &Timed Event Node:&
        !           301: 
        !           302: This is the node number to execute the timed event.
        !           303: */
        !           304:                                sprintf(str,"%u",event[i]->node);
        !           305:                                uinput(WIN_MID|WIN_SAV,0,0,"Node Number"
        !           306:                                        ,str,3,K_EDIT|K_NUMBER);
        !           307:                                event[i]->node=atoi(str);
        !           308:                                break;
        !           309:                        case 4:
        !           310:                                j=0;
        !           311:                                while(1) {
        !           312:                                        for(k=0;k<7;k++)
        !           313:                                                sprintf(opt[k],"%s        %s"
        !           314:                                                        ,wday[k],(event[i]->days&(1<<k)) ? "Yes":"No");
        !           315:                                        opt[k][0]=0;
        !           316:                                        savnum=2;
        !           317:                                        SETHELP(WHERE);
        !           318: /*
        !           319: &Days to Execute Event:&
        !           320: 
        !           321: These are the days of the week that this event will be executed.
        !           322: */
        !           323:                                        k=ulist(WIN_MID|WIN_SAV,0,0,0,&j,0
        !           324:                                                ,"Days to Execute Event",opt);
        !           325:                                        if(k==-1)
        !           326:                                                break;
        !           327:                                        event[i]->days^=(1<<k);
        !           328:                                        changes=1; }
        !           329:                                break;
        !           330:                        case 5:
        !           331:                                sprintf(str,"%2.2d:%2.2d",event[i]->time/60
        !           332:                                        ,event[i]->time%60);
        !           333:                                SETHELP(WHERE);
        !           334: /*
        !           335: &Time to Execute Event:&
        !           336: 
        !           337: This is the time (in 24 hour HH:MM format) to execute the event.
        !           338: */
        !           339:                                if(uinput(WIN_MID|WIN_SAV,0,0
        !           340:                                        ,"Time to Execute Event (HH:MM)"
        !           341:                                        ,str,5,K_UPPER|K_EDIT)>0) {
        !           342:                                        event[i]->time=atoi(str)*60;
        !           343:                                        if((p=strchr(str,':'))!=NULL)
        !           344:                                                event[i]->time+=atoi(p+1); }
        !           345:                                break;
        !           346:                        case 6:
        !           347:                                k=1;
        !           348:                                strcpy(opt[0],"Yes");
        !           349:                                strcpy(opt[1],"No");
        !           350:                                opt[2][0]=0;
        !           351:                                savnum=2;
        !           352:                                SETHELP(WHERE);
        !           353: /*
        !           354: &Exclusive Event Execution:&
        !           355: 
        !           356: If this event must be run exclusively (all nodes inactive), set this
        !           357: option to &Yes&.
        !           358: */
        !           359:                                k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0,"Exclusive Execution"
        !           360:                                        ,opt);
        !           361:                                if(!k && !(event[i]->misc&EVENT_EXCL)) {
        !           362:                                        event[i]->misc|=EVENT_EXCL;
        !           363:                                        changes=1; }
        !           364:                                else if(k==1 && event[i]->misc&EVENT_EXCL) {
        !           365:                                        event[i]->misc&=~EVENT_EXCL;
        !           366:                                        changes=1; }
        !           367:                 break;
        !           368:                        case 7:
        !           369:                                k=1;
        !           370:                                strcpy(opt[0],"Yes");
        !           371:                                strcpy(opt[1],"No");
        !           372:                                opt[2][0]=0;
        !           373:                                savnum=2;
        !           374:                                SETHELP(WHERE);
        !           375: /*
        !           376: &Force Users Off-line for Event:&
        !           377: 
        !           378: If you want to have your users' on-line time reduced so the event can
        !           379: execute precisely on time, set this option to &Yes&.
        !           380: */
        !           381:                                k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0
        !           382:                                        ,"Force Users Off-line for Event",opt);
        !           383:                                if(!k && !(event[i]->misc&EVENT_FORCE)) {
        !           384:                                        event[i]->misc|=EVENT_FORCE;
        !           385:                                        changes=1; }
        !           386:                                else if(k==1 && event[i]->misc&EVENT_FORCE) {
        !           387:                                        event[i]->misc&=~EVENT_FORCE;
        !           388:                     changes=1; }
        !           389:                 break;
        !           390: 
        !           391:                                } } }
        !           392: }
        !           393: 
        !           394: 
        !           395: void xtrn_cfg(uint section)
        !           396: {
        !           397:        static int ext_dflt,ext_bar,opt_dflt,time_dflt;
        !           398:        char str[128],code[9],done=0,*p;
        !           399:        int j,k;
        !           400:        uint i,n,xtrnnum[MAX_OPTS+1];
        !           401:        static xtrn_t savxtrn;
        !           402: 
        !           403: while(1) {
        !           404:        for(i=0,j=0;i<total_xtrns && j<MAX_OPTS;i++)
        !           405:                if(xtrn[i]->sec==section) {
        !           406:                        sprintf(opt[j],"%-25s",xtrn[i]->name);
        !           407:                        xtrnnum[j++]=i; }
        !           408:        xtrnnum[j]=total_xtrns;
        !           409:        opt[j][0]=0;
        !           410:        savnum=2;
        !           411:        i=WIN_ACT|WIN_CHE|WIN_SAV|WIN_RHT;
        !           412:        if(j)
        !           413:                i|=WIN_DEL|WIN_GET;
        !           414:        if(total_xtrns<MAX_OPTS)
        !           415:                i|=WIN_INS|WIN_INSACT|WIN_XTR;
        !           416:        if(savxtrn.name[0])
        !           417:                i|=WIN_PUT;
        !           418:        SETHELP(WHERE);
        !           419: /*
        !           420: &Online External Programs:&
        !           421: 
        !           422: This is a list of the configured online external programs (doors).
        !           423: 
        !           424: To add a program, select the desired location with the arrow keys and
        !           425: hit  INS .
        !           426: 
        !           427: To delete a program, select it with the arrow keys and hit  DEL .
        !           428: 
        !           429: To configure a program, select it with the arrow keys and hit  ENTER .
        !           430: */
        !           431:        sprintf(str,"%s Online Programs",xtrnsec[section]->name);
        !           432:        i=ulist(i,0,0,45,&ext_dflt,&ext_bar,str,opt);
        !           433:        if((signed)i==-1)
        !           434:                return;
        !           435:        if((i&MSK_ON)==MSK_INS) {
        !           436:                i&=MSK_OFF;
        !           437:                SETHELP(WHERE);
        !           438: /*
        !           439: &Online Program Name:&
        !           440: 
        !           441: This is the name or description of the online program (door).
        !           442: */
        !           443:                if(uinput(WIN_MID|WIN_SAV,0,0,"Online Program Name",str,25
        !           444:                        ,0)<1)
        !           445:             continue;
        !           446:                sprintf(code,"%.8s",str);
        !           447:                p=strchr(code,SP);
        !           448:                if(p) *p=0;
        !           449:         strupr(code);
        !           450:                SETHELP(WHERE);
        !           451: /*
        !           452: &Online Program Internal Code:&
        !           453: 
        !           454: Every online program must have its own unique code for Synchronet to
        !           455: refer to it internally. This code is usually an abreviation of the
        !           456: online program name.
        !           457: */
        !           458:                if(uinput(WIN_MID|WIN_SAV,0,0,"Internal Code"
        !           459:                        ,code,8,K_EDIT|K_UPPER)<1)
        !           460:                        continue;
        !           461:                if(!code_ok(code)) {
        !           462:                        helpbuf=invalid_code;
        !           463:                        umsg("Invalid Code");
        !           464:                        helpbuf=0;
        !           465:             continue; }
        !           466:                if((xtrn=(xtrn_t **)REALLOC(xtrn,sizeof(xtrn_t *)*(total_xtrns+1)))
        !           467:             ==NULL) {
        !           468:             errormsg(WHERE,ERR_ALLOC,nulstr,total_xtrns+1);
        !           469:                        total_xtrns=0;
        !           470:                        bail(1);
        !           471:             continue; }
        !           472:                if(j)
        !           473:                        for(n=total_xtrns;n>xtrnnum[i];n--)
        !           474:                                xtrn[n]=xtrn[n-1];
        !           475:                if((xtrn[xtrnnum[i]]=(xtrn_t *)MALLOC(sizeof(xtrn_t)))==NULL) {
        !           476:                        errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(xtrn_t));
        !           477:                        continue; }
        !           478:                memset((xtrn_t *)xtrn[xtrnnum[i]],0,sizeof(xtrn_t));
        !           479:                strcpy(xtrn[xtrnnum[i]]->name,str);
        !           480:                strcpy(xtrn[xtrnnum[i]]->code,code);
        !           481:                xtrn[xtrnnum[i]]->sec=section;
        !           482:                total_xtrns++;
        !           483:                changes=1;
        !           484:                continue; }
        !           485:        if((i&MSK_ON)==MSK_DEL) {
        !           486:                i&=MSK_OFF;
        !           487:                FREE(xtrn[xtrnnum[i]]);
        !           488:                total_xtrns--;
        !           489:                for(j=xtrnnum[i];j<total_xtrns;j++)
        !           490:                        xtrn[j]=xtrn[j+1];
        !           491:                changes=1;
        !           492:                continue; }
        !           493:        if((i&MSK_ON)==MSK_GET) {
        !           494:                i&=MSK_OFF;
        !           495:                savxtrn=*xtrn[xtrnnum[i]];
        !           496:                continue; }
        !           497:        if((i&MSK_ON)==MSK_PUT) {
        !           498:                i&=MSK_OFF;
        !           499:                *xtrn[xtrnnum[i]]=savxtrn;
        !           500:                xtrn[xtrnnum[i]]->sec=section;
        !           501:                changes=1;
        !           502:         continue; }
        !           503:        done=0;
        !           504:        i=xtrnnum[i];
        !           505:        while(!done) {
        !           506:                k=0;
        !           507:                sprintf(opt[k++],"%-27.27s%s","Name",xtrn[i]->name);
        !           508:                sprintf(opt[k++],"%-27.27s%s","Internal Code",xtrn[i]->code);
        !           509:                sprintf(opt[k++],"%-27.27s%.40s","Start-up Directory",xtrn[i]->path);
        !           510:                sprintf(opt[k++],"%-27.27s%.40s","Command Line",xtrn[i]->cmd);
        !           511:                sprintf(opt[k++],"%-27.27s%.40s","Clean-up Command Line",xtrn[i]->clean);
        !           512:                if(xtrn[i]->cost)
        !           513:                        sprintf(str,"%lu credits",xtrn[i]->cost);
        !           514:                else
        !           515:                        strcpy(str,"None");
        !           516:                sprintf(opt[k++],"%-27.27s%s","Execution Cost",str);
        !           517:                sprintf(opt[k++],"%-27.27s%.40s","Access Requirements",xtrn[i]->ar);
        !           518:                sprintf(opt[k++],"%-27.27s%.40s","Execution Requirements"
        !           519:                        ,xtrn[i]->run_ar);
        !           520:                sprintf(opt[k++],"%-27.27s%s","Multiple Concurrent Users"
        !           521:                        ,xtrn[i]->misc&MULTIUSER ? "Yes" : "No");
        !           522:                sprintf(opt[k++],"%-27.27s%s%s","Intercept I/O Interrupts"
        !           523:                        ,xtrn[i]->misc&IO_INTS ? "Yes" : "No"
        !           524:                        ,xtrn[i]->misc&WWIVCOLOR ? ", WWIV" : nulstr);
        !           525:                sprintf(opt[k++],"%-27.27s%s","Swap BBS out of Memory"
        !           526:                        ,xtrn[i]->misc&SWAP ? "Yes" : "No");
        !           527:                sprintf(opt[k++],"%-27.27s%s","Modify User Data"
        !           528:             ,xtrn[i]->misc&MODUSERDAT ? "Yes" : "No");
        !           529:                switch(xtrn[i]->event) {
        !           530:                        case EVENT_LOGON:
        !           531:                                strcpy(str,"Logon");
        !           532:                                break;
        !           533:                        case EVENT_LOGOFF:
        !           534:                                strcpy(str,"Logoff");
        !           535:                                break;
        !           536:                        case EVENT_NEWUSER:
        !           537:                                strcpy(str,"New User");
        !           538:                                break;
        !           539:                        case EVENT_BIRTHDAY:
        !           540:                                strcpy(str,"Birthday");
        !           541:                                break;
        !           542:                        default:
        !           543:                                strcpy(str,"No");
        !           544:                                break; }
        !           545:                if(xtrn[i]->misc&EVENTONLY && xtrn[i]->event)
        !           546:                        strcat(str,", Only");
        !           547:                sprintf(opt[k++],"%-27.27s%s","Execute on Event",str);
        !           548:                switch(xtrn[i]->type) {
        !           549:                        case XTRN_SBBS:
        !           550:                                sprintf(str,"%-15s %s","Synchronet","XTRN.DAT");
        !           551:                                break;
        !           552:                        case XTRN_WWIV:
        !           553:                                sprintf(str,"%-15s %s","WWIV","CHAIN.TXT");
        !           554:                                break;
        !           555:                        case XTRN_GAP:
        !           556:                                sprintf(str,"%-15s %s","GAP","DOOR.SYS");
        !           557:                                break;
        !           558:                        case XTRN_RBBS:
        !           559:                                sprintf(str,"%-15s %s","RBBS/QuickBBS","DORINFO#.DEF");
        !           560:                                break;
        !           561:                        case XTRN_RBBS1:
        !           562:                                sprintf(str,"%-15s %s","RBBS/QuickBBS","DORINFO1.DEF");
        !           563:                 break;
        !           564:                        case XTRN_WILDCAT:
        !           565:                                sprintf(str,"%-15s %s","Wildcat","CALLINFO.BBS");
        !           566:                                break;
        !           567:                        case XTRN_PCBOARD:
        !           568:                                sprintf(str,"%-15s %s","PCBoard","PCBOARD.SYS");
        !           569:                                break;
        !           570:                        case XTRN_SPITFIRE:
        !           571:                                sprintf(str,"%-15s %s","SpitFire","SFDOORS.DAT");
        !           572:                                break;
        !           573:                        case XTRN_UTI:
        !           574:                                sprintf(str,"%-15s %s","MegaMail","UTIDOOR.TXT");
        !           575:                                break;
        !           576:                        case XTRN_SR:
        !           577:                                sprintf(str,"%-15s %s","Solar Realms","DOORFILE.SR");
        !           578:                                break;
        !           579:                        case XTRN_TRIBBS:
        !           580:                                sprintf(str,"%-15s %s","TriBBS","TRIBBS.SYS");
        !           581:                                break;
        !           582:                        default:
        !           583:                                strcpy(str,"None");
        !           584:                                break; }
        !           585:                sprintf(opt[k++],"%-23.23s%-4s%s","BBS Drop File Type"
        !           586:                        ,xtrn[i]->misc&REALNAME ? "(R)":nulstr,str);
        !           587:                sprintf(opt[k++],"%-27.27s%s","Place Drop File In"
        !           588:                        ,xtrn[i]->misc&STARTUPDIR ? "Start-Up Directory":"Node Directory");
        !           589:                sprintf(opt[k++],"Time Options...");
        !           590:                opt[k][0]=0;
        !           591:                savnum=3;
        !           592:                SETHELP(WHERE);
        !           593: /*
        !           594: &Online Program Configuration:&
        !           595: 
        !           596: This menu is for configuring the selected online program.
        !           597: */
        !           598:                switch(ulist(WIN_SAV|WIN_ACT|WIN_MID,0,0,60,&opt_dflt,0,xtrn[i]->name
        !           599:                        ,opt)) {
        !           600:                        case -1:
        !           601:                                done=1;
        !           602:                                break;
        !           603:                        case 0:
        !           604:                                SETHELP(WHERE);
        !           605: /*
        !           606: &Online Program Name:&
        !           607: 
        !           608: This is the name or description of the online program (door).
        !           609: */
        !           610:                                strcpy(str,xtrn[i]->name);
        !           611:                                if(!uinput(WIN_MID|WIN_SAV,0,10,"Online Program Name"
        !           612:                                        ,xtrn[i]->name,25,K_EDIT))
        !           613:                                        strcpy(xtrn[i]->name,str);
        !           614:                                break;
        !           615:                        case 1:
        !           616:                                SETHELP(WHERE);
        !           617: /*
        !           618: &Online Program Internal Code:&
        !           619: 
        !           620: Every online program must have its own unique code for Synchronet to
        !           621: refer to it internally. This code is usually an abreviation of the
        !           622: online program name.
        !           623: */
        !           624:                                strcpy(str,xtrn[i]->code);
        !           625:                                uinput(WIN_MID|WIN_SAV,0,10,"Internal Code"
        !           626:                                        ,str,8,K_UPPER|K_EDIT);
        !           627:                                if(code_ok(str))
        !           628:                                        strcpy(xtrn[i]->code,str);
        !           629:                                else {
        !           630:                                        helpbuf=invalid_code;
        !           631:                                        umsg("Invalid Code");
        !           632:                     helpbuf=0; }
        !           633:                 break;
        !           634:                        case 2:
        !           635:                 SETHELP(WHERE);
        !           636: /*
        !           637: &Online Program Start-up Directory:&
        !           638: 
        !           639: This is the DOS drive/directory where the online program is located.
        !           640: If a path is specified here, it will be made the current directory
        !           641: before the program's command line is executed. This eliminates the need
        !           642: for batch files that just change the current drive and directory before
        !           643: executing the program.
        !           644: 
        !           645: If this option is not used, the current NODE's directory will be the
        !           646: current DOS drive/directory before the command line is executed.
        !           647: */
        !           648:                                uinput(WIN_MID|WIN_SAV,0,10,"Directory"
        !           649:                                        ,xtrn[i]->path,50,K_EDIT|K_UPPER);
        !           650:                 break;
        !           651:                        case 3:
        !           652:                                SETHELP(WHERE);
        !           653: /*
        !           654: &Online Program Command Line:&
        !           655: 
        !           656: This is the command line to execute to run the online program.
        !           657: */
        !           658:                                uinput(WIN_MID|WIN_SAV,0,10,"Command"
        !           659:                                        ,xtrn[i]->cmd,50,K_EDIT);
        !           660:                                break;
        !           661:                        case 4:
        !           662:                                SETHELP(WHERE);
        !           663: /*
        !           664: &Online Program Clean-up Command:&
        !           665: 
        !           666: This is the command line to execute after the main command line. This
        !           667: option is usually only used for multiuser online programs.
        !           668: */
        !           669:                                uinput(WIN_MID|WIN_SAV,0,10,"Clean-up"
        !           670:                                        ,xtrn[i]->clean,50,K_EDIT);
        !           671:                 break;
        !           672:                        case 5:
        !           673:                 ultoa(xtrn[i]->cost,str,10);
        !           674:                 SETHELP(WHERE);
        !           675: /*
        !           676: &Online Program Cost to Run:&
        !           677: 
        !           678: If you want users to be charged credits to run this online program,
        !           679: set this value to the number of credits to charge. If you want this
        !           680: online program to be free, set this value to &0&.
        !           681: */
        !           682:                 uinput(WIN_MID|WIN_SAV,0,0,"Cost to Run (in Credits)"
        !           683:                     ,str,10,K_EDIT|K_NUMBER);
        !           684:                 xtrn[i]->cost=atol(str);
        !           685:                 break;
        !           686:                        case 6:
        !           687:                                savnum=4;
        !           688:                                sprintf(str,"%s Access",xtrn[i]->name);
        !           689:                                getar(str,xtrn[i]->ar);
        !           690:                 break;
        !           691:                        case 7:
        !           692:                                savnum=4;
        !           693:                                sprintf(str,"%s Execution",xtrn[i]->name);
        !           694:                                getar(str,xtrn[i]->run_ar);
        !           695:                 break;
        !           696:                        case 8:
        !           697:                                k=1;
        !           698:                                strcpy(opt[0],"Yes");
        !           699:                                strcpy(opt[1],"No");
        !           700:                                opt[2][0]=0;
        !           701:                                SETHELP(WHERE);
        !           702: /*
        !           703: &Supports Multiple Users:&
        !           704: 
        !           705: If this online program supports multiple simultaneous users (nodes),
        !           706: set this option to &Yes&.
        !           707: */
        !           708:                                savnum=4;
        !           709:                                k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0,"Supports Multiple Users"
        !           710:                                        ,opt);
        !           711:                                if(!k && !(xtrn[i]->misc&MULTIUSER)) {
        !           712:                                        xtrn[i]->misc|=MULTIUSER;
        !           713:                                        changes=1; }
        !           714:                                else if(k==1 && xtrn[i]->misc&MULTIUSER) {
        !           715:                                        xtrn[i]->misc&=~MULTIUSER;
        !           716:                                        changes=1; }
        !           717:                 break;
        !           718:                        case 9:
        !           719:                                k=1;
        !           720:                                strcpy(opt[0],"Yes");
        !           721:                                strcpy(opt[1],"No");
        !           722:                                opt[2][0]=0;
        !           723:                                SETHELP(WHERE);
        !           724: /*
        !           725: &Intercept I/O Interrupts:&
        !           726: 
        !           727: If this online program has its own serial communication abilities, set
        !           728: this option to &No&.
        !           729: */
        !           730:                                savnum=4;
        !           731:                                k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0,"Intercept I/O Interrupts"
        !           732:                                        ,opt);
        !           733:                                if(!k && !(xtrn[i]->misc&IO_INTS)) {
        !           734:                                        xtrn[i]->misc|=IO_INTS;
        !           735:                                        changes=1; }
        !           736:                                else if(k==1 && xtrn[i]->misc&IO_INTS) {
        !           737:                                        xtrn[i]->misc&=~(IO_INTS|WWIVCOLOR);
        !           738:                                        changes=1; }
        !           739:                                if(!(xtrn[i]->misc&IO_INTS))
        !           740:                                        break;
        !           741:                                k=1;
        !           742:                                strcpy(opt[0],"Yes");
        !           743:                                strcpy(opt[1],"No");
        !           744:                                opt[2][0]=0;
        !           745:                                SETHELP(WHERE);
        !           746: /*
        !           747: &Program Uses WWIV Color Codes:&
        !           748: 
        !           749: If this program was written for use exclusively under WWIV, set this
        !           750: option to &Yes&.
        !           751: */
        !           752:                                savnum=4;
        !           753:                                k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0
        !           754:                                        ,"Program Uses WWIV Color Codes"
        !           755:                                        ,opt);
        !           756:                                if(!k && !(xtrn[i]->misc&WWIVCOLOR)) {
        !           757:                                        xtrn[i]->misc|=WWIVCOLOR;
        !           758:                                        changes=1; }
        !           759:                                else if(k==1 && xtrn[i]->misc&WWIVCOLOR) {
        !           760:                                        xtrn[i]->misc&=~WWIVCOLOR;
        !           761:                     changes=1; }
        !           762:                 break;
        !           763:                        case 10:
        !           764:                                k=0;
        !           765:                                strcpy(opt[0],"Yes");
        !           766:                                strcpy(opt[1],"No");
        !           767:                                opt[2][0]=0;
        !           768:                                SETHELP(WHERE);
        !           769: /*
        !           770: &Swap BBS out of Memory to Run Executable:&
        !           771: 
        !           772: If this online programs requires a large amount of free memory,
        !           773: set this option to &Yes& to have the BBS swapped out of memory.
        !           774: */
        !           775:                                savnum=4;
        !           776:                                k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0
        !           777:                                        ,"Swap BBS out of Memory",opt);
        !           778:                                if(!k && !(xtrn[i]->misc&SWAP)) {
        !           779:                                        xtrn[i]->misc|=SWAP;
        !           780:                                        changes=1; }
        !           781:                                else if(k==1 && xtrn[i]->misc&SWAP) {
        !           782:                                        xtrn[i]->misc&=~SWAP;
        !           783:                                        changes=1; }
        !           784:                                break;
        !           785:                        case 11:
        !           786:                                k=1;
        !           787:                                strcpy(opt[0],"Yes");
        !           788:                                strcpy(opt[1],"No");
        !           789:                                opt[2][0]=0;
        !           790:                                SETHELP(WHERE);
        !           791: /*
        !           792: &Program Can Modify User Data:&
        !           793: 
        !           794: If this online programs recognizes the Synchronet MODUSER.DAT format
        !           795: or the RBBS/QuickBBS EXITINFO.BBS format and you want it to be able to
        !           796: modify the data of users who run the program, set this option to &Yes&.
        !           797: */
        !           798:                                savnum=4;
        !           799:                                k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0
        !           800:                                        ,"Program Can Modify User Data",opt);
        !           801:                                if(!k && !(xtrn[i]->misc&MODUSERDAT)) {
        !           802:                                        xtrn[i]->misc|=MODUSERDAT;
        !           803:                                        changes=1; }
        !           804:                                else if(k==1 && xtrn[i]->misc&MODUSERDAT) {
        !           805:                                        xtrn[i]->misc&=~MODUSERDAT;
        !           806:                                        changes=1; }
        !           807:                 break;
        !           808:                        case 12:
        !           809:                                k=0;
        !           810:                                strcpy(opt[k++],"No");
        !           811:                                strcpy(opt[k++],"Logon");
        !           812:                                strcpy(opt[k++],"Logoff");
        !           813:                                strcpy(opt[k++],"New User");
        !           814:                                strcpy(opt[k++],"Birthday");
        !           815:                                opt[k][0]=0;
        !           816:                                switch(xtrn[i]->event) {
        !           817:                                        default:
        !           818:                                                k=0;
        !           819:                                                break;
        !           820:                                        case EVENT_LOGON:
        !           821:                                                k=1;
        !           822:                                                break;
        !           823:                                        case EVENT_LOGOFF:
        !           824:                                                k=2;
        !           825:                                                break;
        !           826:                                        case EVENT_NEWUSER:
        !           827:                                                k=3;
        !           828:                                                break;
        !           829:                                        case EVENT_BIRTHDAY:
        !           830:                                                k=4;
        !           831:                                                break; }
        !           832:                                SETHELP(WHERE);
        !           833: /*
        !           834: &Execute Online Program on Event:&
        !           835: 
        !           836: If you would like this online program to automatically execute on a
        !           837: specific user event, select the event. Otherwise, select &No&.
        !           838: */
        !           839:                                savnum=4;
        !           840:                                k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0
        !           841:                                        ,"Execute on Event",opt);
        !           842:                                if(k==-1)
        !           843:                                        break;
        !           844:                                if(xtrn[i]->event!=k) {
        !           845:                                        xtrn[i]->event=k;
        !           846:                                        changes=1; }
        !           847:                                if(!xtrn[i]->event)
        !           848:                                        break;
        !           849:                                k=1;
        !           850:                 strcpy(opt[0],"Yes");
        !           851:                 strcpy(opt[1],"No");
        !           852:                                opt[2][0]=0;
        !           853:                                SETHELP(WHERE);
        !           854: /*
        !           855: &Execute Online Program as Event Only:&
        !           856: 
        !           857: If you would like this online program to execute as an event only
        !           858: (not available to users on the online program menu), set this option
        !           859: to &Yes&.
        !           860: */
        !           861:                                savnum=4;
        !           862:                                k=ulist(WIN_MID|WIN_SAV,0,0,0,&k
        !           863:                                        ,0,"Execute as Event Only"
        !           864:                     ,opt);
        !           865:                 if(!k && !(xtrn[i]->misc&EVENTONLY)) {
        !           866:                     xtrn[i]->misc|=EVENTONLY;
        !           867:                     changes=1; }
        !           868:                 else if(k==1 && xtrn[i]->misc&EVENTONLY) {
        !           869:                     xtrn[i]->misc&=~EVENTONLY;
        !           870:                     changes=1; }
        !           871:                 break;
        !           872:                        case 13:
        !           873:                                k=0;
        !           874:                                strcpy(opt[k++],"None");
        !           875:                                sprintf(opt[k++],"%-15s %s","Synchronet","XTRN.DAT");
        !           876:                                sprintf(opt[k++],"%-15s %s","WWIV","CHAIN.TXT");
        !           877:                                sprintf(opt[k++],"%-15s %s","GAP","DOOR.SYS");
        !           878:                                sprintf(opt[k++],"%-15s %s","RBBS/QuickBBS","DORINFO#.DEF");
        !           879:                                sprintf(opt[k++],"%-15s %s","Wildcat","CALLINFO.BBS");
        !           880:                                sprintf(opt[k++],"%-15s %s","PCBoard","PCBOARD.SYS");
        !           881:                                sprintf(opt[k++],"%-15s %s","SpitFire","SFDOORS.DAT");
        !           882:                                sprintf(opt[k++],"%-15s %s","MegaMail","UTIDOOR.TXT");
        !           883:                                sprintf(opt[k++],"%-15s %s","Solar Realms","DOORFILE.SR");
        !           884:                                sprintf(opt[k++],"%-15s %s","RBBS/QuickBBS","DORINFO1.DEF");
        !           885:                                sprintf(opt[k++],"%-15s %s","TriBBS","TRIBBS.SYS");
        !           886:                                opt[k][0]=0;
        !           887:                                k=xtrn[i]->type;
        !           888:                                SETHELP(WHERE);
        !           889: /*
        !           890: &Online Program BBS Drop File Type:&
        !           891: 
        !           892: If this online program requires a specific BBS data (drop) file
        !           893: format, select the file format from the list.
        !           894: */
        !           895:                                savnum=4;
        !           896:                                k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0
        !           897:                                        ,"BBS Drop File Type",opt);
        !           898:                                if(k==-1)
        !           899:                                        break;
        !           900:                                if(xtrn[i]->type!=k) {
        !           901:                                        xtrn[i]->type=k;
        !           902:                                        changes=1; }
        !           903:                                if(xtrn[i]->type && uq&UQ_ALIASES) {
        !           904:                                        strcpy(opt[0],"Yes");
        !           905:                                        strcpy(opt[1],"No");
        !           906:                                        opt[2][0]=0;
        !           907:                                        k=1;
        !           908:                                        k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0,"Use Real Names",opt);
        !           909:                                        if(k==0 && !(xtrn[i]->misc&REALNAME)) {
        !           910:                                                xtrn[i]->misc|=REALNAME;
        !           911:                                                changes=1; }
        !           912:                                        else if(k==1 && xtrn[i]->misc&REALNAME) {
        !           913:                                                xtrn[i]->misc&=~REALNAME;
        !           914:                                                changes=1; } }
        !           915:                                break;
        !           916:                        case 14:
        !           917:                                k=0;
        !           918:                                strcpy(opt[0],"Node Directory");
        !           919:                                strcpy(opt[1],"Start-up Directory");
        !           920:                                opt[2][0]=0;
        !           921:                                SETHELP(WHERE);
        !           922: /*
        !           923: &Directory for Drop File:&
        !           924: 
        !           925: You can have the data file created in the current &Node Directory& or the
        !           926: &Start-up Directory& (if one is specified).
        !           927: */
        !           928:                                savnum=4;
        !           929:                                k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0,"Create Drop File In"
        !           930:                     ,opt);
        !           931:                                if(!k && xtrn[i]->misc&STARTUPDIR) {
        !           932:                                        xtrn[i]->misc&=~STARTUPDIR;
        !           933:                     changes=1; }
        !           934:                                else if(k==1 && !(xtrn[i]->misc&STARTUPDIR)) {
        !           935:                                        xtrn[i]->misc|=STARTUPDIR;
        !           936:                     changes=1; }
        !           937:                                break;
        !           938:                        case 15:
        !           939:                                while(1) {
        !           940:                                        k=0;
        !           941:                                        if(xtrn[i]->textra)
        !           942:                                                sprintf(str,"%u minutes",xtrn[i]->textra);
        !           943:                                        else
        !           944:                                                strcpy(str,"None");
        !           945:                                        sprintf(opt[k++],"%-25.25s%s","Extra Time",str);
        !           946:                                        if(xtrn[i]->maxtime)
        !           947:                                                sprintf(str,"%u minutes",xtrn[i]->maxtime);
        !           948:                                        else
        !           949:                                                strcpy(str,"None");
        !           950:                                        sprintf(opt[k++],"%-25.25s%s","Maximum Time",str);
        !           951:                                        sprintf(opt[k++],"%-25.25s%s","Suspended (Free) Time"
        !           952:                                                ,xtrn[i]->misc&FREETIME ? "Yes" : "No");
        !           953:                                        opt[k][0]=0;
        !           954:                                        SETHELP(WHERE);
        !           955: /*
        !           956: &Online Program Time Options:&
        !           957: 
        !           958: This sub-menu allows you to define specific preferences regarding the
        !           959: time users spend running this program.
        !           960: */
        !           961:                                        savnum=4;
        !           962:                                        k=ulist(WIN_SAV|WIN_ACT|WIN_RHT|WIN_BOT,0,0,40
        !           963:                                                ,&time_dflt,0
        !           964:                                                ,"Online Program Time Options",opt);
        !           965:                                        if(k==-1)
        !           966:                                                break;
        !           967:                                        savnum=5;
        !           968:                                        switch(k) {
        !           969:                                                case 0:
        !           970:                                                        itoa(xtrn[i]->textra,str,10);
        !           971:                                                        SETHELP(WHERE);
        !           972: /*
        !           973: &Extra Time to Give User in Program:&
        !           974: 
        !           975: If you want to give users extra time while in this online program,
        !           976: set this value to the number of minutes to add to their current time
        !           977: left online.
        !           978: */
        !           979:                                                        uinput(WIN_MID|WIN_SAV,0,0
        !           980:                                                                ,"Extra Time to Give User (in minutes)"
        !           981:                                                                ,str,2,K_EDIT|K_NUMBER);
        !           982:                                                        xtrn[i]->textra=atoi(str);
        !           983:                                                        break;
        !           984:                                                case 1:
        !           985:                                                        itoa(xtrn[i]->maxtime,str,10);
        !           986:                                                        SETHELP(WHERE);
        !           987: /*
        !           988: &Maximum Time Allowed in Program:&
        !           989: 
        !           990: If this program supports a drop file that contains the number of minutes
        !           991: left online for the current user, this option allows the sysop to set
        !           992: the maximum number of minutes that will be allowed in the drop file.
        !           993: 
        !           994: Setting this option to &0&, disables this feature.
        !           995: */
        !           996:                                                        uinput(WIN_MID|WIN_SAV,0,0
        !           997:                                                                ,"Maximum Time (in minutes, 0=disabled)"
        !           998:                                                                ,str,2,K_EDIT|K_NUMBER);
        !           999:                                                        xtrn[i]->maxtime=atoi(str);
        !          1000:                                                        break;
        !          1001:                                                case 2:
        !          1002:                                                        k=1;
        !          1003:                                                        strcpy(opt[0],"Yes");
        !          1004:                                                        strcpy(opt[1],"No");
        !          1005:                                                        opt[2][0]=0;
        !          1006:                                                        SETHELP(WHERE);
        !          1007: /*
        !          1008: &Suspended (Free) Time:&
        !          1009: 
        !          1010: If you want the user's time online to be suspended while running this
        !          1011: online program (e.g. Free Time), set this option to &Yes&.
        !          1012: */
        !          1013:                                                        k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0
        !          1014:                                                                ,"Suspended (Free) Time",opt);
        !          1015:                                                        if(!k && !(xtrn[i]->misc&FREETIME)) {
        !          1016:                                                                xtrn[i]->misc|=FREETIME;
        !          1017:                                                                changes=1; }
        !          1018:                                                        else if(k==1 && xtrn[i]->misc&FREETIME) {
        !          1019:                                                                xtrn[i]->misc&=~FREETIME;
        !          1020:                                                                changes=1; }
        !          1021:                                                        break; } }
        !          1022:                                        break;
        !          1023: 
        !          1024:                                } } }
        !          1025: }
        !          1026: 
        !          1027: void xedit_cfg()
        !          1028: {
        !          1029:        static int dflt,dfltopt,bar;
        !          1030:        char str[81],code[81],done=0,*p;
        !          1031:        int j,k;
        !          1032:        uint i;
        !          1033:        static xedit_t savxedit;
        !          1034: 
        !          1035: while(1) {
        !          1036:        for(i=0;i<total_xedits && i<MAX_OPTS;i++)
        !          1037:                sprintf(opt[i],"%-8.8s    %.40s",xedit[i]->code,xedit[i]->lcmd);
        !          1038:        opt[i][0]=0;
        !          1039:        j=WIN_SAV|WIN_ACT|WIN_CHE|WIN_RHT;
        !          1040:        savnum=0;
        !          1041:        if(total_xedits)
        !          1042:                j|=WIN_DEL|WIN_GET;
        !          1043:        if(total_xedits<MAX_OPTS)
        !          1044:                j|=WIN_INS|WIN_INSACT|WIN_XTR;
        !          1045:        if(savxedit.name[0])
        !          1046:                j|=WIN_PUT;
        !          1047:        SETHELP(WHERE);
        !          1048: /*
        !          1049: &External Editors:&
        !          1050: 
        !          1051: This is a list of the configured external editors.
        !          1052: 
        !          1053: To add an editor, select the desired location and hit  INS .
        !          1054: 
        !          1055: To delete an editor, select it and hit  DEL .
        !          1056: 
        !          1057: To configure an editor, select it and hit  ENTER .
        !          1058: */
        !          1059:        i=ulist(j,0,0,45,&dflt,&bar,"External Editors",opt);
        !          1060:        if((signed)i==-1)
        !          1061:                return;
        !          1062:        if((i&MSK_ON)==MSK_INS) {
        !          1063:                i&=MSK_OFF;
        !          1064:                SETHELP(WHERE);
        !          1065: /*
        !          1066: &External Editor Name:&
        !          1067: 
        !          1068: This is the name or description of the external editor.
        !          1069: */
        !          1070:                if(uinput(WIN_MID|WIN_SAV,0,0,"External Editor Name",str,40
        !          1071:                        ,0)<1)
        !          1072:             continue;
        !          1073:                sprintf(code,"%.8s",str);
        !          1074:                p=strchr(code,SP);
        !          1075:                if(p) *p=0;
        !          1076:         strupr(code);
        !          1077:                SETHELP(WHERE);
        !          1078: /*
        !          1079: &External Editor Internal Code:&
        !          1080: 
        !          1081: This is the internal code for the external editor.
        !          1082: */
        !          1083:                if(uinput(WIN_MID|WIN_SAV,0,0,"External Editor Internal Code",code,8
        !          1084:                        ,K_UPPER|K_EDIT)<1)
        !          1085:             continue;
        !          1086:                if(!code_ok(code)) {
        !          1087:                        helpbuf=invalid_code;
        !          1088:                        umsg("Invalid Code");
        !          1089:                        helpbuf=0;
        !          1090:             continue; }
        !          1091: 
        !          1092:                if((xedit=(xedit_t **)REALLOC(xedit
        !          1093:             ,sizeof(xedit_t *)*(total_xedits+1)))==NULL) {
        !          1094:             errormsg(WHERE,ERR_ALLOC,nulstr,total_xedits+1);
        !          1095:                        total_xedits=0;
        !          1096:                        bail(1);
        !          1097:             continue; }
        !          1098:                if(total_xedits)
        !          1099:                        for(j=total_xedits;j>i;j--)
        !          1100:                                xedit[j]=xedit[j-1];
        !          1101:                if((xedit[i]=(xedit_t *)MALLOC(sizeof(xedit_t)))==NULL) {
        !          1102:                        errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(xedit_t));
        !          1103:                        continue; }
        !          1104:                memset((xedit_t *)xedit[i],0,sizeof(xedit_t));
        !          1105:                strcpy(xedit[i]->name,str);
        !          1106:                strcpy(xedit[i]->code,code);
        !          1107:                total_xedits++;
        !          1108:                changes=1;
        !          1109:                continue; }
        !          1110:        if((i&MSK_ON)==MSK_DEL) {
        !          1111:                i&=MSK_OFF;
        !          1112:                FREE(xedit[i]);
        !          1113:                total_xedits--;
        !          1114:                for(j=i;j<total_xedits;j++)
        !          1115:                        xedit[j]=xedit[j+1];
        !          1116:                changes=1;
        !          1117:                continue; }
        !          1118:        if((i&MSK_ON)==MSK_GET) {
        !          1119:                i&=MSK_OFF;
        !          1120:                savxedit=*xedit[i];
        !          1121:                continue; }
        !          1122:        if((i&MSK_ON)==MSK_PUT) {
        !          1123:                i&=MSK_OFF;
        !          1124:                *xedit[i]=savxedit;
        !          1125:                changes=1;
        !          1126:         continue; }
        !          1127:        done=0;
        !          1128:        while(!done) {
        !          1129:                k=0;
        !          1130:                sprintf(opt[k++],"%-32.32s%s","Name",xedit[i]->name);
        !          1131:                sprintf(opt[k++],"%-32.32s%s","Internal Code",xedit[i]->code);
        !          1132:                sprintf(opt[k++],"%-32.32s%.40s","Local Command Line",xedit[i]->lcmd);
        !          1133:                sprintf(opt[k++],"%-32.32s%.40s","Remote Command Line",xedit[i]->rcmd);
        !          1134:                sprintf(opt[k++],"%-32.32s%.40s","Access Requirements",xedit[i]->ar);
        !          1135:                sprintf(opt[k++],"%-32.32s%s%s","Intercept I/O Interrupts"
        !          1136:                        ,xedit[i]->misc&IO_INTS ? "Yes":"No"
        !          1137:                        ,xedit[i]->misc&WWIVCOLOR ? ", WWIV" : nulstr);
        !          1138:                sprintf(opt[k++],"%-32.32s%s","Quoted Text"
        !          1139:                        ,xedit[i]->misc&QUOTEALL ? "All":xedit[i]->misc&QUOTENONE
        !          1140:                                ? "None" : "Prompt User");
        !          1141:                sprintf(opt[k++],"%-32.32s%s","QuickBBS Style (MSGTMP)"
        !          1142:                        ,xedit[i]->misc&QUICKBBS ? "Yes":"No");
        !          1143:                sprintf(opt[k++],"%-32.32s%s","Expand Line Feeds to CRLF"
        !          1144:                        ,xedit[i]->misc&EXPANDLF ? "Yes":"No");
        !          1145:                switch(xedit[i]->type) {
        !          1146:                        case XTRN_SBBS:
        !          1147:                                sprintf(str,"%-15s %s","Synchronet","XTRN.DAT");
        !          1148:                                break;
        !          1149:                        case XTRN_WWIV:
        !          1150:                                sprintf(str,"%-15s %s","WWIV","CHAIN.TXT");
        !          1151:                                break;
        !          1152:                        case XTRN_GAP:
        !          1153:                                sprintf(str,"%-15s %s","GAP","DOOR.SYS");
        !          1154:                                break;
        !          1155:                        case XTRN_RBBS:
        !          1156:                                sprintf(str,"%-15s %s","RBBS/QuickBBS","DORINFO#.DEF");
        !          1157:                                break;
        !          1158:                        case XTRN_RBBS1:
        !          1159:                                sprintf(str,"%-15s %s","RBBS/QuickBBS","DORINFO1.DEF");
        !          1160:                 break;
        !          1161:                        case XTRN_WILDCAT:
        !          1162:                                sprintf(str,"%-15s %s","Wildcat","CALLINFO.BBS");
        !          1163:                                break;
        !          1164:                        case XTRN_PCBOARD:
        !          1165:                                sprintf(str,"%-15s %s","PCBoard","PCBOARD.SYS");
        !          1166:                                break;
        !          1167:                        case XTRN_SPITFIRE:
        !          1168:                                sprintf(str,"%-15s %s","SpitFire","SFDOORS.DAT");
        !          1169:                                break;
        !          1170:                        case XTRN_UTI:
        !          1171:                                sprintf(str,"%-15s %s","MegaMail","UTIDOOR.TXT");
        !          1172:                                break;
        !          1173:                        case XTRN_SR:
        !          1174:                                sprintf(str,"%-15s %s","Solar Realms","DOORFILE.SR");
        !          1175:                                break;
        !          1176:                        case XTRN_TRIBBS:
        !          1177:                                sprintf(str,"%-15s %s","TriBBS","TRIBBS.SYS");
        !          1178:                 break;
        !          1179:                        default:
        !          1180:                                strcpy(str,"None");
        !          1181:                 break; }
        !          1182:                sprintf(opt[k++],"%-32.32s%s","BBS Drop File Type",str);
        !          1183:         opt[k][0]=0;
        !          1184:                SETHELP(WHERE);
        !          1185: /*
        !          1186: &External Editor Configuration:&
        !          1187: 
        !          1188: This menu allows you to change the settings for the selected external
        !          1189: message editor. External message editors are very common on BBSs. Some
        !          1190: popular editors include &SyncEdit&, &WWIVedit&, &FEdit&, &GEdit&, &IceEdit&,
        !          1191: and many others.
        !          1192: */
        !          1193: 
        !          1194:                savnum=1;
        !          1195:                sprintf(str,"%s Editor",xedit[i]->name);
        !          1196:                switch(ulist(WIN_SAV|WIN_ACT|WIN_L2R|WIN_BOT,0,0,70,&dfltopt,0
        !          1197:                        ,str,opt)) {
        !          1198:                        case -1:
        !          1199:                                done=1;
        !          1200:                                break;
        !          1201:                        case 0:
        !          1202:                                SETHELP(WHERE);
        !          1203: /*
        !          1204: &External Editor Name:&
        !          1205: 
        !          1206: This is the name or description of the external editor.
        !          1207: */
        !          1208:                                strcpy(str,xedit[i]->name);
        !          1209:                                if(!uinput(WIN_MID|WIN_SAV,0,10,"External Editor Name"
        !          1210:                                        ,xedit[i]->name,40,K_EDIT))
        !          1211:                                        strcpy(xedit[i]->name,str);
        !          1212:                                break;
        !          1213:                        case 1:
        !          1214:                                strcpy(str,xedit[i]->code);
        !          1215:                                SETHELP(WHERE);
        !          1216: /*
        !          1217: &External Editor Internal Code:&
        !          1218: 
        !          1219: Every external editor must have its own unique internal code for
        !          1220: Synchronet to reference it by. It is helpful if this code is an
        !          1221: abreviation of the name.
        !          1222: */
        !          1223:                                uinput(WIN_MID|WIN_SAV,0,17,"Internal Code (unique)"
        !          1224:                                        ,str,8,K_EDIT|K_UPPER);
        !          1225:                                if(code_ok(str))
        !          1226:                                        strcpy(xedit[i]->code,str);
        !          1227:                                else {
        !          1228:                                        helpbuf=invalid_code;
        !          1229:                                        umsg("Invalid Code");
        !          1230:                                        helpbuf=0; }
        !          1231:                 break;
        !          1232:                        case 2:
        !          1233:                                SETHELP(WHERE);
        !          1234: /*
        !          1235: &External Editor Local Command Line:&
        !          1236: 
        !          1237: This is the command line to execute when using this editor locally.
        !          1238: */
        !          1239:                                uinput(WIN_MID|WIN_SAV,0,10,"Local"
        !          1240:                                        ,xedit[i]->lcmd,50,K_EDIT);
        !          1241:                                break;
        !          1242: 
        !          1243:                   case 3:
        !          1244:                                SETHELP(WHERE);
        !          1245: /*
        !          1246: &External Editor Remote Command Line:&
        !          1247: 
        !          1248: This is the command line to execute when using this editor remotely.
        !          1249: */
        !          1250:                                uinput(WIN_MID|WIN_SAV,0,10,"Remote"
        !          1251:                                        ,xedit[i]->rcmd,50,K_EDIT);
        !          1252:                                break;
        !          1253:                        case 4:
        !          1254:                                savnum=2;
        !          1255:                                sprintf(str,"%s External Editor",xedit[i]->name);
        !          1256:                                getar(str,xedit[i]->ar);
        !          1257:                                break;
        !          1258:                        case 5:
        !          1259:                                k=1;
        !          1260:                                strcpy(opt[0],"Yes");
        !          1261:                                strcpy(opt[1],"No");
        !          1262:                                opt[2][0]=0;
        !          1263:                                savnum=2;
        !          1264:                                SETHELP(WHERE);
        !          1265: /*
        !          1266: &Intercept I/O Interrupts:&
        !          1267: 
        !          1268: If this external editor has its own serial communication abilities or
        !          1269: requires a FOSSIL driver, set this option to &No&.
        !          1270: */
        !          1271:                                k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0,"Intercept I/O Interrupts"
        !          1272:                                        ,opt);
        !          1273:                                if(!k && !(xedit[i]->misc&IO_INTS)) {
        !          1274:                                        xedit[i]->misc|=IO_INTS;
        !          1275:                                        changes=1; }
        !          1276:                                else if(k==1 && xedit[i]->misc&IO_INTS) {
        !          1277:                                        xedit[i]->misc&=~(IO_INTS|WWIVCOLOR);
        !          1278:                                        changes=1; }
        !          1279:                                if(!(xedit[i]->misc&IO_INTS))
        !          1280:                                        break;
        !          1281:                                k=1;
        !          1282:                                strcpy(opt[0],"Yes");
        !          1283:                                strcpy(opt[1],"No");
        !          1284:                                opt[2][0]=0;
        !          1285:                                savnum=2;
        !          1286:                                SETHELP(WHERE);
        !          1287: /*
        !          1288: &Editor Uses WWIV Color Codes:&
        !          1289: 
        !          1290: If this editor was written for use exclusively under WWIV, set this
        !          1291: option to &Yes&.
        !          1292: */
        !          1293:                                k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0
        !          1294:                                        ,"Editor Uses WWIV Color Codes",opt);
        !          1295:                                if(!k && !(xedit[i]->misc&WWIVCOLOR)) {
        !          1296:                                        xedit[i]->misc|=WWIVCOLOR;
        !          1297:                                        changes=1; }
        !          1298:                                else if(k==1 && xedit[i]->misc&WWIVCOLOR) {
        !          1299:                                        xedit[i]->misc&=~WWIVCOLOR;
        !          1300:                     changes=1; }
        !          1301:                 break;
        !          1302:                        case 6:
        !          1303:                                k=3;
        !          1304:                                strcpy(opt[0],"All");
        !          1305:                                strcpy(opt[1],"None");
        !          1306:                                strcpy(opt[2],"Prompt User");
        !          1307:                                opt[3][0]=0;
        !          1308:                                savnum=2;
        !          1309:                                SETHELP(WHERE);
        !          1310: /*
        !          1311: &Quoted Text:&
        !          1312: 
        !          1313: If you want all the message text to be automatically entered into the
        !          1314: message edit/quote file (&INPUT.MSG& or &MSGTMP&), select &All&.
        !          1315: 
        !          1316: If you want the user to be prompted for which lines to quote before
        !          1317: running the editor, select &Prompt User&.
        !          1318: 
        !          1319: If you want none of the lines to be automatically quoted, select &None&.
        !          1320: This option is mainly for use with editors that support the "ES.TXT&
        !          1321: drop file (like &SyncEdit v2.x&).
        !          1322: */
        !          1323:                                k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0,"Quoted Text"
        !          1324:                                        ,opt);
        !          1325:                                if(!k && !(xedit[i]->misc&QUOTEALL)) {
        !          1326:                                        xedit[i]->misc|=QUOTEALL;
        !          1327:                                        xedit[i]->misc&=~QUOTENONE;
        !          1328:                                        changes=1; }
        !          1329:                                else if(k==1 && !(xedit[i]->misc&QUOTENONE)) {
        !          1330:                                        xedit[i]->misc|=QUOTENONE;
        !          1331:                                        xedit[i]->misc&=~QUOTEALL;
        !          1332:                     changes=1; }
        !          1333:                                else if(k==2 && xedit[i]->misc&(QUOTENONE|QUOTEALL)) {
        !          1334:                                        xedit[i]->misc&=~(QUOTENONE|QUOTEALL);
        !          1335:                                        changes=1; }
        !          1336:                 break;
        !          1337:                        case 7:
        !          1338:                                k=1;
        !          1339:                                strcpy(opt[0],"Yes");
        !          1340:                                strcpy(opt[1],"No");
        !          1341:                                opt[2][0]=0;
        !          1342:                                savnum=2;
        !          1343:                                SETHELP(WHERE);
        !          1344: /*
        !          1345: &QuickBBS Style (MSGTMP):&
        !          1346: 
        !          1347: If this external editor uses the QuickBBS style MSGTMP interface, set
        !          1348: this option to &Yes&.
        !          1349: */
        !          1350:                                k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0,"QuickBBS Style (MSGTMP)"
        !          1351:                                        ,opt);
        !          1352:                                if(!k && !(xedit[i]->misc&QUICKBBS)) {
        !          1353:                                        xedit[i]->misc|=QUICKBBS;
        !          1354:                                        changes=1; }
        !          1355:                                else if(k==1 && xedit[i]->misc&QUICKBBS) {
        !          1356:                                        xedit[i]->misc&=~QUICKBBS;
        !          1357:                     changes=1; }
        !          1358:                                break;
        !          1359:                        case 8:
        !          1360:                                k=1;
        !          1361:                                strcpy(opt[0],"Yes");
        !          1362:                                strcpy(opt[1],"No");
        !          1363:                                opt[2][0]=0;
        !          1364:                                savnum=2;
        !          1365:                                SETHELP(WHERE);
        !          1366: /*
        !          1367: &Expand Line Feeds to Carriage Return/Line Feed Pairs:&
        !          1368: 
        !          1369: If this external editor saves new lines as a single line feed character
        !          1370: instead of a carriage return/line feed pair, set this option to &Yes&.
        !          1371: */
        !          1372:                                k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0,"Expand LF to CRLF"
        !          1373:                                        ,opt);
        !          1374:                                if(!k && !(xedit[i]->misc&EXPANDLF)) {
        !          1375:                                        xedit[i]->misc|=EXPANDLF;
        !          1376:                                        changes=1; }
        !          1377:                                else if(k==1 && xedit[i]->misc&EXPANDLF) {
        !          1378:                                        xedit[i]->misc&=~EXPANDLF;
        !          1379:                     changes=1; }
        !          1380:                                break;
        !          1381:                        case 9:
        !          1382:                                k=0;
        !          1383:                                strcpy(opt[k++],"None");
        !          1384:                                sprintf(opt[k++],"%-15s %s","Synchronet","XTRN.DAT");
        !          1385:                                sprintf(opt[k++],"%-15s %s","WWIV","CHAIN.TXT");
        !          1386:                                sprintf(opt[k++],"%-15s %s","GAP","DOOR.SYS");
        !          1387:                                sprintf(opt[k++],"%-15s %s","RBBS/QuickBBS","DORINFO#.DEF");
        !          1388:                                sprintf(opt[k++],"%-15s %s","Wildcat","CALLINFO.BBS");
        !          1389:                                sprintf(opt[k++],"%-15s %s","PCBoard","PCBOARD.SYS");
        !          1390:                                sprintf(opt[k++],"%-15s %s","SpitFire","SFDOORS.DAT");
        !          1391:                                sprintf(opt[k++],"%-15s %s","MegaMail","UTIDOOR.TXT");
        !          1392:                                sprintf(opt[k++],"%-15s %s","Solar Realms","DOORFILE.SR");
        !          1393:                                sprintf(opt[k++],"%-15s %s","RBBS/QuickBBS","DORINFO1.DEF");
        !          1394:                                sprintf(opt[k++],"%-15s %s","TriBBS","TRIBBS.SYS");
        !          1395:                                opt[k][0]=0;
        !          1396:                                k=xedit[i]->type;
        !          1397:                                SETHELP(WHERE);
        !          1398: /*
        !          1399: &External Program BBS Drop File Type:&
        !          1400: 
        !          1401: If this external editor requires a specific BBS data (drop) file
        !          1402: format, select the file format from the list.
        !          1403: */
        !          1404:                                savnum=2;
        !          1405:                                k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0
        !          1406:                                        ,"BBS Drop File Type",opt);
        !          1407:                                if(k==-1)
        !          1408:                                        break;
        !          1409:                                if(xedit[i]->type!=k) {
        !          1410:                                        xedit[i]->type=k;
        !          1411:                                        changes=1; }
        !          1412:                                break;
        !          1413: 
        !          1414:                                } } }
        !          1415: }
        !          1416: 
        !          1417: 
        !          1418: void swap_cfg()
        !          1419: {
        !          1420:        static int dflt,bar;
        !          1421:        char str[81];
        !          1422:        int j,k;
        !          1423:        uint i;
        !          1424: 
        !          1425: while(1) {
        !          1426:        for(i=0;i<MAX_OPTS && i<total_swaps;i++)
        !          1427:                sprintf(opt[i],"%-25s",swap[i]->cmd);
        !          1428:        opt[i][0]=0;
        !          1429:        j=WIN_ACT|WIN_CHE|WIN_L2R|WIN_SAV;
        !          1430:        savnum=0;
        !          1431:        if(total_swaps)
        !          1432:                j|=WIN_DEL;
        !          1433:        if(total_swaps<MAX_OPTS)
        !          1434:                j|=WIN_INS|WIN_INSACT|WIN_XTR;
        !          1435:        SETHELP(WHERE);
        !          1436: /*
        !          1437: &External Program Global Swap List:&
        !          1438: 
        !          1439: This is a list of the external program (executable file) names to swap
        !          1440: the BBS out of memory for. They are termed &Global& because if you add
        !          1441: a program name to this list, the BBS will swap to run it regardless of
        !          1442: when, where, or why the program is run from the BBS.
        !          1443: 
        !          1444: Use  INS  and  DELETE  to add and remove swappable programs.
        !          1445: 
        !          1446: To change the filename of a program, hit  ENTER .
        !          1447: 
        !          1448: To swap whenever &PKZIP& is run, add &PKZIP& to the list.
        !          1449: 
        !          1450: To swap for all &DOS Shells&, add &COMMAND.COM& to the list.
        !          1451: */
        !          1452:        i=ulist(j,0,0,17,&dflt,&bar,"Global Swap List",opt);
        !          1453:        if((signed)i==-1)
        !          1454:                return;
        !          1455:        if((i&MSK_ON)==MSK_INS) {
        !          1456:                i&=MSK_OFF;
        !          1457:                SETHELP(WHERE);
        !          1458: /*
        !          1459: &Swappable Program Name:&
        !          1460: 
        !          1461: This is the executable filename of the external program.
        !          1462: */
        !          1463:                if(uinput(WIN_MID|WIN_SAV,0,0,"Program Name",str,12
        !          1464:                        ,K_UPPER)<1)
        !          1465:             continue;
        !          1466:                if((swap=(swap_t **)REALLOC(swap
        !          1467:                        ,sizeof(swap_t *)*(total_swaps+1)))==NULL) {
        !          1468:                        errormsg(WHERE,ERR_ALLOC,nulstr,total_swaps+1);
        !          1469:                        total_swaps=0;
        !          1470:                        bail(1);
        !          1471:             continue; }
        !          1472:                if(total_swaps)
        !          1473:                        for(j=total_swaps;j>i;j--)
        !          1474:                                swap[j]=swap[j-1];
        !          1475:                if((swap[i]=(swap_t *)MALLOC(sizeof(swap_t)))==NULL) {
        !          1476:                        errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(swap_t));
        !          1477:                        continue; }
        !          1478:                memset((swap_t *)swap[i],0,sizeof(swap_t));
        !          1479:                strcpy(swap[i]->cmd,str);
        !          1480:                total_swaps++;
        !          1481:                changes=1;
        !          1482:                continue; }
        !          1483:        if((i&MSK_ON)==MSK_DEL) {
        !          1484:                i&=MSK_OFF;
        !          1485:                FREE(swap[i]);
        !          1486:                total_swaps--;
        !          1487:                for(j=i;j<total_swaps;j++)
        !          1488:                        swap[j]=swap[j+1];
        !          1489:                changes=1;
        !          1490:                continue; }
        !          1491:        SETHELP(WHERE);
        !          1492: /*
        !          1493: &Swappable Program Name:&
        !          1494: 
        !          1495: This is the executable filename of the external program.
        !          1496: */
        !          1497:        strcpy(str,swap[i]->cmd);
        !          1498:        if(uinput(WIN_MID|WIN_SAV,0,5,"Program Name",str,12
        !          1499:                ,K_UPPER|K_EDIT)>0)
        !          1500:                strcpy(swap[i]->cmd,str); }
        !          1501: }
        !          1502: 
        !          1503: int os2pgm_cfg()
        !          1504: {
        !          1505:        static int dflt,bar;
        !          1506:        char str[81];
        !          1507:        int j,k;
        !          1508:        uint i;
        !          1509: 
        !          1510: while(1) {
        !          1511:        for(i=0;i<MAX_OPTS && i<total_os2pgms;i++)
        !          1512:                sprintf(opt[i],"%-12s %-12s",os2pgm[i]->name
        !          1513:                        ,os2pgm[i]->misc&OS2_POPEN ? "(port open)":nulstr);
        !          1514:        opt[i][0]=0;
        !          1515:        j=WIN_ACT|WIN_CHE|WIN_L2R|WIN_SAV;
        !          1516:        savnum=0;
        !          1517:        if(total_os2pgms)
        !          1518:                j|=WIN_DEL;
        !          1519:        if(total_os2pgms<MAX_OPTS)
        !          1520:                j|=WIN_INS|WIN_INSACT|WIN_XTR;
        !          1521:        SETHELP(WHERE);
        !          1522: /*
        !          1523: &OS/2 Program List:&
        !          1524: 
        !          1525: This is a list of all native OS/2 external program (executable file)
        !          1526: names that you may execute under &Synchronet for OS/2&. This list is not
        !          1527: used in Synchronet for DOS. Any programs not listed here will be assumed
        !          1528: to be DOS programs and executed accordingly.
        !          1529: 
        !          1530: Use  INS  and  DELETE  to add and remove OS/2 programs.
        !          1531: 
        !          1532: To change the filename of a program, hit  ENTER .
        !          1533: */
        !          1534:        i=ulist(j,0,0,30,&dflt,&bar,"OS/2 Program List",opt);
        !          1535:        if((signed)i==-1)
        !          1536:                break;
        !          1537:        if((i&MSK_ON)==MSK_INS) {
        !          1538:                i&=MSK_OFF;
        !          1539:                SETHELP(WHERE);
        !          1540: /*
        !          1541: &OS/2 Program Name:&
        !          1542: 
        !          1543: This is the executable filename of the OS/2 external program.
        !          1544: */
        !          1545:                if(uinput(WIN_MID|WIN_SAV,0,0,"OS/2 Program Name",str,12
        !          1546:                        ,K_UPPER)<1)
        !          1547:             continue;
        !          1548:                if((os2pgm=(os2pgm_t **)REALLOC(os2pgm
        !          1549:                        ,sizeof(os2pgm_t *)*(total_os2pgms+1)))==NULL) {
        !          1550:                        errormsg(WHERE,ERR_ALLOC,nulstr,total_os2pgms+1);
        !          1551:                        total_os2pgms=0;
        !          1552:                        bail(1);
        !          1553:             continue; }
        !          1554:                if(total_os2pgms)
        !          1555:                        for(j=total_os2pgms;j>i;j--)
        !          1556:                                os2pgm[j]=os2pgm[j-1];
        !          1557:                if((os2pgm[i]=(os2pgm_t *)MALLOC(sizeof(os2pgm_t)))==NULL) {
        !          1558:                        errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(os2pgm_t));
        !          1559:                        continue; }
        !          1560:                memset((os2pgm_t *)os2pgm[i],0,sizeof(os2pgm_t));
        !          1561:                strcpy(os2pgm[i]->name,str);
        !          1562: 
        !          1563:                SETHELP(WHERE);
        !          1564: /*
        !          1565: &Leave COM Port Open During Execution:&
        !          1566: 
        !          1567: If this program accesses the COM port via handle (currently open COM
        !          1568: port), set this option to &Yes&, otherwise set it to &No&.
        !          1569: */
        !          1570:                strcpy(opt[0],"Yes (This Program Uses Port Handle)");
        !          1571:                strcpy(opt[1],"No  (This Program Uses Port Number)");
        !          1572:                opt[2][0]=0;
        !          1573:                j=1;
        !          1574:                if(ulist(WIN_MID|WIN_SAV,0,0,0,&j,0
        !          1575:                        ,"Leave COM Port Open During Execution?",opt)==0)
        !          1576:                        os2pgm[i]->misc|=OS2_POPEN;
        !          1577:                total_os2pgms++;
        !          1578:                changes=1;
        !          1579:                continue; }
        !          1580:        if((i&MSK_ON)==MSK_DEL) {
        !          1581:                i&=MSK_OFF;
        !          1582:                FREE(os2pgm[i]);
        !          1583:                total_os2pgms--;
        !          1584:                for(j=i;j<total_os2pgms;j++)
        !          1585:                        os2pgm[j]=os2pgm[j+1];
        !          1586:                changes=1;
        !          1587:                continue; }
        !          1588:        SETHELP(WHERE);
        !          1589: /*
        !          1590: &OS/2 Program Name:&
        !          1591: 
        !          1592: This is the executable filename of the OS/2 external program.
        !          1593: */
        !          1594:        strcpy(str,os2pgm[i]->name);
        !          1595:        if(uinput(WIN_MID|WIN_SAV,0,5,"OS/2 Program Name",str,12
        !          1596:                ,K_UPPER|K_EDIT)>0)
        !          1597:                strcpy(os2pgm[i]->name,str);
        !          1598: 
        !          1599:        SETHELP(WHERE);
        !          1600: /*
        !          1601: &Leave COM Port Open During Execution:&
        !          1602: 
        !          1603: If this program accesses the COM port via handle (currently open COM
        !          1604: port), set this option to &Yes&, otherwise set it to &No&.
        !          1605: */
        !          1606:        strcpy(opt[0],"Yes (This Program Uses Port Handle)");
        !          1607:        strcpy(opt[1],"No  (This Program Uses Port Number)");
        !          1608:        opt[2][0]=0;
        !          1609:        j=1;
        !          1610:        savnum=1;
        !          1611:        j=ulist(WIN_MID|WIN_SAV,0,0,0,&j,0
        !          1612:                ,"Leave COM Port Open During Execution",opt);
        !          1613:        if(j==0 && !(os2pgm[i]->misc&OS2_POPEN)) {
        !          1614:                os2pgm[i]->misc|=OS2_POPEN;
        !          1615:                changes=1; }
        !          1616:        else if(j==1 && os2pgm[i]->misc&OS2_POPEN) {
        !          1617:                os2pgm[i]->misc&=~OS2_POPEN;
        !          1618:                changes=1; }
        !          1619:        }
        !          1620: return(0);
        !          1621: }
        !          1622: 
        !          1623: 
        !          1624: void xtrnsec_cfg()
        !          1625: {
        !          1626:        static int xtrnsec_dflt,xtrnsec_opt;
        !          1627:        char str[81],code[9],done=0,*p;
        !          1628:        int j,k;
        !          1629:        uint i;
        !          1630:        static xtrnsec_t savxtrnsec;
        !          1631: 
        !          1632: while(1) {
        !          1633:        for(i=0;i<total_xtrnsecs && i<MAX_OPTS;i++)
        !          1634:                sprintf(opt[i],"%-25s",xtrnsec[i]->name);
        !          1635:        opt[i][0]=0;
        !          1636:        j=WIN_SAV|WIN_ACT|WIN_CHE|WIN_BOT;
        !          1637:        savnum=0;
        !          1638:        if(total_xtrnsecs)
        !          1639:                j|=WIN_DEL|WIN_GET;
        !          1640:        if(total_xtrnsecs<MAX_OPTS)
        !          1641:                j|=WIN_INS|WIN_INSACT|WIN_XTR;
        !          1642:        if(savxtrnsec.name[0])
        !          1643:                j|=WIN_PUT;
        !          1644:        SETHELP(WHERE);
        !          1645: /*
        !          1646: &Online Program Sections:&
        !          1647: 
        !          1648: This is a list of &Online Program Sections& configured for your system.
        !          1649: 
        !          1650: To add an online program section, select the desired location with the
        !          1651: arrow keys and hit  INS .
        !          1652: 
        !          1653: To delete an online program section, select it and hit  DEL .
        !          1654: 
        !          1655: To configure an online program section, select it and hit  ENTER .
        !          1656: */
        !          1657:        i=ulist(j,0,0,45,&xtrnsec_dflt,0,"Online Program Sections",opt);
        !          1658:        if((signed)i==-1)
        !          1659:                return;
        !          1660:        if((i&MSK_ON)==MSK_INS) {
        !          1661:                i&=MSK_OFF;
        !          1662:                SETHELP(WHERE);
        !          1663: /*
        !          1664: &Online Program Section Name:&
        !          1665: 
        !          1666: This is the name of this section.
        !          1667: */
        !          1668:                if(uinput(WIN_MID|WIN_SAV,0,0,"Online Program Section Name",str,40
        !          1669:                        ,0)<1)
        !          1670:             continue;
        !          1671:                sprintf(code,"%.8s",str);
        !          1672:                p=strchr(code,SP);
        !          1673:                if(p) *p=0;
        !          1674:         strupr(code);
        !          1675:                SETHELP(WHERE);
        !          1676: /*
        !          1677: &Online Program Section Internal Code:&
        !          1678: 
        !          1679: Every online program section must have its own unique internal code
        !          1680: for Synchronet to reference it by. It is helpful if this code is an
        !          1681: abreviation of the name.
        !          1682: */
        !          1683:                if(uinput(WIN_MID|WIN_SAV,0,0,"Online Program Section Internal Code"
        !          1684:                        ,code,8,K_EDIT|K_UPPER)<1)
        !          1685:                        continue;
        !          1686:                if(!code_ok(code)) {
        !          1687:                        helpbuf=invalid_code;
        !          1688:                        umsg("Invalid Code");
        !          1689:                        helpbuf=0;
        !          1690:             continue; }
        !          1691:                if((xtrnsec=(xtrnsec_t **)REALLOC(xtrnsec
        !          1692:                        ,sizeof(xtrnsec_t *)*(total_xtrnsecs+1)))==NULL) {
        !          1693:                        errormsg(WHERE,ERR_ALLOC,nulstr,total_xtrnsecs+1);
        !          1694:                        total_xtrnsecs=0;
        !          1695:                        bail(1);
        !          1696:                        continue; }
        !          1697:                if(total_xtrnsecs) {
        !          1698:                        for(j=total_xtrnsecs;j>i;j--)
        !          1699:                                xtrnsec[j]=xtrnsec[j-1];
        !          1700:                        for(j=0;j<total_xtrns;j++)
        !          1701:                                if(xtrn[j]->sec>=i)
        !          1702:                                        xtrn[j]->sec++; }
        !          1703: 
        !          1704: 
        !          1705:                if((xtrnsec[i]=(xtrnsec_t *)MALLOC(sizeof(xtrnsec_t)))==NULL) {
        !          1706:                        errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(xtrnsec_t));
        !          1707:                        continue; }
        !          1708:                memset((xtrnsec_t *)xtrnsec[i],0,sizeof(xtrnsec_t));
        !          1709:                strcpy(xtrnsec[i]->name,str);
        !          1710:                strcpy(xtrnsec[i]->code,code);
        !          1711:                total_xtrnsecs++;
        !          1712:                changes=1;
        !          1713:                continue; }
        !          1714:        if((i&MSK_ON)==MSK_DEL) {
        !          1715:                i&=MSK_OFF;
        !          1716:                FREE(xtrnsec[i]);
        !          1717:                for(j=0;j<total_xtrns;) {
        !          1718:                        if(xtrn[j]->sec==i) {    /* delete xtrns of this group */
        !          1719:                                FREE(xtrn[j]);
        !          1720:                                total_xtrns--;
        !          1721:                                k=j;
        !          1722:                                while(k<total_xtrns) {   /* move all xtrns down */
        !          1723:                                        xtrn[k]=xtrn[k+1];
        !          1724:                                        k++; } }
        !          1725:                        else j++; }
        !          1726:                for(j=0;j<total_xtrns;j++)       /* move xtrn group numbers down */
        !          1727:                        if(xtrn[j]->sec>i)
        !          1728:                                xtrn[j]->sec--;
        !          1729:                total_xtrnsecs--;
        !          1730:                while(i<total_xtrnsecs) {
        !          1731:                        xtrnsec[i]=xtrnsec[i+1];
        !          1732:             i++; }
        !          1733:                changes=1;
        !          1734:                continue; }
        !          1735:        if((i&MSK_ON)==MSK_GET) {
        !          1736:                i&=MSK_OFF;
        !          1737:                savxtrnsec=*xtrnsec[i];
        !          1738:                continue; }
        !          1739:        if((i&MSK_ON)==MSK_PUT) {
        !          1740:                i&=MSK_OFF;
        !          1741:                *xtrnsec[i]=savxtrnsec;
        !          1742:                changes=1;
        !          1743:         continue; }
        !          1744:        done=0;
        !          1745:        while(!done) {
        !          1746:                k=0;
        !          1747:                sprintf(opt[k++],"%-27.27s%s","Name",xtrnsec[i]->name);
        !          1748:                sprintf(opt[k++],"%-27.27s%s","Internal Code",xtrnsec[i]->code);
        !          1749:                sprintf(opt[k++],"%-27.27s%.40s","Access Requirements"
        !          1750:                        ,xtrnsec[i]->ar);
        !          1751:                sprintf(opt[k++],"%s","Available Online Programs...");
        !          1752:                opt[k][0]=0;
        !          1753:                savnum=1;
        !          1754:                sprintf(str,"%s Program Section",xtrnsec[i]->name);
        !          1755:                switch(ulist(WIN_SAV|WIN_ACT|WIN_MID,0,0,60,&xtrnsec_opt,0,str
        !          1756:                        ,opt)) {
        !          1757:                        case -1:
        !          1758:                                done=1;
        !          1759:                                break;
        !          1760:                        case 0:
        !          1761:                                SETHELP(WHERE);
        !          1762: /*
        !          1763: &Online Program Section Name:&
        !          1764: 
        !          1765: This is the name of this section.
        !          1766: */
        !          1767:                                strcpy(str,xtrnsec[i]->name);    /* save */
        !          1768:                                if(!uinput(WIN_MID|WIN_SAV,0,10
        !          1769:                                        ,"Online Program Section Name"
        !          1770:                                        ,xtrnsec[i]->name,40,K_EDIT))
        !          1771:                                        strcpy(xtrnsec[i]->name,str);
        !          1772:                                break;
        !          1773:                        case 1:
        !          1774:                                strcpy(str,xtrnsec[i]->code);
        !          1775:                                SETHELP(WHERE);
        !          1776: /*
        !          1777: &Online Program Section Internal Code:&
        !          1778: 
        !          1779: Every online program section must have its own unique internal code
        !          1780: for Synchronet to reference it by. It is helpful if this code is an
        !          1781: abreviation of the name.
        !          1782: */
        !          1783:                                uinput(WIN_MID|WIN_SAV,0,17,"Internal Code (unique)"
        !          1784:                                        ,str,8,K_EDIT|K_UPPER);
        !          1785:                                if(code_ok(str))
        !          1786:                                        strcpy(xtrnsec[i]->code,str);
        !          1787:                                else {
        !          1788:                                        helpbuf=invalid_code;
        !          1789:                                        umsg("Invalid Code");
        !          1790:                                        helpbuf=0; }
        !          1791:                                break;
        !          1792:                        case 2:
        !          1793:                                getar(xtrnsec[i]->name,xtrnsec[i]->ar);
        !          1794:                 break;
        !          1795:                        case 3:
        !          1796:                                xtrn_cfg(i);
        !          1797:                                break; } } }
        !          1798: }

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