Reformated comments and long lines
[mmh] / sbr / context_read.c
index d2836ba..1e1a84e 100644 (file)
-
 /*
- * context_read.c -- find and read profile and context files
- *
- * $Id$
- */
-
-#include <h/mh.h>
-#include <errno.h>
-#include <pwd.h>
+** context_read.c -- find and read profile and context files
+**
+** This code is Copyright (c) 2002, by the authors of nmh.  See the
+** COPYRIGHT file in the root directory of the nmh distribution for
+** complete copyright information.
+**
+** This function must be called early on in any nmh utility, and
+** may only be called once.  It does the following:
+**
+**  o  Sets the global variable "mypath" to the home directory path.
+**
+**  o  Sets the global variable "defpath" to the absolute path of
+**     the profile file.
+**
+**  o  Reads in the profile file.  Bails out if it can't.
+**
+**  o  Makes sure that the mail directory exists, prompting for
+**     creation if it doesn't.
+**
+**  o  Reads the context file either as set by the MHCONTEXT
+**     environment variable or by the profile.
+*/
 
-extern int errno;
+#include <h/mh.h>    /* mh internals */
+#include <errno.h>   /* system call errors */
+#include <pwd.h>     /* structure for getpwuid() results */
 
 void
 context_read (void)
 {
-    pid_t pid;
-    register char *cp, *pp;
-    char buf[BUFSIZ];
-    struct stat st;
-    register struct passwd *pw;
-    register FILE *ib;
-
-    if (defpath)
-       return;
+       char buf[BUFSIZ];            /* path name buffer                 */
+       char *cp;                    /* miscellaneous pointer            */
+       char *nd;                    /* nmh directory pointer            */
+       struct stat st;              /* stat() results                   */
+       register struct passwd *pw;  /* getpwuid() results               */
+       register FILE *ib;           /* profile and context file pointer */
 
-    /*
-     * Find user's home directory
-     */
-    if (!mypath) {
-       if ((mypath = getenv ("HOME")))
-           mypath = getcpy (mypath);
-       else
-           if ((pw = getpwuid (getuid ())) == NULL
-                   || pw->pw_dir == NULL
-                   || *pw->pw_dir == 0)
-               adios (NULL, "no HOME envariable");
-           else
-               mypath = getcpy (pw->pw_dir);
-       if ((cp = mypath + strlen (mypath) - 1) > mypath && *cp == '/')
-           *cp = 0;
-    }
-
-    /*
-     * open and read user's profile
-     */
-    if ((cp = getenv ("MH")) && *cp != '\0') {
-       defpath = path (cp, TFILE);
-       if ((ib = fopen (defpath, "r")) == NULL)
-           adios (defpath, "unable to read");
-       if (*cp != '/')
-           m_putenv ("MH", defpath);
-    } else {
-       defpath = concat (mypath, "/", mh_profile, NULL);
-
-       if ((ib = fopen (defpath, "r")) == NULL) {
-           switch (pid = vfork ()) {
-               case -1:
-                   adios ("fork", "unable to");
-
-               case 0:
-                   setgid (getgid ());
-                   setuid (getuid ());
-
-                   execlp (installproc, "install-mh", "-auto", NULL);
-                   fprintf (stderr, "unable to exec ");
-                   perror (installproc);
-                   _exit (-1);
-
-               default:
-                   if (pidwait (pid, 0)
-                           || (ib = fopen (defpath, "r")) == NULL)
-                       adios (NULL, "[install-mh aborted]");
-           }
+       /*
+       ** If this routine _is_ called again (despite the wanings in the
+       ** comments above), return immediately.
+       */
+       if ( m_defs != 0 )
+               return;
+
+       /*
+       ** Find user's home directory.  Try the HOME environment variable first,
+       ** the home directory field in the password file if that's not found.
+       */
+       if ((mypath = getenv("HOME")) == (char *)0) {
+               if ((pw = getpwuid(getuid())) == (struct passwd *)0 || *pw->pw_dir == '\0')
+                       adios(NULL, "cannot determine your home directory");
+               else
+                       mypath = pw->pw_dir;
        }
-    }
-    readconfig (&m_defs, ib, mh_profile, 0);
-    fclose (ib);
-
-    /*
-     * Find user's nmh directory
-     */
-    if ((pp = context_find ("path")) && *pp != '\0') {
-       if (*pp != '/')
-           snprintf (buf, sizeof(buf), "%s/%s", mypath, pp);
-       else
-           strncpy (buf, pp, sizeof(buf));
-       if (stat(buf, &st) == -1) {
-           if (errno != ENOENT)
-               adios (buf, "error opening");
-           cp = concat ("Your MH-directory \"", buf,
-               "\" doesn't exist; Create it? ", NULL);
-           if (!getanswer(cp))
-               adios (NULL, "unable to access MH-directory \"%s\"", buf);
-           free (cp);
-           if (!makedir (buf))
-               adios (NULL, "unable to create", buf);
+
+       /*
+       ** Find and read user's profile.  Check for the existence of
+       ** an MH environment variable first with non-empty contents.
+       ** Convert any relative path name found there to an absolute one.
+       ** Look for the profile in the user's home directory if the MH
+       ** environment variable isn't set.
+       */
+
+       if ((cp = getenv("MH")) && *cp != '\0') {
+       defpath = path(cp, TFILE);
+
+       if (stat(defpath, &st) != -1 && (st.st_mode & S_IFREG) == 0)
+               adios((char *)0, "`%s' specified by your MH environment variable is not a normal file", cp);
+
+       if ((ib = fopen(defpath, "r")) == (FILE *)0)
+               adios((char *)0, "unable to read the `%s' profile specified by your MH environment variable", defpath);
+       } else {
+               defpath = concat(mypath, "/", mh_profile, NULL);
+
+               if ((ib = fopen(defpath, "r")) == (FILE *)0)
+                       adios((char *)0, "Doesn't look like nmh is installed.  Run install-mh to do so.");
+
+               cp = mh_profile;
        }
-    }
-
-    /*
-     * open and read user's context file
-     */
-    if (!(cp = getenv ("MHCONTEXT")) || *cp == '\0')
-       cp = context;
-    ctxpath = getcpy (m_maildir (cp));
-    if ((ib = fopen (ctxpath, "r"))) {
-       readconfig ((struct node **) 0, ib, cp, 1);
+
+       readconfig (&m_defs, ib, cp, 0);
        fclose (ib);
-    }
+
+       /*
+       ** Find the user's nmh directory, which is specified by the "path"
+       ** profile component.  Convert a relative path name to an absolute
+       ** one rooted in the home directory.
+       */
+
+       if ((cp = context_find ("path")) == (char *)0)
+               adios(NULL, "Your %s file does not contain a path entry.", defpath);
+
+       if (*cp == '\0')
+               adios(NULL, "Your `%s' profile file does not contain a valid path entry.", defpath);
+
+       if (*cp != '/')
+               (void)snprintf (nd = buf, sizeof(buf), "%s/%s", mypath, cp);
+       else
+               nd = cp;
+
+       if (stat(nd, &st) == -1) {
+               if (errno != ENOENT)
+                       adios (nd, "error opening");
+               cp = concat ("Your MH-directory \"", nd, "\" doesn't exist; Create it? ", NULL);
+               if (!getanswer(cp))
+                       adios (NULL, "unable to access MH-directory \"%s\"", nd);
+               free (cp);
+               if (!makedir (nd))
+                       adios (NULL, "unable to create %s", nd);
+       } else if ((st.st_mode & S_IFDIR) == 0)
+               adios ((char *)0, "`%s' is not a directory", nd);
+
+       /*
+       ** Open and read user's context file.  The name of the context
+       ** file comes from the profile unless overridden by the MHCONTEXT
+       ** environment variable.
+       */
+
+       if ((cp = getenv ("MHCONTEXT")) == (char *)0 || *cp == '\0')
+               cp = context;
+
+       /*
+       ** context is NULL if context_foil() was called to disable use
+       ** of context We also support users setting explicitly setting
+       ** MHCONTEXT to /dev/null.  (if this wasn't specialcased then the
+       ** locking would be liable to fail)
+       */
+       if (!cp || (strcmp(cp,"/dev/null") == 0)) {
+               ctxpath = NULL;
+               return;
+       }
+
+       ctxpath = getcpy (m_maildir (cp));
+
+       if ((ib = lkfopen (ctxpath, "r"))) {
+               readconfig ((struct node **) 0, ib, cp, 1);
+               lkfclose (ib, ctxpath);
+       }
+
+       return;
 }