diplodocus.org Git - nmh/blob - docs/historical/mh-6.8.5/sbr/RCS/m_getdefs.c,v

   1 head    1.8;
   2 access;
   3 symbols;
   4 locks; strict;
   5 comment @ * @;
   6
   7
   8 1.8
   9 date    93.09.03.17.38.51;      author jromine; state Exp;
  10 branches;
  11 next    1.7;
  12
  13 1.7
  14 date    93.08.25.17.20.41;      author jromine; state Exp;
  15 branches;
  16 next    1.6;
  17
  18 1.6
  19 date    92.12.15.00.20.22;      author jromine; state Exp;
  20 branches;
  21 next    1.5;
  22
  23 1.5
  24 date    92.11.04.00.33.19;      author jromine; state Exp;
  25 branches;
  26 next    1.4;
  27
  28 1.4
  29 date    92.02.03.17.50.47;      author jromine; state Exp;
  30 branches;
  31 next    1.3;
  32
  33 1.3
  34 date    92.02.03.16.34.55;      author jromine; state Exp;
  35 branches;
  36 next    1.2;
  37
  38 1.2
  39 date    92.01.31.21.52.45;      author jromine; state Exp;
  40 branches;
  41 next    1.1;
  42
  43 1.1
  44 date    92.01.31.21.52.30;      author jromine; state Exp;
  45 branches;
  46 next    ;
  47
  48
  49 desc
  50 @@
  51
  52
  53 1.8
  54 log
  55 @declare FOpen,FClose static #ifdef OVERHEAD
  56 @
  57 text
  58 @/* m_getdefs.c - read the user's MH environment */
  59 #ifndef lint
  60 static char ident[] = "@@(#)$Id: m_getdefs.c,v 1.7 1993/08/25 17:20:41 jromine Exp jromine $";
  61 #endif  /* lint */
  62
  63 #include "../h/mh.h"
  64 #include <stdio.h>
  65 #include <errno.h>
  66 #include <sys/types.h>
  67 #include <sys/stat.h>
  68 #include <pwd.h>
  69
  70
  71 extern int errno;
  72
  73 #ifndef __STDC__
  74 #ifdef  SYS5
  75 struct  passwd  *getpwuid ();
  76 #endif
  77 #endif /* !__STDC__ */
  78
  79
  80 #ifndef OVERHEAD
  81 #define FOpen(f,m,e,c)  fopen (f, m)
  82 #define FClose(f)       fclose (f)
  83 #else   /* OVERHEAD */
  84 static FILE    *FOpen ();
  85 static int      FClose ();
  86
  87 off_t   lseek ();
  88 #endif  /* OVERHEAD */
  89
  90
  91 void m_getdefs() {
  92     int     pid;
  93     register char  *cp,
  94                    *pp;
  95 #if     defined (notdef) || defined (COMPAT)
  96     register char  *ctx;
  97 #endif  /* notdef or COMPAT */
  98     char    buf[BUFSIZ];
  99     struct stat st;
 100     register struct passwd *pw;
 101     register    FILE *ib;
 102
 103     if (defpath)
 104         return;
 105     if (mypath == NULL) {
 106         if (mypath = getenv ("HOME"))
 107             mypath = getcpy (mypath);
 108         else
 109             if ((pw = getpwuid (getuid ())) == NULL
 110                     || pw -> pw_dir == NULL
 111                     || *pw -> pw_dir == 0)
 112                 adios (NULLCP, "no HOME envariable");
 113             else
 114                 mypath = getcpy (pw -> pw_dir);
 115         if ((cp = mypath + strlen (mypath) - 1) > mypath && *cp == '/')
 116             *cp = 0;
 117     }
 118
 119     if ((cp = getenv ("MH")) && *cp) {
 120         defpath = path (cp, TFILE);
 121         if ((ib = FOpen (defpath, "r", "MHFD", 0)) == NULL)
 122             adios (defpath, "unable to read");
 123         if (*cp != '/')
 124             (void) m_putenv ("MH", defpath);
 125     }
 126     else {
 127         defpath = concat (mypath, "/", mh_profile, NULLCP);
 128
 129         if ((ib = FOpen (defpath, "r", "MHFD", 0)) == NULL)
 130             switch (pid = vfork ()) {
 131                 case NOTOK:
 132                     adios ("fork", "unable to");
 133
 134                 case OK:
 135                     (void) setgid (getgid ());
 136                     (void) setuid (getuid ());
 137
 138                     execlp (installproc, "install-mh", "-auto", NULLCP);
 139                     fprintf (stderr, "unable to exec ");
 140                     perror (installproc);
 141                     _exit (-1);
 142
 143                 default:
 144                     if (pidwait (pid, OK)
 145                             || (ib = fopen (defpath, "r")) == NULL)
 146                         adios (NULLCP, "[install-mh aborted]");
 147             }
 148     }
 149
 150 #if     defined (notdef) || defined (COMPAT)
 151     ctx = context;
 152 #endif  /* notdef or COMPAT */
 153     m_readefs (&m_defs, ib, mh_profile, 0);
 154     (void) FClose (ib);
 155
 156     if ((pp = m_find ("path")) != NULL && *pp) {
 157         if (*pp != '/')
 158             (void) sprintf (buf, "%s/%s", mypath, pp);
 159         else
 160             (void) strcpy (buf, pp);
 161         if (stat(buf, &st) == NOTOK) {
 162             if (errno != ENOENT)
 163                 adios (buf, "error opening");
 164             cp = concat ("Your MH-directory \"", buf,
 165                 "\" doesn't exist; Create it? ", NULLCP);
 166             if (!getanswer(cp))
 167                 adios (NULLCP, "unable to access MH-directory \"%s\"", buf);
 168             free (cp);
 169             if (!makedir (buf))
 170                 adios (NULLCP, "unable to create", buf);
 171         }
 172     }
 173
 174 #ifdef  COMPAT
 175     if (strcmp (ctx, "/dev/null") == 0)
 176         return;                 /* called by install-mh */
 177
 178     if (access (ctxpath = getcpy (m_maildir (ctx)), 0) == NOTOK)
 179         switch (pid = fork ()) {
 180             case NOTOK:
 181                 adios ("fork", "unable to");
 182
 183             case OK:
 184                 (void) setgid (getgid ());
 185                 (void) setuid (getuid ());
 186                 fprintf (stderr, "install-mh -compat\n");
 187
 188                 execlp (installproc, "install-mh", "-compat", NULLCP);
 189                 fprintf (stderr, "unable to exec ");
 190                 perror (installproc);
 191                 _exit (-1);
 192
 193             default:
 194                 if (pidwait (pid, OK) || access (ctxpath, 0) == NOTOK)
 195                     adios (NULLCP, "[install-mh aborted]");
 196
 197                 if ((ib = fopen (defpath, "r")) == NULL)
 198                     adios (defpath, "unable to read");
 199                 m_readefs (&m_defs, ib, mh_profile, 0);
 200                 (void) FClose (ib);
 201         }
 202     free (ctxpath);
 203 #endif  /* COMPAT */
 204
 205     if ((cp = getenv ("MHCONTEXT")) == NULL || *cp == 0)
 206         cp = context;
 207     if ((ib = FOpen (ctxpath = getcpy (m_maildir (cp)), "r", "MHCONTEXTFD", 1))
 208                 == NULL) {
 209 #ifdef  notdef                  /* XXX */
 210         if (cp != ctx)
 211             adios (ctxpath, "unable to read");
 212 #endif  /* notdef */
 213     }
 214     else {
 215         m_readefs ((struct node **) 0, ib, cp, 1);
 216         (void) FClose (ib);
 217     }
 218 }
 219
 220 /* \f */
 221
 222 #ifdef  OVERHEAD
 223 int     fd_def = NOTOK;
 224 int     fd_ctx = NOTOK;
 225
 226
 227 static FILE *FOpen (filename, mode, envariable, ctx)
 228 register char   *filename,
 229                 *mode,
 230                 *envariable;
 231 register int     ctx;
 232 {
 233     register int    fd;
 234     register char  *cp;
 235     char    buffer[10];
 236     struct stat st1;
 237     register    FILE * fp;
 238
 239     if ((cp = getenv (envariable)) == NULL || *cp == 0)
 240         goto not_open;
 241
 242     if ((fd = atoi (cp)) <= fileno (stderr)) {
 243         advise (NULLCP, "bad value for $%s: %s", envariable, cp);
 244         (void) unputenv (envariable);
 245         return fopen (filename, mode);
 246     }
 247     if (ctx)
 248         fd_ctx = fd;
 249     else
 250         fd_def = fd;
 251
 252     if (fstat (fd, &st1) == NOTOK) {
 253 not_open: ;
 254         if ((fp = fopen (filename, mode))
 255                 && !strcmp (mode, "r")
 256                 && fileno (fp) > fileno (stderr)) {
 257             (void) sprintf (buffer, "%d", fileno (fp));
 258             if (!m_putenv (envariable, buffer))
 259                 if (ctx)
 260                     fd_ctx = fileno (fp);
 261                 else
 262                     fd_def = fileno (fp);
 263         }
 264
 265         if ((cp = getenv ("MHFDEBUG")) && *cp)
 266             fprintf (stderr, "FOpen of %s sets %d\n", filename, fileno (fp));
 267         return fp;
 268     }
 269
 270     (void) lseek (fd, (off_t)0, 0);
 271     return fdopen (fd, mode);
 272 }
 273
 274
 275 static int  FClose (f)
 276 register FILE   *f;
 277 {
 278     register int    d1,
 279                     d2,
 280                     i;
 281     register char  *cp;
 282
 283     if (f == NULL)
 284         return OK;
 285
 286     if ((d1 = fileno (f)) != fd_def && d1 != fd_ctx)
 287         return fclose (f);
 288
 289     d2 = dup (d1);
 290     i = fclose (f);
 291
 292     if (d2 != NOTOK) {
 293         (void) dup2 (d2, d1);
 294         (void) close (d2);
 295     }
 296     else
 297         if (d1 == fd_def)
 298             fd_def = NOTOK;
 299         else
 300             fd_ctx = NOTOK;
 301
 302     if ((cp = getenv ("MHFDEBUG")) && *cp)
 303         fprintf (stderr, "FClose emulating close of %d (%d)\n", d1, d2);
 304     return i;
 305 }
 306 #endif  /* OVERHEAD */
 307 @
 308
 309
 310 1.7
 311 log
 312 @off_t fixes for BSD44
 313 @
 314 text
 315 @d3 1
 316 a3 1
 317 static char ident[] = "@@(#)$Id: m_getdefs.c,v 1.6 1992/12/15 00:20:22 jromine Exp jromine $";
 318 d27 2
 319 a28 2
 320 FILE   *FOpen ();
 321 int     FClose ();
 322 @
 323
 324
 325 1.6
 326 log
 327 @endif sugar
 328 @
 329 text
 330 @d3 1
 331 a3 1
 332 static char ident[] = "@@(#)$Id: m_getdefs.c,v 1.5 1992/11/04 00:33:19 jromine Exp jromine $";
 333 d30 1
 334 a30 1
 335 long    lseek ();
 336 d213 1
 337 a213 1
 338     (void) lseek (fd, 0L, 0);
 339 @
 340
 341
 342 1.5
 343 log
 344 @putenv -> m_putenv
 345 @
 346 text
 347 @d3 2
 348 a4 2
 349 static char ident[] = "@@(#)$Id: m_getdefs.c,v 1.4 1992/02/03 17:50:47 jromine Exp jromine $";
 350 #endif  lint
 351 d26 1
 352 a26 1
 353 #else   OVERHEAD
 354 d31 1
 355 a31 1
 356 #endif  OVERHEAD
 357 d40 1
 358 a40 1
 359 #endif  notdef or COMPAT
 360 d95 1
 361 a95 1
 362 #endif  notdef or COMPAT
 363 d146 1
 364 a146 1
 365 #endif  COMPAT
 366 d155 1
 367 a155 1
 368 #endif  notdef
 369 d249 1
 370 a249 1
 371 #endif  OVERHEAD
 372 @
 373
 374
 375 1.4
 376 log
 377 @SYS5
 378 @
 379 text
 380 @d3 1
 381 a3 1
 382 static char ident[] = "@@(#)$Id: m_getdefs.c,v 1.3 1992/02/03 16:34:55 jromine Exp jromine $";
 383 d67 1
 384 a67 1
 385             (void) putenv ("MH", defpath);
 386 d201 1
 387 a201 1
 388             if (!putenv (envariable, buffer))
 389 @
 390
 391
 392 1.3
 393 log
 394 @fix
 395 @
 396 text
 397 @d3 1
 398 a3 1
 399 static char ident[] = "@@(#)$Id: m_getdefs.c,v 1.2 1992/01/31 21:52:45 jromine Exp jromine $";
 400 d17 1
 401 d19 1
 402 @
 403
 404
 405 1.2
 406 log
 407 @kerberos
 408 @
 409 text
 410 @d3 1
 411 a3 1
 412 static char ident[] = "@@(#)$Id: m_getfld.c,v 1.9 1992/01/24 18:03:41 jromine Exp $";
 413 d16 1
 414 d18 1
 415 @
 416
 417
 418 1.1
 419 log
 420 @Initial revision
 421 @
 422 text
 423 @d2 3
 424 d50 1
 425 a50 1
 426                     || *pw -> pw_dir == NULL)
 427 d55 1
 428 a55 1
 429             *cp = NULL;
 430 d144 1
 431 a144 1
 432     if ((cp = getenv ("MHCONTEXT")) == NULL || *cp == NULL)
 433 d178 1
 434 a178 1
 435     if ((cp = getenv (envariable)) == NULL || *cp == NULL)
 436 @