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 ||
  52                                         *pw->pw_dir == '\0')
  53                         adios(NULL, "cannot determine your home directory");
  54                 else
  55                         mypath = pw->pw_dir;
  56         }
  57
  58         /*
  59         ** Find and read user's profile.  Check for the existence of
  60         ** an MH environment variable first with non-empty contents.
  61         ** Convert any relative path name found there to an absolute one.
  62         ** Look for the profile in the user's home directory if the MH
  63         ** environment variable isn't set.
  64         */
  65
  66         if ((cp = getenv("MH")) && *cp != '\0') {
  67                 defpath = getcpy(expanddir(cp));
  68
  69                 if (stat(defpath, &st) != -1 && (st.st_mode & S_IFREG) == 0)
  70                         adios((char *)0, "`%s' specified by your MH environment variable is not a normal file", cp);
  71
  72                 if ((ib = fopen(defpath, "r")) == (FILE *)0)
  73                         adios((char *)0, "unable to read the `%s' profile specified by your MH environment variable", defpath);
  74         } else {
  75                 defpath = concat(mypath, "/", mh_profile, NULL);
  76
  77                 if ((ib = fopen(defpath, "r")) == (FILE *)0)
  78                         adios((char *)0, "Doesn't look like nmh is installed.  Run install-mh to do so.");
  79
  80                 cp = mh_profile;
  81         }
  82
  83         readconfig(&m_defs, ib, cp, 0);
  84         fclose(ib);
  85
  86         /*
  87         ** Find the user's nmh directory, which is specified by the "path"
  88         ** profile component.  Convert a relative path name to an absolute
  89         ** one rooted in the home directory.
  90         */
  91
  92         if ((cp = context_find("path")) == (char *)0)
  93                 adios(NULL, "Your %s file does not contain a path entry.",
  94                                 defpath);
  95
  96         if (*cp == '\0')
  97                 adios(NULL, "Your `%s' profile file does not contain a valid path entry.", defpath);
  98
  99         if (*cp != '/')
 100                 (void)snprintf(nd = buf, sizeof(buf), "%s/%s", mypath, cp);
 101         else
 102                 nd = cp;
 103
 104         if (stat(nd, &st) == -1) {
 105                 if (errno != ENOENT)
 106                         adios(nd, "error opening");
 107                 cp = concat("Your MH-directory \"", nd, "\" doesn't exist; Create it? ", NULL);
 108                 if (!getanswer(cp))
 109                         adios(NULL, "unable to access MH-directory \"%s\"",
 110                                         nd);
 111                 free(cp);
 112                 if (!makedir(nd))
 113                         adios(NULL, "unable to create %s", nd);
 114         } else if ((st.st_mode & S_IFDIR) == 0)
 115                 adios((char *)0, "`%s' is not a directory", nd);
 116
 117         /*
 118         ** Open and read user's context file.  The name of the context
 119         ** file comes from the profile unless overridden by the MHCONTEXT
 120         ** environment variable.
 121         */
 122
 123         if ((cp = getenv("MHCONTEXT")) == (char *)0 || *cp == '\0')
 124                 cp = context;
 125
 126         /*
 127         ** context is NULL if context_foil() was called to disable use
 128         ** of context We also support users setting explicitly setting
 129         ** MHCONTEXT to /dev/null.  (if this wasn't specialcased then the
 130         ** locking would be liable to fail)
 131         */
 132         if (!cp || (strcmp(cp,"/dev/null") == 0)) {
 133                 ctxpath = NULL;
 134                 return;
 135         }
 136
 137         ctxpath = getcpy(toabsdir(cp));
 138
 139         if ((ib = lkfopen(ctxpath, "r"))) {
 140                 readconfig((struct node **) 0, ib, cp, 1);
 141                 lkfclose(ib, ctxpath);
 142         }
 143
 144         return;
 145 }