Return to scfgnet.c CVS log

Up to [Synchronet] / sbbs / sbbs2 / scfg

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

1.1     ! root        1: #line 2 "SCFGNET.C"
        !             2: 
        !             3: /* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
        !             4: 
        !             5: #include "scfg.h"
        !             6: 
        !             7: char *wday[]={"Sun","Mon","Tue","Wed","Thu","Fri","Sat"};
        !             8: 
        !             9: char *daystr(char days);
        !            10: 
        !            11: 
        !            12: void qhub_edit(int num);
        !            13: void phub_edit(int num);
        !            14: char *daystr(char days);
        !            15: void qhub_sub_edit(uint num);
        !            16: 
        !            17: /****************************************************************************/
        !            18: /* Returns the FidoNet address kept in str as ASCII.                        */
        !            19: /****************************************************************************/
        !            20: faddr_t atofaddr(char *str)
        !            21: {
        !            22:     char *p;
        !            23:     faddr_t addr;
        !            24: 
        !            25: addr.zone=addr.net=addr.node=addr.point=0;
        !            26: if((p=strchr(str,':'))!=NULL) {
        !            27:     addr.zone=atoi(str);
        !            28:     addr.net=atoi(p+1); }
        !            29: else {
        !            30:     if(total_faddrs)
        !            31:                addr.zone=faddr[0].zone;
        !            32:     else
        !            33:         addr.zone=1;
        !            34:     addr.net=atoi(str); }
        !            35: if(!addr.zone)              /* no such thing as zone 0 */
        !            36:     addr.zone=1;
        !            37: if((p=strchr(str,'/'))!=NULL)
        !            38:     addr.node=atoi(p+1);
        !            39: else {
        !            40:     if(total_faddrs)
        !            41:                addr.net=faddr[0].net;
        !            42:     else
        !            43:         addr.net=1;
        !            44:     addr.node=atoi(str); }
        !            45: if((p=strchr(str,'.'))!=NULL)
        !            46:     addr.point=atoi(p+1);
        !            47: return(addr);
        !            48: }
        !            49: 
        !            50: /****************************************************************************/
        !            51: /* Returns an ASCII string for FidoNet address 'addr'                       */
        !            52: /****************************************************************************/
        !            53: char *faddrtoa(faddr_t addr)
        !            54: {
        !            55:     static char str[25];
        !            56:     char point[25];
        !            57: 
        !            58: sprintf(str,"%u:%u/%u",addr.zone,addr.net,addr.node);
        !            59: if(addr.point) {
        !            60:     sprintf(point,".%u",addr.point);
        !            61:     strcat(str,point); }
        !            62: return(str);
        !            63: }
        !            64: 
        !            65: 
        !            66: uint getsub()
        !            67: {
        !            68:        static int grp_dflt,sub_dflt,grp_bar,sub_bar;
        !            69:        char str[81];
        !            70:        int i,j,k;
        !            71:        uint subnum[MAX_OPTS+1];
        !            72: 
        !            73: while(1) {
        !            74:        for(i=0;i<total_grps && i<MAX_OPTS;i++)
        !            75:                sprintf(opt[i],"%-25s",grp[i]->lname);
        !            76:        opt[i][0]=0;
        !            77:        i=ulist(WIN_SAV|WIN_RHT|WIN_BOT,0,0,45,&grp_dflt,&grp_bar
        !            78:                ,"Message Groups"
        !            79:                ,opt);
        !            80:        if(i==-1)
        !            81:                return(-1);
        !            82:        for(j=k=0;j<total_subs && k<MAX_OPTS;j++)
        !            83:                if(sub[j]->grp==i) {
        !            84:                        sprintf(opt[k],"%-25s",sub[j]->lname);
        !            85:                        subnum[k++]=j; }
        !            86:        opt[k][0]=0;
        !            87:        sprintf(str,"%s Sub-boards",grp[i]->sname);
        !            88:        j=ulist(WIN_RHT|WIN_BOT|WIN_SAV,0,0,45,&sub_dflt,&sub_bar,str,opt);
        !            89:        if(j==-1)
        !            90:                continue;
        !            91:        return(subnum[j]); }
        !            92: 
        !            93: }
        !            94: 
        !            95: void net_cfg()
        !            96: {
        !            97:        static  int net_dflt,qnet_dflt,pnet_dflt,fnet_dflt,inet_dflt
        !            98:                        ,qhub_dflt,phub_dflt;
        !            99:        char    str[81],done,*p;
        !           100:        int     i,j,k,l,m,n;
        !           101: 
        !           102: while(1) {
        !           103:        i=0;
        !           104:        strcpy(opt[i++],"QWK Packet Networks");
        !           105:        strcpy(opt[i++],"FidoNet EchoMail and NetMail");
        !           106:        strcpy(opt[i++],"PostLink Networks");
        !           107:        strcpy(opt[i++],"Internet NetMail");
        !           108:        opt[i][0]=0;
        !           109:        SETHELP(WHERE);
        !           110: /*
        !           111: &Configure Networks:&
        !           112: 
        !           113: This is the network configuration menu. Select the type of network
        !           114: technology that you want to configure.
        !           115: */
        !           116:        i=ulist(WIN_ORG|WIN_ACT|WIN_CHE,0,0,0,&net_dflt,0,"Networks",opt);
        !           117:        if(i==0) {      /* QWK net stuff */
        !           118:                done=0;
        !           119:                while(!done) {
        !           120:                        i=0;
        !           121:                        strcpy(opt[i++],"Network Hubs...");
        !           122:                        strcpy(opt[i++],"Default Tagline");
        !           123:                        opt[i][0]=0;
        !           124:                        SETHELP(WHERE);
        !           125: /*
        !           126: &QWK Packet Networks:&
        !           127: 
        !           128: From this menu you can configure the default tagline to use for
        !           129: outgoing messages on QWK networked sub-boards, or you can select
        !           130: &Network Hubs...& to add, delete, or configure QWK hubs that your system
        !           131: calls to exchange packets with.
        !           132: */
        !           133:                        i=ulist(WIN_ACT|WIN_RHT|WIN_BOT|WIN_CHE,0,0,0,&qnet_dflt,0
        !           134:                                ,"QWK Packet Networks",opt);
        !           135:                        savnum=0;
        !           136:                        switch(i) {
        !           137:                                case -1:        /* ESC */
        !           138:                                        done=1;
        !           139:                                        break;
        !           140:                                case 1:
        !           141:                                        SETHELP(WHERE);
        !           142: /*
        !           143: &QWK Network Default Tagline:&
        !           144: 
        !           145: This is the default tagline to use for outgoing messages on QWK
        !           146: networked sub-boards. This default can be overridden on a per sub-board
        !           147: basis with the sub-board configuration &Network Options...&.
        !           148: */
        !           149:                                        uinput(WIN_MID|WIN_SAV,0,0,nulstr
        !           150:                                                ,qnet_tagline,63,K_MSG|K_EDIT);
        !           151:                                        break;
        !           152:                                case 0:
        !           153:                                        while(1) {
        !           154:                                                for(i=0;i<total_qhubs && i<MAX_OPTS;i++)
        !           155:                                                        sprintf(opt[i],"%-8.8s",qhub[i]->id);
        !           156:                                                opt[i][0]=0;
        !           157:                                                i=WIN_ACT|WIN_RHT|WIN_SAV;
        !           158:                                                if(total_qhubs<MAX_OPTS)
        !           159:                                                        i|=WIN_INS|WIN_INSACT|WIN_XTR;
        !           160:                                                if(total_qhubs)
        !           161:                                                        i|=WIN_DEL;
        !           162:                                                savnum=0;
        !           163:                                                SETHELP(WHERE);
        !           164: /*
        !           165: &QWK Network Hubs:&
        !           166: 
        !           167: This is a list of QWK network hubs that your system calls to exchange
        !           168: packets with.
        !           169: 
        !           170: To add a hub, select the desired location with the arrow keys and hit
        !           171:  INS .
        !           172: 
        !           173: To delete a hub, select it and hit  DEL .
        !           174: 
        !           175: To configure a hub, select it and hit  ENTER .
        !           176: */
        !           177:                                                i=ulist(i,0,0,0,&qhub_dflt,0
        !           178:                                                        ,"QWK Network Hubs",opt);
        !           179:                                                if(i==-1)
        !           180:                                                        break;
        !           181:                                                if((i&MSK_ON)==MSK_INS) {
        !           182:                                                        i&=MSK_OFF;
        !           183:                                                        if((qhub=(qhub_t **)REALLOC(qhub
        !           184:                                 ,sizeof(qhub_t *)*(total_qhubs+1)))==NULL) {
        !           185:                                 errormsg(WHERE,ERR_ALLOC,nulstr
        !           186:                                     ,sizeof(qhub_t *)*(total_qhubs+1));
        !           187:                                                                total_qhubs=0;
        !           188:                                                                bail(1);
        !           189:                                 continue; }
        !           190: 
        !           191:                                                        savnum=1;
        !           192:                                                        SETHELP(WHERE);
        !           193: /*
        !           194: &QWK Network Hub System ID:&
        !           195: 
        !           196: This is the QWK System ID of this hub. It is used for incoming and
        !           197: outgoing network packets and must be accurate.
        !           198: */
        !           199:                                                        if(uinput(WIN_MID|WIN_SAV,0,0
        !           200:                                                                ,"System ID",str,8,K_UPPER)<1)
        !           201:                                                                continue;
        !           202: 
        !           203:                                                        for(j=total_qhubs;j>i;j--)
        !           204:                                 qhub[j]=qhub[j-1];
        !           205:                                                        if((qhub[i]=(qhub_t *)MALLOC(sizeof(qhub_t)))
        !           206:                                                                ==NULL) {
        !           207:                                                                errormsg(WHERE,ERR_ALLOC,nulstr
        !           208:                                                                        ,sizeof(qhub_t));
        !           209:                                                                continue; }
        !           210:                                                        memset(qhub[i],0,sizeof(qhub_t));
        !           211:                                                        strcpy(qhub[i]->id,str);
        !           212:                                                        strcpy(qhub[i]->pack,"%!pkzip %f %s");
        !           213:                                                        strcpy(qhub[i]->unpack,"%!pkunzip -o %f %g %s");
        !           214:                                                        strcpy(qhub[i]->call,"%!qnet");
        !           215:                                                        qhub[i]->node=1;
        !           216:                                                        qhub[i]->days=0xff; /* all days */
        !           217:                                                        total_qhubs++;
        !           218:                                                        changes=1;
        !           219:                                                        continue; }
        !           220:                                                if((i&MSK_ON)==MSK_DEL) {
        !           221:                                                        i&=MSK_OFF;
        !           222:                                                        FREE(qhub[i]->mode);
        !           223:                                                        FREE(qhub[i]->conf);
        !           224:                                                        FREE(qhub[i]->sub);
        !           225:                                                        FREE(qhub[i]);
        !           226:                                                        total_qhubs--;
        !           227:                                                        while(i<total_qhubs) {
        !           228:                                                                qhub[i]=qhub[i+1];
        !           229:                                                                i++; }
        !           230:                                                        changes=1;
        !           231:                                                        continue; }
        !           232:                                                qhub_edit(i); }
        !           233:                                        break; } } }
        !           234: 
        !           235:        else if(i==1) {         /* FidoNet Stuff */
        !           236:                done=0;
        !           237:                while(!done) {
        !           238:                        i=0;
        !           239:                        sprintf(opt[i++],"%-27.27s%s"
        !           240:                                ,"System Addresses",total_faddrs ? faddrtoa(faddr[0])
        !           241:                                        : nulstr);
        !           242:                        sprintf(opt[i++],"%-27.27s%s"
        !           243:                                ,"Default Outbound Address"
        !           244:                                ,dflt_faddr.zone ? faddrtoa(dflt_faddr) : "No");
        !           245:                        sprintf(opt[i++],"%-27.27s"
        !           246:                                ,"Default Origin Line");
        !           247:                        sprintf(opt[i++],"%-27.27s%.40s"
        !           248:                                ,"NetMail Semaphore",netmail_sem);
        !           249:                        sprintf(opt[i++],"%-27.27s%.40s"
        !           250:                                ,"EchoMail Semaphore",echomail_sem);
        !           251:                        sprintf(opt[i++],"%-27.27s%.40s"
        !           252:                                ,"Inbound File Directory",fidofile_dir);
        !           253:                        sprintf(opt[i++],"%-27.27s%.40s"
        !           254:                                ,"EchoMail Base Directory",echomail_dir);
        !           255:                        sprintf(opt[i++],"%-27.27s%.40s"
        !           256:                                ,"NetMail Directory",netmail_dir);
        !           257:                        sprintf(opt[i++],"%-27.27s%s"
        !           258:                                ,"Allow Sending of NetMail"
        !           259:                                ,netmail_misc&NMAIL_ALLOW ? "Yes":"No");
        !           260:                        sprintf(opt[i++],"%-27.27s%s"
        !           261:                                ,"Allow File Attachments"
        !           262:                                ,netmail_misc&NMAIL_FILE ? "Yes":"No");
        !           263:                        sprintf(opt[i++],"%-27.27s%s"
        !           264:                                ,"Send NetMail Using Alias"
        !           265:                                ,netmail_misc&NMAIL_ALIAS ? "Yes":"No");
        !           266:                        sprintf(opt[i++],"%-27.27s%s"
        !           267:                                ,"NetMail Defaults to Crash"
        !           268:                                ,netmail_misc&NMAIL_CRASH ? "Yes":"No");
        !           269:                        sprintf(opt[i++],"%-27.27s%s"
        !           270:                                ,"NetMail Defaults to Direct"
        !           271:                                ,netmail_misc&NMAIL_DIRECT ? "Yes":"No");
        !           272:                        sprintf(opt[i++],"%-27.27s%s"
        !           273:                                ,"NetMail Defaults to Hold"
        !           274:                                ,netmail_misc&NMAIL_HOLD ? "Yes":"No");
        !           275:                        sprintf(opt[i++],"%-27.27s%s"
        !           276:                                ,"Kill NetMail After Sent"
        !           277:                                ,netmail_misc&NMAIL_KILL ? "Yes":"No");
        !           278:                        sprintf(opt[i++],"%-27.27s%lu"
        !           279:                                ,"Cost to Send NetMail",netmail_cost);
        !           280:                        opt[i][0]=0;
        !           281:                        SETHELP(WHERE);
        !           282: /*
        !           283: &FidoNet EchoMail and NetMail:&
        !           284: 
        !           285: This menu contains configuration options that pertain specifically to
        !           286: networking E-mail (NetMail) and sub-boards (EchoMail) through networks
        !           287: using FidoNet technology.
        !           288: */
        !           289:                        i=ulist(WIN_ACT|WIN_MID|WIN_CHE,0,0,60,&fnet_dflt,0
        !           290:                                ,"FidoNet EchoMail and NetMail",opt);
        !           291:                        savnum=0;
        !           292:                        switch(i) {
        !           293:                                case -1:        /* ESC */
        !           294:                                        done=1;
        !           295:                                        break;
        !           296:                                case 0:
        !           297:                                        SETHELP(WHERE);
        !           298: /*
        !           299: &System FidoNet Addresses:&
        !           300: 
        !           301: This is the FidoNet address of this system used to receive NetMail.
        !           302: The Main address is also used as the default address for sub-boards.
        !           303: Format: &Zone:Net/Node[.Point]&
        !           304: */
        !           305:                                        k=l=0;
        !           306:                                        while(1) {
        !           307:                                                for(i=0;i<total_faddrs && i<MAX_OPTS;i++) {
        !           308:                                                        if(i==0)
        !           309:                                                                strcpy(str,"Main");
        !           310:                                                        else
        !           311:                                                                sprintf(str,"AKA %u",i);
        !           312:                                                        sprintf(opt[i],"%-8.8s %-16s"
        !           313:                                                                ,str,faddrtoa(faddr[i])); }
        !           314:                                                opt[i][0]=0;
        !           315:                                                j=WIN_RHT|WIN_SAV|WIN_ACT|WIN_INSACT;
        !           316:                                                if(total_faddrs<MAX_OPTS)
        !           317:                                                        j|=WIN_INS|WIN_XTR;
        !           318:                                                if(total_faddrs)
        !           319:                                                        j|=WIN_DEL;
        !           320:                                                i=ulist(j,0,0,0,&k,&l
        !           321:                                                        ,"System Addresses",opt);
        !           322:                                                if(i==-1)
        !           323:                                                        break;
        !           324:                                                if((i&MSK_ON)==MSK_INS) {
        !           325:                                                        i&=MSK_OFF;
        !           326: 
        !           327:                                                        if(!total_faddrs)
        !           328:                                                                strcpy(str,"1:1/0");
        !           329:                                                        else
        !           330:                                                                strcpy(str,faddrtoa(faddr[0]));
        !           331:                                                        if(!uinput(WIN_MID|WIN_SAV,0,0,"Address"
        !           332:                                                                ,str,25,K_EDIT|K_UPPER))
        !           333:                                                                continue;
        !           334: 
        !           335:                                                        if((faddr=(faddr_t *)REALLOC(faddr
        !           336:                                 ,sizeof(faddr_t)*(total_faddrs+1)))==NULL) {
        !           337:                                 errormsg(WHERE,ERR_ALLOC,nulstr
        !           338:                                     ,sizeof(faddr_t)*total_faddrs+1);
        !           339:                                                                total_faddrs=0;
        !           340:                                                                bail(1);
        !           341:                                 continue; }
        !           342: 
        !           343:                                                        for(j=total_faddrs;j>i;j--)
        !           344:                                 faddr[j]=faddr[j-1];
        !           345: 
        !           346:                                                        faddr[i]=atofaddr(str);
        !           347:                                                        total_faddrs++;
        !           348:                                                        changes=1;
        !           349:                                                        continue; }
        !           350:                                                if((i&MSK_ON)==MSK_DEL) {
        !           351:                                                        i&=MSK_OFF;
        !           352:                                                        total_faddrs--;
        !           353:                                                        while(i<total_faddrs) {
        !           354:                                                                faddr[i]=faddr[i+1];
        !           355:                                                                i++; }
        !           356:                                                        changes=1;
        !           357:                                                        continue; }
        !           358:                                                strcpy(str,faddrtoa(faddr[i]));
        !           359:                                                uinput(WIN_MID|WIN_SAV,0,0,"Address"
        !           360:                                                        ,str,25,K_EDIT);
        !           361:                                                faddr[i]=atofaddr(str); }
        !           362:                     break;
        !           363:                                case 1:
        !           364:                                        i=0;
        !           365:                                        strcpy(opt[0],"Yes");
        !           366:                                        strcpy(opt[1],"No");
        !           367:                                        opt[2][0]=0;
        !           368:                                        SETHELP(WHERE);
        !           369: /*
        !           370: &Use Default Outbound NetMail Address:&
        !           371: 
        !           372: If you would like to have a default FidoNet address adding to outbound
        !           373: NetMail mail messages that do not have an address specified, select
        !           374: &Yes&.
        !           375: */
        !           376:                                        i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
        !           377:                                                ,"Use Default Outbound NetMail Address",opt);
        !           378:                                        if(i==1) {
        !           379:                                                if(dflt_faddr.zone)
        !           380:                                                        changes=1;
        !           381:                                                dflt_faddr.zone=0;
        !           382:                                                break; }
        !           383:                                        if(i==-1)
        !           384:                                                break;
        !           385:                                        if(!dflt_faddr.zone) {
        !           386:                                                dflt_faddr.zone=1;
        !           387:                                                changes=1; }
        !           388:                                        strcpy(str,faddrtoa(dflt_faddr));
        !           389:                                        SETHELP(WHERE);
        !           390: /*
        !           391: &Default Outbound FidoNet NetMail Address:&
        !           392: 
        !           393: If you would like to automatically add a FidoNet address to outbound
        !           394: NetMail that does not have an address specified, set this option
        !           395: to that address. This is useful for Fido/UUCP gateway mail.
        !           396: Format: &Zone:Net/Node[.Point]&
        !           397: */
        !           398:                                        if(uinput(WIN_MID|WIN_SAV,0,0,"Outbound Address"
        !           399:                                                ,str,25,K_EDIT)) {
        !           400:                                                dflt_faddr=atofaddr(str);
        !           401:                                                changes=1; }
        !           402:                     break;
        !           403:                                case 2:
        !           404:                                        SETHELP(WHERE);
        !           405: /*
        !           406: &Default Origin Line:&
        !           407: 
        !           408: This is the default origin line used for sub-boards networked via
        !           409: EchoMail. This origin line can be overridden on a per sub-board basis
        !           410: with the sub-board configuration &Network Options...&.
        !           411: */
        !           412:                                        uinput(WIN_MID|WIN_SAV,0,0,"* Origin"
        !           413:                                                ,origline,50,K_EDIT);
        !           414:                     break;
        !           415:                                case 3:
        !           416:                                        SETHELP(WHERE);
        !           417: /*
        !           418: &NetMail Semaphore File:&
        !           419: 
        !           420: This is a filename that will be used as a semaphore (signal) to your
        !           421: FidoNet front-end that new NetMail has been created and the messages
        !           422: should be re-scanned.
        !           423: */
        !           424:                                        uinput(WIN_MID|WIN_SAV,0,0,"NetMail Semaphore"
        !           425:                                                ,netmail_sem,50,K_EDIT|K_UPPER);
        !           426:                     break;
        !           427:                                case 4:
        !           428:                                        SETHELP(WHERE);
        !           429: /*
        !           430: &EchoMail Semaphore File:&
        !           431: 
        !           432: This is a filename that will be used as a semaphore (signal) to your
        !           433: FidoNet front-end that new EchoMail has been created and the messages
        !           434: should be re-scanned.
        !           435: */
        !           436:                                        uinput(WIN_MID|WIN_SAV,0,0,"EchoMail Semaphore"
        !           437:                                                ,echomail_sem,50,K_EDIT|K_UPPER);
        !           438:                     break;
        !           439:                                case 5:
        !           440:                                        SETHELP(WHERE);
        !           441: /*
        !           442: &Inbound File Directory:&
        !           443: 
        !           444: This directory is where inbound files are placed. This directory is
        !           445: only used when an incoming message has a file attached.
        !           446: */
        !           447:                                        uinput(WIN_MID|WIN_SAV,0,0,"Inbound Files"
        !           448:                                                ,fidofile_dir,50,K_EDIT|K_UPPER);
        !           449:                     break;
        !           450:                                case 6:
        !           451:                                        SETHELP(WHERE);
        !           452: /*
        !           453: &EchoMail Base Directory:&
        !           454: 
        !           455: This is an optional field used as a base directory for the location
        !           456: of EchoMail messages for sub-boards that do not have a specified
        !           457: &EchoMail Storage Directory&. If a sub-board does not have a specified
        !           458: storage directory for EchoMail, its messages will be imported from and
        !           459: exported to a sub-directory off of this base directory. The name of the
        !           460: sub-directory is the same as the internal code for the sub-directory.
        !           461: 
        !           462: If all EchoMail sub-boards have specified EchoMail storage directories,
        !           463: this option is not used at all.
        !           464: */
        !           465:                                        uinput(WIN_MID|WIN_SAV,0,0,"EchoMail Base"
        !           466:                                                ,echomail_dir,50,K_EDIT|K_UPPER);
        !           467:                     break;
        !           468:                                case 7:
        !           469:                                        SETHELP(WHERE);
        !           470: /*
        !           471: &NetMail Directory:&
        !           472: 
        !           473: This is the directory where NetMail will be imported from and exported
        !           474: to.
        !           475: */
        !           476:                                        uinput(WIN_MID|WIN_SAV,0,0,"NetMail"
        !           477:                                                ,netmail_dir,50,K_EDIT|K_UPPER);
        !           478:                     break;
        !           479:                                case 8:
        !           480:                                        i=0;
        !           481:                                        strcpy(opt[0],"Yes");
        !           482:                                        strcpy(opt[1],"No");
        !           483:                                        opt[2][0]=0;
        !           484:                                        SETHELP(WHERE);
        !           485: /*
        !           486: &Allow Users to Send NetMail:&
        !           487: 
        !           488: If you are on a FidoNet style network and want your users to be allowed
        !           489: to send NetMail, set this option to &Yes&.
        !           490: */
        !           491:                                        i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
        !           492:                                                ,"Allow Users to Send NetMail",opt);
        !           493:                                        if(!i && !(netmail_misc&NMAIL_ALLOW)) {
        !           494:                                                changes=1;
        !           495:                                                netmail_misc|=NMAIL_ALLOW; }
        !           496:                                        else if(i==1 && netmail_misc&NMAIL_ALLOW) {
        !           497:                                                changes=1;
        !           498:                                                netmail_misc&=~NMAIL_ALLOW; }
        !           499:                                        break;
        !           500:                                case 9:
        !           501:                                        i=0;
        !           502:                                        strcpy(opt[0],"Yes");
        !           503:                                        strcpy(opt[1],"No");
        !           504:                                        opt[2][0]=0;
        !           505:                                        SETHELP(WHERE);
        !           506: /*
        !           507: &Allow Users to Send NetMail File Attachments:&
        !           508: 
        !           509: If you are on a FidoNet style network and want your users to be allowed
        !           510: to send NetMail file attachments, set this option to &Yes&.
        !           511: */
        !           512:                                        i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
        !           513:                                                ,"Allow Users to Send NetMail File Attachments",opt);
        !           514:                                        if(!i && !(netmail_misc&NMAIL_FILE)) {
        !           515:                                                changes=1;
        !           516:                                                netmail_misc|=NMAIL_FILE; }
        !           517:                                        else if(i==1 && netmail_misc&NMAIL_FILE) {
        !           518:                                                changes=1;
        !           519:                                                netmail_misc&=~NMAIL_FILE; }
        !           520:                     break;
        !           521:                                case 10:
        !           522:                                        i=1;
        !           523:                                        strcpy(opt[0],"Yes");
        !           524:                                        strcpy(opt[1],"No");
        !           525:                                        opt[2][0]=0;
        !           526:                                        SETHELP(WHERE);
        !           527: /*
        !           528: &Use Aliases in NetMail:&
        !           529: 
        !           530: If you allow aliases on your system and wish users to have their NetMail
        !           531: contain their alias as the &From User&, set this option to &Yes&. If you
        !           532: want all NetMail to be sent using users' real names, set this option to
        !           533: &No&.
        !           534: */
        !           535:                                        i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
        !           536:                                                ,"Use Aliases in NetMail",opt);
        !           537:                                        if(!i && !(netmail_misc&NMAIL_ALIAS)) {
        !           538:                                                changes=1;
        !           539:                                                netmail_misc|=NMAIL_ALIAS; }
        !           540:                                        else if(i==1 && netmail_misc&NMAIL_ALIAS) {
        !           541:                                                changes=1;
        !           542:                                                netmail_misc&=~NMAIL_ALIAS; }
        !           543:                     break;
        !           544:                                case 11:
        !           545:                                        i=1;
        !           546:                                        strcpy(opt[0],"Yes");
        !           547:                                        strcpy(opt[1],"No");
        !           548:                                        opt[2][0]=0;
        !           549:                                        SETHELP(WHERE);
        !           550: /*
        !           551: &NetMail Defaults to Crash Status:&
        !           552: 
        !           553: If you want all NetMail to default to crash (send immediately) status,
        !           554: set this option to &Yes&.
        !           555: */
        !           556:                                        i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
        !           557:                                                ,"NetMail Defaults to Crash Status",opt);
        !           558:                                        if(!i && !(netmail_misc&NMAIL_CRASH)) {
        !           559:                                                changes=1;
        !           560:                                                netmail_misc|=NMAIL_CRASH; }
        !           561:                                        else if(i==1 && netmail_misc&NMAIL_CRASH) {
        !           562:                                                changes=1;
        !           563:                                                netmail_misc&=~NMAIL_CRASH; }
        !           564:                     break;
        !           565:                                case 12:
        !           566:                                        i=1;
        !           567:                                        strcpy(opt[0],"Yes");
        !           568:                                        strcpy(opt[1],"No");
        !           569:                                        opt[2][0]=0;
        !           570:                                        SETHELP(WHERE);
        !           571: /*
        !           572: &NetMail Defaults to Direct Status:&
        !           573: 
        !           574: If you want all NetMail to default to direct (send directly) status,
        !           575: set this option to &Yes&.
        !           576: */
        !           577:                                        i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
        !           578:                                                ,"NetMail Defaults to Direct Status",opt);
        !           579:                                        if(!i && !(netmail_misc&NMAIL_DIRECT)) {
        !           580:                                                changes=1;
        !           581:                                                netmail_misc|=NMAIL_DIRECT; }
        !           582:                                        else if(i==1 && netmail_misc&NMAIL_DIRECT) {
        !           583:                                                changes=1;
        !           584:                                                netmail_misc&=~NMAIL_DIRECT; }
        !           585:                     break;
        !           586:                                case 13:
        !           587:                                        i=1;
        !           588:                                        strcpy(opt[0],"Yes");
        !           589:                                        strcpy(opt[1],"No");
        !           590:                                        opt[2][0]=0;
        !           591:                                        SETHELP(WHERE);
        !           592: /*
        !           593: &NetMail Defaults to Hold Status:&
        !           594: 
        !           595: If you want all NetMail to default to hold status, set this option to
        !           596: &Yes&.
        !           597: */
        !           598:                                        i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
        !           599:                                                ,"NetMail Defaults to Hold Status",opt);
        !           600:                                        if(!i && !(netmail_misc&NMAIL_HOLD)) {
        !           601:                                                changes=1;
        !           602:                                                netmail_misc|=NMAIL_HOLD; }
        !           603:                                        else if(i==1 && netmail_misc&NMAIL_HOLD) {
        !           604:                                                changes=1;
        !           605:                                                netmail_misc&=~NMAIL_HOLD; }
        !           606:                     break;
        !           607:                                case 14:
        !           608:                                        i=0;
        !           609:                                        strcpy(opt[0],"Yes");
        !           610:                                        strcpy(opt[1],"No");
        !           611:                                        opt[2][0]=0;
        !           612:                                        SETHELP(WHERE);
        !           613: /*
        !           614: &Kill NetMail After it is Sent:&
        !           615: 
        !           616: If you want NetMail messages to be deleted after they are successfully
        !           617: sent, set this option to &Yes&.
        !           618: */
        !           619:                                        i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
        !           620:                                                ,"Kill NetMail After it is Sent",opt);
        !           621:                                        if(!i && !(netmail_misc&NMAIL_KILL)) {
        !           622:                                                changes=1;
        !           623:                                                netmail_misc|=NMAIL_KILL; }
        !           624:                                        else if(i==1 && netmail_misc&NMAIL_KILL) {
        !           625:                                                changes=1;
        !           626:                                                netmail_misc&=~NMAIL_KILL; }
        !           627:                     break;
        !           628:                                case 15:
        !           629:                                        ultoa(netmail_cost,str,10);
        !           630:                                        SETHELP(WHERE);
        !           631: /*
        !           632: &Cost in Credits to Send NetMail:&
        !           633: 
        !           634: This is the number of credits it will cost your users to send NetMail.
        !           635: If you want the sending of NetMail to be free, set this value to &0&.
        !           636: */
        !           637:                                        uinput(WIN_MID|WIN_SAV,0,0
        !           638:                                                ,"Cost in Credits to Send NetMail"
        !           639:                                                ,str,10,K_EDIT|K_NUMBER);
        !           640:                                        netmail_cost=atol(str);
        !           641:                                        break; } } }
        !           642:        else if(i==2) {
        !           643:                done=0;
        !           644:                while(!done) {
        !           645:                        i=0;
        !           646:                        strcpy(opt[i++],"Network Hubs...");
        !           647:                        sprintf(opt[i++],"%-20.20s%-12s","Site Name",sys_psname);
        !           648:                        sprintf(opt[i++],"%-20.20s%-lu","Site Number",sys_psnum);
        !           649:                        opt[i][0]=0;
        !           650:                        SETHELP(WHERE);
        !           651: /*
        !           652: &PostLink Networks:&
        !           653: 
        !           654: From this menu you can configure the default tagline to use for
        !           655: outgoing messages on QWK networked sub-boards, or you can select
        !           656: &Network Hubs...& to add, delete, or configure QWK hubs that your system
        !           657: calls to exchange packets with.
        !           658: */
        !           659:                        i=ulist(WIN_ACT|WIN_RHT|WIN_BOT|WIN_CHE,0,0,0,&pnet_dflt,0
        !           660:                                ,"PostLink Networks",opt);
        !           661:                        savnum=0;
        !           662:                        switch(i) {
        !           663:                                case -1:        /* ESC */
        !           664:                                        done=1;
        !           665:                                        break;
        !           666:                                case 1:
        !           667:                                        SETHELP(WHERE);
        !           668: /*
        !           669: &PostLink Site Name:&
        !           670: 
        !           671: If your system is networked via PostLink or PCRelay, this should be the
        !           672: Site Name for your BBS.
        !           673: */
        !           674:                                        uinput(WIN_MID|WIN_SAV,0,0,"Site Name"
        !           675:                                                ,sys_psname,12,K_UPPER|K_EDIT);
        !           676:                                        break;
        !           677:                                case 2:
        !           678:                                        SETHELP(WHERE);
        !           679: /*
        !           680: &PostLink Site Number:&
        !           681: 
        !           682: If your system is networked via PostLink or PCRelay, this should be the
        !           683: Site Number for your BBS.
        !           684: */
        !           685:                                        ultoa(sys_psnum,str,10);
        !           686:                                        uinput(WIN_MID|WIN_SAV,0,0,"Site Number"
        !           687:                                                ,str,10,K_NUMBER|K_EDIT);
        !           688:                                        sys_psnum=atol(str);
        !           689:                     break;
        !           690:                                case 0:
        !           691:                                        while(1) {
        !           692:                                                for(i=0;i<total_phubs && i<MAX_OPTS;i++)
        !           693:                                                        sprintf(opt[i],"%-10.10s",phub[i]->name);
        !           694:                                                opt[i][0]=0;
        !           695:                                                i=WIN_ACT|WIN_RHT|WIN_SAV;
        !           696:                                                if(total_phubs<MAX_OPTS)
        !           697:                                                        i|=WIN_INS|WIN_INSACT|WIN_XTR;
        !           698:                                                if(total_phubs)
        !           699:                                                        i|=WIN_DEL;
        !           700:                                                savnum=0;
        !           701:                                                SETHELP(WHERE);
        !           702: /*
        !           703: &PostLink Network Hubs:&
        !           704: 
        !           705: This is a list of PostLink and/or PCRelay network hubs that your system
        !           706: calls to exchange packets with.
        !           707: 
        !           708: To add a hub, select the desired location with the arrow keys and hit
        !           709:  INS .
        !           710: 
        !           711: To delete a hub, select it and hit  DEL .
        !           712: 
        !           713: To configure a hub, select it and hit  ENTER .
        !           714: */
        !           715:                                                i=ulist(i,0,0,0,&phub_dflt,0
        !           716:                                                        ,"PostLink Hubs",opt);
        !           717:                                                if(i==-1)
        !           718:                                                        break;
        !           719:                                                if((i&MSK_ON)==MSK_INS) {
        !           720:                                                        i&=MSK_OFF;
        !           721:                                                        if((phub=(phub_t **)REALLOC(phub
        !           722:                                 ,sizeof(phub_t *)*(total_phubs+1)))==NULL) {
        !           723:                                 errormsg(WHERE,ERR_ALLOC,nulstr
        !           724:                                     ,sizeof(phub_t *)*(total_phubs+1));
        !           725:                                                                total_phubs=0;
        !           726:                                                                bail(1);
        !           727:                                 continue; }
        !           728: 
        !           729:                                                        savnum=1;
        !           730:                                                        SETHELP(WHERE);
        !           731: /*
        !           732: &Network Hub Site Name:&
        !           733: 
        !           734: This is the Site Name of this hub. It is used for only for reference.
        !           735: */
        !           736:                                                        if(uinput(WIN_MID|WIN_SAV,0,0
        !           737:                                                                ,"Site Name",str,10,K_UPPER)<1)
        !           738:                                                                continue;
        !           739: 
        !           740:                                                        for(j=total_phubs;j>i;j--)
        !           741:                                 phub[j]=phub[j-1];
        !           742: 
        !           743:                                                        if((phub[i]=(phub_t *)MALLOC(sizeof(phub_t)))
        !           744:                                                                ==NULL) {
        !           745:                                                                errormsg(WHERE,ERR_ALLOC,nulstr
        !           746:                                                                        ,sizeof(phub_t));
        !           747:                                                                continue; }
        !           748:                                                        memset(phub[i],0,sizeof(phub_t));
        !           749:                                                        strcpy(phub[i]->name,str);
        !           750:                                                        strcpy(phub[i]->call,"%!pnet");
        !           751:                                                        phub[i]->node=1;
        !           752:                                                        phub[i]->days=0xff; /* all days */
        !           753:                                                        total_phubs++;
        !           754:                                                        changes=1;
        !           755:                                                        continue; }
        !           756:                                                if((i&MSK_ON)==MSK_DEL) {
        !           757:                                                        i&=MSK_OFF;
        !           758:                                                        FREE(phub[i]);
        !           759:                                                        total_phubs--;
        !           760:                                                        while(i<total_phubs) {
        !           761:                                                                phub[i]=phub[i+1];
        !           762:                                                                i++; }
        !           763:                                                        changes=1;
        !           764:                                                        continue; }
        !           765:                                                phub_edit(i); }
        !           766:                     break; } } }
        !           767: 
        !           768:        else if(i==3) {         /* Internet */
        !           769:                done=0;
        !           770:                while(!done) {
        !           771:                        i=0;
        !           772:                        sprintf(opt[i++],"%-27.27s%s"
        !           773:                                ,"System Address",sys_inetaddr);
        !           774:                        sprintf(opt[i++],"%-27.27s%.40s"
        !           775:                                ,"NetMail Semaphore",inetmail_sem);
        !           776:                        sprintf(opt[i++],"%-27.27s%s"
        !           777:                                ,"Allow Sending of NetMail"
        !           778:                                ,inetmail_misc&NMAIL_ALLOW ? "Yes":"No");
        !           779:                        sprintf(opt[i++],"%-27.27s%s"
        !           780:                                ,"Allow File Attachments"
        !           781:                                ,inetmail_misc&NMAIL_FILE ? "Yes":"No");
        !           782:                        sprintf(opt[i++],"%-27.27s%s"
        !           783:                                ,"Send NetMail Using Alias"
        !           784:                                ,inetmail_misc&NMAIL_ALIAS ? "Yes":"No");
        !           785:                        sprintf(opt[i++],"%-27.27s%lu"
        !           786:                                ,"Cost to Send NetMail",inetmail_cost);
        !           787:                        opt[i][0]=0;
        !           788:                        SETHELP(WHERE);
        !           789: /*
        !           790: &Internet NetMail:&
        !           791: 
        !           792: This menu contains configuration options that pertain specifically to
        !           793: Internet E-mail (NetMail). To utilize these options, you must own
        !           794: a Synchronet compatible UUCP/Internet gateway (e.g. &SyncUUCP&).
        !           795: */
        !           796:                        i=ulist(WIN_ACT|WIN_MID|WIN_CHE,0,0,60,&inet_dflt,0
        !           797:                                ,"Internet NetMail",opt);
        !           798:                        savnum=0;
        !           799:                        switch(i) {
        !           800:                                case -1:        /* ESC */
        !           801:                                        done=1;
        !           802:                                        break;
        !           803:                                case 0:
        !           804:                                        SETHELP(WHERE);
        !           805: /*
        !           806: &Sytem Internet Address:&
        !           807: 
        !           808: If your system has an Internet mail feed, enter your system's Internet
        !           809: address here (e.g. &joesbbs.com&).
        !           810: */
        !           811:                                        uinput(WIN_MID|WIN_SAV,0,0,""
        !           812:                                                ,sys_inetaddr,60,K_EDIT);
        !           813:                     break;
        !           814:                                case 1:
        !           815:                                        SETHELP(WHERE);
        !           816: /*
        !           817: &Internet NetMail Semaphore File:&
        !           818: 
        !           819: This is a filename that will be used as a semaphore (signal) to your
        !           820: Internet gateway (if supported) that new mail has been created and the
        !           821: message base should be re-scanned.
        !           822: */
        !           823:                                        uinput(WIN_MID|WIN_SAV,0,0,"Semaphore File"
        !           824:                                                ,inetmail_sem,50,K_EDIT|K_UPPER);
        !           825:                     break;
        !           826: 
        !           827:                                case 2:
        !           828:                                        i=0;
        !           829:                                        strcpy(opt[0],"Yes");
        !           830:                                        strcpy(opt[1],"No");
        !           831:                                        opt[2][0]=0;
        !           832:                                        SETHELP(WHERE);
        !           833: /*
        !           834: &Allow Users to Send Internet NetMail:&
        !           835: 
        !           836: If your system has an Internet uplink and you want your users to be
        !           837: allowed to send Internet NetMail, set this option to &Yes&.
        !           838: */
        !           839:                                        i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
        !           840:                                                ,"Allow Users to Send NetMail",opt);
        !           841:                                        if(!i && !(inetmail_misc&NMAIL_ALLOW)) {
        !           842:                                                changes=1;
        !           843:                                                inetmail_misc|=NMAIL_ALLOW; }
        !           844:                                        else if(i==1 && inetmail_misc&NMAIL_ALLOW) {
        !           845:                                                changes=1;
        !           846:                                                inetmail_misc&=~NMAIL_ALLOW; }
        !           847:                                        break;
        !           848: 
        !           849:                                case 3:
        !           850:                                        i=0;
        !           851:                                        strcpy(opt[0],"Yes");
        !           852:                                        strcpy(opt[1],"No");
        !           853:                                        opt[2][0]=0;
        !           854:                                        SETHELP(WHERE);
        !           855: /*
        !           856: &Allow Users to Send Internet NetMail File Attachments:&
        !           857: 
        !           858: If your system has an Internet uplink and you want your users to be
        !           859: allowed to send Internet NetMail file attachments, set this option to &Yes&.
        !           860: */
        !           861:                                        i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
        !           862:                                                ,"Allow Users to Send NetMail File Attachments",opt);
        !           863:                                        if(!i && !(inetmail_misc&NMAIL_FILE)) {
        !           864:                                                changes=1;
        !           865:                                                inetmail_misc|=NMAIL_FILE; }
        !           866:                                        else if(i==1 && inetmail_misc&NMAIL_FILE) {
        !           867:                                                changes=1;
        !           868:                                                inetmail_misc&=~NMAIL_FILE; }
        !           869:                     break;
        !           870:                                case 4:
        !           871:                                        i=1;
        !           872:                                        strcpy(opt[0],"Yes");
        !           873:                                        strcpy(opt[1],"No");
        !           874:                                        opt[2][0]=0;
        !           875:                                        SETHELP(WHERE);
        !           876: /*
        !           877: &Use Aliases in NetMail:&
        !           878: 
        !           879: If you allow aliases on your system and wish users to have their NetMail
        !           880: contain their alias as the &From User&, set this option to &Yes&. If you
        !           881: want all NetMail to be sent using users' real names, set this option to
        !           882: &No&.
        !           883: */
        !           884:                                        i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
        !           885:                                                ,"Use Aliases in NetMail",opt);
        !           886:                                        if(!i && !(inetmail_misc&NMAIL_ALIAS)) {
        !           887:                                                changes=1;
        !           888:                                                inetmail_misc|=NMAIL_ALIAS; }
        !           889:                                        else if(i==1 && inetmail_misc&NMAIL_ALIAS) {
        !           890:                                                changes=1;
        !           891:                                                inetmail_misc&=~NMAIL_ALIAS; }
        !           892:                                        break;
        !           893:                                case 5:
        !           894:                                        ultoa(inetmail_cost,str,10);
        !           895:                                        SETHELP(WHERE);
        !           896: /*
        !           897: &Cost in Credits to Send NetMail:&
        !           898: 
        !           899: This is the number of credits it will cost your users to send NetMail.
        !           900: If you want the sending of NetMail to be free, set this value to &0&.
        !           901: */
        !           902:                                        uinput(WIN_MID|WIN_SAV,0,0
        !           903:                                                ,"Cost in Credits to Send NetMail"
        !           904:                                                ,str,10,K_EDIT|K_NUMBER);
        !           905:                                        inetmail_cost=atol(str);
        !           906:                                        break; } } }
        !           907: 
        !           908:        else { /* ESC */
        !           909:                i=save_changes(WIN_MID|WIN_SAV);
        !           910:                if(i==-1)
        !           911:                        continue;
        !           912:                if(!i)
        !           913:                        write_msgs_cfg();
        !           914:                break; } }
        !           915: }
        !           916: 
        !           917: void qhub_edit(int num)
        !           918: {
        !           919:        static int qhub_dflt;
        !           920:        char *p,done=0,str[256];
        !           921:        int i,j,k,n;
        !           922: 
        !           923: while(!done) {
        !           924:        i=0;
        !           925:        sprintf(opt[i++],"%-27.27s%s","Hub System ID",qhub[num]->id);
        !           926:        sprintf(opt[i++],"%-27.27s%.40s","Pack Command Line",qhub[num]->pack);
        !           927:        sprintf(opt[i++],"%-27.27s%.40s","Unpack Command Line",qhub[num]->unpack);
        !           928:        sprintf(opt[i++],"%-27.27s%.40s","Call-out Command Line",qhub[num]->call);
        !           929:        sprintf(opt[i++],"%-27.27s%u","Call-out Node",qhub[num]->node);
        !           930:        sprintf(opt[i++],"%-27.27s%s","Call-out Days",daystr(qhub[num]->days));
        !           931:        if(qhub[num]->freq) {
        !           932:                sprintf(str,"%u times a day",1440/qhub[num]->freq);
        !           933:                sprintf(opt[i++],"%-27.27s%s","Call-out Frequency",str); }
        !           934:        else {
        !           935:                sprintf(str,"%2.2d:%2.2d",qhub[num]->time/60,qhub[num]->time%60);
        !           936:                sprintf(opt[i++],"%-27.27s%s","Call-out Time",str); }
        !           937:        strcpy(opt[i++],"Networked Sub-boards...");
        !           938:        opt[i][0]=0;
        !           939:        sprintf(str,"%s Network Hub",qhub[num]->id);
        !           940:        savnum=1;
        !           941:        SETHELP(WHERE);
        !           942: /*
        !           943: &QWK Network Hub Configuration:&
        !           944: 
        !           945: This menu allows you to configure options specific to this QWK network
        !           946: hub.
        !           947: */
        !           948:        switch(ulist(WIN_ACT|WIN_MID|WIN_SAV,0,0,0,&qhub_dflt,0
        !           949:                ,str,opt)) {
        !           950:                case -1:
        !           951:                        done=1;
        !           952:                        break;
        !           953:                case 0:
        !           954:                        SETHELP(WHERE);
        !           955: /*
        !           956: &QWK Network Hub System ID:&
        !           957: 
        !           958: This is the QWK System ID of this hub. It is used for incoming and
        !           959: outgoing network packets and must be accurate.
        !           960: */
        !           961:                        strcpy(str,qhub[num]->id);      /* save */
        !           962:                        if(!uinput(WIN_MID|WIN_SAV,0,0,"QWK Network Hub System ID"
        !           963:                                ,qhub[num]->id,8,K_UPPER|K_EDIT))
        !           964:                                strcpy(qhub[num]->id,str);
        !           965:                        break;
        !           966:                case 1:
        !           967:                        SETHELP(WHERE);
        !           968: /*
        !           969: &REP Packet Creation Command:&
        !           970: 
        !           971: This is the command line to use to create (compress) REP packets for
        !           972: this QWK network hub.
        !           973: */
        !           974:                        uinput(WIN_MID|WIN_SAV,0,0,"Packet Creation"
        !           975:                                ,qhub[num]->pack,50,K_EDIT);
        !           976:                        break;
        !           977:                case 2:
        !           978:                        SETHELP(WHERE);
        !           979: /*
        !           980: &QWK Packet Extraction Command:&
        !           981: 
        !           982: This is the command line to use to extract (decompress) QWK packets from
        !           983: this QWK network hub.
        !           984: */
        !           985:                        uinput(WIN_MID|WIN_SAV,0,0,"Packet Extraction"
        !           986:                                ,qhub[num]->unpack,50,K_EDIT);
        !           987:                        break;
        !           988:                case 3:
        !           989:                        SETHELP(WHERE);
        !           990: /*
        !           991: &QWK Network Hub Call-out Command Line:&
        !           992: 
        !           993: This is the command line to use to initiate a call-out to this QWK
        !           994: network hub.
        !           995: */
        !           996:                        uinput(WIN_MID|WIN_SAV,0,0,"Call-out Command"
        !           997:                                ,qhub[num]->call,50,K_EDIT);
        !           998:                        break;
        !           999:                case 4:
        !          1000:                        sprintf(str,"%u",qhub[num]->node);
        !          1001:                        SETHELP(WHERE);
        !          1002: /*
        !          1003: &Node to Perform Call-out:&
        !          1004: 
        !          1005: This is the number of the node to perform the call-out for this QWK
        !          1006: network hub.
        !          1007: */
        !          1008:                        uinput(WIN_MID|WIN_SAV,0,0
        !          1009:                                ,"Node to Perform Call-out",str,3,K_EDIT|K_NUMBER);
        !          1010:                        qhub[num]->node=atoi(str);
        !          1011:                        break;
        !          1012:                case 5:
        !          1013:                        j=0;
        !          1014:                        while(1) {
        !          1015:                                for(i=0;i<7;i++)
        !          1016:                                        sprintf(opt[i],"%s        %s"
        !          1017:                                                ,wday[i],(qhub[num]->days&(1<<i)) ? "Yes":"No");
        !          1018:                                opt[i][0]=0;
        !          1019:                                savnum=2;
        !          1020:                                SETHELP(WHERE);
        !          1021: /*
        !          1022: &Days to Perform Call-out:&
        !          1023: 
        !          1024: These are the days that a call-out will be performed for this QWK
        !          1025: network hub.
        !          1026: */
        !          1027:                                i=ulist(WIN_MID,0,0,0,&j,0
        !          1028:                                        ,"Days to Perform Call-out",opt);
        !          1029:                                if(i==-1)
        !          1030:                                        break;
        !          1031:                                qhub[num]->days^=(1<<i);
        !          1032:                                changes=1; }
        !          1033:                        break;
        !          1034:                case 6:
        !          1035:                        i=1;
        !          1036:                        strcpy(opt[0],"Yes");
        !          1037:                        strcpy(opt[1],"No");
        !          1038:                        opt[2][0]=0;
        !          1039:                        savnum=2;
        !          1040:                        SETHELP(WHERE);
        !          1041: /*
        !          1042: &Perform Call-out at a Specific Time:&
        !          1043: 
        !          1044: If you want the system call this QWK network hub at a specific time,
        !          1045: set this option to &Yes&. If you want the system to call this network
        !          1046: hub more than once a day at predetermined intervals, set this option to
        !          1047: &No&.
        !          1048: */
        !          1049:                        i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
        !          1050:                                ,"Perform Call-out at a Specific Time",opt);
        !          1051:                        if(i==0) {
        !          1052:                                sprintf(str,"%2.2d:%2.2d",qhub[num]->time/60
        !          1053:                                        ,qhub[num]->time%60);
        !          1054:                                SETHELP(WHERE);
        !          1055: /*
        !          1056: &Time to Perform Call-out:&
        !          1057: 
        !          1058: This is the time (in 24 hour HH:MM format) to perform the call-out to
        !          1059: this QWK network hub.
        !          1060: */
        !          1061:                                if(uinput(WIN_MID|WIN_SAV,0,0
        !          1062:                                        ,"Time to Perform Call-out (HH:MM)"
        !          1063:                                        ,str,5,K_UPPER|K_EDIT)>0) {
        !          1064:                                        qhub[num]->freq=0;
        !          1065:                                        qhub[num]->time=atoi(str)*60;
        !          1066:                                        if((p=strchr(str,':'))!=NULL)
        !          1067:                                                qhub[num]->time+=atoi(p+1); } }
        !          1068:                        else if(i==1) {
        !          1069:                                sprintf(str,"%u",qhub[num]->freq
        !          1070:                                        && qhub[num]->freq<=1440 ? 1440/qhub[num]->freq : 0);
        !          1071:                                SETHELP(WHERE);
        !          1072: /*
        !          1073: &Number of Call-outs Per Day:&
        !          1074: 
        !          1075: This is the maximum number of times the system will perform a call-out
        !          1076: per day to this QWK network hub. This value is actually converted by
        !          1077: Synchronet into minutes between call-outs and when the BBS is idle
        !          1078: and this number of minutes since the last call-out is reached, it will
        !          1079: perform a call-out.
        !          1080: */
        !          1081:                                if(uinput(WIN_MID|WIN_SAV,0,0
        !          1082:                                        ,"Number of Call-outs Per Day"
        !          1083:                                        ,str,4,K_NUMBER|K_EDIT)>0) {
        !          1084:                                        qhub[num]->time=0;
        !          1085:                                        i=atoi(str);
        !          1086:                                        if(i && i<=1440)
        !          1087:                                                qhub[num]->freq=1440/i;
        !          1088:                                        else
        !          1089:                                                qhub[num]->freq=0; } }
        !          1090:                        break;
        !          1091:                case 7:
        !          1092:                        qhub_sub_edit(num);
        !          1093:                        break; } }
        !          1094: }
        !          1095: 
        !          1096: void qhub_sub_edit(uint num)
        !          1097: {
        !          1098:        char str[256];
        !          1099:        int i,j,k,l,m,n,bar=0;
        !          1100: 
        !          1101: k=0;
        !          1102: while(1) {
        !          1103:        for(j=0;j<qhub[num]->subs;j++)
        !          1104:                sprintf(opt[j],"%-*.*s %-*.*s"
        !          1105:                        ,LEN_GSNAME,LEN_GSNAME
        !          1106:                        ,grp[sub[qhub[num]->sub[j]]->grp]->sname
        !          1107:                        ,LEN_SSNAME,LEN_SSNAME
        !          1108:                        ,sub[qhub[num]->sub[j]]->sname);
        !          1109:        opt[j][0]=0;
        !          1110:        savnum=2;
        !          1111:        j=WIN_BOT|WIN_SAV|WIN_ACT;
        !          1112:        if(qhub[num]->subs<MAX_OPTS)
        !          1113:                j|=WIN_INS|WIN_INSACT|WIN_XTR;
        !          1114:        if(qhub[num]->subs)
        !          1115:                j|=WIN_DEL;
        !          1116:        SETHELP(WHERE);
        !          1117: /*
        !          1118: &QWK Networked Sub-boards:&
        !          1119: 
        !          1120: This is a list of the sub-boards that are networked with this QWK
        !          1121: network hub.
        !          1122: 
        !          1123: To add a sub-board, select the desired location and hit  INS .
        !          1124: 
        !          1125: To remove a sub-board, select it and hit  DEL .
        !          1126: 
        !          1127: To configure a sub-board for this QWK network hub, select it and hit
        !          1128:  ENTER .
        !          1129: */
        !          1130:        j=ulist(j,0,0,0,&k,&bar
        !          1131:                ,"Networked Sub-boards",opt);
        !          1132:        if(j==-1)
        !          1133:                break;
        !          1134:        if((j&MSK_ON)==MSK_INS) {
        !          1135:                j&=MSK_OFF;
        !          1136:                savnum=3;
        !          1137:                if((l=getsub())==-1)
        !          1138:                        continue;
        !          1139:                savnum=3;
        !          1140:                SETHELP(WHERE);
        !          1141: /*
        !          1142: &Conference Number on Hub:&
        !          1143: 
        !          1144: This is the number of the conference on the QWK network hub, that this
        !          1145: sub-board is networked with. On Synchronet systems, this number is
        !          1146: derived by multiplying the group number by 10 and adding the sub-board
        !          1147: number. For example, group 2, sub-board 3, is conference number 203.
        !          1148: 
        !          1149: It is important to understand that this is &NOT& the conference number of
        !          1150: this sub-board on your system. It is the number of the conference this
        !          1151: sub-board is networked with on this &QWK network hub&.
        !          1152: */
        !          1153:                if(uinput(WIN_MID|WIN_SAV,0,0
        !          1154:                        ,"Conference Number on Hub"
        !          1155:                        ,str,5,K_NUMBER)<1)
        !          1156:                        continue;
        !          1157:                strcpy(opt[0],"Strip out");
        !          1158:                strcpy(opt[1],"Leave in");
        !          1159:                strcpy(opt[2],"Expand to ANSI");
        !          1160:                opt[3][0]=0;
        !          1161:                m=0;
        !          1162:                SETHELP(WHERE);
        !          1163: /*
        !          1164: &Ctrl-A Codes:&
        !          1165: 
        !          1166: You are being prompted for the method of handling Ctrl-A attribute codes
        !          1167: generated by Synchronet. If this QWK network hub is a Synchronet BBS,
        !          1168: set this option to &Leave in&. If the QWK network hub is not a Synchronet
        !          1169: BBS, but allows ANSI escape sequences in messages, set this option to
        !          1170: &Expand to ANSI&. If the QWK network hub is not a Synchronet BBS and does
        !          1171: not support ANSI escape sequences in messages (or you're not sure), set
        !          1172: this option to &Strip out&.
        !          1173: */
        !          1174:                if((m=ulist(WIN_MID|WIN_SAV,0,0,0,&m,0
        !          1175:                        ,"Ctrl-A Codes",opt))==-1)
        !          1176:                        continue;
        !          1177:                if((qhub[num]->sub=(ushort *)REALLOC(qhub[num]->sub
        !          1178:                        ,sizeof(ushort *)*(qhub[num]->subs+1)))==NULL
        !          1179:                || (qhub[num]->conf=(ushort *)REALLOC(qhub[num]->conf
        !          1180:             ,sizeof(ushort *)*(qhub[num]->subs+1)))==NULL
        !          1181:                || (qhub[num]->mode=(uchar *)REALLOC(qhub[num]->mode
        !          1182:                        ,sizeof(uchar *)*(qhub[num]->subs+1)))==NULL) {
        !          1183:                        errormsg(WHERE,ERR_ALLOC,nulstr,qhub[num]->subs+1);
        !          1184:                        continue; }
        !          1185:                if(qhub[num]->subs)                       /* insert */
        !          1186:                        for(n=qhub[num]->subs;n>j;n--) {
        !          1187:                                qhub[num]->sub[n]=qhub[num]->sub[n-1];
        !          1188:                                qhub[num]->conf[n]=qhub[num]->conf[n-1];
        !          1189:                                qhub[num]->mode[n]=qhub[num]->mode[n-1]; }
        !          1190:                if(!m)
        !          1191:                        qhub[num]->mode[j]=A_STRIP;
        !          1192:                else if(m==1)
        !          1193:                        qhub[num]->mode[j]=A_LEAVE;
        !          1194:                else
        !          1195:                        qhub[num]->mode[j]=A_EXPAND;
        !          1196:                qhub[num]->sub[j]=l;
        !          1197:                qhub[num]->conf[j]=atoi(str);
        !          1198:                qhub[num]->subs++;
        !          1199:                changes=1;
        !          1200:                continue; }
        !          1201:        if((j&MSK_ON)==MSK_DEL) {
        !          1202:                j&=MSK_OFF;
        !          1203:                qhub[num]->subs--;
        !          1204:                while(j<qhub[num]->subs) {
        !          1205:                        qhub[num]->sub[j]=qhub[num]->sub[j+1];
        !          1206:                        qhub[num]->mode[j]=qhub[num]->mode[j+1];
        !          1207:                        qhub[num]->conf[j]=qhub[num]->conf[j+1];
        !          1208:                        j++; }
        !          1209:                changes=1;
        !          1210:                continue; }
        !          1211:        l=0;
        !          1212:        while(1) {
        !          1213:                n=0;
        !          1214:                sprintf(opt[n++],"%-22.22s%.*s %.*s"
        !          1215:                        ,"Sub-board"
        !          1216:                        ,LEN_GSNAME
        !          1217:                        ,grp[sub[qhub[num]->sub[j]]->grp]->sname
        !          1218:                        ,LEN_SSNAME
        !          1219:                        ,sub[qhub[num]->sub[j]]->sname);
        !          1220:                sprintf(opt[n++],"%-22.22s%u"
        !          1221:                        ,"Conference Number",qhub[num]->conf[j]);
        !          1222:                sprintf(opt[n++],"%-22.22s%s"
        !          1223:                        ,"Ctrl-A Codes",qhub[num]->mode[j]==A_STRIP ?
        !          1224:                        "Strip out" : qhub[num]->mode[j]==A_LEAVE ?
        !          1225:                        "Leave in" : "Expand to ANSI");
        !          1226:                opt[n][0]=0;
        !          1227:                savnum=3;
        !          1228:                SETHELP(WHERE);
        !          1229: /*
        !          1230: &QWK Netted Sub-board:&
        !          1231: 
        !          1232: You are configuring the options for this sub-board for this QWK network
        !          1233: hub.
        !          1234: */
        !          1235:                l=ulist(WIN_MID|WIN_SAV|WIN_ACT,0,0,
        !          1236:                        22+LEN_GSNAME+LEN_SSNAME,&l,0
        !          1237:                        ,"Netted Sub-board",opt);
        !          1238:                if(l==-1)
        !          1239:                        break;
        !          1240:                if(!l) {
        !          1241:                        savnum=4;
        !          1242:                        m=getsub();
        !          1243:                        if(m!=-1) {
        !          1244:                                qhub[num]->sub[j]=m;
        !          1245:                                changes=1; } }
        !          1246:                else if(l==1) {
        !          1247:                        savnum=4;
        !          1248:                        SETHELP(WHERE);
        !          1249: /*
        !          1250: &Conference Number on Hub:&
        !          1251: 
        !          1252: This is the number of the conference on the QWK network hub, that this
        !          1253: sub-board is networked with. On Synchronet systems, this number is
        !          1254: derived by multiplying the group number by 10 and adding the sub-board
        !          1255: number. For example, group 2, sub-board 3, is conference number 203.
        !          1256: 
        !          1257: It is important to understand that this is &NOT& the conference number of
        !          1258: this sub-board on your system. It is the number of the conference this
        !          1259: sub-board is networked with on this &QWK network hub&.
        !          1260: */
        !          1261:                        if(uinput(WIN_MID|WIN_SAV,0,0
        !          1262:                                ,"Conference Number on Hub"
        !          1263:                                ,str,5,K_NUMBER)>0)
        !          1264:                                qhub[num]->conf[j]=atoi(str); }
        !          1265:                else if(l==2) {
        !          1266:                        strcpy(opt[0],"Strip out");
        !          1267:                        strcpy(opt[1],"Leave in");
        !          1268:                        strcpy(opt[2],"Expand to ANSI");
        !          1269:                        opt[3][0]=0;
        !          1270:                        m=0;
        !          1271:                        savnum=4;
        !          1272:                        SETHELP(WHERE);
        !          1273: /*
        !          1274: &Ctrl-A Codes:&
        !          1275: 
        !          1276: You are being prompted for the method of handling Ctrl-A attribute codes
        !          1277: generated by Synchronet. If this QWK network hub is a Synchronet BBS,
        !          1278: set this option to &Leave in&. If the QWK network hub is not a Synchronet
        !          1279: BBS, but allows ANSI escape sequences in messages, set this option to
        !          1280: &Expand to ANSI&. If the QWK network hub is not a Synchronet BBS and does
        !          1281: not support ANSI escape sequences in messages (or you're not sure), set
        !          1282: this option to &Strip out&.
        !          1283: */
        !          1284:                        m=ulist(WIN_MID|WIN_SAV,0,0,0,&m,0
        !          1285:                                ,"Ctrl-A Codes",opt);
        !          1286:                        changes=1;
        !          1287:                        if(!m)
        !          1288:                                qhub[num]->mode[j]=A_STRIP;
        !          1289:                        else if(m==1)
        !          1290:                                qhub[num]->mode[j]=A_LEAVE;
        !          1291:                        else if(m==2)
        !          1292:                                qhub[num]->mode[j]=A_EXPAND; } } }
        !          1293: }
        !          1294: 
        !          1295: void phub_edit(int num)
        !          1296: {
        !          1297:        static int phub_dflt;
        !          1298:        char *p,done=0,str[256];
        !          1299:        int i,j,k,n;
        !          1300: 
        !          1301: while(!done) {
        !          1302:        i=0;
        !          1303:        sprintf(opt[i++],"%-27.27s%s","Hub Site Name",phub[num]->name);
        !          1304:        sprintf(opt[i++],"%-27.27s%.40s","Call-out Command Line",phub[num]->call);
        !          1305:        sprintf(opt[i++],"%-27.27s%u","Call-out Node",phub[num]->node);
        !          1306:        sprintf(opt[i++],"%-27.27s%s","Call-out Days",daystr(phub[num]->days));
        !          1307:        if(phub[num]->freq) {
        !          1308:                sprintf(str,"%u times a day",1440/phub[num]->freq);
        !          1309:                sprintf(opt[i++],"%-27.27s%s","Call-out Frequency",str); }
        !          1310:        else {
        !          1311:                sprintf(str,"%2.2d:%2.2d",phub[num]->time/60
        !          1312:                        ,phub[num]->time%60);
        !          1313:                sprintf(opt[i++],"%-27.27s%s","Call-out Time",str); }
        !          1314:        opt[i][0]=0;
        !          1315:        sprintf(str,"%s Network Hub",phub[num]->name);
        !          1316:        savnum=1;
        !          1317:        SETHELP(WHERE);
        !          1318: /*
        !          1319: &PostLink Network Hub Configuration:&
        !          1320: 
        !          1321: This menu allows you to configure options specific to this network hub.
        !          1322: */
        !          1323:        switch(ulist(WIN_ACT|WIN_MID|WIN_SAV,0,0,0,&phub_dflt,0
        !          1324:                ,str,opt)) {
        !          1325:                case -1:
        !          1326:                        done=1;
        !          1327:                        break;
        !          1328:                case 0:
        !          1329:                        SETHELP(WHERE);
        !          1330: /*
        !          1331: &Network Hub Site Name:&
        !          1332: 
        !          1333: This is the Site Name of this hub. It is used for only for reference.
        !          1334: */
        !          1335:                        strcpy(str,phub[num]->name);    /* save */
        !          1336:                        if(!uinput(WIN_MID|WIN_SAV,0,0,"Hub Site Name"
        !          1337:                                ,phub[num]->name,10,K_UPPER|K_EDIT))
        !          1338:                                strcpy(phub[num]->name,str);    /* restore */
        !          1339:                        break;
        !          1340:                case 1:
        !          1341:                        SETHELP(WHERE);
        !          1342: /*
        !          1343: &Network Hub Call-out Command Line:&
        !          1344: 
        !          1345: This is the command line to use to initiate a call-out to this network
        !          1346: hub.
        !          1347: */
        !          1348:                        uinput(WIN_MID|WIN_SAV,0,0,"Call-out Command"
        !          1349:                                ,phub[num]->call,50,K_EDIT);
        !          1350:                        break;
        !          1351:                case 2:
        !          1352:                        sprintf(str,"%u",phub[num]->node);
        !          1353:                        SETHELP(WHERE);
        !          1354: /*
        !          1355: &Node to Perform Call-out:&
        !          1356: 
        !          1357: This is the number of the node to perform the call-out for this network
        !          1358: hub.
        !          1359: */
        !          1360:                        uinput(WIN_MID|WIN_SAV,0,0
        !          1361:                                ,"Node to Perform Call-out",str,3,K_EDIT|K_NUMBER);
        !          1362:                        phub[num]->node=atoi(str);
        !          1363:                        break;
        !          1364:                case 3:
        !          1365:                        j=0;
        !          1366:                        while(1) {
        !          1367:                                for(i=0;i<7;i++)
        !          1368:                                        sprintf(opt[i],"%s        %s"
        !          1369:                                                ,wday[i],(phub[num]->days&(1<<i)) ? "Yes":"No");
        !          1370:                                opt[i][0]=0;
        !          1371:                                savnum=2;
        !          1372:                                SETHELP(WHERE);
        !          1373: /*
        !          1374: &Days to Perform Call-out:&
        !          1375: 
        !          1376: These are the days that a call-out will be performed for this network
        !          1377: hub.
        !          1378: */
        !          1379:                                i=ulist(WIN_MID|WIN_SAV,0,0,0,&j,0
        !          1380:                                        ,"Days to Perform Call-out",opt);
        !          1381:                                if(i==-1)
        !          1382:                                        break;
        !          1383:                                phub[num]->days^=(1<<i);
        !          1384:                                changes=1; }
        !          1385:                        break;
        !          1386:                case 4:
        !          1387:                        i=1;
        !          1388:                        strcpy(opt[0],"Yes");
        !          1389:                        strcpy(opt[1],"No");
        !          1390:                        opt[2][0]=0;
        !          1391:                        savnum=2;
        !          1392:                        SETHELP(WHERE);
        !          1393: /*
        !          1394: &Perform Call-out at a Specific Time:&
        !          1395: 
        !          1396: If you want the system call this network hub at a specific time, set
        !          1397: this option to &Yes&. If you want the system to call this hub more than
        !          1398: once a day at predetermined intervals, set this option to &No&.
        !          1399: */
        !          1400:                        i=ulist(WIN_MID|WIN_SAV,0,0,0,&i,0
        !          1401:                                ,"Perform Call-out at a Specific Time",opt);
        !          1402:                        if(i==0) {
        !          1403:                                sprintf(str,"%2.2d:%2.2d",phub[num]->time/60
        !          1404:                                        ,phub[num]->time%60);
        !          1405:                                SETHELP(WHERE);
        !          1406: /*
        !          1407: &Time to Perform Call-out:&
        !          1408: 
        !          1409: This is the time (in 24 hour HH:MM format) to perform the call-out to
        !          1410: this network hub.
        !          1411: */
        !          1412:                                if(uinput(WIN_MID|WIN_SAV,0,0
        !          1413:                                        ,"Time to Perform Call-out (HH:MM)"
        !          1414:                                        ,str,5,K_UPPER|K_EDIT)>0) {
        !          1415:                                        phub[num]->freq=0;
        !          1416:                                        phub[num]->time=atoi(str)*60;
        !          1417:                                        if((p=strchr(str,':'))!=NULL)
        !          1418:                                                phub[num]->time+=atoi(p+1); } }
        !          1419:                        else if(i==1) {
        !          1420:                                sprintf(str,"%u",phub[num]->freq
        !          1421:                                        && phub[num]->freq<=1440 ? 1440/phub[num]->freq : 0);
        !          1422:                                SETHELP(WHERE);
        !          1423: /*
        !          1424: &Number of Call-outs Per Day:&
        !          1425: 
        !          1426: This is the maximum number of times the system will perform a call-out
        !          1427: per day to this network hub. This value is actually converted by
        !          1428: Synchronet into minutes between call-outs and when the BBS is idle
        !          1429: and this number of minutes since the last call-out is reached, it will
        !          1430: perform a call-out.
        !          1431: */
        !          1432:                                if(uinput(WIN_MID|WIN_SAV,0,0
        !          1433:                                        ,"Number of Call-outs Per Day"
        !          1434:                                        ,str,4,K_NUMBER|K_EDIT)>0) {
        !          1435:                                        phub[num]->time=0;
        !          1436:                                        i=atoi(str);
        !          1437:                                        if(i && i<=1440)
        !          1438:                                                phub[num]->freq=1440/i;
        !          1439:                                        else
        !          1440:                                                phub[num]->freq=0; } }
        !          1441:                        break; } }
        !          1442: }
        !          1443: 
        !          1444: char *daystr(char days)
        !          1445: {
        !          1446:        static char str[256];
        !          1447:        int i;
        !          1448: 
        !          1449: str[0]=0;
        !          1450: for(i=0;i<7;i++) {
        !          1451:        if(days&(1<<i))
        !          1452:                strcat(str,wday[i]);
        !          1453:        else
        !          1454:                strcat(str,"   ");
        !          1455:        strcat(str," "); }
        !          1456: return(str);
        !          1457: }

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