/* * ctdl.c * * Command-interpreter code for Citadel. */ #define EXTERN #include "ctdl.h" #include "global_data.h" /* all global data in one place */ char QWKmain(void); /* #define NEED_MSG_PEEKING */ /* #define NEED_MSG_LIST */ /* * history * * 86Aug16 HAW Kill history from file because of space problems. * 84May18 JLS/HAW Greeting modified for coherency. * 84Apr04 HAW Upgrade to BDS 1.50a begun. * 83Mar08 CrT Aide-special functions installed & tested... * 83Feb24 CrT/SB Menus rearranged. * 82Dec06 CrT 2.00 release. * 82Nov05 CrT removed main() from room2.c and split into sub-fn()s */ /* * Contents * * doAide() handles Aide-only commands * doChat() handles C(hat) command * doEnter() handles E(nter) command * doForget() handles Z(Forget room) command * doGoto() handles G(oto) command * doHelp() handles H(elp) command * doKnown() handles K(nown rooms) command * doLogin() handles L(ogin) command * doLogout() handles T(erminate) command * doMeet() handles M(eet) User command * doRead() handles R(ead) command * doRegular() fanout for above commands * doSkip() handles S(kip) command * doSysop() handles sysop-only commands * doUngoto() handles U(ngoto) command * getCommand() prints prompt and gets command char * greeting() System-entry blurb etc * main() has the central menu code */ static char NoChatAtAll = FALSE; extern CONFIG cfg; /* The main variable to be saved */ extern aRoom roomBuf; /* Room buffer */ extern MessageBuffer msgBuf; /* Message buffer */ extern MessageBuffer tempMess; /* Message buffer */ extern logBuffer logBuf; /* Person's log buffer */ extern logBuffer logTmp; /* Person's log buffer */ extern rTable *roomTab; /* Room index for RAM */ extern LogTable *logTab; /* Log index for RAM */ extern struct floor *FloorTab; extern long FDSectCount; /* size of files in directory */ extern int thisRoom; /* Current room */ extern SECTOR_ID pulledMLoc; /* Loc of msg to be pulled */ extern MSG_NUMBER pulledMId; /* Id of msg to be pulled */ extern char *who_str; extern char remoteSysop; extern char onConsole; /* Where IO is ... */ extern char whichIO; /* Where IO is ... */ extern char outFlag; extern char loggedIn; /* Are we logged in? */ extern char echo; extern char newCarrier; /* Just got carrier, hurrah! */ extern char justLostCarrier;/* Boo, hiss! */ extern char textDownload; /* flag */ extern char haveCarrier; extern char *baseRoom; extern char heldMess; extern char anyEcho; extern char PrintBanner; /* * doAide() * * This function handles the aide-only menu. * * return FALSE to fall invisibly into default error msg. */ char doAide(char moreYet, char first) { label oldName; int rm; char chatStack; char fname[100]; char *ValAide[] = { "Chat ", "Delete empty rooms ", "Edit room\n", "Insert message ", "Kill room ", "S\bNot available.\n", "\b", " ", "" }; extern char *APrivateRoom; extern SListBase Moderators; if (roomBuf.rbflags.ISDIR == 1 && HalfSysop()) ExtraOption(ValAide, "Add File\n"); if (!aide) { PushBack('E'); } if (moreYet) first = '\0'; if (first) PushBack(first); SpecialMessage("Status:Aide Functions"); RegisterThisMenu("aide.mnu", ValAide); switch (GetMenuChar()) { case 'A': getString("EFILEN", fname, sizeof fname, 0); if (access(fname, 0) != 0) { Output_Citadel_Message("NOSUCH",(long)fname,NULL,NULL); /* no such file */ break; }; if (CopyFile(fname, &roomBuf)) { FileCommentUpdate(fname, FALSE); }; break; case '\b': mPrintf("\b \b"); /* not sure why this is necessary */ return BACKED_OUT; case 'C': logMessage(TRIED_CHAT, "", 'C'); if (NoChatAtAll && !SomeSysop()) { if (!MultiBanner("nochat")) tutorial("nochat.blb", TRUE); } else { chatStack = cfg.BoolFlags.noChat; cfg.BoolFlags.noChat = FALSE; if (whichIO == MODEM) ringSysop(); else interact(TRUE) ; cfg.BoolFlags.noChat = chatStack; } break; case 'D': ZeroMsgBuffer(&msgBuf); sPrintf(msgBuf.mbtext, "The following empty rooms deleted by %s: ", logBuf.lbname); if (!getYesNo("CONFRM")) break; strCpy(oldName, roomBuf.rbname); indexRooms(); if ((rm=roomExists(oldName)) != ERROR) getRoom(rm); else getRoom(LOBBY); aideMessage(NULL, /* noteDeletedMessage== */ FALSE ); break; case 'E': renameRoom(); break; case 'I': ZeroMsgBuffer(&msgBuf); if ( thisRoom == AIDEROOM || pulledMId == 0l ) { Output_Citadel_Message("NOMSGI",NULL,NULL,NULL); /* no message insertable*/ break; } if (!getYesNo("CONFRM")) break; noteAMessage(roomBuf.msg, MSGSPERRM, pulledMId, pulledMLoc); putRoom(thisRoom); noteRoom(); sPrintf(msgBuf.mbtext,"Following message inserted in %s> by %s", formRoom(thisRoom, FALSE, FALSE), logBuf.lbname); aideMessage(NULL, /* noteDeletedMessage == */ TRUE); break; case 'K': if ( thisRoom == LOBBY || thisRoom == MAILROOM || thisRoom == AIDEROOM ) { Output_Citadel_Message("NOKILL",NULL,NULL,NULL); break; } if (!getYesNo("CONFRM")) break; ZeroMsgBuffer(&msgBuf); sPrintf( msgBuf.mbtext, "%s> killed by %s",roomBuf.rbname,logBuf.lbname); aideMessage(NULL, /* noteDeletedMessage == */ FALSE); KillInfo(roomBuf.rbname); roomBuf.rbflags.INUSE = FALSE; putRoom(thisRoom); noteRoom(); getRoom(LOBBY); break; case 'S': #ifdef NEED_AVAILABLE changeDate(); #endif break; } return GOOD_SELECT; } /* * doChat() * * Chatting! */ char doChat(char moreYet, char first) { if (moreYet) first = '\0'; if (first) oChar(first); if (whichIO != MODEM) { interact(TRUE) ; if (whichIO == CONSOLE) if (getYesNo("MODEMM")) { whichIO = MODEM; setUp(FALSE); if (!gotCarrier()) EnableModem(FALSE); } } else { logMessage(TRIED_CHAT, "", 'C'); if (cfg.BoolFlags.noChat) { if (!MultiBanner("nochat")) tutorial("nochat.blb", TRUE); return GOOD_SELECT; } ringSysop(); } return GOOD_SELECT; } /* * doEnter() * * This function handles the E(nter) command. */ char doEnter(char moreYet, char first) { #define CONFIGURATION 0 #define MESSAGE 1 #define PASSWORD 2 #define ROOM 3 #define ENTERFILE 4 #define CONTINUED 5 #define NETWORK 6 #define DEFAULT_MESSAGE 7 char what; /* one of above seven */ SListBase ESelects = { NULL, FindSelect, NULL, NoFree, NULL }; char *EnterOpts[] = { TERM "\r", TERM "\n", NTERM "Xmodem", NTERM "Ymodem", #ifdef WXMODEM_AVAILABLE NTERM "Wxmodem", #endif TERM "Configuration", TERM "Message", TERM "Password", TERM "Room", TERM "Held Message", TERM "Net-Message", /* These are for external protocols -- don't delete them! */ " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", "" }; char abort, Protocol, again; char *letter, cmdbuf[30]; if (loggedIn && roomBuf.rbflags.ISDIR == 1) ExtraOption(EnterOpts, TERM "F"); AddExternProtocolOptions(EnterOpts, TRUE); if (moreYet) first = '\0'; abort = FALSE ; if (thisRoom != MAILROOM && !loggedIn && !cfg.BoolFlags.unlogEnterOk) { Output_Citadel_Message("ENTERM",NULL,NULL,NULL); return GOOD_SELECT; } SpecialMessage("Status:Enter"); if (first) PushBack(first); do { again = FALSE; outFlag = OUTOK; Protocol = ASCII ; what = DEFAULT_MESSAGE; if (CmdMenuList(EnterOpts, &ESelects, "entopt.mnu", cmdbuf, moreYet, TRUE) == BACKED_OUT) return BACKED_OUT; letter = cmdbuf; do { switch (*letter) { case '\r': case '\n': break; #ifdef WXMODEM_AVAILABLE case 'X': case 'Y': case 'W': Protocol = (*letter == 'Y') ? YMDM : (*letter == 'X') ? XMDM : WXMDM; break; #else case 'X': case 'Y': Protocol = (*letter == 'Y') ? YMDM : XMDM; break; #endif case 'F': if (Protocol == ASCII) { mPrintf("\b\bXmodem F "); Protocol = XMDM; } mPrintf("\bile Upload "); if (!roomBuf.rbflags.UPLOAD || logBuf.lbflags.TWIT) { Output_Citadel_Message("NOUPLD",NULL,NULL,NULL); abort = TRUE; } what = ENTERFILE; break; case 'C': again = reconfigure(); what = CONFIGURATION; break; case 'M': what = MESSAGE; break; case 'P': what = PASSWORD ; break; case 'R': if (!cfg.BoolFlags.nonAideRoomOk && !aide) { Output_Citadel_Message("NOTAID",NULL,NULL,NULL); abort = TRUE; break; } if (!loggedIn) { Output_Citadel_Message("LGICRR",NULL,NULL,NULL); abort = TRUE; break; } if (logBuf.lbflags.TWIT) { Output_Citadel_Message("TWITNR",NULL,NULL,NULL); abort = TRUE; break; } what = ROOM; break; case 'H': what = CONTINUED; Protocol = ASCII; /* can't do this using protocol */ break; case 'N': if( logBuf.lbflags.NET_PRIVS ) what = NETWORK; else Output_Citadel_Message("NONETP",NULL, NULL, NULL); break; default: if ((Protocol = FindProtocolCode(*letter, TRUE)) == -1) abort = TRUE; } ++letter; } while (moreYet && !abort && *letter); } while (again); KillList(&ESelects); doCR(); if (!abort) { if (whichIO != CONSOLE && loggedIn && (thisRoom == MAILROOM || roomTab[thisRoom].rtflags.ANON)) echo = CALLER; switch (what) { case DEFAULT_MESSAGE: if (Protocol != ASCII) { Output_Citadel_Message("MSGTRN",NULL,NULL,NULL); } case MESSAGE: makeMessage(Protocol); break; case PASSWORD: newPW() ; break; case ROOM: makeRoom() ; break; case ENTERFILE: upLoad(Protocol,NULL,TRUE) ; break; case CONTINUED: hldMessage(FALSE) ; break; case NETWORK: netMessage(Protocol); break; } echo = BOTH; } return GOOD_SELECT ; } /* * doForget() * * This function handles the (Forget room) command. */ char doForget(char expand) { if (!expand) { mPrintf("%s\n ", roomBuf.rbname); if (thisRoom == LOBBY || thisRoom == MAILROOM || thisRoom == AIDEROOM) { Output_Citadel_Message("CANTFG",NULL,NULL,NULL); return GOOD_SELECT ; } if (!getYesNo("CONFRM")) return GOOD_SELECT; SetKnown(FORGET_OFFSET, 0, thisRoom, &logBuf); gotoRoom(baseRoom, 'S'); } else { /* mPrintf("\b\b "); */ listRooms(FORGOTTEN); } return GOOD_SELECT; } /* * doGoto() * * This function handles the G(oto) command. */ char doGoto(char expand) { label roomName; int oldRoom; outFlag = IMPERVIOUS; if (!expand) { oldRoom = thisRoom; gotoRoom("", 'R'); if (oldRoom == thisRoom && loggedIn && !expert) Output_Citadel_Message("NOMMSG",NULL,NULL,NULL); return GOOD_SELECT; } if (getNormStr("", roomName, NAMESIZE, BS_VALID) == BACKED_OUT) { return BACKED_OUT; } if (roomName[0] == '?') { listRooms(NOT_INTRO); } else gotoRoom(roomName, 'R'); return GOOD_SELECT; } /* * doHelp() * * This function the handles the H(elp) command. */ char doHelp(char expand) { label fileName; SpecialMessage("Status:Help"); if (!expand) { mPrintf("\n\n"); printHelp("mainhelp.hlp"); return GOOD_SELECT; } if (getNormStr("", fileName, (sizeof fileName) - 4, BS_VALID) == BACKED_OUT) return BACKED_OUT; if (strLen(fileName) == 0) strCpy(fileName, "mainhelp"); if (fileName[0] == '?') printHelp("helpopt.hlp"); else { /* adding the extention makes things look simpler for */ /* the user... and restricts the files which can be read */ strCat(fileName, ".hlp"); printHelp(fileName); } return GOOD_SELECT; } /* * doKnown() * * This function handles the K(nown rooms) command. */ char doKnown(char expand) { char select = ERROR, c[2], again; label matchstr; char *KMenuOpts[] = { TERM "Anonymous rooms\n", TERM "Match", TERM "Directory rooms\n", TERM "Shared rooms\n", TERM "Private rooms\n", TERM "Z\bForgotten rooms\n", TERM "Information", TERM "Read-only\n", TERM "\r", TERM "\n", "" }; SListBase KSelects = { NULL, FindSelect, NULL, NoFree, NULL }; SpecialMessage("Status:Known"); if (!expand) { mPrintf("\n "); listRooms(NOT_INTRO); } else { do { again = FALSE; if (CmdMenuList(KMenuOpts, &KSelects, "known.mnu", c, TRUE, TRUE) == BACKED_OUT) return BACKED_OUT; switch (c[0]) { case 'I': AllInfo(); break; case 'A': select = ANON_SEL; break; case 'M': if (getNormStr("",matchstr,NAMESIZE, BS_VALID) == BACKED_OUT) { again = TRUE; select = ERROR; PushBack('\b'); oChar(' '); } else select = MATCH_SEL; break; case 'D': select = DR_SEL; break; case 'S': select = SH_SEL; break; case 'P': select = PR_SEL; break; case 'Z': select = FORGOTTEN; break; case 'R': select = READONLY; break; case '\r': doCR(); case '\n': strCpy(matchstr, ""); select = MATCH_SEL; break; } if (select != MATCH_SEL && select != ERROR) listRooms(select); else if (select != ERROR) searchRooms(matchstr); } while (again); } KillList(&KSelects); return GOOD_SELECT; } /* * doLogin() * * This function handles the L(ogin) command. */ char doLogin(char moreYet) { label passWord; if (!moreYet) mPrintf("\n"); SpecialMessage("Status:Login"); if (loggedIn) { Output_Citadel_Message("ALRULG",NULL,NULL,NULL); return GOOD_SELECT; } echo = CALLER; if (getNormStr(moreYet ? "" : "ULGPWD", passWord, NAMESIZE, (moreYet) ? BS_VALID : NO_ECHO) == BACKED_OUT) { return BACKED_OUT; } echo = BOTH; login(passWord); return GOOD_SELECT; } /* * doLogout() * * This function handles the T(erminate) command. */ char doLogout(char expand, char first) { char cx; SpecialMessage("Status:Terminating"); if (expand) first = '\0'; outFlag = IMPERVIOUS; if (heldMess && !cfg.BoolFlags.HoldOnLost) { Output_Citadel_Message("HOLDMS",NULL,NULL,NULL); mAbort(); /* clear any first-run input fromuser */ } if (first) oChar(first); if( first ) { cx = first; } else cx = iChar(); switch (toUpper( cx )) { case '\b': if (expand) return BACKED_OUT; default: Output_Citadel_Message("LGOPTS",NULL,NULL,NULL); break; case 'Q': mPrintf("uit-also\n "); if (!expand) { if (!getYesNo("CONFRM")) break; } if (!onLine()) break; terminate( /* hangUp == */ TRUE, TRUE); break; case 'S': mPrintf("tay\n "); terminate( /* hangUp == */ FALSE, TRUE); break; case 'A': mPrintf("bort\n "); terminate( /* hangUp == */ TRUE, FALSE); } outFlag = OUTOK; return GOOD_SELECT; } OptValues Opt; char revOrder; /* Udderly HIDEOUS kludge. MOOOOOO! */ char PhraseUser; /* * doMeet() * * This function handles the M(eet) User command. */ char doMeet(char moreYet) { label User; int logNo; SpecialMessage("Status:Meet Users"); if (!moreYet) doCR(); if (getNormStr(moreYet ? "" : "USMEET", User, NAMESIZE, QUEST_SPECIAL | BS_VALID) == BACKED_OUT) { return BACKED_OUT; } if (strLen(User) != 0) { if (User[0] == '?') { BioDirectory(); return GOOD_SELECT; } logNo = findPerson(User, &logTmp); if (logNo == ERROR) { Output_Citadel_Message("NOPERS",(long)User,NULL,NULL); } else { if (GetBioInfo(logNo)) { Output_Citadel_Message("BIOOFU",(long)logTmp.lbname,NULL,NULL); doCR(); mPrintf("%s\n ", msgBuf.mbtext); } else Output_Citadel_Message("NOBIOU",(long)logTmp.lbname,NULL,NULL); } } return GOOD_SELECT; } /* * doRead() * * This function handles the R(ead) command. */ static void *FindUser(char *element, int x); int UserOptAdd(char *str); char doRead(char moreYet, char first) { char abort = FALSE, Compressed = FALSE, extDir, doDir, again, hostFile, whichMess, status = FALSE, SrchUser, srchPhrase, protocol, global, filestuff = FALSE, ReadArchive; char *letter, secondletter; char fileName[100]; int CurRoom; extern FILE* upfd; SListBase RSelects = { NULL, FindSelect, NULL, NoFree, NULL }; SListBase CSelects = { NULL, FindSelect, NULL, NoFree, NULL }; extern char journalMessage, FormatFlag; extern int outPut; char *ReadOpts[] = { TERM "\r", TERM "\n", #ifdef NO_DeARC_SUPPORT TERM "Archive-Directory(s)\n", #else TERM "Archive", #endif TERM "Forward", NTERM "Global", NTERM "Local-only", TERM "New", TERM "Old-reverse", TERM "Reverse", TERM "Status\n", NTERM "Xmodem", #ifdef WXMODEM_AVAILABLE NTERM "Wxmodem", #endif NTERM "Ymodem", NTERM "User", NTERM "Phrase", /* these two are here rather than optional due to .RGE/.RGD */ TERM "Directory", TERM "Extended-Directory", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", "" }; #ifndef NO_DeARC_SUPPORT char *CompOpts[] = { TERM "Directory(s)\n", TERM "File(s)\n", TERM "T\bFile(s)\n", TERM "B\bFile(s)\n", TERM "\nDirectory(s)", "" }; #endif char cmdbuf[40]; whichMess = NEWoNLY; if (moreYet) first = '\0'; zero_struct(Opt); Opt.Date = -1l; InitListValues(&Opt.Users, FindUser, NULL, free, NULL); if (thisRoom == MAILROOM && !loggedIn && !cfg.BoolFlags.unlogReadOk) { showMessages(whichMess, revOrder, logBuf.lbvisit[logBuf.lbgen[thisRoom] & CALLMASK], OptionValidate); return GOOD_SELECT; } if (!loggedIn && !cfg.BoolFlags.unlogReadOk) { Output_Citadel_Message("READMM",NULL,NULL,NULL); return GOOD_SELECT; } if (first) PushBack(first); if (roomBuf.rbflags.ISDIR == 1 && loggedIn && !logBuf.lbflags.TWIT) { ExtraOption(ReadOpts, TERM "Binary file(s)"); ExtraOption(ReadOpts, TERM "Textfile(s)"); } if (AnyCompression()) ExtraOption(ReadOpts, NTERM "Compressed"); AddExternProtocolOptions(ReadOpts, FALSE); if (HalfSysop()) ExtraOption(ReadOpts, TERM "Invited-users"); SpecialMessage("Status:Reading"); do { again = FALSE; protocol = ASCII; whichMess = NEWoNLY; extDir = doDir = hostFile = SrchUser = srchPhrase = global = ReadArchive = PhraseUser = revOrder = FALSE; if (CmdMenuList(ReadOpts, &RSelects, "readopt.mnu", cmdbuf, moreYet, TRUE) == BACKED_OUT) return BACKED_OUT; letter = cmdbuf; do { outFlag = OUTOK; switch (*letter) { case '\r': doCR(); case '\n': break; case 'C': Compressed = TRUE; break; case 'A': if ( ( global || roomBuf.rbflags.ISDIR ) && ( logBuf.lbflags.DL_PRIVS || aide ) ) { if (roomBuf.rbflags.DOWNLOAD || HalfSysop()) { if (CmdMenuList(CompOpts, &CSelects, "", cmdbuf, TRUE, FALSE) == BACKED_OUT) { again = TRUE; PushBack('\b'); } else { switch (cmdbuf[0]) { case '\n': case '\r': case 'D': ReadArchive = 1; break; case 'T': case 'B': case 'F': ReadArchive = 2; break; default: abort = TRUE; } break; } } else { Output_Citadel_Message("NODLDS",NULL,NULL,NULL); abort = TRUE; break; } } else { Output_Citadel_Message("NOTDIR",NULL,NULL,NULL); abort = TRUE; break; }; break; case 'F': revOrder = FALSE; whichMess = OLDaNDnEW; goto commondate; case 'G': global = TRUE; break; case 'L': Opt.LocalOnly = TRUE; break; case 'N': whichMess = NEWoNLY; goto commondate; case 'O': revOrder = TRUE; whichMess = OLDoNLY; goto commondate; case 'R': revOrder = TRUE; whichMess = OLDaNDnEW; commondate: if (moreYet) { if (getString("", fileName, NAMESIZE, BS_VALID | QUEST_SPECIAL) == BACKED_OUT) { again = TRUE; oChar(' '); PushBack('\b'); break; } if (fileName[0] == '?') { tutorial("readdate.blb", TRUE); KillList(&RSelects); return GOOD_SELECT; } if (strLen(fileName) != 0) if (ReadDate(fileName, &Opt.Date) == ERROR) { Output_Citadel_Message("INVLDD",NULL,NULL,NULL); KillList(&RSelects); return GOOD_SELECT; } } else { doCR(); } break; case 'S': status = TRUE; break; #ifdef WXMODEM_AVAILABLE case 'X': case 'W': case 'Y': protocol = (*letter == 'W') ? WXMDM : (*letter == 'X') ? XMDM : YMDM; break; #else case 'X': case 'Y': protocol = (*letter == 'X') ? XMDM : YMDM; break; #endif case 'B': case 'T': filestuff = TRUE; case 'E': case 'D': if (!logBuf.lbflags.DL_PRIVS && !aide) { Output_Citadel_Message("NODLDP",NULL,NULL,NULL); abort = TRUE; break; } if (filestuff) { if (roomBuf.rbflags.DOWNLOAD == 1 || TheSysop() || remoteSysop) { hostFile = TRUE ; textDownload = (*letter == 'T') ? TRUE : FALSE; if (textDownload && protocol == ASCII) { char cx; cx = modIn(); switch (secondletter = toUpper(cx)) { case '\b': again = TRUE; PushBack('\b'); break; case 'F': mPrintf("Formatted"); FormatFlag = TRUE; break; default: PushBack(secondletter); case '\r': case '\n': case ' ': doCR(); } } } else { Output_Citadel_Message("NODLDS",NULL,NULL,NULL); abort = TRUE; } } else { if (roomBuf.rbflags.ISDIR == 1 || global) { if (global || roomBuf.rbflags.DOWNLOAD || TheSysop() || remoteSysop) { if (getNormStr("", fileName, sizeof fileName, BS_VALID) == BACKED_OUT) { PushBack('\b'); again = TRUE; oChar(' '); break; } if (*letter == 'D') doDir = TRUE; else extDir = TRUE; break; } else { Output_Citadel_Message("NODLDS",NULL,NULL,NULL); abort = TRUE; break; } } else { Output_Citadel_Message("NOTDIR",NULL,NULL,NULL); abort = TRUE; } } break; case 'I': if (doInviteDisplay() == BACKED_OUT) { PushBack('\b'); again = TRUE; oChar(' '); break; } KillList(&RSelects); return GOOD_SELECT; case 'P': srchPhrase = TRUE; PhraseUser = TRUE; break; case 'U': SrchUser = TRUE; PhraseUser = TRUE; break; default: if ((protocol = FindProtocolCode(*letter, FALSE)) == -1) abort = TRUE; } letter++; } while (moreYet && !abort && *letter); } while (again); KillList(&RSelects); KillList(&CSelects); if (abort) return GOOD_SELECT; if (status) { systat(); return GOOD_SELECT; } if (ReadArchive) { #ifdef NO_DeARC_SUPPORT getNormStr("ARCHFN", fileName, sizeof fileName, 0); if (srchPhrase) getString("SEARCH", Opt.Phrase, PHRASE_SIZE, 0); mPrintf("\n %7s%8s%5s Name...\n ", "Crunched", "Normal", "date"); wildCard(CompressedDir, fileName, TRUE, Opt.Phrase, TRUE); #else if (ReadArchive == 1) { getNormStr("ARCHFN", fileName, sizeof fileName, 0); if (srchPhrase) getString("SEARCH", Opt.Phrase, PHRASE_SIZE, 0); if (strchr(fileName, '.') == NULL) strCat(fileName, ".arc"); wildCard(CompressedDir, fileName, TRUE, Opt.Phrase, TRUE); } else if (ReadArchive == 2) SendArcFiles(protocol); #endif return GOOD_SELECT; } if (doDir || extDir) { if (srchPhrase) getString("SEARCH", Opt.Phrase, PHRASE_SIZE, 0); if (!global) doDirectory(doDir, fileName, Opt.Phrase); else { CurRoom = thisRoom; /* should we have tableRunner() do this for us? */ for (thisRoom = 0; outFlag == OUTOK && thisRoom < MAXROOMS; thisRoom++) if (roomTab[thisRoom].rtflags.INUSE && roomTab[thisRoom].rtflags.ISDIR && (roomTab[thisRoom].rtflags.DOWNLOAD || SomeSysop()) && knowRoom(&logBuf, thisRoom) == KNOW_ROOM) { getRoom(thisRoom); mPrintf("\n (%s)\n ", roomBuf.rbname); doCR(); /* nice left side now */ doDirectory(doDir, fileName, Opt.Phrase); if (outFlag == OUTNEXT) outFlag = OUTOK; } getRoom(CurRoom); } if (journalMessage) { if (redirect(NULL)) { doDirectory(doDir, fileName, Opt.Phrase); undirect(); /* fclose(upfd); outPut = NORMAL; */ } journalMessage = FALSE; } return GOOD_SELECT; } if (hostFile) { if (srchPhrase) getString("SEARCH", Opt.Phrase, PHRASE_SIZE, 0); TranFiles(protocol, Opt.Phrase); FormatFlag = FALSE; return GOOD_SELECT; } if (SrchUser) { getList(UserOptAdd, "Users", NAMESIZE * 3, FALSE); } if (srchPhrase) getString("SEARCH", Opt.Phrase, PHRASE_SIZE, 0); if (Compressed) { if ((Compressed = GetUserCompression()) == NO_COMP) return GOOD_SELECT; doCR(); } else Compressed = NO_COMP; download(whichMess, revOrder, protocol, global, Compressed); KillList(&Opt.Users); return GOOD_SELECT; } /* * UserOptAdd() * * This adds the given name to a list. */ int UserOptAdd(char *str) { AddData(&Opt.Users, strdup(str), NULL, FALSE); return TRUE; } /* * FindUser() * * Is the current user @system _ domain going to match? */ static void *FindUser(char *element, int x) /* x is actually not used -- we use global msgBuf */ { label User; char System[(2 * NAMESIZE) + 2]; System[0] = 0; SepNameSystem(element, User, System, NULL); if (strLen(User) != 0 && matchString(msgBuf.mbauth, User, lbyte(msgBuf.mbauth)) == NULL) { if (strLen(msgBuf.mbto) == 0) return NULL; if (matchString(msgBuf.mbto, User, lbyte(msgBuf.mbto)) == NULL) return NULL; } if (strLen(System) != 0) { if (matchString(msgBuf.mboname, System, lbyte(msgBuf.mboname)) == NULL && matchString(msgBuf.mbdomain, System, lbyte(msgBuf.mbdomain)) == NULL) return NULL; } return element; } /* * OptionValidate() * * This is sent to showMessages. */ char OptionValidate(int mode) { if (OptionCheck(mode)) { printMessage(0); return Pause_Message_Check(); } else mAbort(); /* give a chance to interrupt */ return (char)( (mode == 1) ? TRUE : FALSE); } /* * OptionCheck() * * This function checks to see if all options fulfilled. */ char OptionCheck(char mode) { long MsgTime; int rover; if (mode == 1) return (char) (!Opt.LocalOnly && GetFirst(&Opt.Users) == NULL && strLen(Opt.Phrase) == 0 && Opt.Date == -1l); /* else */ /* * If any match failures, don't print. printMessage(0) indicates a * a print with msg still on disk, while a (1) indicates message now in * the message buffer. */ if (Opt.LocalOnly && msgBuf.mboname[0] && strCmpU(msgBuf.mboname, cfg.codeBuf + cfg.nodeName) != SAMESTRING) return (char)FALSE; if (Opt.Date != -1l) if (ReadDate(msgBuf.mbdate, &MsgTime) != ERROR) if ((!revOrder && MsgTime < Opt.Date) || (revOrder && MsgTime > Opt.Date)) return (char )FALSE; if (GetFirst(&Opt.Users) != NULL) if (SearchList(&Opt.Users, 0) == NULL) return NULL; if (strLen(Opt.Phrase) != 0) { getMsgStr(getMsgChar, msgBuf.mbtext, MAXTEXT); /* Kill extraneous line breaks */ for (rover = 0; msgBuf.mbtext[rover]; rover++) if (msgBuf.mbtext[rover] == NEWLINE && msgBuf.mbtext[rover + 1] != ' ' && msgBuf.mbtext[rover + 1] != NEWLINE) msgBuf.mbtext[rover] = ' '; if (matchString(msgBuf.mbtext, Opt.Phrase, lbyte(msgBuf.mbtext)) != NULL) { findMessage(msgBuf.mbheadSector, atol(msgBuf.mbId), TRUE); return (char)TRUE; } else return (char)FALSE; } return (char)TRUE; } /* * doDirectory() * * This function handles the read directory commands. */ void doDirectory(char doDir, char *fileName, char *phrase) { #ifdef OLD_STYLE extern long BDSizeCount; int FileCount; if (doDir) { FDSectCount = 0; /* global fDir() totals sectors in */ FileCount = wildCard(fDir, fileName, TRUE, phrase, TRUE); mPrintf("\n %d files, approximately %s sectors total\n ", FileCount, PrintPretty(FDSectCount, msgBuf.mbtext)); } else { BDSizeCount = 0l; FileCount = wildCard(ShowVerbose, fileName, TRUE, phrase, TRUE); mPrintf("\n %d files, %s bytes total.\n ", FileCount, PrintPretty(BDSizeCount, msgBuf.mbtext)); } #else int FileCount; extern long FDSize; FDSize = 0l; FileCount = wildCard((doDir) ? fDir : ShowVerbose, fileName, TRUE, phrase, TRUE); mPrintf("\n %d files, ", FileCount); mPrintf((doDir) ? "approximately %s sectors total\n " : "%s bytes total.\n ", PrintPretty(FDSize, msgBuf.mbtext)); #endif giveSpaceLeft(&roomBuf); } #define MAX_USER_ERRORS 25 /* * doRegular() * * The big fanout. */ char doRegular(char x, char c) { static int errorCount = 0; char toReturn, cc[2]; SListBase RegSelects = { NULL, FindSelect, NULL, NoFree, NULL }; char *RegOpts[] = { TERM "Chat", TERM "Door", TERM "!", TERM "Enter", TERM "F\bRead", TERM "Goto", TERM "+\bGoto", TERM "Read", TERM "O\bRead", TERM "N\bRead", TERM "Help", TERM "Information",TERM "Known rooms", TERM "Login", TERM "Skip", TERM "Terminate", TERM "Backup", TERM "Ungoto", TERM "-\bBackup", TERM "QWK Mail",TERM "\\", TERM ";", TERM "Z\bForget", TERM "?", " ", " ", "" }; char *legal = "CD!EFG+HIKLMNORSTBU-QZ"; toReturn = GOOD_SELECT; if (loggedIn) { if (aide ||(strCmpU(logBuf.lbname,AskForNSMap(&Moderators, thisRoom)) == SAMESTRING || strCmpU(logBuf.lbname, FloorTab[thisFloor].FlModerator) == SAMESTRING)) ExtraOption(RegOpts, TERM "Aide special fn:"); if (!MeetDisabled) { ExtraOption(RegOpts, TERM "Meet User"); } else ExtraOption(RegOpts, TERM "Moo!"); }; SpecialMessage("Status:User Idle"); if (strchr(legal, c) != NULL) errorCount = 0; else errorCount++; PushBack(c); /* ugly kludge */ if ((cc[0] = c) == 0 || CmdMenuList(RegOpts, &RegSelects, NULL, cc, x, FALSE) == GOOD_SELECT) { switch (cc[0]) { case 'C': toReturn = doChat( x, '\0'); break; case '!': case 'D': toReturn = doDoor( x); break; case 'E': toReturn = doEnter( x, 'M' ); break; case 'F': toReturn = doRead( x, 'F' ); break; case '+': case 'G': toReturn = doGoto( x); break; case 'H': toReturn = doHelp( x); break; case 'I': toReturn = doInfo(); break; case 'K': toReturn = doKnown( x); break; case 'L': toReturn = doLogin( x); break; case 'M': if (!MeetDisabled) toReturn = doMeet( x); break; case 'N': toReturn = doRead( x, 'N' ); break; case 'O': toReturn = doRead( x, 'O' ); break; case 'Q': toReturn = QWKmain(); break; case 'R': toReturn = doRead( x, 'R' ); break; case 'S': toReturn = doSkip( x); break; case 'T': toReturn = doLogout(x, 'Q' ); break; case '-': case 'B': /* k2ne ism */ case 'U': toReturn = doUngoto(x); break; case '\'': case ';': toReturn = DoFloors(); break; case 0: pause(1); /* To clear line noise */ while (MIReady()) inp(); /* eat noise */ if (newCarrier) { greeting(); newCarrier = FALSE; } if (justLostCarrier) { justLostCarrier = FALSE; terminate(TRUE, TRUE); } break; /* irrelevant value */ case '?': tutorial("mainopt.mnu", TRUE); if (whichIO == CONSOLE) mPrintf("\n ^l: SysOp privileged fns\n "); break; case 'A': toReturn = doAide(x, 'E'); break; case 'Z': toReturn = doForget(x); break; default: if (errorCount > MAX_USER_ERRORS) { logMessage(EVIL_SIGNAL, "", 'E'); HangUp(TRUE); } toReturn=BAD_SELECT; break; } } if (toReturn == BACKED_OUT) { PushBack('\b'); CmdMenuList(RegOpts, &RegSelects, NULL, cc, FALSE, FALSE); /* does the BS */ } KillList(&RegSelects); return toReturn; } /* * doSkip() * * This function handles the kip a room command. */ char doSkip(char expand) { label roomName; /* In case of ".Skip" */ char dispbuf[2 * NAMESIZE]; int rover; outFlag = IMPERVIOUS; sPrintf(dispbuf, "%s> goto ", roomTab[thisRoom].rtname); mPrintf("%s", dispbuf); if (expand) { if (getNormStr("", roomName, NAMESIZE, BS_VALID) == BACKED_OUT) { for (rover = 0; rover < strLen(dispbuf); rover++) { mPrintf("\b \b"); } return BACKED_OUT; } } else roomName[0] = '\0'; if (roomName[0] == '?') tutorial("skip.hlp", TRUE); else { roomTab[thisRoom].rtflags.SKIP = 1; /* Set bit */ gotoRoom(roomName, 'S'); } return GOOD_SELECT; } /* * doSysop() * * This function handles the sysop-only menu. It returns FALSE to fall * invisibly into default error msg. */ char doSysop() { extern unsigned long S_min, S_max; /* stack tracking variables */ extern char *NoFileStr; MSG_NUMBER temp; int i; char systemPW[200]; extern char *VERSION, *LCHeld, *netVersion, *SysVers; extern int fixVers, majorVers; logBuffer lBuf; /* This has to be local! Don't sub logTmp */ MenuId id; char Priv[] = "\n Privileged Functions\n "; char *CtdlOpts[] = { "A(bort) ", "B(aud rate) ", "C(hat mode)\n", "D(ebug mode) ", "E(cho) ", "F(ile grab)\n", "I(nformation) ", "M(ODEM mode) ", "N(et Menu)\n" , "O(ther Commands) ", "R(einitialize Modem) ", "Q(debug)\n", "U(ser Admin) ", "X(exit from Citadel)\n", #ifdef NEED_MSG_PEEKING "Z ", #endif #ifdef NEED_MSG_LIST "Y ", #endif "1 ", " W ", "Z\n", "" }; if ((!onConsole || ConsolePassword) && !remoteSysop) { if (!(onConsole && ConsolePassword && strLen(cfg.sysPassword) == 0)) { if ((!aide && !onConsole) || strLen(cfg.sysPassword) == 0) { return BAD_SELECT; } echo = CALLER; getNormStr("SYSPWD", systemPW, sizeof systemPW, NO_ECHO); echo = BOTH; if (strCmp(systemPW, cfg.sysPassword) != 0) return BAD_SELECT; remoteSysop = TRUE; } } initLogBuf(&lBuf); SpecialMessage("Status:***Sysop***"); if (whichIO == CONSOLE && gotCarrier()) Output_Citadel_Message("ONEMOM", NULL, NULL, NULL); id = RegisterSysopMenu("ctdlopt.mnu", CtdlOpts, Priv); while (onLine()) { outFlag = OUTOK; SysopMenuPrompt(id, "\n privileged fn: "); switch (GetSysopMenuChar(id)) { case 'W': EventShow(); /* Debug stuff */ break; case '1': for (i = 0; i < MSGSPERRM; i++) { if (findMessage(roomBuf.msg[i].rbmsgLoc, roomBuf.msg[i].rbmsgNo, TRUE)) { mPrintf("(%s : %s) ", msgBuf.mbsrcId, msgBuf.mboname); } mPrintf("%ld: %d\n ", roomBuf.msg[i].rbmsgNo, roomBuf.msg[i].rbmsgLoc); } break; #ifdef NEED_MSG_LIST case 'Y': CloseSysopMenu(id); for (i = 0; i < MSGSPERRM; i++) { mPrintf(" Room:%-20s:%ld: %d\n ", roomBuf.msg[i].rbname, roomBuf.msg[i].rbmsgNo, roomBuf.msg[i].rbmsgLoc); if( (i%20) == 19)iChar(); }; iChar(); id = RegisterSysopMenu("ctdlopt.mnu",CtdlOpts,Priv); break; #endif #ifdef NEED_MSG_PEEKING case 'Z': CloseSysopMenu(id); mPeek(); iChar(); id = RegisterSysopMenu("ctdlopt.mnu", CtdlOpts,Priv); break; #endif case 'B': changeBauds(id); break; case 'E': sPrintf(systemPW, "%sabled\n ", (anyEcho = !anyEcho) ? "en" : "dis"); ScrNewUser(); SysopInfoReport(id, systemPW); break; case 'F': SysopRequestString(id, "EFILEN", systemPW, 50, 0); if (!ingestFile(systemPW, &tempMess)) { char *fn; fn = strdup(systemPW); sPrintf(systemPW, NoFileStr, fn); SysopError(id, systemPW); free(fn); } break; case 'A': killLogBuf(&lBuf); CloseSysopMenu(id); return GOOD_SELECT; case 'C': cfg.BoolFlags.noChat = (cfg.BoolFlags.noChat== 1) ? 0 : 1; sPrintf(systemPW, "%sabled\n ",cfg.BoolFlags.noChat ? "dis" : "en" ); ScrNewUser(); SysopInfoReport(id, systemPW); break; case 'D': cfg.BoolFlags.debug = (cfg.BoolFlags.debug == 1) ? 0 : 1; sPrintf(systemPW, "%sabled\n ", cfg.BoolFlags.debug ? "en" : "dis"); SysopInfoReport(id, systemPW); break; case 'I': sPrintf(msgBuf.mbtext, "\n %s V%s%s\n Net version %s", VARIANT_NAME, VERSION, SysVers, netVersion); sPrintf(lbyte(msgBuf.mbtext), "\n Commands version %d.%d ", majorVers, fixVers); sPrintf(lbyte(msgBuf.mbtext), "ctdlcnfg.sys version %d\n ", cfg.paramVers); sPrintf(lbyte(msgBuf.mbtext), "ARexx Port: %s\n ", &cfg.DepData.ARexxPort); sPrintf(lbyte(msgBuf.mbtext), "Message Base Oldest: %ld Newest: %ld \n ",cfg.newest,cfg.oldest); sPrintf(lbyte(msgBuf.mbtext), "Stack Usage: Min:%lx Max:%lx Size:%lx\n ",S_min,S_max,(S_max - S_min + 1)); if( cfg.Audit != 0)sPrintf(lbyte(msgBuf.mbtext), "You are caller number %ld\n ",Get_Call_Count()); sPrintf(lbyte(msgBuf.mbtext), "You have %s privledges\n ",Display_Privledges()); ActiveEvents(msgBuf.mbtext); SysopDisplayInfo(id, msgBuf.mbtext, " Info "); break; case 'M': CloseSysopMenu(id); if (whichIO != MODEM) { whichIO = MODEM; setUp(FALSE); } printf("Chat mode %sabled\n ", cfg.BoolFlags.noChat ? "dis" : "en"); if (!gotCarrier()) { EnableModem(FALSE); ReInitModem(); } #ifdef NEED_VISIBLE if (visibleMode) mPrintf("Visible mode on\n "); #endif killLogBuf(&lBuf); ScrNewUser(); startTimer(NEXT_ANYNET); /* start up anytime net timer */ if (gotCarrier()) mPrintf("System on-line\n "); return GOOD_SELECT; case 'O': CloseSysopMenu(id); systemCommands(); id = RegisterSysopMenu("ctdlopt.mnu", CtdlOpts,Priv); break; #ifdef MAKE_AVAILABLE case 'S': changeDate(); break; #endif #ifdef NEED_VISIBLE case 'V': mPrintf(" VisibleMode==%d\n ", visibleMode = !visibleMode); break; #endif case ERROR: case 'X': if (!SysopGetYesNo(id, NULL, "CONFRM")) break; ExitToMsdos = TRUE; exitValue = (remoteSysop && !onConsole) ? REMOTE_SYSOP_EXIT : SYSOP_EXIT; CloseSysopMenu(id); return GOOD_SELECT; case 'N': CloseSysopMenu(id); netStuff(); id = RegisterSysopMenu("ctdlopt.mnu", CtdlOpts, Priv); break; case 'R': if (gotCarrier()) HangUp(TRUE); Reinitialize(); break; case 'Q': temp = SysopGetNumber(id, "SETOLD", 0l, 200000l); if (temp != 0l) cfg.oldest = temp; break; case 'U': CloseSysopMenu(id); UserAdmin(&lBuf); id = RegisterSysopMenu("ctdlopt.mnu", CtdlOpts,Priv); break; } } killLogBuf(&lBuf); CloseSysopMenu(id); return GOOD_SELECT; } /* * doUngoto() * * This function handles the Ungoto command. */ char doUngoto(char moreYet) { label target; if (!moreYet) { strCpy(target, ""); } else { if (getNormStr("", target, NAMESIZE, BS_VALID) == BACKED_OUT) return BACKED_OUT; } retRoom(target); return GOOD_SELECT; } /* * getCommand() * * This function prints the menu prompt and gets command char and returns a * char via parameter and expand flag as value -- i.e., TRUE if parameters * follow else FALSE. */ char getCommand(char *c, char bs) { char expand, again; outFlag = OUTOK; if (!bs) givePrompt(); do { again = FALSE; /* bizarre cheat */ if (!bs) { if( justLostCarrier ) { *c = 0; } else { *c = modIn(); *c = toUpper(*c); }; } else *c = '.'; expand = ( *c == ' ' || *c == '.' || *c == ',' || *c == '/' ); if (expand) { if (!bs) oChar(*c); *c = modIn(); if ((*c = toUpper(*c)) == '\b') { mPrintf("\b \b"); again = TRUE; } } /* catch a late Pause, et al, command */ else if (*c == 'P' || *c == '\b') again = TRUE; else if (*c == 7) { if( CheckForSpecial(13,69))netController(0,0,NO_NETS, ANY_CALL,0); } /* else oChar(*c); -- actually, handled somewhere else! */ bs = FALSE; } while (again && onLine()); if (justLostCarrier) { justLostCarrier = FALSE; terminate(TRUE, TRUE); expand = 0; } return expand; } /* * greeting() * * This gives system-entry blurb etc. */ void greeting() { extern char *VERSION, *SysVers; extern int logTries; if (loggedIn) terminate(FALSE, TRUE); setUp(TRUE); pause(10); logTries = 1; /* put this here instead of setUp() */ PrintBanner = TRUE; /* signal for anytime net */ doCR(); expert = TRUE; HelpIfPresent("banner.pre"); if (!MultiBanner("banner")) if (!HelpIfPresent("banner.blb")) Output_Citadel_Message("NODETL",NULL,NULL,NULL); HelpIfPresent("banner.sfx"); expert = FALSE; Output_Citadel_Message("VERSIN",NULL,NULL,NULL); Output_Citadel_Message("HELPOP",NULL,NULL,NULL); printf("Chat mode %sabled\n", cfg.BoolFlags.noChat ? "dis" : "en"); printf("\n 'MODEM' mode.\n " ); printf("( for CONSOLE mode.)\n " ); while (MIReady()) inp(); gotoRoom(baseRoom, 'R'); setUp(TRUE); PrintBanner = FALSE; if (outFlag == NET_CALL) { netController(0, 0, NO_NETS, ANY_CALL, 0); /* so we don't call out */ } else if (outFlag == STROLL_DETECTED) { StrollIt(); } outFlag = OUTOK; } /* * main() * * This is the main manager. */ void main(int argc, char **argv) { extern char logNetResults, netDebug, DisVandals; extern char netdebuglog; extern char VortexHandle, BpsSet, *kip, ItlWxmodem, Zmodem, NoConsoleBanner; extern int ParanoiaLimit, LD_Delay; extern long LowFree; char c, x, errMsg; int CmdResult = GOOD_SELECT; /* initialize global data items */ results_debug = FALSE; /* debug modem results codes */ results_cid = FALSE; /* collect caller ID info if present */ cfg.weAre = CITADEL; errMsg = FALSE; SysVers = SYSDEP_NAME ; SystemPort = 0; ExitToMsdos = FALSE; /* True when time to bring system down */ exitValue = CRASH_EXIT; iconify_window = FALSE; /* not iconified so printf uses crash.sys for output in startup */ R_W_ANY = "rb+"; READ_ANY = "rb"; READ_TEXT = "ra"; APPEND_TEXT = "aa"; APPEND_ANY = "ab"; A_C_TEXT = "ab"; WRITE_TEXT = "wa"; W_R_ANY = "wb+"; WRITE_ANY = "wb"; while (argc >= 2) { argc--; if (strCmpU(argv[argc], "+netlog") == SAMESTRING) { logNetResults = TRUE; } else if (strncmp(argv[argc], "+results", 4) == SAMESTRING) { results_debug = TRUE; } else if (strncmp(argv[argc], "+cid", 4) == SAMESTRING) { results_cid = TRUE; } else if (strncmp(argv[argc], "kip=", 4) == SAMESTRING) { kip = argv[argc] + 4; } else if (strncmp(argv[argc], "lowfree=", 8) == SAMESTRING) { LowFree = atoi(argv[argc] + 8); } else if (strncmp(argv[argc], "lddelay=", 8) == SAMESTRING) { LD_Delay = atoi(argv[argc] + 8); } else if (strncmp(argv[argc], "paranoia=", 9) == SAMESTRING) { if ((ParanoiaLimit = atoi(argv[argc] + 9)) < 1) ParanoiaLimit = 10000; } else if (strncmp(argv[argc], "bps=", 4) == SAMESTRING) { BpsSet = TRUE; ReadBps(argv[argc]); } else if (strCmpU(argv[argc], "+netdebug") == SAMESTRING) { netDebug = TRUE; } else if (strCmpU(argv[argc], "+netdebuglog") == SAMESTRING) { netdebuglog = TRUE; } else if (strCmpU(argv[argc], "+nochat") == SAMESTRING) { NoChatAtAll = TRUE; } else if (strCmpU(argv[argc], "+nomeet") == SAMESTRING) { MeetDisabled = TRUE; } else if (strCmpU(argv[argc], "+noecho") == SAMESTRING) { anyEcho = FALSE; } else if (strCmpU(argv[argc], "+wx") == SAMESTRING) { #ifdef WXMODEM_AVAILABLE ItlWxmodem = TRUE; #endif } else if (strCmpU(argv[argc], "+vortex") == SAMESTRING) { VortexHandle = TRUE; } else if (strCmpU(argv[argc], "-vortex") == SAMESTRING) { VortexHandle = FALSE; } else if (strCmpU(argv[argc], "+vandaloff") == SAMESTRING) { DisVandals = TRUE; } else if (strCmpU(argv[argc], "+conpwd") == SAMESTRING) { ConsolePassword = TRUE; } else if (strCmpU(argv[argc], "+noconban") == SAMESTRING) { NoConsoleBanner = TRUE; } else if (strncmp(argv[argc], "zmodem=", 7) == SAMESTRING) { Zmodem = argv[argc][7]; } else { printf("Invalid argument: %s\n", argv[argc]); errMsg = TRUE; } } if (initCitadel()) { greeting(); logMessage(FIRST_IN, "", FALSE); } startTimer(NEXT_ANYNET); /* start anytime net timer */ if (errMsg) { sPrintf(msgBuf.mbtext, "System brought up from apparent crash."); aideMessage(NULL,FALSE); } while (!ExitToMsdos) { x = getCommand(&c, (CmdResult == BACKED_OUT)); outFlag = OUTOK; CmdResult = (c==CNTRLl) ? doSysop() : doRegular(x, c); if (CmdResult == BAD_SELECT) { Output_Citadel_Message("HLPMNU",NULL,NULL,NULL); } } if (loggedIn) terminate( /* hangUp == */ exitValue == DOOR_EXIT ? FALSE : TRUE, TRUE); logMessage(exitValue != DOOR_EXIT ? LAST_OUT : DOOR_OUT , "", FALSE); writeSysTab(); if (onConsole) EnableModem(FALSE); /* just in case... */ if (exitValue != DOOR_EXIT && !cfg.BoolFlags.IsDoor) DisableModem(TRUE); ModemShutdown(((exitValue == DOOR_EXIT || cfg.BoolFlags.IsDoor) && !onConsole) ? FALSE : TRUE); systemShutdown(0); exit(exitValue); } /* * UserAdmin() * * This function handles the user administration menu. */ void UserAdmin(logBuffer *lBuf) { extern SListBase MailForward; int logNo, ltabSlot, result; SYS_FILE killHeld; label who; MenuId id; char User_Prompt[] = "\nUser Administration\n "; char *UserOpts[] = { "A(dd new user) ", "D(oor privs) ", "E(ndless User)\n", "F(ile privs) ", "K(ill user) ", "N(et privs)\n", "P(rivileges-aide) ", "T(wit) ", "X(eXit)\n", "" }; id = RegisterSysopMenu("useropt.mnu", UserOpts, User_Prompt); while (onLine()) { outFlag = OUTOK; SysopMenuPrompt(id, "\n user admin fn: "); switch (GetSysopMenuChar(id)) { case ERROR: case 'X': CloseSysopMenu(id); return ; case 'E': /* permanent account administration */ if ((logNo = GetUser(who, lBuf, TRUE)) == ERROR || logNo == cfg.MAXLOGTAB) break; Output_Citadel_Message((lBuf->lbflags.PERMANENT ? "NPERMA" : "PERMAC") ,(long)lBuf->lbname,NULL,NULL); if (!SysopGetYesNo(id, NULL, "CONFRM")) break; lBuf->lbflags.PERMANENT = !lBuf->lbflags.PERMANENT; putLog(lBuf, logNo); /* find position in logTab[] and update that, too */ if ((ltabSlot = PWSlot(lBuf->lbpw, /* load == */ FALSE)) != ERROR) logTab[ltabSlot].ltpermanent = lBuf->lbflags.PERMANENT; if (loggedIn && strCmpU(logBuf.lbname, who)==SAMESTRING) logBuf.lbflags.PERMANENT = lBuf->lbflags.PERMANENT; break; case 'T': if ((logNo = GetUser(who, lBuf, TRUE)) == ERROR || logNo == cfg.MAXLOGTAB) break; Output_Citadel_Message((lBuf->lbflags.TWIT ? "TWITST" : "TWITNT") ,(long)lBuf->lbname,NULL,NULL); if (!SysopGetYesNo(id, NULL, "CONFRM")) break; lBuf->lbflags.TWIT = !lBuf->lbflags.TWIT; putLog(lBuf, logNo); if (loggedIn && strCmpU(logBuf.lbname, who)==SAMESTRING) logBuf.lbflags.TWIT = lBuf->lbflags.TWIT; break; case 'F': if ((logNo = GetUser(who, lBuf, TRUE)) == ERROR) break; if (logNo == cfg.MAXLOGTAB) { result = DoAllQuestion("GVFLPR","TAFLPR"); if (result == ERROR) break; for (logNo = 0; logNo < cfg.MAXLOGTAB; logNo++) { getLog(lBuf, logNo); if (!onConsole) mPrintf("."); if (lBuf->lbflags.L_INUSE && lBuf->lbflags.DL_PRIVS != result) { lBuf->lbflags.DL_PRIVS = result; putLog(lBuf, logNo); } } break; } Output_Citadel_Message((lBuf->lbflags.DL_PRIVS ? "NFLPRI" : "FILPRI") ,(long)lBuf->lbname,NULL,NULL); if (!SysopGetYesNo(id, NULL, "CONFRM")) break; lBuf->lbflags.DL_PRIVS = !lBuf->lbflags.DL_PRIVS; putLog(lBuf, logNo); if (loggedIn && strCmpU(logBuf.lbname, who)==SAMESTRING) logBuf.lbflags.DL_PRIVS = lBuf->lbflags.DL_PRIVS; break; case 'K': if ((logNo = GetUser(who, lBuf, TRUE)) == ERROR || logNo == cfg.MAXLOGTAB) break; Output_Citadel_Message( "KILLTH",(long)lBuf->lbname,lBuf->credit,NULL); if (!SysopGetYesNo(id, NULL, "CONFRM")) break; ltabSlot = PWSlot(lBuf->lbpw, /* load == */ FALSE); lBuf->lbname[0] = '\0'; lBuf->lbpw[0 ] = '\0'; lBuf->lbflags.L_INUSE = FALSE; putLog(lBuf, logNo); logTab[ltabSlot].ltpwhash = 0; logTab[ltabSlot].ltnmhash = 0; if (cfg.BoolFlags.HoldOnLost) { sPrintf(msgBuf.mbtext, LCHeld, logNo); makeSysName(killHeld, msgBuf.mbtext, &cfg.holdArea); unlink(killHeld); } KillData(&MailForward, who); UpdateForwarding(); break; case 'P': if ((logNo = GetUser(who, lBuf, TRUE)) == ERROR || logNo == cfg.MAXLOGTAB) break; if (lBuf->lbflags.AIDE == 1) { lBuf->lbflags.AIDE = 0; lBuf->lbgen[AIDEROOM] = ((roomTab[AIDEROOM].rtgen-1) % MAXGEN) << GENSHIFT; } else { lBuf->lbflags.AIDE = 1; lBuf->lbgen[AIDEROOM] = roomTab[AIDEROOM].rtgen << GENSHIFT; lBuf->lbgen[AIDEROOM] += MAXVISIT-1; } Output_Citadel_Message((lBuf->lbflags.AIDE ? "AIDPRI" : "NADPRI" ) ,(long)lBuf->lbname,NULL,NULL); if (!SysopGetYesNo(id, NULL, "CONFRM")) break; putLog(lBuf, logNo); /* see if it is us: */ if (loggedIn && strCmpU(logBuf.lbname, who)==SAMESTRING) { aide = (lBuf->lbflags.AIDE == 1) ? TRUE : FALSE; logBuf.lbgen[AIDEROOM] = lBuf->lbgen[AIDEROOM]; } break; case 'D': if ((logNo = GetUser(who, lBuf, TRUE)) == ERROR) break; if (logNo == cfg.MAXLOGTAB) { result = DoAllQuestion("GVDRPR","TADRPR"); if (result == ERROR) break; for (logNo = 0; logNo < cfg.MAXLOGTAB; logNo++) { getLog(lBuf, logNo); if (!onConsole) mPrintf("."); if (lBuf->lbflags.L_INUSE && lBuf->lbflags.DOOR_PRIVS != result) { lBuf->lbflags.DOOR_PRIVS = result; putLog(lBuf, logNo); } } break; } lBuf->lbflags.DOOR_PRIVS = (lBuf->lbflags.DOOR_PRIVS == 1) ? 0 : 1; Output_Citadel_Message((lBuf->lbflags.DOOR_PRIVS ? "DORPRI" : "NDRPRI") ,(long)lBuf->lbname,NULL,NULL); if (!SysopGetYesNo(id, NULL, "CONFRM")) break; putLog(lBuf, logNo); /* see if it is us: */ if (loggedIn && strCmpU(logBuf.lbname, who)==SAMESTRING) { DoorPriv = lBuf->lbflags.DOOR_PRIVS; } break; case 'N': NetPrivs(who); break; case 'A': CloseSysopMenu(id); newUser(&logTmp); id = RegisterSysopMenu("useropt.mnu", UserOpts, User_Prompt); break; } } }