]> code.citadel.org Git - citadel.git/blobdiff - citadel/setup.c
Site config protocol and UI for XMPP port numbers
[citadel.git] / citadel / setup.c
index cb590f65cafc893e2bf3dcdf18df220bf946b4bd..e21bdcce082423866acb098c3a1017c2f971a643 100644 (file)
@@ -1,7 +1,8 @@
 /*
- * Citadel/UX setup program
+ * $Id$
+ *
+ * Citadel setup utility
  *
- * *** YOU MUST EDIT sysconfig.h >BEFORE< COMPILING SETUP ***
  */
 
 #include <stdlib.h>
 #include <sys/types.h>
 #include <sys/stat.h>
 #include <sys/utsname.h>
+#include <sys/wait.h>
+#include <signal.h>
 #include <netdb.h>
 #include <errno.h>
 #include <limits.h>
-
+#include <pwd.h>
+#include <time.h>
+#include <libcitadel.h>
 #include "citadel.h"
 #include "axdefs.h"
 #include "sysdep.h"
 #include "config.h"
+#include "citadel_dirs.h"
 
-#ifdef HAVE_CURSES_H
-# ifdef OK
-# undef OK
-# endif
-#include <curses.h>
-#endif
-
-#define MAXSETUP 19
+#define MAXSETUP 5     /* How many setup questions to ask */
 
 #define UI_TEXT                0       /* Default setup type -- text only */
-#define UI_DIALOG      1       /* Use the 'dialog' program */
-#define UI_CURSES      2       /* Use curses */
+#define UI_DIALOG      2       /* Use the 'dialog' program */
+#define UI_SILENT      3       /* Silent running, for use in scripts */
 
 #define SERVICE_NAME   "citadel"
 #define PROTO_NAME     "tcp"
+#define NSSCONF                "/etc/nsswitch.conf"
 
 int setup_type;
-char setup_directory[128];
-int need_init_q = 0;
-
-char *setup_titles[] = {
-       "BBS Home Directory",
-       "Citadel node name",
-       "Fully Qualified Domain Name (FQDN)",
-       "Human-readable node name",
-       "Phone number",
-       "BBS City and State",
+char setup_directory[PATH_MAX];
+int using_web_installer = 0;
+int enable_home = 1;
+
+char *setup_titles[] =
+{
+       "Citadel Home Directory",
        "System Administrator",
-       "BBS User ID",
-       "'Room Creator = Room Aide' flag",
-       "Server timeout period",
-       "Initial access level",
-       "Registration requirements",
-       "Twit Detect!",
-       "Twit Detect target room",
-       "Maximum concurrent sessions",
-       "Paginator prompt",
-       "Restrict Internet mail flag",
-       "Name of bit bucket subdirectory",
-       "System net password",
+       "Citadel User ID",
+       "Server IP address",
        "Server port number",
-       };
+       "Authentication mode"
+};
 
 
+struct config config;
+
+       /* calculate all our path on a central place */
+    /* where to keep our config */
+       
+
 char *setup_text[] = {
+#ifndef HAVE_RUN_DIR
+"Enter the full pathname of the directory in which the Citadel\n"
+"installation you are creating or updating resides.  If you\n"
+"specify a directory other than the default, you will need to\n"
+"specify the -h flag to the server when you start it up.\n",
+#else
+"Enter the subdirectory name for an alternate installation of "
+"Citadel. To do a default installation just leave it blank."
+"If you specify a directory other than the default, you will need to\n"
+"specify the -h flag to the server when you start it up.\n"
+"note that it may not have a leading /",
+#endif
 
-"0",
-"Enter the full pathname of the directory in which the BBS you are",
-"creating or updating resides.  If you specify a directory other than the",
-"default, you will need to specify the -h flag to the server when you start",
-"it up.",
-
-"1",
-"This is the name your system is known by on a Citadel/UX network.  It",
-"should be 8 characters or less, and should generally be comprised only of",
-"letters.  You can also use numbers and hyphens if necessary.",
-
-"2",
-"This is the name your system is known by on the Internet.",
-"If you're not on the Internet, simply set this to your",
-"node name followed by '.UUCP'.",
-
-"3",
-"This is a longer description of your system, readable by",
-"us mere humans.  It can be up to 20 characters long and it",
-"can have spaces in it.  Note that if you are part of a",
-"Cit86Net, this is the name your system will be known by on",
-"that network.",
-
-"4",
-"This is the main dialup number for your system.  If yours",
-"can not be dialed into, then make one up!  It should be in",
-"the format 'US 000 000 0000' - the US is your country code",
-"(look it up if you're not in the United States) and the",
-"rest is, of course, your area code and phone number.",
-"This doesn't have any use in Citadel/UX, but gateways to",
-"other networks may require it, and someday we may use this",
-"to have the networker automatically build a BBS list.",
-
-"5",
-"Enter the geographical location of your system (city and",
-"state/province/country etc.)",
-
-"6",
-"Enter the name of the system administrator (which is probably you).",
-"When an account is created with this name, it will automatically be",
-"assigned the highest access level.",
-
-"7",
-"You should create a user called 'bbs', 'guest', 'citadel', or something",
-"similar, that will allow users a way into your BBS.  The server will run",
-"under this user ID.  Please specify that (numeric) user ID here.",
-
-"8",
-"This is a boolean value.  If you set it to 1, anyone who",
-"creates a class 3 (passworded) or class 4 (invitation",
-"only) room will automatically become the Room Aide for",
-"that room, allowing them to edit it, delete/move messages,",
-"etc.  This is an administrative decision: it works well on",
-"some systems, and not so well on others.  Set this to 0 to",
-"disable this function.",
-
-"9",
-"This setting specifies how long a server session may sit idle before it is",
-"automatically terminated.  The recommended value is 900 seconds (15",
-"minutes).  Note that this has *nothing* to do with any watchdog timer that",
-"is presented to the user.  The server's timeout is intended to kill idle or",
-"zombie sessions running on a network, etc.  ",
-"You MUST set this to a reasonable value.  Setting it to zero will cause",
-"the server to malfunction.",
-
-"10",
-"This is the access level new users are assigned.",
-"",
-"The most common settings for this will be either 1, for",
-"systems which require new user validation by the system",
-"administrator, or 4, for systems which give instant access.",
-"The current access levels available are:",
-
-"11",
-"'Registration' refers to the boring part of logging into a BBS for the first",
-"time: typing your name, address, and telephone number.  Set this value to 1",
-"to automatically do registration for new users, or 0 to not auto-register.",
-"Optionally, you could set it to, say, 2, to auto-register on a user's second",
-"call, but there really isn't much point to doing this.  The recommended",
-"value is 1 if you've set your inital access level to 1, or 0 if you've set",
-"your initial access level to something higher.",
-
-"12",
-"Every BBS has its share of problem users.  This is one",
-"good way to deal with them: if you enable this option,",
-"anyone you flag as a 'problem user' (access level 2) can",
-"post anywhere they want, but their messages will all be",
-"automatically moved to a room of your choosing.  Set this",
-"value to 1 to enable Twit Detect, or 0 to disable it.",
-
-"13",
-"This is the name of the room that problem user messages",
-"get moved to if you have Twit Detect enabled.",
-"(Note: don't forget to *create* this room!)",
-
-"14",
-"This is the maximum number of concurrent Citadel sessions which may be",
-"running at any given time.  Use this to keep very busy systems from being",
-"overloaded.",
-"  Set this value to 0 to allow an unlimited number of sessions.",
-
-"15",
-"This is the prompt that appears after each screenful of",
-"text - for users that have chosen that option.  Usually",
-"a simple '<more>' will do, but some folks like to be",
-"creative...",
-
-"16",
-"If you have a gateway set up to allow Citadel users to",
-"send Internet mail, with sendmail, qmail, or whatever, and",
-"you wish to restrict this to only users to whom you have",
-"given this privilege, set this flag to 1.  Otherwise, set",
-"it to 0 to allow everyone to send Internet mail.",
-"(Obviously, if your system doesn't have the ability to",
-"send mail to the outside world, this is all irrelevant.)",
-
-"17",
-"Select the name of a subdirectory (relative to the main",
-"Citadel directory - do not type an absolute pathname!) in",
-"which to place arriving file transfers that otherwise",
-"don't have a home.",
-
-"18",
-"If you use Citadel client/server sessions to transport network spool data",
-"between systems, this is the password other systems will use to authenticate",
-"themselves as network nodes rather than regular callers.",
-
-"19",
-"Specify the TCP port number on which your server will run.  Normally, this",
-"will be port 504, which is the official port assigned by the IANA for",
-"Citadel servers.  You'll only need to specify a different port number if",
-"you run multiple BBS's on the same computer and there's something else",
-"already using port 504.",
-
-"20",
-"21",
-"22",
-"23",
-"24",
-"25",
-"26",
-"27",
-"28",
-"29",
-"30",
-
-"31",
-"Setup has detected that you currently have data files from a Citadel/UX",
-"version 3.2x installation.  The program 'conv_32_40' can upgrade your",
-"files to version 4.0x format.",
-" Setup will now exit.  Please either run 'conv_32_40' or delete your data",
-"files, and run setup again.",
-
-"32",
+"Enter the name of the system administrator (which is probably\n"
+"you).  When an account is created with this name, it will\n"
+"automatically be given administrator-level access.\n",
+
+"Citadel needs to run under its own user ID.  This would\n"
+"typically be called \"citadel\", but if you are running Citadel\n"
+"as a public BBS, you might also call it \"bbs\" or \"guest\".\n"
+"The server will run under this user ID.  Please specify that\n"
+"user ID here.  You may specify either a user name or a numeric\n"
+"UID.\n",
+
+"Specify the IP address on which your server will run.  If you\n"
+"leave this blank, or if you specify 0.0.0.0, Citadel will listen\n"
+"on all addresses.  You can usually skip this unless you are\n"
+"running multiple instances of Citadel on the same computer.\n",
+
+"Specify the TCP port number on which your server will run.\n"
+"Normally, this will be port 504, which is the official port\n"
+"assigned by the IANA for Citadel servers.  You will only need\n"
+"to specify a different port number if you run multiple instances\n"
+"of Citadel on the same computer and there is something else\n"
+"already using port 504.\n",
+
+"Normally, a Citadel system uses a \"black box\" authentication mode.\n"
+"This means that users do not have accounts or home directories on\n"
+"the underlying host system -- Citadel manages its own user database.\n"
+"However, if you wish to override this behavior, you can enable the\n"
+"host based authentication mode which is traditional for Unix systems.\n"
+"WARNING: do *not* change this setting once your system is installed.\n"
+"\n"
+"(Answer \"no\" unless you completely understand this option)\n"
+"Do you want to enable host based authentication mode?\n"
 
 };
 
 struct config config;
 int direction;
 
-void cleanup(int exitcode) {
-#ifdef HAVE_CURSES_H
-       if (setup_type == UI_CURSES) {
-               clear();
-               refresh();
-               endwin();
-               }
-#endif
-
-       /* Do an 'init q' if we need to.  When we hit the right one, init
-        * will take over and setup won't come back because we didn't do a
-        * fork().  If init isn't found, we fall through the bottom of the
-        * loop and setup exits quietly.
-        */
-       if (need_init_q) {
-               execlp("/sbin/init", "init", "q", NULL);
-               execlp("/usr/sbin/init", "init", "q", NULL);
-               execlp("/bin/init", "init", "q", NULL);
-               execlp("/usr/bin/init", "init", "q", NULL);
-               execlp("init", "init", "q", NULL);
-               }
-
-       exit(exitcode);
-       }
 
-
-#ifdef HAVE_CURSES_H
-void getlin(int yp, int xp, char *string, int lim)     /* Gets a line from the terminal */
-                               /* Where on the screen to start */
-                               /* Pointer to string buffer */
-                               /* Maximum length - if negative, no-show */
+void cleanup(int exitcode)
 {
-int a,b; char flag;
-
-       flag=0;
-       if (lim<0) { lim=(0-lim); flag=1; }
-       move(yp,xp);
-       standout();
-       for (a=0; a<lim; ++a) addch('-');
-       refresh();
-       move(yp,xp);
-       for (a=0; a<lim; ++a) addch(' ');
-       move(yp,xp);
-       printw("%s", string);
-GLA:   move(yp,xp+strlen(string));
-       refresh();
-       a=getch();
-       if (a==127) a=8;
-       a=(a&127);
-       if (a==10) a=13;
-       if ((a==8)&&(strlen(string)==0)) goto GLA;
-       if ((a!=13)&&(a!=8)&&(strlen(string)==lim)) goto GLA;
-       if ((a==8)&&(string[0]!=0)) {
-               string[strlen(string)-1]=0;
-               move(yp,xp+strlen(string));
-               addch(' ');
-               goto GLA;
-               }
-       if ((a==13)||(a==10)) {
-               standend();
-               move(yp,xp);
-               for (a=0; a<lim; ++a) addch(' ');
-               mvprintw(yp,xp,"%s",string);
-               refresh();
-               return;
-               }
-       b=strlen(string);
-       string[b]=a;
-       string[b+1]=0;
-       if (flag==0) addch(a);
-       if (flag==1) addch('*');
-       goto GLA;
+       exit(exitcode);
 }
-#endif
 
 
 
 void title(char *text)
 {
        if (setup_type == UI_TEXT) {
-               printf("\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n<%s>\n",text);
-               }
+               printf("\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n<%s>\n", text);
        }
+}
 
 
-void hit_any_key(void) {
-       char junk[5];
-
-#ifdef HAVE_CURSES_H
-       if (setup_type == UI_CURSES) {
-               mvprintw(20, 0, "Press any key to continue... ");
-               refresh();
-               getch();
-               return;
-               }
-#endif
-       printf("Press return to continue...");
-       fgets(junk, 5, stdin);
-       }
 
-int yesno(char *question)
+int yesno(char *question, int default_value)
 {
+       int i = 0;
        int answer = 0;
-       char buf[4096];
+       char buf[SIZ];
 
-       switch(setup_type) {
-
-               case UI_TEXT:
-                       do {
-                               printf("%s\nYes/No --> ",question);
-                               fgets(buf, 4096, stdin);
-                               answer=tolower(buf[0]);
-                               if (answer=='y') answer=1;
-                               else if (answer=='n') answer=0;
-                               } while ((answer<0)||(answer>1));
-                       break;
-
-               case UI_DIALOG:
-                       sprintf(buf, "dialog --yesno \"%s\" 7 80", question);
-                       answer = ( (system(buf)==0) ? 1 : 0);
-                       break;
-#ifdef HAVE_CURSES_H
-               case UI_CURSES:
-                       do {
-                               clear();
-                               standout();
-                               mvprintw(1, 20, "Question");
-                               standend();
-                               mvprintw(10, 0, "%-80s", question);
-                               mvprintw(20, 0, "%80s", "");
-                               mvprintw(20, 0, "Yes/No -> ");
-                               refresh();
-                               answer = getch();
-                               answer=tolower(answer);
-                               if (answer=='y') answer=1;
-                               else if (answer=='n') answer=0;
-                               } while ((answer<0)||(answer>1));
-                       break;
-#endif
+       switch (setup_type) {
 
+       case UI_TEXT:
+               do {
+                       printf("%s\nYes/No [%s] --> ",
+                               question,
+                               ( default_value ? "Yes" : "No" )
+                       );
+                       fgets(buf, sizeof buf, stdin);
+                       answer = tolower(buf[0]);
+                       if ((buf[0]==0) || (buf[0]==13) || (buf[0]==10))
+                               answer = default_value;
+                       else if (answer == 'y')
+                               answer = 1;
+                       else if (answer == 'n')
+                               answer = 0;
+               } while ((answer < 0) || (answer > 1));
+               break;
+
+       case UI_DIALOG:
+               sprintf(buf, "exec %s %s --yesno '%s' 15 75",
+                       getenv("CTDL_DIALOG"),
+                       ( default_value ? "" : "--defaultno" ),
+                       question);
+               i = system(buf);
+               if (i == 0) {
+                       answer = 1;
                }
-       return(answer);
-       }
-
-
-
-void dump_access_levels(void) {
-       int a;
-       for (a=0; a<=6; ++a) printf("%d %s\n",a,axdefs[a]);
-       }
-
-void get_setup_msg(char *dispbuf, int msgnum) {
-       int a,b;
-
-       a=0;
-       b=0;
-       while (atol(setup_text[a]) != msgnum) ++a;
-       ++a;
-       strcpy(dispbuf, "");
-       do {
-               strcat(dispbuf, setup_text[a++]);
-               strcat(dispbuf, "\n");
-               } while(atol(setup_text[a])!=(msgnum+1));
-       }
-
-void print_setup(int msgnum) {
-       char dispbuf[4096];
+               else {
+                       answer = 0;
+               }
+               break;
 
-       get_setup_msg(dispbuf, msgnum);
-       printf("\n\n%s\n\n", dispbuf);
        }
+       return (answer);
+}
 
 
-void important_message(char *title, char *msgtext) {
-       char buf[4096];
+void important_message(char *title, char *msgtext)
+{
+       char buf[SIZ];
 
-       switch(setup_type) {
-               
-               case UI_TEXT:
-                       printf("\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n");
-                       printf("       %s \n\n%s\n\n", title, msgtext);
-                       hit_any_key();
-                       break;
-
-               case UI_DIALOG:
-                       sprintf(buf, "dialog --title \"%s\" --msgbox \"\n%s\" 20 80",
-                               title, msgtext);
-                       system(buf);
-                       break;
-#ifdef HAVE_CURSES_H
-               case UI_CURSES:
-                       clear();
-                       move(1, 20);
-                       standout();
-                       printw("  Important Message  ");
-                       standend();
-                       move(3, 0);
-                       printw("%s", msgtext);
-                       refresh();
-                       hit_any_key();
-                       break;
-#endif
+       switch (setup_type) {
 
-               }
+       case UI_TEXT:
+               printf("\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n");
+               printf("       %s \n\n%s\n\n", title, msgtext);
+               printf("Press return to continue...");
+               fgets(buf, sizeof buf, stdin);
+               break;
+
+       case UI_DIALOG:
+               sprintf(buf, "exec %s --msgbox '%s' 19 72",
+                       getenv("CTDL_DIALOG"),
+                       msgtext);
+               system(buf);
+               break;
        }
+}
 
-void important_msgnum(int msgnum) {
-       char dispbuf[4096];
-       
-       get_setup_msg(dispbuf, msgnum);
-       important_message("Important Message", dispbuf);
-       }
+void important_msgnum(int msgnum)
+{
+       important_message("Important Message", setup_text[msgnum]);
+}
 
-void display_error(char *error_message) {
+void display_error(char *error_message)
+{
        important_message("Error", error_message);
-       }
+}
 
 void progress(char *text, long int curr, long int cmax)
 {
-       static long dots_printed;
-       long a;
-       static long prev;
-       static FILE *gauge = NULL;
-       char gcmd[256];
-
-       switch(setup_type) {
-
-               case UI_TEXT:
-                       if (curr==0) {
-                               printf("%s\n",text);
-                               printf("..........................");
-                               printf("..........................");
-                               printf("..........................\r");
+       static long dots_printed = 0L;
+       long a = 0;
+       static FILE *fp = NULL;
+       char buf[SIZ];
+
+       switch (setup_type) {
+
+       case UI_TEXT:
+               if (curr == 0) {
+                       printf("%s\n", text);
+                       printf("..........................");
+                       printf("..........................");
+                       printf("..........................\r");
+                       fflush(stdout);
+                       dots_printed = 0;
+               } else if (curr == cmax) {
+                       printf("\r%79s\n", "");
+               } else {
+                       a = (curr * 100) / cmax;
+                       a = a * 78;
+                       a = a / 100;
+                       while (dots_printed < a) {
+                               printf("*");
+                               ++dots_printed;
                                fflush(stdout);
-                               dots_printed = 0;
-                               }
-                       else if (curr==cmax) {
-                               printf("\r%79s\n","");
-                               }
-                       else {
-                               a=(curr * 100) / cmax;
-                               a=a*78; a=a/100;
-                               while (dots_printed < a) {
-                                       printf("*");
-                                       ++dots_printed;
-                                       fflush(stdout);
-                                       }
-                               }
-                       break;
-
-#ifdef HAVE_CURSES_H
-               case UI_CURSES:
-                       if (curr==0) {
-                               clear();
-                               move(5, 20);
-                               printw("%s\n",text);
-                               move(10, 1);
-                               printf("..........................");
-                               printf("..........................");
-                               printf("..........................\r");
-                               refresh();
-                               dots_printed = 0;
-                               }
-                       else if (curr==cmax) {
-                               clear();
-                               refresh();
-                               }
-                       else {
-                               a=(curr * 100) / cmax;
-                               a=a*78; a=a/100;
-                               move(10,1);
-                               dots_printed = 0;
-                               while (dots_printed < a) {
-                                       printw("*");
-                                       ++dots_printed;
-                                       }
-                               refresh();
-                               }
-                       break;
-#endif
-                       
-               case UI_DIALOG:
-                       if ( (curr == 0) && (gauge == NULL) ) {
-                               sprintf(gcmd, "dialog --guage \"%s\" 7 80 0",
-                                       text);
-                               gauge = (FILE *) popen(gcmd, "w");
-                               prev = 0;
-                               }
-                       else if (curr==cmax) {
-                               fprintf(gauge, "100\n");
-                               pclose(gauge);
-                               gauge = NULL;
-                               }
-                       else {
-                               a=(curr * 100) / cmax;
-                               if (a != prev) {
-                                       fprintf(gauge, "%ld\n", a);
-                                       fflush(gauge);
-                                       }
-                               prev = a;
-                               }
-                       break;
+                       }
                }
+               break;
+
+       case UI_DIALOG:
+               if (curr == 0) {
+                       sprintf(buf, "exec %s --gauge '%s' 7 72 0",
+                               getenv("CTDL_DIALOG"),
+                               text);
+                       fp = popen(buf, "w");
+                       if (fp != NULL) {
+                               fprintf(fp, "0\n");
+                               fflush(fp);
+                       }
+               } 
+               else if (curr == cmax) {
+                       if (fp != NULL) {
+                               fprintf(fp, "100\n");
+                               pclose(fp);
+                               fp = NULL;
+                       }
+               }
+               else {
+                       a = (curr * 100) / cmax;
+                       if (fp != NULL) {
+                               fprintf(fp, "%ld\n", a);
+                               fflush(fp);
+                       }
+               }
+               break;
+
        }
+}
 
 
 
@@ -539,296 +272,554 @@ void progress(char *text, long int curr, long int cmax)
  * check_services_entry()  -- Make sure "citadel" is in /etc/services
  *
  */
-void check_services_entry(void) {
-       char question[128];
+void check_services_entry(void)
+{
+       int i;
        FILE *sfp;
-
-       sprintf(question,
-"There is no '%s' entry in /etc/services.  Would you like to add one?",
-               SERVICE_NAME);
+       char errmsg[256];
 
        if (getservbyname(SERVICE_NAME, PROTO_NAME) == NULL) {
-               if (yesno(question)==1) {
-                       sfp = fopen("/etc/services", "a");
-                       if (sfp == NULL) {
-                               display_error(strerror(errno));
-                               }
-                       else {
-                               fprintf(sfp, "%s                504/tcp\n",
-                                       SERVICE_NAME);
-                               fclose(sfp);
+               for (i=0; i<=2; ++i) {
+                       progress("Adding service entry...", i, 2);
+                       if (i == 0) {
+                               sfp = fopen("/etc/services", "a");
+                               if (sfp == NULL) {
+                                       sprintf(errmsg, "Cannot open /etc/services: %s", strerror(errno));
+                                       display_error(errmsg);
+                               } else {
+                                       fprintf(sfp, "%s                504/tcp\n", SERVICE_NAME);
+                                       fclose(sfp);
                                }
                        }
                }
-
        }
+}
+
+
 
 
 /*
- * check_inittab_entry()  -- Make sure "citadel" is in /etc/inittab
+ * delete_inittab_entry()  -- Remove obsolete /etc/inittab entry for Citadel
  *
  */
-void check_inittab_entry(void) {
+void delete_inittab_entry(void)
+{
        FILE *infp;
-       char buf[256];
+       FILE *outfp;
        char looking_for[256];
-       char question[128];
-       char *ptr;
-       int have_entry = 0;
-       char entryname[3];
+       char buf[1024];
+       char outfilename[32];
+       int changes_made = 0;
 
        /* Determine the fully qualified path name of citserver */
-       sprintf(looking_for, "%s/citserver ", BBSDIR);
+       snprintf(looking_for, 
+                sizeof looking_for,
+                "%s/citserver", 
+                ctdl_sbin_dir
+                );
 
-       /* Pound through /etc/inittab line by line.  Set have_entry to 1 if
-        * an entry is found which we believe starts citserver.
-        */
+       /* Now tweak /etc/inittab */
        infp = fopen("/etc/inittab", "r");
        if (infp == NULL) {
-               display_error(strerror(errno));
+
+               /* If /etc/inittab does not exist, return quietly.
+                * Not all host platforms have it.
+                */
+               if (errno == ENOENT) {
+                       return;
                }
-       else {
-               while (fgets(buf, 256, infp) != NULL) {
-                       buf[strlen(buf) - 1] = 0;
-                       ptr = strtok(buf, ":");
-                       ptr = strtok(NULL, ":");
-                       ptr = strtok(NULL, ":");
-                       ptr = strtok(NULL, ":");
-                       if (ptr != NULL) {
-                        if (!strncmp(ptr, looking_for, strlen(looking_for))) {
-                                       ++have_entry;
-                                       }
-                               }
-                       }
+
+               /* Other errors might mean something really did go wrong.
+                */
+               sprintf(buf, "Cannot open /etc/inittab: %s", strerror(errno));
+               display_error(buf);
+               return;
+       }
+
+       strcpy(outfilename, "/tmp/ctdlsetup.XXXXXX");
+       outfp = fdopen(mkstemp(outfilename), "w+");
+       if (outfp == NULL) {
+               sprintf(buf, "Cannot open %s: %s", outfilename, strerror(errno));
+               display_error(buf);
                fclose(infp);
+               return;
+       }
+
+       while (fgets(buf, sizeof buf, infp) != NULL) {
+               if (strstr(buf, looking_for) != NULL) {
+                       fwrite("#", 1, 1, outfp);
+                       ++changes_made;
+               }
+               fwrite(buf, strlen(buf), 1, outfp);
+       }
+
+       fclose(infp);
+       fclose(outfp);
+
+       if (changes_made) {
+               sprintf(buf, "/bin/mv -f %s /etc/inittab 2>/dev/null", outfilename);
+               system(buf);
+               system("/sbin/init q 2>/dev/null");
+       }
+       else {
+               unlink(outfilename);
+       }
+}
+
+
+/*
+ * install_init_scripts()  -- Try to configure to start Citadel at boot
+ *
+ */
+void install_init_scripts(void)
+{
+       struct stat etcinitd;
+       FILE *fp;
+       char *initfile = "/etc/init.d/citadel";
+       char command[SIZ];
+
+       if ((stat("/etc/init.d/", &etcinitd) == -1) && 
+           (errno == ENOENT))
+       {
+               if ((stat("/etc/rc.d/init.d/", &etcinitd) == -1) &&
+                   (errno == ENOENT))
+                       initfile = CTDLDIR"/citadel.init";
+               else
+                       initfile = "/etc/rc.d/init.d/citadel";
+       }
+
+       fp = fopen(initfile, "r");
+       if (fp != NULL) {
+               if (yesno("Citadel already appears to be configured to start at boot.\n"
+                  "Would you like to keep your boot configuration as is?\n", 1) == 1) {
+                       return;
                }
+               fclose(fp);
+               
+       }
+
+       if (yesno("Would you like to automatically start Citadel at boot?\n", 1) == 0) {
+               return;
+       }
+
+       fp = fopen(initfile, "w");
+       if (fp == NULL) {
+               display_error("Cannot create /etc/init.d/citadel");
+               return;
+       }
+
+       fprintf(fp,     "#!/bin/sh\n"
+                       "#\n"
+                       "# Init file for Citadel\n"
+                       "#\n"
+                       "# chkconfig: - 79 30\n"
+                       "# description: Citadel service\n"
+                       "# processname: citserver\n"
+                       "# pidfile: %s/citadel.pid\n"
+                       "\n"
+                       "CITADEL_DIR=%s\n"
+                       ,
+                               setup_directory,
+                               setup_directory
+                       );
+       fprintf(fp,     "\n"
+                       "test -d /var/run || exit 0\n"
+                       "\n"
+                       "case \"$1\" in\n"
+                       "\n"
+                       "start)         echo -n \"Starting Citadel... \"\n"
+                       "               if $CITADEL_DIR/citserver -d -h$CITADEL_DIR\n"
+                       "               then\n"
+                       "                       echo \"ok\"\n"
+                       "               else\n"
+                       "                       echo \"failed\"\n"
+                       "               fi\n");
+       fprintf(fp,     "               ;;\n"
+                       "stop)          echo -n \"Stopping Citadel... \"\n"
+                       "               if $CITADEL_DIR/sendcommand DOWN >/dev/null 2>&1 ; then\n"
+                       "                       echo \"ok\"\n"
+                       "               else\n"
+                       "                       echo \"failed\"\n"
+                       "               fi\n"
+                       "               rm -f %s/citadel.pid 2>/dev/null\n"
+                       ,
+                               setup_directory
+                       );
+       fprintf(fp,     "               ;;\n"
+                       "restart)       $0 stop\n"
+                       "               $0 start\n"
+                       "               ;;\n"
+                       "*)             echo \"Usage: $0 {start|stop|restart}\"\n"
+                       "               exit 1\n"
+                       "               ;;\n"
+                       "esac\n"
+       );
+
+       fclose(fp);
+       chmod(initfile, 0755);
+
+       /* Set up the run levels. */
+       system("/bin/rm -f /etc/rc?.d/[SK]??citadel 2>/dev/null");
+       snprintf(command, sizeof(command), "for x in 2 3 4 5 ; do [ -d /etc/rc$x.d ] && ln -s %s /etc/rc$x.d/S79citadel ; done 2>/dev/null", initfile);
+       system(command);
+       snprintf(command, sizeof(command),"for x in 0 6 S; do [ -d /etc/rc$x.d ] && ln -s %s /etc/rc$x.d/K30citadel ; done 2>/dev/null", initfile);
+       system(command);
+
+}
+
+
+
+
+
+
+/*
+ * On systems which use xinetd, see if we can offer to install Citadel as
+ * the default telnet target.
+ */
+void check_xinetd_entry(void) {
+       char *filename = "/etc/xinetd.d/telnet";
+       FILE *fp;
+       char buf[SIZ];
+       int already_citadel = 0;
 
-       /* If there's already an entry, then we have nothing left to do. */
-       if (have_entry > 0) return;
+       fp = fopen(filename, "r+");
+       if (fp == NULL) return;         /* Not there.  Oh well... */
+
+       while (fgets(buf, sizeof buf, fp) != NULL) {
+               if (strstr(buf, setup_directory) != NULL) already_citadel = 1;
+       }
+       fclose(fp);
+       if (already_citadel) return;    /* Already set up this way. */
 
        /* Otherwise, prompt the user to create an entry. */
-       sprintf(question,
-"There is no '%s' entry in /etc/inittab.\nWould you like to add one?",
-               looking_for);
-       if (yesno(question)==0) return;
-
-       /* Generate a unique entry name for /etc/inittab */
-       sprintf(entryname, "c0");
-       do {
-               ++entryname[1];
-               if (entryname[1] > '9') {
-                       entryname[1] = 0;
-                       ++entryname[0];
-                       if (entryname[0] > 'z') {
-                               display_error(
-                                       "Can't generate a unique entry name");
-                               return;
-                               }
-                       }
-               sprintf(buf,
-                       "grep %s: /etc/inittab >/dev/null 2>&1", entryname);
-               } while(system(buf)==0);
+       if (getenv("CREATE_XINETD_ENTRY") != NULL) {
+               if (strcasecmp(getenv("CREATE_XINETD_ENTRY"), "yes")) {
+                       return;
+               }
+       }
+       else {
+               snprintf(buf, sizeof buf,
+                       "Setup can configure the \"xinetd\" service to automatically\n"
+                       "connect incoming telnet sessions to Citadel, bypassing the\n"
+                       "host system login: prompt.  Would you like to do this?\n"
+               );
+               if (yesno(buf, 1) == 0) {
+                       return;
+               }
+       }
 
-       /* Now write it out to /etc/inittab */
-       infp = fopen("/etc/inittab", "a");
-       if (infp == NULL) {
-               display_error(strerror(errno));
+       fp = fopen(filename, "w");
+       fprintf(fp,
+               "# description: telnet service for Citadel users\n"
+               "service telnet\n"
+               "{\n"
+               "       disable = no\n"
+               "       flags           = REUSE\n"
+               "       socket_type     = stream\n"
+               "       wait            = no\n"
+               "       user            = root\n"
+               "       server          = /usr/sbin/in.telnetd\n"
+               "       server_args     = -h -L %s/citadel\n"
+               "       log_on_failure  += USERID\n"
+               "}\n",
+               ctdl_bin_dir);
+       fclose(fp);
+
+       /* Now try to restart the service */
+       system("/etc/init.d/xinetd restart >/dev/null 2>&1");
+}
+
+
+
+/*
+ * Offer to disable other MTA's
+ */
+void disable_other_mta(char *mta) {
+       char buf[SIZ];
+       FILE *fp;
+       int lines = 0;
+
+       sprintf(buf, "/bin/ls -l /etc/rc*.d/S*%s 2>/dev/null; "
+               "/bin/ls -l /etc/rc.d/rc*.d/S*%s 2>/dev/null",
+               mta, mta);
+       fp = popen(buf, "r");
+       if (fp == NULL) return;
+
+       while (fgets(buf, sizeof buf, fp) != NULL) {
+               ++lines;
+       }
+       fclose(fp);
+       if (lines == 0) return;         /* Nothing to do. */
+
+
+       /* Offer to replace other MTA with the vastly superior Citadel :)  */
+
+       if (getenv("ACT_AS_MTA")) {
+               if (strcasecmp(getenv("ACT_AS_MTA"), "yes")) {
+                       return;
                }
+       }
        else {
-               fprintf(infp, "# Start the Citadel/UX server...\n");
-               fprintf(infp,"%s:2345:respawn:%s -h%s\n",
-                       entryname, looking_for, setup_directory);
-               fclose(infp);
-               need_init_q = 1;
+               snprintf(buf, sizeof buf,
+                       "You appear to have the \"%s\" email program\n"
+                       "running on your system.  If you want Citadel mail\n"
+                       "connected with %s, you will have to manually integrate\n"
+                       "them.  It is preferable to disable %s, and use Citadel's\n"
+                       "SMTP, POP3, and IMAP services.\n\n"
+                       "May we disable %s so that Citadel has access to ports\n"
+                       "25, 110, and 143?\n",
+                       mta, mta, mta, mta
+               );
+               if (yesno(buf, 1) == 0) {
+                       return;
                }
        }
 
+       sprintf(buf, "for x in /etc/rc*.d/S*%s; do mv $x `echo $x |sed s/S/K/g`; done >/dev/null 2>&1", mta);
+       system(buf);
+       sprintf(buf, "/etc/init.d/%s stop >/dev/null 2>&1", mta);
+       system(buf);
+}
 
 
-void set_str_val(int msgpos, char str[]) {
-       char buf[4096];
-       char setupmsg[4096];
-       char tempfile[64];
+
+
+/* 
+ * Check to see if our server really works.  Returns 0 on success.
+ */
+int test_server(void) {
+       char cmd[256];
+       char cookie[256];
        FILE *fp;
+       char buf[4096];
+       int found_it = 0;
+
+       /* Generate a silly little cookie.  We're going to write it out
+        * to the server and try to get it back.  The cookie does not
+        * have to be secret ... just unique.
+        */
+       sprintf(cookie, "--test--%d--", getpid());
+
+       sprintf(cmd, "%s/sendcommand %s%s ECHO %s 2>&1",
+               ctdl_sbin_dir,
+               (enable_home)?"-h":"", 
+               (enable_home)?ctdl_run_dir:"",
+               cookie);
 
-       sprintf(tempfile, "/tmp/setup.%d", getpid());
+       fp = popen(cmd, "r");
+       if (fp == NULL) return(errno);
+
+       while (fgets(buf, sizeof buf, fp) != NULL) {
+               if ( (buf[0]=='2')
+                  && (strstr(buf, cookie) != NULL) ) {
+                       ++found_it;
+               }
+       }
+       pclose(fp);
+
+       if (found_it) {
+               return(0);
+       }
+       return(-1);
+}
+
+void strprompt(char *prompt_title, char *prompt_text, char *str)
+{
+       char buf[SIZ];
+       char setupmsg[SIZ];
+       char dialog_result[PATH_MAX];
+       FILE *fp = NULL;
+
+       strcpy(setupmsg, "");
 
        switch (setup_type) {
-               case UI_TEXT:
-                       title(setup_titles[msgpos]);
-                       print_setup(msgpos);
-                       if (msgpos==11) dump_access_levels();
-                       printf("This is currently set to:\n%s\n",str);
-                       printf("Enter new value or press return to leave unchanged:\n");
-                       fgets(buf, 4096, stdin);
-                       buf[strlen(buf)-1] = 0;
-                       if (strlen(buf)!=0) strcpy(str,buf);
-                       break;
-               case UI_DIALOG:
-                       get_setup_msg(setupmsg, msgpos);
-                       sprintf(buf,
-                               "dialog --title \"%s\" --inputbox \"\n%s\n\" 20 80 \"%s\" 2>%s",
-                               setup_titles[msgpos],
-                               setupmsg,
-                               str, tempfile);
-                       if (system(buf)==0) {
-                               fp = fopen(tempfile, "rb");
-                               fgets(str, 4095, fp);
-                               fclose(fp);
-                               if (strlen(str)>0) 
-                                       if (str[strlen(str)-1]==10)
-                                               str[strlen(str)-1]=0;
-                               }
-                       break;
-#ifdef HAVE_CURSES_H
-               case UI_CURSES:
-                       clear();
-                       move(1, ((80-strlen(setup_titles[msgpos]))/2) );
-                       standout();
-                       printw("%s", setup_titles[msgpos]);
-                       standend();
-                       move(3, 0);
-                       get_setup_msg(setupmsg, msgpos);
-                       printw("%s", setupmsg);
-                       refresh();
-                       getlin(20, 0, str, 80);
-                       break;
-#endif
+       case UI_TEXT:
+               title(prompt_title);
+               printf("\n%s\n", prompt_text);
+               printf("This is currently set to:\n%s\n", str);
+               printf("Enter new value or press return to leave unchanged:\n");
+               fgets(buf, sizeof buf, stdin);
+               buf[strlen(buf) - 1] = 0;
+               if (!IsEmptyStr(buf))
+                       strcpy(str, buf);
+               break;
+
+       case UI_DIALOG:
+               CtdlMakeTempFileName(dialog_result, sizeof dialog_result);
+               sprintf(buf, "exec %s --inputbox '%s' 19 72 '%s' 2>%s",
+                       getenv("CTDL_DIALOG"),
+                       prompt_text,
+                       str,
+                       dialog_result);
+               system(buf);
+               fp = fopen(dialog_result, "r");
+               if (fp != NULL) {
+                       fgets(str, sizeof buf, fp);
+                       if (str[strlen(str)-1] == 10) {
+                               str[strlen(str)-1] = 0;
+                       }
+                       fclose(fp);
+                       unlink(dialog_result);
                }
+               break;
+
        }
+}
+
+void set_bool_val(int msgpos, int *ip) {
+       title(setup_titles[msgpos]);
+       *ip = yesno(setup_text[msgpos], *ip);
+}
+
+void set_str_val(int msgpos, char *str) {
+       strprompt(setup_titles[msgpos], setup_text[msgpos], str);
+}
 
 void set_int_val(int msgpos, int *ip)
 {
        char buf[16];
-       sprintf(buf,"%d",(int)*ip);
+       snprintf(buf, sizeof buf, "%d", (int) *ip);
        set_str_val(msgpos, buf);
        *ip = atoi(buf);
-       }
+}
 
 
 void set_char_val(int msgpos, char *ip)
 {
        char buf[16];
-       sprintf(buf,"%d",(int)*ip);
+       snprintf(buf, sizeof buf, "%d", (int) *ip);
        set_str_val(msgpos, buf);
-       *ip = (char)atoi(buf);
-       }
+       *ip = (char) atoi(buf);
+}
 
 
 void set_long_val(int msgpos, long int *ip)
 {
        char buf[16];
-       sprintf(buf,"%ld",*ip);
+       snprintf(buf, sizeof buf, "%ld", *ip);
        set_str_val(msgpos, buf);
        *ip = atol(buf);
-       }
+}
 
 
 void edit_value(int curr)
 {
- int a;
- switch(curr) {
-
-case 1:
-       set_str_val(curr, config.c_nodename);
-       break;
-
-case 2:
-       set_str_val(curr, config.c_fqdn);
-       break;
-
-case 3:
-       set_str_val(curr, config.c_humannode);
-       break;
-
-case 4:
-       set_str_val(curr, config.c_phonenum);
-       break;
-
-case 5:
-       set_str_val(curr, config.c_bbs_city);
-       break;
-
-case 6:
-       set_str_val(curr, config.c_sysadm);
-       break;
-
-case 7:
-       set_int_val(curr, &config.c_bbsuid);
-       break;
-
-case 8:
-       set_char_val(curr, &config.c_creataide);
-       break;
-
-case 9:
-       set_int_val(curr, &config.c_sleeping);
-       break;
-
-case 10:
-       set_char_val(curr, &config.c_initax);
-       break;
-
-case 11:
-       set_char_val(curr, &config.c_regiscall);
-       break;
-
-case 12:
-       set_char_val(curr, &config.c_twitdetect);
-       break;
-
-case 13:
-       set_str_val(curr, config.c_twitroom);
-       break;
-
-case 14:
-       set_int_val(curr, &config.c_maxsessions);
-       break;
+       int i;
+       struct passwd *pw;
+       char ctdluidname[256];
 
-case 15:
-       set_str_val(curr, config.c_moreprompt);
-       break;
+       switch (curr) {
 
-case 16:
-       set_char_val(curr, &config.c_restrict);
-       break;
-
-case 17:
-       set_str_val(curr, config.c_bucket_dir);
-       config.c_bucket_dir[14] = 0;
-       for (a=0; a<strlen(config.c_bucket_dir); ++a)
-               if (!isalpha(config.c_bucket_dir[a]))
-                       strcpy(&config.c_bucket_dir[a],
-                               &config.c_bucket_dir[a+1]);
-       break;
-
-case 18:
-       set_str_val(curr, config.c_net_password);
-       break;
+       case 1:
+               if (setup_type == UI_SILENT)
+               {
+                       if (getenv("SYSADMIN_NAME")) {
+                               strcpy(config.c_sysadm, getenv("SYSADMIN_NAME"));
+                       }
+               }
+               else {
+                       set_str_val(curr, config.c_sysadm);
+               }
+               break;
+
+       case 2:
+               if (setup_type == UI_SILENT)
+               {               
+                       if (getenv("CITADEL_UID")) {
+                               config.c_ctdluid = atoi(getenv("CITADEL_UID"));
+                       }                                       
+               }
+               else
+               {
+#ifdef __CYGWIN__
+                       config.c_ctdluid = 0;   /* XXX Windows hack, prob. insecure */
+#else
+                       i = config.c_ctdluid;
+                       pw = getpwuid(i);
+                       if (pw == NULL) {
+                               set_int_val(curr, &i);
+                               config.c_ctdluid = i;
+                       }
+                       else {
+                               strcpy(ctdluidname, pw->pw_name);
+                               set_str_val(curr, ctdluidname);
+                               pw = getpwnam(ctdluidname);
+                               if (pw != NULL) {
+                                       config.c_ctdluid = pw->pw_uid;
+                               }
+                               else if (atoi(ctdluidname) > 0) {
+                                       config.c_ctdluid = atoi(ctdluidname);
+                               }
+                       }
+#endif
+               }
+               break;
 
-case 19:
-       set_int_val(curr, &config.c_port_number);
-       break;
+       case 3:
+               if (setup_type == UI_SILENT)
+               {
+                       if (getenv("IP_ADDR")) {
+                               strcpy(config.c_ip_addr, getenv("IP_ADDR"));
+                       }
+               }
+               else {
+                       set_str_val(curr, config.c_ip_addr);
+               }
+               break;
 
+       case 4:
+               if (setup_type == UI_SILENT)
+               {
+                       if (getenv("CITADEL_PORT")) {
+                               config.c_port_number = atoi(getenv("CITADEL_PORT"));
+                       }
+               }
+               else
+               {
+                       set_int_val(curr, &config.c_port_number);
+               }
+               break;
+
+       case 5:
+               if (setup_type == UI_SILENT)
+               {
+                       if (getenv("ENABLE_UNIX_AUTH")) {
+                               if (!strcasecmp(getenv("ENABLE_UNIX_AUTH"), "yes")) {
+                                       config.c_auth_mode = 1;
+                               }
+                               else {
+                                       config.c_auth_mode = 0;
+                               }
+                       }
+               }
+               else {
+                       set_bool_val(curr, &config.c_auth_mode);
+               }
+               break;
 
- }
      }
 }
 
 /*
  * (re-)write the config data to disk
  */
-void write_config_to_disk(void) {
+void write_config_to_disk(void)
+{
        FILE *fp;
+       int fd;
 
-       fp=fopen("citadel.config","wb");
-       if (fp==NULL) {
+       if ((fd = creat(file_citadel_config, S_IRUSR | S_IWUSR)) == -1) {
                display_error("setup: cannot open citadel.config");
                cleanup(1);
-               }
-       fwrite((char *)&config,sizeof(struct config),1,fp);
-       fclose(fp);
        }
+       fp = fdopen(fd, "wb");
+       if (fp == NULL) {
+               display_error("setup: cannot open citadel.config");
+               cleanup(1);
+       }
+       fwrite((char *) &config, sizeof(struct config), 1, fp);
+       fclose(fp);
+}
 
 
 
@@ -836,46 +827,152 @@ void write_config_to_disk(void) {
 /*
  * Figure out what type of user interface we're going to use
  */
-int discover_ui(void) {
-
-#ifdef HAVE_CURSES_H
-       return UI_CURSES;
-#endif
+int discover_ui(void)
+{
 
-       if (system("dialog -h </dev/null 2>&1 |grep Savio")==0) {
+       /* Use "dialog" if we have it */
+       if (getenv("CTDL_DIALOG") != NULL) {
                return UI_DIALOG;
+       }
+               
+       return UI_TEXT;
+}
+
+
+
+
+
+/*
+ * Strip "db" entries out of /etc/nsswitch.conf
+ */
+void fixnss(void) {
+       FILE *fp_read;
+       int fd_write;
+       char buf[256];
+       char buf_nc[256];
+       char question[512];
+       int i;
+       int changed = 0;
+       int file_changed = 0;
+       char new_filename[64];
+
+       fp_read = fopen(NSSCONF, "r");
+       if (fp_read == NULL) {
+               return;
+       }
+
+       strcpy(new_filename, "/tmp/ctdl_fixnss_XXXXXX");
+       fd_write = mkstemp(new_filename);
+       if (fd_write < 0) {
+               fclose(fp_read);
+               return;
+       }
+
+       while (fgets(buf, sizeof buf, fp_read) != NULL) {
+               changed = 0;
+               strcpy(buf_nc, buf);
+               for (i=0; i<strlen(buf_nc); ++i) {
+                       if (buf_nc[i] == '#') {
+                               buf_nc[i] = 0;
+                       }
                }
+               for (i=0; i<strlen(buf_nc); ++i) {
+                       if (!strncasecmp(&buf_nc[i], "db", 2)) {
+                               if (i > 0) {
+                                       if ((isspace(buf_nc[i+2])) || (buf_nc[i+2]==0)) {
+                                               changed = 1;
+                                               file_changed = 1;
+                                               strcpy(&buf_nc[i], &buf_nc[i+2]);
+                                               strcpy(&buf[i], &buf[i+2]);
+                                               if (buf[i]==32) {
+                                                       strcpy(&buf_nc[i], &buf_nc[i+1]);
+                                                       strcpy(&buf[i], &buf[i+1]);
+                                               }
+                                       }
+                               }
+                       }
+               }
+               if (write(fd_write, buf, strlen(buf)) != strlen(buf)) {
+                       fclose(fp_read);
+                       close(fd_write);
+                       unlink(new_filename);
+                       return;
+               }
+       }
 
-       return UI_TEXT;
+       fclose(fp_read);
+       
+       if (!file_changed) {
+               unlink(new_filename);
+               return;
+       }
+
+       snprintf(question, sizeof question,
+               "\n"
+               "/etc/nsswitch.conf is configured to use the 'db' module for\n"
+               "one or more services.  This is not necessary on most systems,\n"
+               "and it is known to crash the Citadel server when delivering\n"
+               "mail to the Internet.\n"
+               "\n"
+               "Do you want this module to be automatically disabled?\n"
+               "\n"
+       );
+
+       if (yesno(question, 1)) {
+               sprintf(buf, "/bin/mv -f %s %s", new_filename, NSSCONF);
+               system(buf);
        }
+       unlink(new_filename);
+}
+
+
 
 
 
 
 
-int main(int argc, char *argv[]) {
+
+int main(int argc, char *argv[])
+{
        int a;
-       int curr;
+       int curr; 
        char aaa[128];
        FILE *fp;
        int old_setup_level = 0;
        int info_only = 0;
        struct utsname my_utsname;
+       struct passwd *pw;
+       struct hostent *he;
+       gid_t gid;
+       int relh=0;
+       int home=0;
+       char relhome[PATH_MAX]="";
+       char ctdldir[PATH_MAX]=CTDLDIR;
+       
+       CtdlInitBase64Table();
 
        /* set an invalid setup type */
        setup_type = (-1);
 
+       /* Check to see if we're running the web installer */
+       if (getenv("CITADEL_INSTALLER") != NULL) {
+               using_web_installer = 1;
+       }
+
        /* parse command line args */
-       for (a=0; a<argc; ++a) {
+       for (a = 0; a < argc; ++a) {
                if (!strncmp(argv[a], "-u", 2)) {
                        strcpy(aaa, argv[a]);
                        strcpy(aaa, &aaa[2]);
                        setup_type = atoi(aaa);
-                       }
+               }
                if (!strcmp(argv[a], "-i")) {
                        info_only = 1;
-                       }
                }
+               if (!strcmp(argv[a], "-q")) {
+                       setup_type = UI_SILENT;
+               }
+       }
 
 
        /* If a setup type was not specified, try to determine automatically
@@ -883,154 +980,209 @@ int main(int argc, char *argv[]) {
         */
        if (setup_type < 0) {
                setup_type = discover_ui();
-               }
-
-#ifdef HAVE_CURSES_H
-       if (setup_type == UI_CURSES) {
-               initscr();
-               raw();
-               noecho();
-               }
-#endif
-
+       }
        if (info_only == 1) {
-               important_message("Citadel/UX Setup", CITADEL);
+               important_message("Citadel Setup", CITADEL);
                cleanup(0);
-               }
+       }
 
        /* Get started in a valid setup directory. */
-       strcpy(setup_directory, BBSDIR);
-       set_str_val(0, setup_directory);
-       if (chdir(setup_directory) != 0) {
-               important_message("Citadel/UX Setup",
-                       "The directory you specified does not exist.");
-               cleanup(errno);
+       strcpy(setup_directory, ctdl_run_dir);
+       if ( (using_web_installer) && (getenv("CITADEL") != NULL) ) {
+               strcpy(setup_directory, getenv("CITADEL"));
+       }
+       else {
+               set_str_val(0, setup_directory);
+       }
+
+       home=(setup_directory[1]!='\0');
+       relh=home&(setup_directory[1]!='/');
+       if (!relh) {
+               safestrncpy(ctdl_home_directory, setup_directory, sizeof ctdl_home_directory);
+       }
+       else {
+               safestrncpy(relhome, ctdl_home_directory, sizeof relhome);
+       }
+
+       calc_dirs_n_files(relh, home, relhome, ctdldir, 0);
+       
+       enable_home=(relh|home);
+
+       if (home) {
+               if (chdir(setup_directory) == 0) {
+                       strcpy(file_citadel_config, "./citadel.config");
+               }
+               else {
+                       important_message("Citadel Setup",
+                               "The directory you specified does not exist.");
+                       cleanup(errno);
                }
+       }
 
        /* Determine our host name, in case we need to use it as a default */
        uname(&my_utsname);
 
+       /* Try to stop Citadel if we can */
+       if (!access("/etc/init.d/citadel", X_OK)) {
+               system("/etc/init.d/citadel stop");
+       }
+
+       /* Make sure Citadel is not running. */
+       if (test_server() == 0) {
+               important_message("Citadel Setup",
+                       "The Citadel service is still running.\n"
+                       "Please stop the service manually and run "
+                       "setup again.");
+               cleanup(1);
+       }
+
        /* Now begin. */
-       switch(setup_type) {
-               
-               case UI_TEXT:
-                       printf("\n\n\n               *** Citadel/UX setup program ***\n\n");
-                       break;
-               
-               case UI_DIALOG:
-                       system("exec clear");
-                       break;
-                       
-               }
+       switch (setup_type) {
+
+       case UI_TEXT:
+               printf("\n\n\n"
+                       "              *** Citadel setup program ***\n\n");
+               break;
+
+       }
 
        /*
-        * What we're going to try to do here is append a whole bunch of
+        * What we're going to try to do here is append a whole bunch of
         * nulls to the citadel.config file, so we can keep the old config
         * values if they exist, but if the file is missing or from an
         * earlier version with a shorter config structure, when setup tries
         * to read the old config parameters, they'll all come up zero.
         * The length of the config file will be set to what it's supposed
         * to be when we rewrite it, because we replace the old file with a
-        * completely new copy.  (Neat, eh?)
+        * completely new copy.
         */
-
-       fp=fopen("citadel.config","ab");
-       if (fp==NULL) {
+       if ((a = open(file_citadel_config, O_WRONLY | O_CREAT | O_APPEND,
+                     S_IRUSR | S_IWUSR)) == -1) {
                display_error("setup: cannot append citadel.config");
                cleanup(errno);
-               }
-       for (a=0; a<sizeof(struct config); ++a) putc(0,fp);
+       }
+       fp = fdopen(a, "ab");
+       if (fp == NULL) {
+               display_error("setup: cannot append citadel.config");
+               cleanup(errno);
+       }
+       for (a = 0; a < sizeof(struct config); ++a)
+               putc(0, fp);
        fclose(fp);
 
        /* now we re-open it, and read the old or blank configuration */
-       fp=fopen("citadel.config","rb");
-       if (fp==NULL) {
+       fp = fopen(file_citadel_config, "rb");
+       if (fp == NULL) {
                display_error("setup: cannot open citadel.config");
                cleanup(errno);
-               }
-       fread((char *)&config,sizeof(struct config),1,fp);
+       }
+       fread((char *) &config, sizeof(struct config), 1, fp);
        fclose(fp);
 
-
        /* set some sample/default values in place of blanks... */
-       if (strlen(config.c_nodename)==0)
-               strcpy(config.c_nodename, my_utsname.nodename);
-       if (strlen(config.c_fqdn)==0)
-               sprintf(config.c_fqdn, "%s.citadelia.org", my_utsname.nodename);
-       if (strlen(config.c_humannode)==0)
-               strcpy(config.c_humannode,"My System");
-       if (strlen(config.c_phonenum)==0)
-               strcpy(config.c_phonenum,"US 800 555 1212");
-       if (config.c_initax == 0)
-               config.c_initax = 1;
-       if (strlen(config.c_moreprompt)==0)
-               strcpy(config.c_moreprompt,"<more>");
-       if (strlen(config.c_twitroom)==0)
-               strcpy(config.c_twitroom,"Trashcan");
-       if (strlen(config.c_bucket_dir)==0)
-               strcpy(config.c_bucket_dir,"bitbucket");
-       if (strlen(config.c_net_password)==0)
-               strcpy(config.c_net_password,"netpassword");
+       if (IsEmptyStr(config.c_nodename))
+               safestrncpy(config.c_nodename, my_utsname.nodename,
+                           sizeof config.c_nodename);
+       strtok(config.c_nodename, ".");
+       if (IsEmptyStr(config.c_fqdn) ) {
+               if ((he = gethostbyname(my_utsname.nodename)) != NULL)
+                       safestrncpy(config.c_fqdn, he->h_name,
+                                   sizeof config.c_fqdn);
+               else
+                       safestrncpy(config.c_fqdn, my_utsname.nodename,
+                                   sizeof config.c_fqdn);
+       }
+       if (IsEmptyStr(config.c_humannode))
+               strcpy(config.c_humannode, "My System");
+       if (IsEmptyStr(config.c_phonenum))
+               strcpy(config.c_phonenum, "US 800 555 1212");
+       if (config.c_initax == 0) {
+               config.c_initax = 4;
+       }
+       if (IsEmptyStr(config.c_moreprompt))
+               strcpy(config.c_moreprompt, "<more>");
+       if (IsEmptyStr(config.c_twitroom))
+               strcpy(config.c_twitroom, "Trashcan");
+       if (IsEmptyStr(config.c_baseroom))
+               strcpy(config.c_baseroom, BASEROOM);
+       if (IsEmptyStr(config.c_aideroom))
+               strcpy(config.c_aideroom, "Aide");
        if (config.c_port_number == 0) {
                config.c_port_number = 504;
-               }
-       if (config.c_ipgm_secret == 0) {
-               srand(getpid());
-               config.c_ipgm_secret = rand();
-               }
+       }
        if (config.c_sleeping == 0) {
                config.c_sleeping = 900;
-               }
-
+       }
+       if (config.c_ctdluid == 0) {
+               pw = getpwnam("citadel");
+               if (pw != NULL)
+                       config.c_ctdluid = pw->pw_uid;
+       }
+       if (config.c_ctdluid == 0) {
+               pw = getpwnam("bbs");
+               if (pw != NULL)
+                       config.c_ctdluid = pw->pw_uid;
+       }
+       if (config.c_ctdluid == 0) {
+               pw = getpwnam("guest");
+               if (pw != NULL)
+                       config.c_ctdluid = pw->pw_uid;
+       }
+       if (config.c_createax == 0) {
+               config.c_createax = 3;
+       }
+       /*
+        * Negative values for maxsessions are not allowed.
+        */
+       if (config.c_maxsessions < 0) {
+               config.c_maxsessions = 0;
+       }
        /* We need a system default message expiry policy, because this is
         * the top level and there's no 'higher' policy to fall back on.
+        * By default, do not expire messages at all.
         */
        if (config.c_ep.expire_mode == 0) {
-               config.c_ep.expire_mode = EXPIRE_NUMMSGS;
-               config.c_ep.expire_value = 150;
-               }
+               config.c_ep.expire_mode = EXPIRE_MANUAL;
+               config.c_ep.expire_value = 0;
+       }
+
+       /*
+        * Default port numbers for various services
+        */
+       if (config.c_smtp_port == 0) config.c_smtp_port = 25;
+       if (config.c_pop3_port == 0) config.c_pop3_port = 110;
+       if (config.c_imap_port == 0) config.c_imap_port = 143;
+       if (config.c_msa_port == 0) config.c_msa_port = 587;
+       if (config.c_smtps_port == 0) config.c_smtps_port = 465;
+       if (config.c_pop3s_port == 0) config.c_pop3s_port = 995;
+       if (config.c_imaps_port == 0) config.c_imaps_port = 993;
+       if (config.c_pftcpdict_port == 0) config.c_pftcpdict_port = -1;
+       if (config.c_managesieve_port == 0) config.c_managesieve_port = 2020;
+       if (config.c_xmpp_c2s_port == 0) config.c_xmpp_c2s_port = 5222;
+       if (config.c_xmpp_s2s_port == 0) config.c_xmpp_s2s_port = 5269;
 
        /* Go through a series of dialogs prompting for config info */
        for (curr = 1; curr <= MAXSETUP; ++curr) {
                edit_value(curr);
-               }
-
-       /*
-       if (setuid(config.c_bbsuid) != 0) {
-               important_message("Citadel/UX Setup",
-                       "Failed to change the user ID to your BBS user.");
-               cleanup(errno);
-               }
-       */
+       }
 
-       /***** begin version update section ***** */
+/***** begin version update section ***** */
        /* take care of any updating that is necessary */
 
        old_setup_level = config.c_setup_level;
 
-       if (old_setup_level == 0) goto NEW_INST;
-       
-       if (old_setup_level < 323) {
-               important_message("Citadel/UX Setup",
-                       "This Citadel/UX installation is too old to be upgraded.");
-               cleanup(1);
-               }
+       if (old_setup_level == 0) {
+               goto NEW_INST;
+       }
 
+       if (old_setup_level < 555) {
+               important_message("Citadel Setup",
+                                 "This Citadel installation is too old "
+                                 "to be upgraded.");
+               cleanup(1);
+       }
        write_config_to_disk();
 
-       if ((config.c_setup_level / 10) == 32) {
-               important_msgnum(31);
-               cleanup(0);
-               }
-
-       if (config.c_setup_level < 400) {
-               config.c_setup_level = 400;
-               }
-
-       /* end of 3.23 -> 4.00 update section */
-
-       /* end of 4.00 -> 4.02 update section */
-
        old_setup_level = config.c_setup_level;
 
        /* end of version update section */
@@ -1042,35 +1194,128 @@ NEW_INST:
 
        write_config_to_disk();
 
-       system("mkdir info 2>/dev/null");               /* Create these */
-       system("mkdir bio 2>/dev/null");
-       system("mkdir userpics 2>/dev/null");
-       system("mkdir messages 2>/dev/null");
-       system("mkdir help 2>/dev/null");
-       system("mkdir images 2>/dev/null");
-       sprintf(aaa,"mkdir %s 2>/dev/null",config.c_bucket_dir);
-       system(aaa);
+       mkdir(ctdl_info_dir, 0700);
+       chmod(ctdl_info_dir, 0700);
+       chown(ctdl_info_dir, config.c_ctdluid, -1);
+
+       mkdir(ctdl_bio_dir, 0700);
+       chmod(ctdl_bio_dir, 0700);
+       chown(ctdl_bio_dir, config.c_ctdluid, -1);
+
+       mkdir(ctdl_usrpic_dir, 0700);
+       chmod(ctdl_usrpic_dir, 0700);
+       chown(ctdl_usrpic_dir, config.c_ctdluid, -1);
+
+       mkdir(ctdl_message_dir, 0700);
+       chmod(ctdl_message_dir, 0700);
+       chown(ctdl_message_dir, config.c_ctdluid, -1);
+
+       mkdir(ctdl_hlp_dir, 0700);
+       chmod(ctdl_hlp_dir, 0700);
+       chown(ctdl_hlp_dir, config.c_ctdluid, -1);
+
+       mkdir(ctdl_image_dir, 0700);
+       chmod(ctdl_image_dir, 0700);
+       chown(ctdl_image_dir, config.c_ctdluid, -1);
+
+       mkdir(ctdl_bb_dir, 0700);
+       chmod(ctdl_bb_dir, 0700);
+       chown(ctdl_bb_dir, config.c_ctdluid, -1);
+
+       mkdir(ctdl_file_dir, 0700);
+       chmod(ctdl_file_dir, 0700);
+       chown(ctdl_file_dir, config.c_ctdluid, -1);
+
+       mkdir(ctdl_netcfg_dir, 0700);
+       chmod(ctdl_netcfg_dir, 0700);
+       chown(ctdl_netcfg_dir, config.c_ctdluid, -1);
+
+       /* Delete files and directories used by older Citadel versions */
+       system("exec /bin/rm -fr ./rooms ./chatpipes ./expressmsgs ./sessions 2>/dev/null");
+       unlink("citadel.log");
+       unlink("weekly");
+
+       check_services_entry(); /* Check /etc/services */
+#ifndef __CYGWIN__
+       delete_inittab_entry(); /* Remove obsolete /etc/inittab entry */
+       check_xinetd_entry();   /* Check /etc/xinetd.d/telnet */
+
+       /* Offer to disable other MTA's on the system. */
+       disable_other_mta("courier-authdaemon");
+       disable_other_mta("courier-imap");
+       disable_other_mta("courier-imap-ssl");
+       disable_other_mta("courier-pop");
+       disable_other_mta("courier-pop3");
+       disable_other_mta("courier-pop3d");
+       disable_other_mta("cyrmaster");
+       disable_other_mta("cyrus");
+       disable_other_mta("dovecot");
+       disable_other_mta("exim");
+       disable_other_mta("exim4");
+       disable_other_mta("imapd");
+       disable_other_mta("mta");
+       disable_other_mta("pop3d");
+       disable_other_mta("popd");
+       disable_other_mta("postfix");
+       disable_other_mta("qmail");
+       disable_other_mta("saslauthd");
+       disable_other_mta("sendmail");
+       disable_other_mta("vmailmgrd");
+#endif
 
-       /* Delete a bunch of old files from Citadel v4; don't need anymore */
-       system("rm -fr ./chatpipes ./expressmsgs sessions 2>/dev/null");
+       /* Check for the 'db' nss and offer to disable it */
+       fixnss();
 
-       check_services_entry();         /* Check /etc/services */
-       check_inittab_entry();          /* Check /etc/inittab */
+       if ((pw = getpwuid(config.c_ctdluid)) == NULL)
+               gid = getgid();
+       else
+               gid = pw->pw_gid;
 
        progress("Setting file permissions", 0, 3);
-       chown(".", config.c_bbsuid, getgid());
+       chown(ctdl_run_dir, config.c_ctdluid, gid);
        progress("Setting file permissions", 1, 3);
-       chown("citadel.config", config.c_bbsuid, getgid());
+       chown(file_citadel_config, config.c_ctdluid, gid);
        progress("Setting file permissions", 2, 3);
-       sprintf(aaa, "find . -exec chown %d {} \\; 2>/dev/null",
-               config.c_bbsuid);
-       system(aaa);
+       chmod(file_citadel_config, S_IRUSR | S_IWUSR);
        progress("Setting file permissions", 3, 3);
 
-       important_message("Setup finished", 
-               "Setup is finished.  You may now start the Citadel server.");
+       /* 
+        * If we're running on SysV, install init scripts.
+        */
+       if (!access("/var/run", W_OK)) {
 
+               if (getenv("NO_INIT_SCRIPTS") == NULL) {
+                       install_init_scripts();
+               }
+
+               if (!access("/etc/init.d/citadel", X_OK)) {
+                       system("/etc/init.d/citadel start");
+                       sleep(3);
+               }
+
+               if (test_server() == 0) {
+                       important_message("Setup finished",
+                               "Setup of the Citadel server is complete.\n"
+                               "If you will be using WebCit, please run its\n"
+                               "setup program now; otherwise, run './citadel'\n"
+                               "to log in.\n");
+               }
+               else {
+                       important_message("Setup failed",
+                               "Setup is finished, but the Citadel server failed to start.\n"
+                               "Go back and check your configuration.\n"
+                       );
+               }
+
+       }
+
+       else {
+               important_message("Setup finished",
+                       "Setup is finished.  You may now start the server.");
+       }
 
        cleanup(0);
        return 0;
 }
+
+