1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
/*
* context_read.c -- find and read profile and context files
*
* $Id: context_read.c,v 1.1.1.1 1999/04/30 18:08:34 doug Exp $
*/
#include <h/mh.h>
#include <errno.h>
#include <pwd.h>
extern int errno;
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;
/*
* 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]");
}
}
}
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);
}
}
/*
* 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);
fclose (ib);
}
}
|
