Mercurial > emacs
annotate lib-src/movemail.c @ 5435:d7408b99b88f
Include syswait.h.
Fork a subprocess and use it to copy the mail file.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 04 Jan 1994 06:46:12 +0000 |
parents | 60fa1ee0c98c |
children | 726a3dc867a6 |
rev | line source |
---|---|
23 | 1 /* movemail foo bar -- move file foo to file bar, |
2 locking file foo the way /bin/mail respects. | |
5435 | 3 Copyright (C) 1986, 1992, 1993 Free Software Foundation, Inc. |
23 | 4 |
5 This file is part of GNU Emacs. | |
6 | |
38 | 7 GNU Emacs is free software; you can redistribute it and/or modify |
8 it under the terms of the GNU General Public License as published by | |
9 the Free Software Foundation; either version 1, or (at your option) | |
10 any later version. | |
23 | 11 |
38 | 12 GNU Emacs is distributed in the hope that it will be useful, |
13 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 GNU General Public License for more details. | |
16 | |
17 You should have received a copy of the GNU General Public License | |
18 along with GNU Emacs; see the file COPYING. If not, write to | |
19 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ | |
23 | 20 |
510
4eaef1578a15
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
447
diff
changeset
|
21 /* Important notice: defining MAIL_USE_FLOCK *will cause loss of mail* |
4eaef1578a15
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
447
diff
changeset
|
22 if you do it on a system that does not normally use flock as its way of |
4eaef1578a15
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
447
diff
changeset
|
23 interlocking access to inbox files. The setting of MAIL_USE_FLOCK |
4eaef1578a15
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
447
diff
changeset
|
24 *must agree* with the system's own conventions. |
4eaef1578a15
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
447
diff
changeset
|
25 It is not a choice that is up to you. |
4eaef1578a15
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
447
diff
changeset
|
26 |
4eaef1578a15
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
447
diff
changeset
|
27 So, if your system uses lock files rather than flock, then the only way |
4eaef1578a15
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
447
diff
changeset
|
28 you can get proper operation is to enable movemail to write lockfiles there. |
4eaef1578a15
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
447
diff
changeset
|
29 This means you must either give that directory access modes |
4eaef1578a15
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
447
diff
changeset
|
30 that permit everyone to write lockfiles in it, or you must make movemail |
4eaef1578a15
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
447
diff
changeset
|
31 a setuid or setgid program. */ |
4eaef1578a15
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
447
diff
changeset
|
32 |
23 | 33 /* |
34 * Modified January, 1986 by Michael R. Gretzinger (Project Athena) | |
35 * | |
36 * Added POP (Post Office Protocol) service. When compiled -DPOP | |
37 * movemail will accept input filename arguments of the form | |
38 * "po:username". This will cause movemail to open a connection to | |
39 * a pop server running on $MAILHOST (environment variable). Movemail | |
40 * must be setuid to root in order to work with POP. | |
41 * | |
42 * New module: popmail.c | |
43 * Modified routines: | |
447
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
44 * main - added code within #ifdef MAIL_USE_POP; added setuid (getuid ()) |
23 | 45 * after POP code. |
46 * New routines in movemail.c: | |
47 * get_errmsg - return pointer to system error message | |
48 * | |
49 */ | |
50 | |
51 #include <sys/types.h> | |
52 #include <sys/stat.h> | |
53 #include <sys/file.h> | |
54 #include <errno.h> | |
55 #define NO_SHORTNAMES /* Tell config not to load remap.h */ | |
4696
1fc792473491
Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents:
3309
diff
changeset
|
56 #include <../src/config.h> |
5435 | 57 #include <../src/syswait.h> |
23 | 58 |
59 #ifdef USG | |
60 #include <fcntl.h> | |
61 #include <unistd.h> | |
27 | 62 #ifndef F_OK |
63 #define F_OK 0 | |
64 #define X_OK 1 | |
65 #define W_OK 2 | |
66 #define R_OK 4 | |
67 #endif | |
23 | 68 #endif /* USG */ |
69 | |
70 #ifdef XENIX | |
71 #include <sys/locking.h> | |
72 #endif | |
73 | |
25 | 74 #ifdef MAIL_USE_MMDF |
75 extern int lk_open (), lk_close (); | |
76 #endif | |
77 | |
23 | 78 /* Cancel substitutions made by config.h for Emacs. */ |
79 #undef open | |
80 #undef read | |
81 #undef write | |
82 #undef close | |
83 | |
571 | 84 char *malloc (); |
733 | 85 char *strcpy (); |
23 | 86 char *concat (); |
571 | 87 char *xmalloc (); |
88 #ifndef errno | |
23 | 89 extern int errno; |
571 | 90 #endif |
23 | 91 |
92 /* Nonzero means this is name of a lock file to delete on fatal error. */ | |
93 char *delete_lockname; | |
94 | |
95 main (argc, argv) | |
96 int argc; | |
97 char **argv; | |
98 { | |
99 char *inname, *outname; | |
100 int indesc, outdesc; | |
101 int nread; | |
5435 | 102 WAITTYPE status; |
23 | 103 |
104 #ifndef MAIL_USE_FLOCK | |
105 struct stat st; | |
106 long now; | |
107 int tem; | |
108 char *lockname, *p; | |
601
3db1540d4b97
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
580
diff
changeset
|
109 char *tempname; |
23 | 110 int desc; |
111 #endif /* not MAIL_USE_FLOCK */ | |
112 | |
113 delete_lockname = 0; | |
114 | |
115 if (argc < 3) | |
116 fatal ("two arguments required"); | |
117 | |
118 inname = argv[1]; | |
119 outname = argv[2]; | |
120 | |
25 | 121 #ifdef MAIL_USE_MMDF |
122 mmdf_init (argv[0]); | |
123 #endif | |
124 | |
120 | 125 /* Check access to output file. */ |
23 | 126 if (access (outname, F_OK) == 0 && access (outname, W_OK) != 0) |
127 pfatal_with_name (outname); | |
128 | |
129 /* Also check that outname's directory is writeable to the real uid. */ | |
130 { | |
131 char *buf = (char *) malloc (strlen (outname) + 1); | |
132 char *p, q; | |
133 strcpy (buf, outname); | |
134 p = buf + strlen (buf); | |
135 while (p > buf && p[-1] != '/') | |
136 *--p = 0; | |
137 if (p == buf) | |
138 *p++ = '.'; | |
139 if (access (buf, W_OK) != 0) | |
140 pfatal_with_name (buf); | |
141 free (buf); | |
142 } | |
143 | |
144 #ifdef MAIL_USE_POP | |
3309
f00054d40753
* movemail.c [MAIL_USE_POP] (main): Don't use non-portable
Jim Blandy <jimb@redhat.com>
parents:
733
diff
changeset
|
145 if (!strncmp (inname, "po:", 3)) |
23 | 146 { |
147 int status; char *user; | |
148 | |
3309
f00054d40753
* movemail.c [MAIL_USE_POP] (main): Don't use non-portable
Jim Blandy <jimb@redhat.com>
parents:
733
diff
changeset
|
149 for (user = &inname[strlen (inname) - 1]; user >= inname; user--) |
f00054d40753
* movemail.c [MAIL_USE_POP] (main): Don't use non-portable
Jim Blandy <jimb@redhat.com>
parents:
733
diff
changeset
|
150 if (*user == ':') |
f00054d40753
* movemail.c [MAIL_USE_POP] (main): Don't use non-portable
Jim Blandy <jimb@redhat.com>
parents:
733
diff
changeset
|
151 break; |
f00054d40753
* movemail.c [MAIL_USE_POP] (main): Don't use non-portable
Jim Blandy <jimb@redhat.com>
parents:
733
diff
changeset
|
152 |
23 | 153 status = popmail (user, outname); |
154 exit (status); | |
155 } | |
156 | |
447
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
157 setuid (getuid ()); |
23 | 158 #endif /* MAIL_USE_POP */ |
159 | |
120 | 160 /* Check access to input file. */ |
161 if (access (inname, R_OK | W_OK) != 0) | |
162 pfatal_with_name (inname); | |
163 | |
25 | 164 #ifndef MAIL_USE_MMDF |
23 | 165 #ifndef MAIL_USE_FLOCK |
166 /* Use a lock file named /usr/spool/mail/$USER.lock: | |
167 If it exists, the mail file is locked. */ | |
351
5729b1cc3942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
127
diff
changeset
|
168 /* Note: this locking mechanism is *required* by the mailer |
5729b1cc3942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
127
diff
changeset
|
169 (on systems which use it) to prevent loss of mail. |
5729b1cc3942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
127
diff
changeset
|
170 |
5729b1cc3942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
127
diff
changeset
|
171 On systems that use a lock file, extracting the mail without locking |
5729b1cc3942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
127
diff
changeset
|
172 WILL occasionally cause loss of mail due to timing errors! |
5729b1cc3942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
127
diff
changeset
|
173 |
5729b1cc3942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
127
diff
changeset
|
174 So, if creation of the lock file fails |
5729b1cc3942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
127
diff
changeset
|
175 due to access permission on /usr/spool/mail, |
5729b1cc3942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
127
diff
changeset
|
176 you simply MUST change the permission |
5729b1cc3942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
127
diff
changeset
|
177 and/or make movemail a setgid program |
5729b1cc3942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
127
diff
changeset
|
178 so it can create lock files properly. |
5729b1cc3942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
127
diff
changeset
|
179 |
5729b1cc3942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
127
diff
changeset
|
180 You might also wish to verify that your system is one |
5729b1cc3942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
127
diff
changeset
|
181 which uses lock files for this purpose. Some systems use other methods. |
5729b1cc3942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
127
diff
changeset
|
182 |
5729b1cc3942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
127
diff
changeset
|
183 If your system uses the `flock' system call for mail locking, |
5729b1cc3942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
127
diff
changeset
|
184 define MAIL_USE_FLOCK in config.h or the s-*.h file |
5729b1cc3942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
127
diff
changeset
|
185 and recompile movemail. If the s- file for your system |
5729b1cc3942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
127
diff
changeset
|
186 should define MAIL_USE_FLOCK but does not, send a bug report |
5729b1cc3942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
127
diff
changeset
|
187 to bug-gnu-emacs@prep.ai.mit.edu so we can fix it. */ |
5729b1cc3942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
127
diff
changeset
|
188 |
23 | 189 lockname = concat (inname, ".lock", ""); |
5318
60fa1ee0c98c
(main): When making tempname, cast result of xmalloc.
Richard M. Stallman <rms@gnu.org>
parents:
4985
diff
changeset
|
190 tempname = (char *) xmalloc (strlen (inname) + strlen ("EXXXXXX") + 1); |
60fa1ee0c98c
(main): When making tempname, cast result of xmalloc.
Richard M. Stallman <rms@gnu.org>
parents:
4985
diff
changeset
|
191 strcpy (tempname, inname); |
23 | 192 p = tempname + strlen (tempname); |
193 while (p != tempname && p[-1] != '/') | |
194 p--; | |
195 *p = 0; | |
196 strcpy (p, "EXXXXXX"); | |
197 mktemp (tempname); | |
447
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
198 unlink (tempname); |
23 | 199 |
200 while (1) | |
201 { | |
202 /* Create the lock file, but not under the lock file name. */ | |
203 /* Give up if cannot do that. */ | |
5435 | 204 desc = open (tempname, O_WRONLY | O_CREAT | O_EXCL, 0666); |
23 | 205 if (desc < 0) |
5435 | 206 pfatal_with_name ("lock file--see source file lib-src/movemail.c"); |
23 | 207 close (desc); |
208 | |
209 tem = link (tempname, lockname); | |
447
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
210 unlink (tempname); |
23 | 211 if (tem >= 0) |
212 break; | |
213 sleep (1); | |
214 | |
215 /* If lock file is a minute old, unlock it. */ | |
216 if (stat (lockname, &st) >= 0) | |
217 { | |
218 now = time (0); | |
219 if (st.st_ctime < now - 60) | |
447
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
220 unlink (lockname); |
23 | 221 } |
222 } | |
223 | |
224 delete_lockname = lockname; | |
225 #endif /* not MAIL_USE_FLOCK */ | |
226 | |
5435 | 227 if (fork () == 0) |
228 { | |
229 seteuid (getuid ()); | |
230 | |
23 | 231 #ifdef MAIL_USE_FLOCK |
5435 | 232 indesc = open (inname, O_RDWR); |
233 #else /* if not MAIL_USE_FLOCK */ | |
234 indesc = open (inname, O_RDONLY); | |
23 | 235 #endif /* not MAIL_USE_FLOCK */ |
5435 | 236 #else /* MAIL_USE_MMDF */ |
237 indesc = lk_open (inname, O_RDONLY, 0, 0, 10); | |
25 | 238 #endif /* MAIL_USE_MMDF */ |
239 | |
5435 | 240 if (indesc < 0) |
241 pfatal_with_name (inname); | |
23 | 242 |
447
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
243 #if defined (BSD) || defined (XENIX) |
5435 | 244 /* In case movemail is setuid to root, make sure the user can |
245 read the output file. */ | |
246 /* This is desirable for all systems | |
247 but I don't want to assume all have the umask system call */ | |
248 umask (umask (0) & 0333); | |
23 | 249 #endif /* BSD or Xenix */ |
5435 | 250 outdesc = open (outname, O_WRONLY | O_CREAT | O_EXCL, 0666); |
251 if (outdesc < 0) | |
252 pfatal_with_name (outname); | |
23 | 253 #ifdef MAIL_USE_FLOCK |
254 #ifdef XENIX | |
5435 | 255 if (locking (indesc, LK_RLCK, 0L) < 0) pfatal_with_name (inname); |
23 | 256 #else |
5435 | 257 if (flock (indesc, LOCK_EX) < 0) pfatal_with_name (inname); |
23 | 258 #endif |
259 #endif /* MAIL_USE_FLOCK */ | |
260 | |
5435 | 261 { |
262 char buf[1024]; | |
604 | 263 |
5435 | 264 while (1) |
604 | 265 { |
5435 | 266 nread = read (indesc, buf, sizeof buf); |
267 if (nread != write (outdesc, buf, nread)) | |
268 { | |
269 int saved_errno = errno; | |
270 unlink (outname); | |
271 errno = saved_errno; | |
272 pfatal_with_name (outname); | |
273 } | |
274 if (nread < sizeof buf) | |
275 break; | |
604 | 276 } |
277 } | |
23 | 278 |
279 #ifdef BSD | |
5435 | 280 if (fsync (outdesc) < 0) |
281 pfatal_and_delete (outname); | |
23 | 282 #endif |
283 | |
5435 | 284 /* Check to make sure no errors before we zap the inbox. */ |
285 if (close (outdesc) != 0) | |
286 pfatal_and_delete (outname); | |
23 | 287 |
288 #ifdef MAIL_USE_FLOCK | |
447
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
289 #if defined (STRIDE) || defined (XENIX) |
5435 | 290 /* Stride, xenix have file locking, but no ftruncate. This mess will do. */ |
291 close (open (inname, O_CREAT | O_TRUNC | O_RDWR, 0666)); | |
23 | 292 #else |
5435 | 293 ftruncate (indesc, 0L); |
23 | 294 #endif /* STRIDE or XENIX */ |
295 #endif /* MAIL_USE_FLOCK */ | |
25 | 296 |
297 #ifdef MAIL_USE_MMDF | |
5435 | 298 lk_close (indesc, 0, 0, 0); |
25 | 299 #else |
5435 | 300 close (indesc); |
25 | 301 #endif |
23 | 302 |
303 #ifndef MAIL_USE_FLOCK | |
5435 | 304 /* Delete the input file; if we can't, at least get rid of its contents. */ |
571 | 305 #ifdef MAIL_UNLINK_SPOOL |
5435 | 306 /* This is generally bad to do, because it destroys the permissions |
307 that were set on the file. Better to just empty the file. */ | |
308 if (unlink (inname) < 0 && errno != ENOENT) | |
571 | 309 #endif /* MAIL_UNLINK_SPOOL */ |
5435 | 310 creat (inname, 0600); |
311 | |
312 exit (0); | |
313 } | |
314 | |
315 wait (&status); | |
316 if (!WIFEXITED (status)) | |
317 exit (1); | |
318 else if (WRETCODE (status) != 0) | |
319 exit (WRETCODE (status)); | |
320 | |
25 | 321 #ifndef MAIL_USE_MMDF |
322 unlink (lockname); | |
323 #endif /* not MAIL_USE_MMDF */ | |
23 | 324 #endif /* not MAIL_USE_FLOCK */ |
325 exit (0); | |
326 } | |
327 | |
328 /* Print error message and exit. */ | |
329 | |
330 fatal (s1, s2) | |
331 char *s1, *s2; | |
332 { | |
333 if (delete_lockname) | |
334 unlink (delete_lockname); | |
335 error (s1, s2); | |
336 exit (1); | |
337 } | |
338 | |
339 /* Print error message. `s1' is printf control string, `s2' is arg for it. */ | |
340 | |
120 | 341 error (s1, s2, s3) |
342 char *s1, *s2, *s3; | |
23 | 343 { |
344 printf ("movemail: "); | |
120 | 345 printf (s1, s2, s3); |
23 | 346 printf ("\n"); |
347 } | |
348 | |
349 pfatal_with_name (name) | |
350 char *name; | |
351 { | |
352 extern int errno, sys_nerr; | |
353 extern char *sys_errlist[]; | |
354 char *s; | |
355 | |
356 if (errno < sys_nerr) | |
357 s = concat ("", sys_errlist[errno], " for %s"); | |
358 else | |
359 s = "cannot open %s"; | |
360 fatal (s, name); | |
361 } | |
362 | |
447
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
363 pfatal_and_delete (name) |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
364 char *name; |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
365 { |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
366 extern int errno, sys_nerr; |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
367 extern char *sys_errlist[]; |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
368 char *s; |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
369 |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
370 if (errno < sys_nerr) |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
371 s = concat ("", sys_errlist[errno], " for %s"); |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
372 else |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
373 s = "cannot open %s"; |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
374 |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
375 unlink (name); |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
376 fatal (s, name); |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
377 } |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
378 |
23 | 379 /* Return a newly-allocated string whose contents concatenate those of s1, s2, s3. */ |
380 | |
381 char * | |
382 concat (s1, s2, s3) | |
383 char *s1, *s2, *s3; | |
384 { | |
385 int len1 = strlen (s1), len2 = strlen (s2), len3 = strlen (s3); | |
386 char *result = (char *) xmalloc (len1 + len2 + len3 + 1); | |
387 | |
388 strcpy (result, s1); | |
389 strcpy (result + len1, s2); | |
390 strcpy (result + len1 + len2, s3); | |
391 *(result + len1 + len2 + len3) = 0; | |
392 | |
393 return result; | |
394 } | |
395 | |
396 /* Like malloc but get fatal error if memory is exhausted. */ | |
397 | |
571 | 398 char * |
23 | 399 xmalloc (size) |
571 | 400 unsigned size; |
23 | 401 { |
571 | 402 char *result = malloc (size); |
23 | 403 if (!result) |
404 fatal ("virtual memory exhausted", 0); | |
405 return result; | |
406 } | |
407 | |
408 /* This is the guts of the interface to the Post Office Protocol. */ | |
409 | |
410 #ifdef MAIL_USE_POP | |
411 | |
412 #include <sys/socket.h> | |
413 #include <netinet/in.h> | |
414 #include <netdb.h> | |
415 #include <stdio.h> | |
634
52d0ff659265
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
604
diff
changeset
|
416 #include <pwd.h> |
23 | 417 |
418 #ifdef USG | |
419 #include <fcntl.h> | |
420 /* Cancel substitutions made by config.h for Emacs. */ | |
421 #undef open | |
422 #undef read | |
423 #undef write | |
424 #undef close | |
425 #endif /* USG */ | |
426 | |
427 #define NOTOK (-1) | |
428 #define OK 0 | |
429 #define DONE 1 | |
430 | |
431 char *progname; | |
432 FILE *sfi; | |
433 FILE *sfo; | |
434 char Errmsg[80]; | |
435 | |
436 static int debug = 0; | |
437 | |
120 | 438 char *get_errmsg (); |
439 char *getenv (); | |
440 int mbx_write (); | |
441 | |
442 popmail (user, outfile) | |
443 char *user; | |
444 char *outfile; | |
23 | 445 { |
120 | 446 char *host; |
447 int nmsgs, nbytes; | |
448 char response[128]; | |
449 register int i; | |
450 int mbfi; | |
451 FILE *mbf; | |
634
52d0ff659265
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
604
diff
changeset
|
452 struct passwd *pw = (struct passwd *) getpwuid (getuid ()); |
52d0ff659265
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
604
diff
changeset
|
453 if (pw == NULL) |
52d0ff659265
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
604
diff
changeset
|
454 fatal ("cannot determine user name"); |
23 | 455 |
120 | 456 host = getenv ("MAILHOST"); |
457 if (host == NULL) | |
458 { | |
459 fatal ("no MAILHOST defined"); | |
23 | 460 } |
461 | |
120 | 462 if (pop_init (host) == NOTOK) |
463 { | |
447
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
464 fatal (Errmsg); |
23 | 465 } |
466 | |
120 | 467 if (getline (response, sizeof response, sfi) != OK) |
468 { | |
447
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
469 fatal (response); |
23 | 470 } |
471 | |
447
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
472 if (pop_command ("USER %s", user) == NOTOK |
634
52d0ff659265
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
604
diff
changeset
|
473 || pop_command ("RPOP %s", pw->pw_name) == NOTOK) |
120 | 474 { |
475 pop_command ("QUIT"); | |
447
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
476 fatal (Errmsg); |
23 | 477 } |
478 | |
120 | 479 if (pop_stat (&nmsgs, &nbytes) == NOTOK) |
480 { | |
481 pop_command ("QUIT"); | |
447
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
482 fatal (Errmsg); |
120 | 483 } |
23 | 484 |
120 | 485 if (!nmsgs) |
486 { | |
487 pop_command ("QUIT"); | |
488 return 0; | |
23 | 489 } |
490 | |
120 | 491 mbfi = open (outfile, O_WRONLY | O_CREAT | O_EXCL, 0666); |
492 if (mbfi < 0) | |
493 { | |
494 pop_command ("QUIT"); | |
447
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
495 pfatal_and_delete (outfile); |
120 | 496 } |
497 fchown (mbfi, getuid (), -1); | |
498 | |
499 if ((mbf = fdopen (mbfi, "w")) == NULL) | |
500 { | |
501 pop_command ("QUIT"); | |
447
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
502 pfatal_and_delete (outfile); |
120 | 503 } |
504 | |
505 for (i = 1; i <= nmsgs; i++) | |
506 { | |
507 mbx_delimit_begin (mbf); | |
508 if (pop_retr (i, mbx_write, mbf) != OK) | |
509 { | |
510 pop_command ("QUIT"); | |
511 close (mbfi); | |
447
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
512 unlink (outfile); |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
513 fatal (Errmsg); |
120 | 514 } |
515 mbx_delimit_end (mbf); | |
516 fflush (mbf); | |
517 } | |
518 | |
447
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
519 if (fsync (mbfi) < 0) |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
520 { |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
521 pop_command ("QUIT"); |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
522 pfatal_and_delete (outfile); |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
523 } |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
524 |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
525 if (close (mbfi) == -1) |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
526 { |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
527 pop_command ("QUIT"); |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
528 pfatal_and_delete (outfile); |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
529 } |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
530 |
120 | 531 for (i = 1; i <= nmsgs; i++) |
532 { | |
533 if (pop_command ("DELE %d", i) == NOTOK) | |
534 { | |
447
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
535 /* Better to ignore this failure. */ |
23 | 536 } |
537 } | |
538 | |
120 | 539 pop_command ("QUIT"); |
447
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
540 return (0); |
23 | 541 } |
542 | |
120 | 543 pop_init (host) |
544 char *host; | |
23 | 545 { |
120 | 546 register struct hostent *hp; |
547 register struct servent *sp; | |
548 int lport = IPPORT_RESERVED - 1; | |
549 struct sockaddr_in sin; | |
550 register int s; | |
23 | 551 |
120 | 552 hp = gethostbyname (host); |
553 if (hp == NULL) | |
554 { | |
555 sprintf (Errmsg, "MAILHOST unknown: %s", host); | |
556 return NOTOK; | |
23 | 557 } |
558 | |
120 | 559 sp = getservbyname ("pop", "tcp"); |
560 if (sp == 0) | |
561 { | |
562 strcpy (Errmsg, "tcp/pop: unknown service"); | |
563 return NOTOK; | |
23 | 564 } |
565 | |
120 | 566 sin.sin_family = hp->h_addrtype; |
567 bcopy (hp->h_addr, (char *)&sin.sin_addr, hp->h_length); | |
568 sin.sin_port = sp->s_port; | |
569 s = rresvport (&lport); | |
570 if (s < 0) | |
571 { | |
572 sprintf (Errmsg, "error creating socket: %s", get_errmsg ()); | |
573 return NOTOK; | |
23 | 574 } |
575 | |
120 | 576 if (connect (s, (char *)&sin, sizeof sin) < 0) |
577 { | |
578 sprintf (Errmsg, "error during connect: %s", get_errmsg ()); | |
579 close (s); | |
580 return NOTOK; | |
23 | 581 } |
582 | |
120 | 583 sfi = fdopen (s, "r"); |
584 sfo = fdopen (s, "w"); | |
585 if (sfi == NULL || sfo == NULL) | |
586 { | |
587 sprintf (Errmsg, "error in fdopen: %s", get_errmsg ()); | |
588 close (s); | |
589 return NOTOK; | |
23 | 590 } |
591 | |
120 | 592 return OK; |
23 | 593 } |
594 | |
120 | 595 pop_command (fmt, a, b, c, d) |
596 char *fmt; | |
23 | 597 { |
120 | 598 char buf[128]; |
599 char errmsg[64]; | |
600 | |
601 sprintf (buf, fmt, a, b, c, d); | |
23 | 602 |
120 | 603 if (debug) fprintf (stderr, "---> %s\n", buf); |
604 if (putline (buf, Errmsg, sfo) == NOTOK) return NOTOK; | |
23 | 605 |
120 | 606 if (getline (buf, sizeof buf, sfi) != OK) |
607 { | |
608 strcpy (Errmsg, buf); | |
609 return NOTOK; | |
23 | 610 } |
611 | |
447
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
612 if (debug) |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
613 fprintf (stderr, "<--- %s\n", buf); |
120 | 614 if (*buf != '+') |
615 { | |
616 strcpy (Errmsg, buf); | |
617 return NOTOK; | |
618 } | |
619 else | |
620 { | |
621 return OK; | |
23 | 622 } |
623 } | |
624 | |
625 | |
120 | 626 pop_stat (nmsgs, nbytes) |
627 int *nmsgs, *nbytes; | |
23 | 628 { |
120 | 629 char buf[128]; |
23 | 630 |
447
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
631 if (debug) |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
632 fprintf (stderr, "---> STAT\n"); |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
633 if (putline ("STAT", Errmsg, sfo) == NOTOK) |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
634 return NOTOK; |
23 | 635 |
120 | 636 if (getline (buf, sizeof buf, sfi) != OK) |
637 { | |
638 strcpy (Errmsg, buf); | |
639 return NOTOK; | |
23 | 640 } |
641 | |
120 | 642 if (debug) fprintf (stderr, "<--- %s\n", buf); |
643 if (*buf != '+') | |
644 { | |
645 strcpy (Errmsg, buf); | |
646 return NOTOK; | |
647 } | |
648 else | |
649 { | |
650 sscanf (buf, "+OK %d %d", nmsgs, nbytes); | |
651 return OK; | |
23 | 652 } |
653 } | |
654 | |
120 | 655 pop_retr (msgno, action, arg) |
656 int (*action)(); | |
23 | 657 { |
120 | 658 char buf[128]; |
23 | 659 |
120 | 660 sprintf (buf, "RETR %d", msgno); |
661 if (debug) fprintf (stderr, "%s\n", buf); | |
662 if (putline (buf, Errmsg, sfo) == NOTOK) return NOTOK; | |
23 | 663 |
120 | 664 if (getline (buf, sizeof buf, sfi) != OK) |
665 { | |
666 strcpy (Errmsg, buf); | |
667 return NOTOK; | |
23 | 668 } |
669 | |
120 | 670 while (1) |
671 { | |
672 switch (multiline (buf, sizeof buf, sfi)) | |
673 { | |
23 | 674 case OK: |
120 | 675 (*action)(buf, arg); |
676 break; | |
23 | 677 case DONE: |
120 | 678 return OK; |
23 | 679 case NOTOK: |
120 | 680 strcpy (Errmsg, buf); |
681 return NOTOK; | |
23 | 682 } |
683 } | |
684 } | |
685 | |
120 | 686 getline (buf, n, f) |
687 char *buf; | |
688 register int n; | |
689 FILE *f; | |
23 | 690 { |
120 | 691 register char *p; |
692 int c; | |
23 | 693 |
120 | 694 p = buf; |
695 while (--n > 0 && (c = fgetc (f)) != EOF) | |
696 if ((*p++ = c) == '\n') break; | |
23 | 697 |
120 | 698 if (ferror (f)) |
699 { | |
700 strcpy (buf, "error on connection"); | |
701 return NOTOK; | |
702 } | |
703 | |
704 if (c == EOF && p == buf) | |
705 { | |
706 strcpy (buf, "connection closed by foreign host"); | |
707 return DONE; | |
23 | 708 } |
709 | |
120 | 710 *p = NULL; |
711 if (*--p == '\n') *p = NULL; | |
712 if (*--p == '\r') *p = NULL; | |
713 return OK; | |
23 | 714 } |
715 | |
120 | 716 multiline (buf, n, f) |
717 char *buf; | |
718 register int n; | |
719 FILE *f; | |
23 | 720 { |
447
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
721 if (getline (buf, n, f) != OK) |
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
722 return NOTOK; |
120 | 723 if (*buf == '.') |
724 { | |
725 if (*(buf+1) == NULL) | |
447
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
726 return DONE; |
120 | 727 else |
447
2e226dcdaf0f
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
351
diff
changeset
|
728 strcpy (buf, buf+1); |
23 | 729 } |
120 | 730 return OK; |
23 | 731 } |
732 | |
733 char * | |
120 | 734 get_errmsg () |
23 | 735 { |
120 | 736 extern int errno, sys_nerr; |
737 extern char *sys_errlist[]; | |
738 char *s; | |
23 | 739 |
120 | 740 if (errno < sys_nerr) |
741 s = sys_errlist[errno]; | |
742 else | |
743 s = "unknown error"; | |
744 return (s); | |
23 | 745 } |
746 | |
120 | 747 putline (buf, err, f) |
748 char *buf; | |
749 char *err; | |
750 FILE *f; | |
23 | 751 { |
120 | 752 fprintf (f, "%s\r\n", buf); |
753 fflush (f); | |
754 if (ferror (f)) | |
755 { | |
756 strcpy (err, "lost connection"); | |
757 return NOTOK; | |
23 | 758 } |
120 | 759 return OK; |
23 | 760 } |
761 | |
120 | 762 mbx_write (line, mbf) |
763 char *line; | |
764 FILE *mbf; | |
23 | 765 { |
120 | 766 fputs (line, mbf); |
767 fputc (0x0a, mbf); | |
23 | 768 } |
769 | |
120 | 770 mbx_delimit_begin (mbf) |
771 FILE *mbf; | |
23 | 772 { |
127
762710f7381a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
120
diff
changeset
|
773 fputs ("\f\n0, unseen,,\n", mbf); |
23 | 774 } |
775 | |
120 | 776 mbx_delimit_end (mbf) |
777 FILE *mbf; | |
23 | 778 { |
120 | 779 putc ('\037', mbf); |
23 | 780 } |
781 | |
782 #endif /* MAIL_USE_POP */ |