|
0
|
1 /* install-mh.c - initialize the MH environment */
|
|
|
2 #ifndef lint
|
|
12
|
3 static char ident[] = "@(#)$Id: install-mh.c,v 1.1.1.1 2005/04/18 14:46:07 kono Exp $";
|
|
0
|
4 #endif /* lint */
|
|
|
5
|
|
|
6 #include "../h/mh.h"
|
|
|
7 #include <pwd.h>
|
|
|
8 #include <stdio.h>
|
|
|
9 #include <sys/types.h>
|
|
|
10 #include <sys/stat.h>
|
|
|
11 #ifdef LOCALE
|
|
|
12 #include <locale.h>
|
|
|
13 #endif
|
|
|
14
|
|
|
15 /* */
|
|
|
16
|
|
|
17 static char *message[] = {
|
|
|
18 "Prior to using MH, it is necessary to have a file in your login",
|
|
|
19 "directory (%s) named %s which contains information",
|
|
|
20 "to direct certain MH operations. The only item which is required",
|
|
|
21 "is the path to use for all MH folder operations. The suggested MH",
|
|
|
22 "path for you is %s/Mail...",
|
|
|
23 NULL
|
|
|
24 };
|
|
|
25
|
|
|
26
|
|
|
27 static char *geta ();
|
|
|
28
|
|
|
29 #ifndef __STDC__
|
|
|
30 #ifdef SYS5
|
|
|
31 struct passwd *getpwuid ();
|
|
|
32 #endif
|
|
|
33 #endif /* !__STDC__ */
|
|
|
34
|
|
|
35 /* */
|
|
|
36
|
|
|
37 /* ARGSUSED */
|
|
|
38
|
|
|
39 main (argc, argv)
|
|
|
40 int argc;
|
|
|
41 char **argv;
|
|
|
42 {
|
|
|
43 int autof,
|
|
|
44 i;
|
|
|
45 char *cp,
|
|
|
46 *path;
|
|
|
47 struct node *np;
|
|
|
48 struct passwd *pw;
|
|
|
49 struct stat st;
|
|
|
50 FILE *in,
|
|
|
51 *out;
|
|
|
52
|
|
|
53 #ifdef LOCALE
|
|
|
54 setlocale(LC_ALL, "");
|
|
|
55 #endif
|
|
|
56 invo_name = r1bindex (argv[0], '/');
|
|
|
57
|
|
|
58 #ifdef COMPAT
|
|
|
59 if (argc == 2 && strcmp (argv[1], "-compat") == 0) {
|
|
|
60 context = "/dev/null"; /* hack past m_getdefs() */
|
|
|
61
|
|
|
62 m_getdefs ();
|
|
|
63 for (np = m_defs; np; np = np -> n_next)
|
|
|
64 if (uleq (pfolder, np -> n_name)
|
|
|
65 || ssequal ("atr-", np -> n_name)
|
|
|
66 || ssequal ("cur-", np -> n_name))
|
|
|
67 np -> n_context = 1;
|
|
|
68
|
|
|
69 ctxpath = getcpy (m_maildir (context = "context"));
|
|
|
70 ctxflags |= CTXMOD;
|
|
|
71 m_update ();
|
|
|
72
|
|
|
73 if ((out = fopen (defpath, "w")) == NULL)
|
|
|
74 adios (defpath, "unable to write");
|
|
|
75 for (np = m_defs; np; np = np -> n_next)
|
|
|
76 if (!np -> n_context)
|
|
|
77 fprintf (out, "%s: %s\n", np -> n_name, np -> n_field);
|
|
|
78 (void) fclose (out);
|
|
|
79
|
|
|
80 done (0);
|
|
|
81 }
|
|
|
82 #endif /* COMPAT */
|
|
|
83
|
|
|
84 autof = (argc == 2 && strcmp (argv[1], "-auto") == 0);
|
|
|
85 if (mypath == NULL) { /* straight from m_getdefs... */
|
|
|
86 if (mypath = getenv ("HOME"))
|
|
|
87 mypath = getcpy (mypath);
|
|
|
88 else
|
|
|
89 if ((pw = getpwuid (getuid ())) == NULL
|
|
|
90 || pw -> pw_dir == NULL
|
|
|
91 || *pw -> pw_dir == 0)
|
|
|
92 adios (NULLCP, "no HOME envariable");
|
|
|
93 else
|
|
|
94 mypath = getcpy (pw -> pw_dir);
|
|
|
95 if ((cp = mypath + strlen (mypath) - 1) > mypath && *cp == '/')
|
|
|
96 *cp = 0;
|
|
|
97 }
|
|
|
98 defpath = concat (mypath, "/", mh_profile, NULLCP);
|
|
|
99
|
|
|
100 if (stat (defpath, &st) != NOTOK)
|
|
|
101 if (autof)
|
|
|
102 adios (NULLCP, "invocation error");
|
|
|
103 else
|
|
|
104 adios (NULLCP,
|
|
|
105 "You already have an MH profile, use an editor to modify it");
|
|
|
106
|
|
|
107 if (!autof && gans ("Do you want help? ", anoyes)) {
|
|
|
108 (void) putchar ('\n');
|
|
|
109 for (i = 0; message[i]; i++) {
|
|
|
110 printf (message[i], mypath, mh_profile);
|
|
|
111 (void) putchar ('\n');
|
|
|
112 }
|
|
|
113 (void) putchar ('\n');
|
|
|
114 }
|
|
|
115
|
|
|
116 /* */
|
|
|
117
|
|
|
118 cp = concat (mypath, "/", "Mail", NULLCP);
|
|
|
119 if (stat (cp, &st) != NOTOK) {
|
|
|
120 if ((st.st_mode & S_IFMT) == S_IFDIR) {
|
|
|
121 cp = concat ("You already have the standard MH directory \"",
|
|
|
122 cp, "\".\nDo you want to use it for MH? ", NULLCP);
|
|
|
123 if (gans (cp, anoyes))
|
|
|
124 path = "Mail";
|
|
|
125 else
|
|
|
126 goto query;
|
|
|
127 }
|
|
|
128 else
|
|
|
129 goto query;
|
|
|
130 }
|
|
|
131 else {
|
|
|
132 if (autof)
|
|
|
133 printf ("I'm going to create the standard MH path for you.\n");
|
|
|
134 else
|
|
|
135 cp = concat ("Do you want the standard MH path \"",
|
|
|
136 mypath, "/", "Mail\"? ", NULLCP);
|
|
|
137 if (autof || gans (cp, anoyes))
|
|
|
138 path = "Mail";
|
|
|
139 else {
|
|
|
140 query: ;
|
|
|
141 if (gans ("Do you want a path below your login directory? ",
|
|
|
142 anoyes)) {
|
|
|
143 printf ("What is the path? %s/", mypath);
|
|
|
144 path = geta ();
|
|
|
145 }
|
|
|
146 else {
|
|
|
147 printf ("What is the whole path? /");
|
|
|
148 path = concat ("/", geta (), NULLCP);
|
|
|
149 }
|
|
|
150 }
|
|
|
151 }
|
|
|
152
|
|
|
153 (void) chdir (mypath);
|
|
|
154 if (chdir (path) == NOTOK) {
|
|
|
155 cp = concat ("\"", path, "\" doesn't exist; Create it? ", NULLCP);
|
|
|
156 if (autof || gans (cp, anoyes))
|
|
|
157 if (makedir (path) == 0)
|
|
|
158 adios (NULLCP, "unable to create %s", path);
|
|
|
159 }
|
|
|
160 else
|
|
|
161 printf ("[Using existing directory]\n");
|
|
|
162
|
|
|
163 /* */
|
|
|
164
|
|
|
165 np = m_defs = (struct node *) malloc (sizeof *np);
|
|
|
166 if (np == NULL)
|
|
|
167 adios (NULLCP, "unable to allocate profile storage");
|
|
|
168 np -> n_name = getcpy ("Path");
|
|
|
169 np -> n_field = getcpy (path);
|
|
|
170 np -> n_context = 0;
|
|
|
171 np -> n_next = NULL;
|
|
|
172
|
|
|
173 if (in = fopen (mh_defaults, "r")) {
|
|
|
174 m_readefs (&np -> n_next, in, mh_defaults, 0);
|
|
|
175 (void) fclose (in);
|
|
|
176 }
|
|
|
177
|
|
|
178 ctxpath = getcpy (m_maildir (context = "context"));
|
|
|
179 m_replace (pfolder, defalt);
|
|
|
180 m_update ();
|
|
|
181
|
|
|
182 if ((out = fopen (defpath, "w")) == NULL)
|
|
|
183 adios (defpath, "unable to write");
|
|
|
184 for (np = m_defs; np; np = np -> n_next)
|
|
|
185 if (!np -> n_context)
|
|
|
186 fprintf (out, "%s: %s\n", np -> n_name, np -> n_field);
|
|
|
187 (void) fclose (out);
|
|
|
188
|
|
|
189 done (0);
|
|
|
190 }
|
|
|
191
|
|
|
192 /* */
|
|
|
193
|
|
|
194 static char *geta () {
|
|
|
195 register char *cp;
|
|
|
196 static char line[BUFSIZ];
|
|
|
197
|
|
|
198 (void) fflush (stdout);
|
|
|
199 if (fgets (line, sizeof line, stdin) == NULL)
|
|
|
200 done (1);
|
|
|
201 if (cp = index (line, '\n'))
|
|
|
202 *cp = 0;
|
|
|
203 return line;
|
|
|
204 }
|
