git.marmaro.de Git - mmh/blob - sbr/context_read.c

   1 /*
   2 ** context_read.c -- find and read profile and context files
   3 **
   4 ** This code is Copyright (c) 2002, by the authors of nmh.  See the
   5 ** COPYRIGHT file in the root directory of the nmh distribution for
   6 ** complete copyright information.
   7 **
   8 ** This function must be called early on in any nmh utility, and
   9 ** may only be called once.  It does the following:
  10 **
  11 **  o  Sets the global variable "mypath" to the home directory path.
  12 **
  13 **  o  Sets the global variable "defpath" to the absolute path of
  14 **     the profile file.
  15 **
  16 **  o  Reads in the profile file.  Bails out if it can't.
  17 **
  18 **  o  Makes sure that the mail directory exists, prompting for
  19 **     creation if it doesn't.
  20 **
  21 **  o  Reads the context file either as set by the MHCONTEXT
  22 **     environment variable or by the profile.
  23 */
  24
  25 #include <h/mh.h>    /* mh internals */
  26 #include <errno.h>   /* system call errors */
  27 #include <pwd.h>     /* structure for getpwuid() results */
  28
  29 void
  30 context_read (void)
  31 {
  32         char buf[BUFSIZ];            /* path name buffer                 */
  33         char *cp;                    /* miscellaneous pointer            */
  34         char *nd;                    /* nmh directory pointer            */
  35         struct stat st;              /* stat() results                   */
  36         register struct passwd *pw;  /* getpwuid() results               */
  37         register FILE *ib;           /* profile and context file pointer */
  38
  39         /*
  40         ** If this routine _is_ called again (despite the wanings in the
  41         ** comments above), return immediately.
  42         */
  43         if ( m_defs != 0 )
  44                 return;
  45
  46         /*
  47         ** Find user's home directory.  Try the HOME environment variable first,
  48         ** the home directory field in the password file if that's not found.
  49         */
  50         if ((mypath = getenv("HOME")) == (char *)0) {
  51                 if ((pw = getpwuid(getuid())) == (struct passwd *)0 || *pw->pw_dir == '\0')
  52                         adios(NULL, "cannot determine your home directory");
  53                 else
  54                         mypath = pw->pw_dir;
  55         }
  56
  57         /*
  58         ** Find and read user's profile.  Check for the existence of
  59         ** an MH environment variable first with non-empty contents.
  60         ** Convert any relative path name found there to an absolute one.
  61         ** Look for the profile in the user's home directory if the MH
  62         ** environment variable isn't set.
  63         */
  64
  65         if ((cp = getenv("MH")) && *cp != '\0') {
  66         defpath = path(cp, TFILE);
  67
  68         if (stat(defpath, &st) != -1 && (st.st_mode & S_IFREG) == 0)
  69                 adios((char *)0, "`%s' specified by your MH environment variable is not a normal file", cp);
  70
  71         if ((ib = fopen(defpath, "r")) == (FILE *)0)
  72                 adios((char *)0, "unable to read the `%s' profile specified by your MH environment variable", defpath);
  73         } else {
  74                 defpath = concat(mypath, "/", mh_profile, NULL);
  75
  76                 if ((ib = fopen(defpath, "r")) == (FILE *)0)
  77                         adios((char *)0, "Doesn't look like nmh is installed.  Run install-mh to do so.");
  78
  79                 cp = mh_profile;
  80         }
  81
  82         readconfig (&m_defs, ib, cp, 0);
  83         fclose (ib);
  84
  85         /*
  86         ** Find the user's nmh directory, which is specified by the "path"
  87         ** profile component.  Convert a relative path name to an absolute
  88         ** one rooted in the home directory.
  89         */
  90
  91         if ((cp = context_find ("path")) == (char *)0)
  92                 adios(NULL, "Your %s file does not contain a path entry.", defpath);
  93
  94         if (*cp == '\0')
  95                 adios(NULL, "Your `%s' profile file does not contain a valid path entry.", defpath);
  96
  97         if (*cp != '/')
  98                 (void)snprintf (nd = buf, sizeof(buf), "%s/%s", mypath, cp);
  99         else
 100                 nd = cp;
 101
 102         if (stat(nd, &st) == -1) {
 103                 if (errno != ENOENT)
 104                         adios (nd, "error opening");
 105                 cp = concat ("Your MH-directory \"", nd, "\" doesn't exist; Create it? ", NULL);
 106                 if (!getanswer(cp))
 107                         adios (NULL, "unable to access MH-directory \"%s\"", nd);
 108                 free (cp);
 109                 if (!makedir (nd))
 110                         adios (NULL, "unable to create %s", nd);
 111         } else if ((st.st_mode & S_IFDIR) == 0)
 112                 adios ((char *)0, "`%s' is not a directory", nd);
 113
 114         /*
 115         ** Open and read user's context file.  The name of the context
 116         ** file comes from the profile unless overridden by the MHCONTEXT
 117         ** environment variable.
 118         */
 119
 120         if ((cp = getenv ("MHCONTEXT")) == (char *)0 || *cp == '\0')
 121                 cp = context;
 122
 123         /*
 124         ** context is NULL if context_foil() was called to disable use
 125         ** of context We also support users setting explicitly setting
 126         ** MHCONTEXT to /dev/null.  (if this wasn't specialcased then the
 127         ** locking would be liable to fail)
 128         */
 129         if (!cp || (strcmp(cp,"/dev/null") == 0)) {
 130                 ctxpath = NULL;
 131                 return;
 132         }
 133
 134         ctxpath = getcpy (m_maildir (cp));
 135
 136         if ((ib = lkfopen (ctxpath, "r"))) {
 137                 readconfig ((struct node **) 0, ib, cp, 1);
 138                 lkfclose (ib, ctxpath);
 139         }
 140
 141         return;
 142 }