![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to m_getdefs.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / contrib / mh / sbr|
Return to m_getdefs.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / contrib / mh / sbr |
1.1 ! root 1: /* m_getdefs.c - read the user's MH environment */ ! 2: ! 3: #include "../h/mh.h" ! 4: #include <stdio.h> ! 5: #include <errno.h> ! 6: #include <sys/types.h> ! 7: #include <sys/stat.h> ! 8: #include <pwd.h> ! 9: ! 10: ! 11: extern int errno; ! 12: ! 13: struct passwd *getpwuid (); ! 14: ! 15: ! 16: #ifndef OVERHEAD ! 17: #define FOpen(f,m,e,c) fopen (f, m) ! 18: #define FClose(f) fclose (f) ! 19: #else OVERHEAD ! 20: FILE *FOpen (); ! 21: int FClose (); ! 22: ! 23: long lseek (); ! 24: #endif OVERHEAD ! 25: ! 26: ! 27: void m_getdefs() { ! 28: int pid; ! 29: register char *cp, ! 30: *pp; ! 31: #if defined (notdef) || defined (COMPAT) ! 32: register char *ctx; ! 33: #endif notdef or COMPAT ! 34: char buf[BUFSIZ]; ! 35: struct stat st; ! 36: register struct passwd *pw; ! 37: register FILE *ib; ! 38: ! 39: if (defpath) ! 40: return; ! 41: if (mypath == NULL) { ! 42: if (mypath = getenv ("HOME")) ! 43: mypath = getcpy (mypath); ! 44: else ! 45: if ((pw = getpwuid (getuid ())) == NULL ! 46: || pw -> pw_dir == NULL ! 47: || *pw -> pw_dir == NULL) ! 48: adios (NULLCP, "no HOME envariable"); ! 49: else ! 50: mypath = getcpy (pw -> pw_dir); ! 51: if ((cp = mypath + strlen (mypath) - 1) > mypath && *cp == '/') ! 52: *cp = NULL; ! 53: } ! 54: ! 55: if ((cp = getenv ("MH")) && *cp) { ! 56: defpath = path (cp, TFILE); ! 57: if ((ib = FOpen (defpath, "r", "MHFD", 0)) == NULL) ! 58: adios (defpath, "unable to read"); ! 59: if (*cp != '/') ! 60: (void) putenv ("MH", defpath); ! 61: } ! 62: else { ! 63: defpath = concat (mypath, "/", mh_profile, NULLCP); ! 64: ! 65: if ((ib = FOpen (defpath, "r", "MHFD", 0)) == NULL) ! 66: switch (pid = vfork ()) { ! 67: case NOTOK: ! 68: adios ("fork", "unable to"); ! 69: ! 70: case OK: ! 71: (void) setgid (getgid ()); ! 72: (void) setuid (getuid ()); ! 73: ! 74: execlp (installproc, "install-mh", "-auto", NULLCP); ! 75: fprintf (stderr, "unable to exec "); ! 76: perror (installproc); ! 77: _exit (-1); ! 78: ! 79: default: ! 80: if (pidwait (pid, OK) ! 81: || (ib = fopen (defpath, "r")) == NULL) ! 82: adios (NULLCP, "[install-mh aborted]"); ! 83: } ! 84: } ! 85: ! 86: #if defined (notdef) || defined (COMPAT) ! 87: ctx = context; ! 88: #endif notdef or COMPAT ! 89: m_readefs (&m_defs, ib, mh_profile, 0); ! 90: (void) FClose (ib); ! 91: ! 92: if ((pp = m_find ("path")) != NULL && *pp) { ! 93: if (*pp != '/') ! 94: (void) sprintf (buf, "%s/%s", mypath, pp); ! 95: else ! 96: (void) strcpy (buf, pp); ! 97: if (stat(buf, &st) == NOTOK) { ! 98: if (errno != ENOENT) ! 99: adios (buf, "error opening"); ! 100: cp = concat ("Your MH-directory \"", buf, ! 101: "\" doesn't exist; Create it? ", NULLCP); ! 102: if (!getanswer(cp)) ! 103: adios (NULLCP, "unable to access MH-directory \"%s\"", buf); ! 104: free (cp); ! 105: if (!makedir (buf)) ! 106: adios (NULLCP, "unable to create", buf); ! 107: } ! 108: } ! 109: ! 110: #ifdef COMPAT ! 111: if (strcmp (ctx, "/dev/null") == 0) ! 112: return; /* called by install-mh */ ! 113: ! 114: if (access (ctxpath = getcpy (m_maildir (ctx)), 0) == NOTOK) ! 115: switch (pid = fork ()) { ! 116: case NOTOK: ! 117: adios ("fork", "unable to"); ! 118: ! 119: case OK: ! 120: (void) setgid (getgid ()); ! 121: (void) setuid (getuid ()); ! 122: fprintf (stderr, "install-mh -compat\n"); ! 123: ! 124: execlp (installproc, "install-mh", "-compat", NULLCP); ! 125: fprintf (stderr, "unable to exec "); ! 126: perror (installproc); ! 127: _exit (-1); ! 128: ! 129: default: ! 130: if (pidwait (pid, OK) || access (ctxpath, 0) == NOTOK) ! 131: adios (NULLCP, "[install-mh aborted]"); ! 132: ! 133: if ((ib = fopen (defpath, "r")) == NULL) ! 134: adios (defpath, "unable to read"); ! 135: m_readefs (&m_defs, ib, mh_profile, 0); ! 136: (void) FClose (ib); ! 137: } ! 138: free (ctxpath); ! 139: #endif COMPAT ! 140: ! 141: if ((cp = getenv ("MHCONTEXT")) == NULL || *cp == NULL) ! 142: cp = context; ! 143: if ((ib = FOpen (ctxpath = getcpy (m_maildir (cp)), "r", "MHCONTEXTFD", 1)) ! 144: == NULL) { ! 145: #ifdef notdef /* XXX */ ! 146: if (cp != ctx) ! 147: adios (ctxpath, "unable to read"); ! 148: #endif notdef ! 149: } ! 150: else { ! 151: m_readefs ((struct node **) 0, ib, cp, 1); ! 152: (void) FClose (ib); ! 153: } ! 154: } ! 155: ! 156: /* */ ! 157: ! 158: #ifdef OVERHEAD ! 159: int fd_def = NOTOK; ! 160: int fd_ctx = NOTOK; ! 161: ! 162: ! 163: static FILE *FOpen (filename, mode, envariable, ctx) ! 164: register char *filename, ! 165: *mode, ! 166: *envariable; ! 167: register int ctx; ! 168: { ! 169: register int fd; ! 170: register char *cp; ! 171: char buffer[10]; ! 172: struct stat st1; ! 173: register FILE * fp; ! 174: ! 175: if ((cp = getenv (envariable)) == NULL || *cp == NULL) ! 176: goto not_open; ! 177: ! 178: if ((fd = atoi (cp)) <= fileno (stderr)) { ! 179: advise (NULLCP, "bad value for $%s: %s", envariable, cp); ! 180: (void) unputenv (envariable); ! 181: return fopen (filename, mode); ! 182: } ! 183: if (ctx) ! 184: fd_ctx = fd; ! 185: else ! 186: fd_def = fd; ! 187: ! 188: if (fstat (fd, &st1) == NOTOK) { ! 189: not_open: ; ! 190: if ((fp = fopen (filename, mode)) ! 191: && !strcmp (mode, "r") ! 192: && fileno (fp) > fileno (stderr)) { ! 193: (void) sprintf (buffer, "%d", fileno (fp)); ! 194: if (!putenv (envariable, buffer)) ! 195: if (ctx) ! 196: fd_ctx = fileno (fp); ! 197: else ! 198: fd_def = fileno (fp); ! 199: } ! 200: ! 201: if ((cp = getenv ("MHFDEBUG")) && *cp) ! 202: fprintf (stderr, "FOpen of %s sets %d\n", filename, fileno (fp)); ! 203: return fp; ! 204: } ! 205: ! 206: (void) lseek (fd, 0L, 0); ! 207: return fdopen (fd, mode); ! 208: } ! 209: ! 210: ! 211: static int FClose (f) ! 212: register FILE *f; ! 213: { ! 214: register int d1, ! 215: d2, ! 216: i; ! 217: register char *cp; ! 218: ! 219: if (f == NULL) ! 220: return OK; ! 221: ! 222: if ((d1 = fileno (f)) != fd_def && d1 != fd_ctx) ! 223: return fclose (f); ! 224: ! 225: d2 = dup (d1); ! 226: i = fclose (f); ! 227: ! 228: if (d2 != NOTOK) { ! 229: (void) dup2 (d2, d1); ! 230: (void) close (d2); ! 231: } ! 232: else ! 233: if (d1 == fd_def) ! 234: fd_def = NOTOK; ! 235: else ! 236: fd_ctx = NOTOK; ! 237: ! 238: if ((cp = getenv ("MHFDEBUG")) && *cp) ! 239: fprintf (stderr, "FClose emulating close of %d (%d)\n", d1, d2); ! 240: return i; ! 241: } ! 242: #endif OVERHEAD
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.