Mercurial > emacs

annotate lib-src/movemail.c @ 81615:059caeb1f502

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[HAVE_GTK_AND_PTHREAD] Check this after including config.h. (_aligned_blocks_mutex) [USE_PTHREAD]: New variable. (LOCK_ALIGNED_BLOCKS, UNLOCK_ALIGNED_BLOCKS): New macros. (_free_internal, memalign): Use them. (_malloc_mutex, _aligned_blocks_mutex) [USE_PTHREAD]: Initialize to PTHREAD_MUTEX_INITIALIZER. (malloc_initialize_1) [USE_PTHREAD]: Don't use recursive mutex. (morecore_nolock): Rename from morecore. All uses changed. Use only nolock versions of internal allocation functions. (_malloc_internal_nolock, _realloc_internal_nolock) (_free_internal_nolock): New functions created from _malloc_internal, _realloc_internal, and _free_internal. (_malloc_internal, _realloc_internal, _free_internal): Use them. Copy hook value to automatic variable before its use. (memalign): Copy hook value to automatic variable before its use.
author YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
date Tue, 26 Jun 2007 03:28:07 +0000 (2007-06-26)
parents 6d19c76d81c5
children 1f2482de3237 95d0cdf160ea
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1 /* movemail foo bar -- move file foo to file bar,
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2 locking file foo the way /bin/mail respects.
75250
6d19c76d81c5 Update copyright for years from Emacs 21 to present (mainly adding
Glenn Morris <rgm@gnu.org>
parents: 70280
diff changeset
3 Copyright (C) 1986, 1992, 1993, 1994, 1996, 1999, 2001, 2002, 2003, 2004,
6d19c76d81c5 Update copyright for years from Emacs 21 to present (mainly adding
Glenn Morris <rgm@gnu.org>
parents: 70280
diff changeset
4 2005, 2006, 2007 Free Software Foundation, Inc.
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6 This file is part of GNU Emacs.
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7
38
056b931d312b *** empty log message ***
Joseph Arceneaux <jla@gnu.org>
parents: 27
diff changeset
8 GNU Emacs is free software; you can redistribute it and/or modify
056b931d312b *** empty log message ***
Joseph Arceneaux <jla@gnu.org>
parents: 27
diff changeset
9 it under the terms of the GNU General Public License as published by
5524
f14a0fe979d9 (get_errmsg, pfatal_with_name, pfatal_and_delete): Call strerror instead of
Roland McGrath <roland@gnu.org>
parents: 5446
diff changeset
10 the Free Software Foundation; either version 2, or (at your option)
38
056b931d312b *** empty log message ***
Joseph Arceneaux <jla@gnu.org>
parents: 27
diff changeset
11 any later version.
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12
38
056b931d312b *** empty log message ***
Joseph Arceneaux <jla@gnu.org>
parents: 27
diff changeset
13 GNU Emacs is distributed in the hope that it will be useful,
056b931d312b *** empty log message ***
Joseph Arceneaux <jla@gnu.org>
parents: 27
diff changeset
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
056b931d312b *** empty log message ***
Joseph Arceneaux <jla@gnu.org>
parents: 27
diff changeset
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
056b931d312b *** empty log message ***
Joseph Arceneaux <jla@gnu.org>
parents: 27
diff changeset
16 GNU General Public License for more details.
056b931d312b *** empty log message ***
Joseph Arceneaux <jla@gnu.org>
parents: 27
diff changeset
17
056b931d312b *** empty log message ***
Joseph Arceneaux <jla@gnu.org>
parents: 27
diff changeset
18 You should have received a copy of the GNU General Public License
056b931d312b *** empty log message ***
Joseph Arceneaux <jla@gnu.org>
parents: 27
diff changeset
19 along with GNU Emacs; see the file COPYING. If not, write to
64083
23a17af379b1 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 59918
diff changeset
20 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
23a17af379b1 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 59918
diff changeset
21 Boston, MA 02110-1301, USA. */
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22
6690
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
23 /* Important notice: defining MAIL_USE_FLOCK or MAIL_USE_LOCKF *will
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
24 cause loss of mail* if you do it on a system that does not normally
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
25 use flock as its way of interlocking access to inbox files. The
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
26 setting of MAIL_USE_FLOCK and MAIL_USE_LOCKF *must agree* with the
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
27 system's own conventions. It is not a choice that is up to you.
510
4eaef1578a15 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 447
diff changeset
28
4eaef1578a15 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 447
diff changeset
29 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
30 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
31 This means you must either give that directory access modes
4eaef1578a15 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 447
diff changeset
32 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
33 a setuid or setgid program. */
4eaef1578a15 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 447
diff changeset
34
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35 /*
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36 * Modified January, 1986 by Michael R. Gretzinger (Project Athena)
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37 *
14649
2925c3f0d038 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
38 * Added POP (Post Office Protocol) service. When compiled -DMAIL_USE_POP
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39 * movemail will accept input filename arguments of the form
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40 * "po:username". This will cause movemail to open a connection to
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41 * a pop server running on $MAILHOST (environment variable). Movemail
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
42 * must be setuid to root in order to work with POP.
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48314
diff changeset
43 *
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44 * New module: popmail.c
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
45 * Modified routines:
447
2e226dcdaf0f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 351
diff changeset
46 * main - added code within #ifdef MAIL_USE_POP; added setuid (getuid ())
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48314
diff changeset
47 * after POP code.
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48 * New routines in movemail.c:
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49 * get_errmsg - return pointer to system error message
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50 *
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
51 * Modified August, 1993 by Jonathan Kamens (OpenVision Technologies)
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
52 *
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
53 * Move all of the POP code into a separate file, "pop.c".
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
54 * Use strerror instead of get_errmsg.
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
55 *
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
56 */
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
57
8449
805f9284065b Include config.h first thing.
Richard M. Stallman <rms@gnu.org>
parents: 6862
diff changeset
58 #define NO_SHORTNAMES /* Tell config not to load remap.h */
29046
7d5565d3cf32 Include config.h, not ../src/config.h.
Dave Love <fx@gnu.org>
parents: 27507
diff changeset
59 #include <config.h>
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
60 #include <sys/types.h>
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61 #include <sys/stat.h>
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
62 #include <sys/file.h>
9490
4e70299f958d Make functions that return nothing void, not implicitly int.
David J. MacKenzie <djm@gnu.org>
parents: 9157
diff changeset
63 #include <stdio.h>
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
64 #include <errno.h>
31233
77ed917b12ee (toplevel) [HAVE_STRING_H]: Include string.h.
Dave Love <fx@gnu.org>
parents: 31080
diff changeset
65
16909
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
66 #include <getopt.h>
31317
d431eeb4028f (toplevel): Remove redundant <fcntl.h>. Provide definitions for F_OK
Eli Zaretskii <eliz@gnu.org>
parents: 31274
diff changeset
67 #ifdef HAVE_UNISTD_H
d431eeb4028f (toplevel): Remove redundant <fcntl.h>. Provide definitions for F_OK
Eli Zaretskii <eliz@gnu.org>
parents: 31274
diff changeset
68 #include <unistd.h>
d431eeb4028f (toplevel): Remove redundant <fcntl.h>. Provide definitions for F_OK
Eli Zaretskii <eliz@gnu.org>
parents: 31274
diff changeset
69 #endif
31233
77ed917b12ee (toplevel) [HAVE_STRING_H]: Include string.h.
Dave Love <fx@gnu.org>
parents: 31080
diff changeset
70 #ifdef HAVE_FCNTL_H
77ed917b12ee (toplevel) [HAVE_STRING_H]: Include string.h.
Dave Love <fx@gnu.org>
parents: 31080
diff changeset
71 #include <fcntl.h>
77ed917b12ee (toplevel) [HAVE_STRING_H]: Include string.h.
Dave Love <fx@gnu.org>
parents: 31080
diff changeset
72 #endif
31317
d431eeb4028f (toplevel): Remove redundant <fcntl.h>. Provide definitions for F_OK
Eli Zaretskii <eliz@gnu.org>
parents: 31274
diff changeset
73 #include "syswait.h"
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
74 #ifdef MAIL_USE_POP
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
75 #include "pop.h"
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
76 #endif
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
77
5446
726a3dc867a6 (malloc): Don't declare it.
Richard M. Stallman <rms@gnu.org>
parents: 5435
diff changeset
78 #ifdef MSDOS
726a3dc867a6 (malloc): Don't declare it.
Richard M. Stallman <rms@gnu.org>
parents: 5435
diff changeset
79 #undef access
726a3dc867a6 (malloc): Don't declare it.
Richard M. Stallman <rms@gnu.org>
parents: 5435
diff changeset
80 #endif /* MSDOS */
726a3dc867a6 (malloc): Don't declare it.
Richard M. Stallman <rms@gnu.org>
parents: 5435
diff changeset
81
15105
328889a58f6d (DIRECTORY_SEP, IS_DIRECTORY_SEP): Definitions copied from lisp.h.
Richard M. Stallman <rms@gnu.org>
parents: 15101
diff changeset
82 #ifndef DIRECTORY_SEP
328889a58f6d (DIRECTORY_SEP, IS_DIRECTORY_SEP): Definitions copied from lisp.h.
Richard M. Stallman <rms@gnu.org>
parents: 15101
diff changeset
83 #define DIRECTORY_SEP '/'
328889a58f6d (DIRECTORY_SEP, IS_DIRECTORY_SEP): Definitions copied from lisp.h.
Richard M. Stallman <rms@gnu.org>
parents: 15101
diff changeset
84 #endif
328889a58f6d (DIRECTORY_SEP, IS_DIRECTORY_SEP): Definitions copied from lisp.h.
Richard M. Stallman <rms@gnu.org>
parents: 15101
diff changeset
85 #ifndef IS_DIRECTORY_SEP
328889a58f6d (DIRECTORY_SEP, IS_DIRECTORY_SEP): Definitions copied from lisp.h.
Richard M. Stallman <rms@gnu.org>
parents: 15101
diff changeset
86 #define IS_DIRECTORY_SEP(_c_) ((_c_) == DIRECTORY_SEP)
328889a58f6d (DIRECTORY_SEP, IS_DIRECTORY_SEP): Definitions copied from lisp.h.
Richard M. Stallman <rms@gnu.org>
parents: 15101
diff changeset
87 #endif
328889a58f6d (DIRECTORY_SEP, IS_DIRECTORY_SEP): Definitions copied from lisp.h.
Richard M. Stallman <rms@gnu.org>
parents: 15101
diff changeset
88
15101
f86169152e74 (access, unlink) [WINDOWSNT]: Macros undefined.
Richard M. Stallman <rms@gnu.org>
parents: 14649
diff changeset
89 #ifdef WINDOWSNT
21905
b1e64615e700 [WINDOWSNT]: Undefine DISABLE_DIRECT_ACCESS. Force
Richard M. Stallman <rms@gnu.org>
parents: 21396
diff changeset
90 #include "ntlib.h"
15101
f86169152e74 (access, unlink) [WINDOWSNT]: Macros undefined.
Richard M. Stallman <rms@gnu.org>
parents: 14649
diff changeset
91 #undef access
f86169152e74 (access, unlink) [WINDOWSNT]: Macros undefined.
Richard M. Stallman <rms@gnu.org>
parents: 14649
diff changeset
92 #undef unlink
f86169152e74 (access, unlink) [WINDOWSNT]: Macros undefined.
Richard M. Stallman <rms@gnu.org>
parents: 14649
diff changeset
93 #define fork() 0
22316
95d38cf99591 (sys_wait): Rename to wait.
Andrew Innes <andrewi@gnu.org>
parents: 22235
diff changeset
94 #define wait(var) (*(var) = 0)
15101
f86169152e74 (access, unlink) [WINDOWSNT]: Macros undefined.
Richard M. Stallman <rms@gnu.org>
parents: 14649
diff changeset
95 /* Unfortunately, Samba doesn't seem to properly lock Unix files even
f86169152e74 (access, unlink) [WINDOWSNT]: Macros undefined.
Richard M. Stallman <rms@gnu.org>
parents: 14649
diff changeset
96 though the locking call succeeds (and indeed blocks local access from
f86169152e74 (access, unlink) [WINDOWSNT]: Macros undefined.
Richard M. Stallman <rms@gnu.org>
parents: 14649
diff changeset
97 other NT programs). If you have direct file access using an NFS
f86169152e74 (access, unlink) [WINDOWSNT]: Macros undefined.
Richard M. Stallman <rms@gnu.org>
parents: 14649
diff changeset
98 client or something other than Samba, the locking call might work
21905
b1e64615e700 [WINDOWSNT]: Undefine DISABLE_DIRECT_ACCESS. Force
Richard M. Stallman <rms@gnu.org>
parents: 21396
diff changeset
99 properly - make sure it does before you enable this!
b1e64615e700 [WINDOWSNT]: Undefine DISABLE_DIRECT_ACCESS. Force
Richard M. Stallman <rms@gnu.org>
parents: 21396
diff changeset
100
b1e64615e700 [WINDOWSNT]: Undefine DISABLE_DIRECT_ACCESS. Force
Richard M. Stallman <rms@gnu.org>
parents: 21396
diff changeset
101 [18-Feb-97 andrewi] I now believe my comment above to be incorrect,
b1e64615e700 [WINDOWSNT]: Undefine DISABLE_DIRECT_ACCESS. Force
Richard M. Stallman <rms@gnu.org>
parents: 21396
diff changeset
102 since it was based on a misunderstanding of how locking calls are
b1e64615e700 [WINDOWSNT]: Undefine DISABLE_DIRECT_ACCESS. Force
Richard M. Stallman <rms@gnu.org>
parents: 21396
diff changeset
103 implemented and used on Unix. */
b1e64615e700 [WINDOWSNT]: Undefine DISABLE_DIRECT_ACCESS. Force
Richard M. Stallman <rms@gnu.org>
parents: 21396
diff changeset
104 //#define DISABLE_DIRECT_ACCESS
b1e64615e700 [WINDOWSNT]: Undefine DISABLE_DIRECT_ACCESS. Force
Richard M. Stallman <rms@gnu.org>
parents: 21396
diff changeset
105
b1e64615e700 [WINDOWSNT]: Undefine DISABLE_DIRECT_ACCESS. Force
Richard M. Stallman <rms@gnu.org>
parents: 21396
diff changeset
106 #include <fcntl.h>
15101
f86169152e74 (access, unlink) [WINDOWSNT]: Macros undefined.
Richard M. Stallman <rms@gnu.org>
parents: 14649
diff changeset
107 #endif /* WINDOWSNT */
f86169152e74 (access, unlink) [WINDOWSNT]: Macros undefined.
Richard M. Stallman <rms@gnu.org>
parents: 14649
diff changeset
108
27
f60b88b46f97 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 25
diff changeset
109 #ifndef F_OK
f60b88b46f97 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 25
diff changeset
110 #define F_OK 0
f60b88b46f97 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 25
diff changeset
111 #define X_OK 1
f60b88b46f97 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 25
diff changeset
112 #define W_OK 2
f60b88b46f97 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 25
diff changeset
113 #define R_OK 4
f60b88b46f97 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 25
diff changeset
114 #endif
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
115
15101
f86169152e74 (access, unlink) [WINDOWSNT]: Macros undefined.
Richard M. Stallman <rms@gnu.org>
parents: 14649
diff changeset
116 #if defined (XENIX) || defined (WINDOWSNT)
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
117 #include <sys/locking.h>
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
118 #endif
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
119
6690
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
120 #ifdef MAIL_USE_LOCKF
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
121 #define MAIL_USE_SYSTEM_LOCK
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
122 #endif
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
123
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
124 #ifdef MAIL_USE_FLOCK
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
125 #define MAIL_USE_SYSTEM_LOCK
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
126 #endif
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
127
25
b446124cdf5a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 23
diff changeset
128 #ifdef MAIL_USE_MMDF
b446124cdf5a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 23
diff changeset
129 extern int lk_open (), lk_close ();
b446124cdf5a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 23
diff changeset
130 #endif
b446124cdf5a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 23
diff changeset
131
16897
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
132 #if !defined (MAIL_USE_SYSTEM_LOCK) && !defined (MAIL_USE_MMDF) && \
51112
b0811540692f Check HAVE_LIBLOCKFILE like HAVE_LIBMAIL.
Dave Love <fx@gnu.org>
parents: 49600
diff changeset
133 (defined (HAVE_LIBMAIL) || defined (HAVE_LIBLOCKFILE)) && \
b0811540692f Check HAVE_LIBLOCKFILE like HAVE_LIBMAIL.
Dave Love <fx@gnu.org>
parents: 49600
diff changeset
134 defined (HAVE_MAILLOCK_H)
16897
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
135 #include <maillock.h>
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
136 /* We can't use maillock unless we know what directory system mail
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
137 files appear in. */
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
138 #ifdef MAILDIR
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
139 #define MAIL_USE_MAILLOCK
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
140 static char *mail_spool_name ();
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
141 #endif
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
142 #endif
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
143
571
3dfecf91a09b *** empty log message ***
David J. MacKenzie <djm@gnu.org>
parents: 510
diff changeset
144 #ifndef errno
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
145 extern int errno;
571
3dfecf91a09b *** empty log message ***
David J. MacKenzie <djm@gnu.org>
parents: 510
diff changeset
146 #endif
9490
4e70299f958d Make functions that return nothing void, not implicitly int.
David J. MacKenzie <djm@gnu.org>
parents: 9157
diff changeset
147 char *strerror ();
31376
f5cd669613d2 (index, rindex): Prototype conditionally.
Dave Love <fx@gnu.org>
parents: 31317
diff changeset
148 #ifdef HAVE_INDEX
f5cd669613d2 (index, rindex): Prototype conditionally.
Dave Love <fx@gnu.org>
parents: 31317
diff changeset
149 extern char *index __P ((const char *, int));
f5cd669613d2 (index, rindex): Prototype conditionally.
Dave Love <fx@gnu.org>
parents: 31317
diff changeset
150 #endif
f5cd669613d2 (index, rindex): Prototype conditionally.
Dave Love <fx@gnu.org>
parents: 31317
diff changeset
151 #ifdef HAVE_RINDEX
f5cd669613d2 (index, rindex): Prototype conditionally.
Dave Love <fx@gnu.org>
parents: 31317
diff changeset
152 extern char *rindex __P((const char *, int));
f5cd669613d2 (index, rindex): Prototype conditionally.
Dave Love <fx@gnu.org>
parents: 31317
diff changeset
153 #endif
9490
4e70299f958d Make functions that return nothing void, not implicitly int.
David J. MacKenzie <djm@gnu.org>
parents: 9157
diff changeset
154
4e70299f958d Make functions that return nothing void, not implicitly int.
David J. MacKenzie <djm@gnu.org>
parents: 9157
diff changeset
155 void fatal ();
4e70299f958d Make functions that return nothing void, not implicitly int.
David J. MacKenzie <djm@gnu.org>
parents: 9157
diff changeset
156 void error ();
4e70299f958d Make functions that return nothing void, not implicitly int.
David J. MacKenzie <djm@gnu.org>
parents: 9157
diff changeset
157 void pfatal_with_name ();
4e70299f958d Make functions that return nothing void, not implicitly int.
David J. MacKenzie <djm@gnu.org>
parents: 9157
diff changeset
158 void pfatal_and_delete ();
4e70299f958d Make functions that return nothing void, not implicitly int.
David J. MacKenzie <djm@gnu.org>
parents: 9157
diff changeset
159 char *concat ();
11675
496576df5d46 (xmalloc): Declare it to return long *.
Richard M. Stallman <rms@gnu.org>
parents: 10399
diff changeset
160 long *xmalloc ();
9490
4e70299f958d Make functions that return nothing void, not implicitly int.
David J. MacKenzie <djm@gnu.org>
parents: 9157
diff changeset
161 int popmail ();
4e70299f958d Make functions that return nothing void, not implicitly int.
David J. MacKenzie <djm@gnu.org>
parents: 9157
diff changeset
162 int pop_retr ();
4e70299f958d Make functions that return nothing void, not implicitly int.
David J. MacKenzie <djm@gnu.org>
parents: 9157
diff changeset
163 int mbx_write ();
4e70299f958d Make functions that return nothing void, not implicitly int.
David J. MacKenzie <djm@gnu.org>
parents: 9157
diff changeset
164 int mbx_delimit_begin ();
4e70299f958d Make functions that return nothing void, not implicitly int.
David J. MacKenzie <djm@gnu.org>
parents: 9157
diff changeset
165 int mbx_delimit_end ();
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
166
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
167 /* Nonzero means this is name of a lock file to delete on fatal error. */
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
168 char *delete_lockname;
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
169
9490
4e70299f958d Make functions that return nothing void, not implicitly int.
David J. MacKenzie <djm@gnu.org>
parents: 9157
diff changeset
170 int
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
171 main (argc, argv)
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
172 int argc;
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
173 char **argv;
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
174 {
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
175 char *inname, *outname;
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
176 int indesc, outdesc;
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
177 int nread;
5435
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
178 WAITTYPE status;
16909
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
179 int c, preserve_mail = 0;
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
180
6690
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
181 #ifndef MAIL_USE_SYSTEM_LOCK
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
182 struct stat st;
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
183 long now;
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
184 int tem;
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
185 char *lockname, *p;
601
3db1540d4b97 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 580
diff changeset
186 char *tempname;
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
187 int desc;
6690
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
188 #endif /* not MAIL_USE_SYSTEM_LOCK */
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
189
16897
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
190 #ifdef MAIL_USE_MAILLOCK
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
191 char *spool_name;
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
192 #endif
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
193
23182
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
194 #ifdef MAIL_USE_POP
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
195 int pop_reverse_order = 0;
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
196 # define ARGSTR "pr"
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
197 #else /* ! MAIL_USE_POP */
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
198 # define ARGSTR "p"
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
199 #endif /* MAIL_USE_POP */
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
200
31080
7ae519dba237 (main) [WINDOWSNT]: Force binary mode for fileio.
Andrew Innes <andrewi@gnu.org>
parents: 29046
diff changeset
201 #ifdef WINDOWSNT
7ae519dba237 (main) [WINDOWSNT]: Force binary mode for fileio.
Andrew Innes <andrewi@gnu.org>
parents: 29046
diff changeset
202 /* Ensure all file i/o is in binary mode. */
7ae519dba237 (main) [WINDOWSNT]: Force binary mode for fileio.
Andrew Innes <andrewi@gnu.org>
parents: 29046
diff changeset
203 _fmode = _O_BINARY;
7ae519dba237 (main) [WINDOWSNT]: Force binary mode for fileio.
Andrew Innes <andrewi@gnu.org>
parents: 29046
diff changeset
204 #endif
7ae519dba237 (main) [WINDOWSNT]: Force binary mode for fileio.
Andrew Innes <andrewi@gnu.org>
parents: 29046
diff changeset
205
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
206 delete_lockname = 0;
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
207
23182
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
208 while ((c = getopt (argc, argv, ARGSTR)) != EOF)
9490
4e70299f958d Make functions that return nothing void, not implicitly int.
David J. MacKenzie <djm@gnu.org>
parents: 9157
diff changeset
209 {
16909
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
210 switch (c) {
23182
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
211 #ifdef MAIL_USE_POP
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
212 case 'r':
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
213 pop_reverse_order = 1;
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
214 break;
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
215 #endif
16909
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
216 case 'p':
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
217 preserve_mail++;
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
218 break;
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
219 default:
55442
a47704955f8d Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
220 exit (EXIT_FAILURE);
16909
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
221 }
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
222 }
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
223
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
224 if (
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
225 #ifdef MAIL_USE_POP
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
226 (argc - optind < 2) || (argc - optind > 3)
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
227 #else
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
228 (argc - optind != 2)
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
229 #endif
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
230 )
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
231 {
52069
76d453ac3c4f (main): Fix having macros in a printf statement.
Juanma Barranquero <lekktu@gmail.com>
parents: 51112
diff changeset
232 #ifdef MAIL_USE_POP
22235
ee90e9da3a70 Undo this previous change:
Richard M. Stallman <rms@gnu.org>
parents: 21905
diff changeset
233 fprintf (stderr, "Usage: movemail [-p] inbox destfile%s\n",
52069
76d453ac3c4f (main): Fix having macros in a printf statement.
Juanma Barranquero <lekktu@gmail.com>
parents: 51112
diff changeset
234 " [POP-password]");
16909
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
235 #else
52069
76d453ac3c4f (main): Fix having macros in a printf statement.
Juanma Barranquero <lekktu@gmail.com>
parents: 51112
diff changeset
236 fprintf (stderr, "Usage: movemail [-p] inbox destfile%s\n", "");
16909
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
237 #endif
55442
a47704955f8d Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
238 exit (EXIT_FAILURE);
9490
4e70299f958d Make functions that return nothing void, not implicitly int.
David J. MacKenzie <djm@gnu.org>
parents: 9157
diff changeset
239 }
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
240
16909
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
241 inname = argv[optind];
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
242 outname = argv[optind+1];
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
243
25
b446124cdf5a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 23
diff changeset
244 #ifdef MAIL_USE_MMDF
b446124cdf5a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 23
diff changeset
245 mmdf_init (argv[0]);
b446124cdf5a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 23
diff changeset
246 #endif
b446124cdf5a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 23
diff changeset
247
12793
0464324deda7 (main): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12777
diff changeset
248 if (*outname == 0)
59918
5a468b3bfb27 (fatal): Accept third parameter and pass down to
Andreas Schwab <schwab@suse.de>
parents: 59775
diff changeset
249 fatal ("Destination file name is empty", 0, 0);
12793
0464324deda7 (main): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12777
diff changeset
250
120
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
251 /* Check access to output file. */
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
252 if (access (outname, F_OK) == 0 && access (outname, W_OK) != 0)
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
253 pfatal_with_name (outname);
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
254
14036
621a575db6f7 Comment fixes.
Karl Heuer <kwzh@gnu.org>
parents: 12793
diff changeset
255 /* Also check that outname's directory is writable to the real uid. */
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
256 {
5446
726a3dc867a6 (malloc): Don't declare it.
Richard M. Stallman <rms@gnu.org>
parents: 5435
diff changeset
257 char *buf = (char *) xmalloc (strlen (outname) + 1);
9490
4e70299f958d Make functions that return nothing void, not implicitly int.
David J. MacKenzie <djm@gnu.org>
parents: 9157
diff changeset
258 char *p;
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
259 strcpy (buf, outname);
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
260 p = buf + strlen (buf);
15101
f86169152e74 (access, unlink) [WINDOWSNT]: Macros undefined.
Richard M. Stallman <rms@gnu.org>
parents: 14649
diff changeset
261 while (p > buf && !IS_DIRECTORY_SEP (p[-1]))
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
262 *--p = 0;
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
263 if (p == buf)
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
264 *p++ = '.';
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
265 if (access (buf, W_OK) != 0)
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
266 pfatal_with_name (buf);
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
267 free (buf);
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
268 }
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
269
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
270 #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
271 if (!strncmp (inname, "po:", 3))
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
272 {
12442
981986d7d82f (main) [MAIL_USE_POP]: When a user specifies a
Richard M. Stallman <rms@gnu.org>
parents: 12389
diff changeset
273 int status;
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
274
16909
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
275 status = popmail (inname + 3, outname, preserve_mail,
23182
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
276 (argc - optind == 3) ? argv[optind+2] : NULL,
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
277 pop_reverse_order);
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
278 exit (status);
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
279 }
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
280
447
2e226dcdaf0f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 351
diff changeset
281 setuid (getuid ());
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
282 #endif /* MAIL_USE_POP */
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
283
15101
f86169152e74 (access, unlink) [WINDOWSNT]: Macros undefined.
Richard M. Stallman <rms@gnu.org>
parents: 14649
diff changeset
284 #ifndef DISABLE_DIRECT_ACCESS
f86169152e74 (access, unlink) [WINDOWSNT]: Macros undefined.
Richard M. Stallman <rms@gnu.org>
parents: 14649
diff changeset
285
120
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
286 /* Check access to input file. */
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
287 if (access (inname, R_OK | W_OK) != 0)
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
288 pfatal_with_name (inname);
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
289
25
b446124cdf5a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 23
diff changeset
290 #ifndef MAIL_USE_MMDF
6690
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
291 #ifndef MAIL_USE_SYSTEM_LOCK
16897
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
292 #ifdef MAIL_USE_MAILLOCK
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
293 spool_name = mail_spool_name (inname);
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
294 if (! spool_name)
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
295 #endif
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
296 {
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
297 /* Use a lock file named after our first argument with .lock appended:
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
298 If it exists, the mail file is locked. */
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
299 /* Note: this locking mechanism is *required* by the mailer
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
300 (on systems which use it) to prevent loss of mail.
351
5729b1cc3942 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 127
diff changeset
301
16897
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
302 On systems that use a lock file, extracting the mail without locking
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
303 WILL occasionally cause loss of mail due to timing errors!
351
5729b1cc3942 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 127
diff changeset
304
16897
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
305 So, if creation of the lock file fails
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
306 due to access permission on the mail spool directory,
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
307 you simply MUST change the permission
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
308 and/or make movemail a setgid program
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
309 so it can create lock files properly.
351
5729b1cc3942 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 127
diff changeset
310
16897
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
311 You might also wish to verify that your system is one
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
312 which uses lock files for this purpose. Some systems use other methods.
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
313
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
314 If your system uses the `flock' system call for mail locking,
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
315 define MAIL_USE_SYSTEM_LOCK in config.h or the s-*.h file
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
316 and recompile movemail. If the s- file for your system
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
317 should define MAIL_USE_SYSTEM_LOCK but does not, send a bug report
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
318 to bug-gnu-emacs@prep.ai.mit.edu so we can fix it. */
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
319
16897
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
320 lockname = concat (inname, ".lock", "");
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
321 tempname = (char *) xmalloc (strlen (inname) + strlen ("EXXXXXX") + 1);
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
322 strcpy (tempname, inname);
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
323 p = tempname + strlen (tempname);
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
324 while (p != tempname && !IS_DIRECTORY_SEP (p[-1]))
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
325 p--;
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
326 *p = 0;
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
327 strcpy (p, "EXXXXXX");
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
328 mktemp (tempname);
447
2e226dcdaf0f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 351
diff changeset
329 unlink (tempname);
16897
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
330
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
331 while (1)
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
332 {
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
333 /* Create the lock file, but not under the lock file name. */
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
334 /* Give up if cannot do that. */
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
335 desc = open (tempname, O_WRONLY | O_CREAT | O_EXCL, 0666);
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
336 if (desc < 0)
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
337 {
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
338 char *message = (char *) xmalloc (strlen (tempname) + 50);
27507
b7db0c0368dc Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 27504
diff changeset
339 sprintf (message, "creating %s, which would become the lock file",
16897
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
340 tempname);
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
341 pfatal_with_name (message);
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
342 }
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
343 close (desc);
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
344
16897
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
345 tem = link (tempname, lockname);
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
346 unlink (tempname);
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
347 if (tem >= 0)
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
348 break;
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
349 sleep (1);
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
350
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
351 /* If lock file is five minutes old, unlock it.
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
352 Five minutes should be good enough to cope with crashes
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
353 and wedgitude, and long enough to avoid being fooled
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
354 by time differences between machines. */
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
355 if (stat (lockname, &st) >= 0)
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
356 {
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
357 now = time (0);
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
358 if (st.st_ctime < now - 300)
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
359 unlink (lockname);
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
360 }
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
361 }
16897
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
362
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
363 delete_lockname = lockname;
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
364 }
6690
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
365 #endif /* not MAIL_USE_SYSTEM_LOCK */
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
366 #endif /* not MAIL_USE_MMDF */
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
367
5435
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
368 if (fork () == 0)
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
369 {
16366
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
370 int lockcount = 0;
16897
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
371 int status = 0;
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
372 #if defined (MAIL_USE_MAILLOCK) && defined (HAVE_TOUCHLOCK)
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
373 long touched_lock, now;
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
374 #endif
16366
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
375
6813
76f93e487956 (main): Use setuid, not seteuid.
Karl Heuer <kwzh@gnu.org>
parents: 6690
diff changeset
376 setuid (getuid ());
5435
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
377
6690
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
378 #ifndef MAIL_USE_MMDF
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
379 #ifdef MAIL_USE_SYSTEM_LOCK
5435
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
380 indesc = open (inname, O_RDWR);
6690
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
381 #else /* if not MAIL_USE_SYSTEM_LOCK */
5435
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
382 indesc = open (inname, O_RDONLY);
6690
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
383 #endif /* not MAIL_USE_SYSTEM_LOCK */
5435
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
384 #else /* MAIL_USE_MMDF */
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
385 indesc = lk_open (inname, O_RDONLY, 0, 0, 10);
25
b446124cdf5a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 23
diff changeset
386 #endif /* MAIL_USE_MMDF */
b446124cdf5a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 23
diff changeset
387
5435
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
388 if (indesc < 0)
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
389 pfatal_with_name (inname);
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
390
16218
32f82ca8b41f Replaced all BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents: 15105
diff changeset
391 #if defined (BSD_SYSTEM) || defined (XENIX)
5435
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
392 /* In case movemail is setuid to root, make sure the user can
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
393 read the output file. */
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
394 /* This is desirable for all systems
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
395 but I don't want to assume all have the umask system call */
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
396 umask (umask (0) & 0333);
16218
32f82ca8b41f Replaced all BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents: 15105
diff changeset
397 #endif /* BSD_SYSTEM || XENIX */
5435
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
398 outdesc = open (outname, O_WRONLY | O_CREAT | O_EXCL, 0666);
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
399 if (outdesc < 0)
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
400 pfatal_with_name (outname);
16366
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
401
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
402 /* This label exists so we can retry locking
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
403 after a delay, if it got EAGAIN or EBUSY. */
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
404 retry_lock:
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
405
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
406 /* Try to lock it. */
16897
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
407 #ifdef MAIL_USE_MAILLOCK
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
408 if (spool_name)
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
409 {
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
410 /* The "0 - " is to make it a negative number if maillock returns
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
411 non-zero. */
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
412 status = 0 - maillock (spool_name, 1);
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
413 #ifdef HAVE_TOUCHLOCK
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
414 touched_lock = time (0);
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
415 #endif
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
416 lockcount = 5;
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
417 }
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
418 else
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
419 #endif /* MAIL_USE_MAILLOCK */
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
420 {
6690
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
421 #ifdef MAIL_USE_SYSTEM_LOCK
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
422 #ifdef MAIL_USE_LOCKF
16897
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
423 status = lockf (indesc, F_LOCK, 0);
6690
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
424 #else /* not MAIL_USE_LOCKF */
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
425 #ifdef XENIX
16897
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
426 status = locking (indesc, LK_RLCK, 0L);
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
427 #else
15101
f86169152e74 (access, unlink) [WINDOWSNT]: Macros undefined.
Richard M. Stallman <rms@gnu.org>
parents: 14649
diff changeset
428 #ifdef WINDOWSNT
16897
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
429 status = locking (indesc, LK_RLCK, -1L);
15101
f86169152e74 (access, unlink) [WINDOWSNT]: Macros undefined.
Richard M. Stallman <rms@gnu.org>
parents: 14649
diff changeset
430 #else
16897
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
431 status = flock (indesc, LOCK_EX);
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
432 #endif
15101
f86169152e74 (access, unlink) [WINDOWSNT]: Macros undefined.
Richard M. Stallman <rms@gnu.org>
parents: 14649
diff changeset
433 #endif
6690
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
434 #endif /* not MAIL_USE_LOCKF */
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
435 #endif /* MAIL_USE_SYSTEM_LOCK */
16897
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
436 }
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
437
16366
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
438 /* If it fails, retry up to 5 times
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
439 for certain failure codes. */
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
440 if (status < 0)
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
441 {
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
442 if (++lockcount <= 5)
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
443 {
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
444 #ifdef EAGAIN
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
445 if (errno == EAGAIN)
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
446 {
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
447 sleep (1);
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
448 goto retry_lock;
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
449 }
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
450 #endif
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
451 #ifdef EBUSY
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
452 if (errno == EBUSY)
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
453 {
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
454 sleep (1);
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
455 goto retry_lock;
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
456 }
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
457 #endif
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
458 }
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
459
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
460 pfatal_with_name (inname);
ed13d19dbce5 (main): If the lock call fails with EBUSY or
Richard M. Stallman <rms@gnu.org>
parents: 16218
diff changeset
461 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48314
diff changeset
462
5435
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
463 {
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
464 char buf[1024];
604
63a8e7b3c547 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 601
diff changeset
465
5435
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
466 while (1)
604
63a8e7b3c547 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 601
diff changeset
467 {
5435
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
468 nread = read (indesc, buf, sizeof buf);
70280
bca72679c7d8 (main): Check for negative value from `read'.
Richard M. Stallman <rms@gnu.org>
parents: 68647
diff changeset
469 if (nread < 0)
bca72679c7d8 (main): Check for negative value from `read'.
Richard M. Stallman <rms@gnu.org>
parents: 68647
diff changeset
470 pfatal_with_name (inname);
5435
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
471 if (nread != write (outdesc, buf, nread))
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
472 {
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
473 int saved_errno = errno;
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
474 unlink (outname);
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
475 errno = saved_errno;
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
476 pfatal_with_name (outname);
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
477 }
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
478 if (nread < sizeof buf)
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
479 break;
16897
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
480 #if defined (MAIL_USE_MAILLOCK) && defined (HAVE_TOUCHLOCK)
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
481 if (spool_name)
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
482 {
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
483 now = time (0);
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
484 if (now - touched_lock > 60)
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
485 {
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
486 touchlock ();
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
487 touched_lock = now;
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
488 }
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
489 }
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
490 #endif /* MAIL_USE_MAILLOCK */
604
63a8e7b3c547 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 601
diff changeset
491 }
63a8e7b3c547 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 601
diff changeset
492 }
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
493
16218
32f82ca8b41f Replaced all BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents: 15105
diff changeset
494 #ifdef BSD_SYSTEM
5435
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
495 if (fsync (outdesc) < 0)
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
496 pfatal_and_delete (outname);
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
497 #endif
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
498
5435
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
499 /* Check to make sure no errors before we zap the inbox. */
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
500 if (close (outdesc) != 0)
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
501 pfatal_and_delete (outname);
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
502
6690
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
503 #ifdef MAIL_USE_SYSTEM_LOCK
16909
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
504 if (! preserve_mail)
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
505 {
24656
a2148e59e0eb (main) [WINDOWSNT]: Call ftruncate, which is now mapped to _chsize.
Andrew Innes <andrewi@gnu.org>
parents: 23290
diff changeset
506 #if defined (STRIDE) || defined (XENIX)
16909
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
507 /* Stride, xenix have file locking, but no ftruncate.
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
508 This mess will do. */
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
509 close (open (inname, O_CREAT | O_TRUNC | O_RDWR, 0666));
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
510 #else
16909
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
511 ftruncate (indesc, 0L);
20760
4f1f4b226cb0 (main): Fix interwoven brace and cpp conditional nesting.
Andreas Schwab <schwab@suse.de>
parents: 20418
diff changeset
512 #endif /* STRIDE or XENIX */
16909
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
513 }
6690
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
514 #endif /* MAIL_USE_SYSTEM_LOCK */
25
b446124cdf5a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 23
diff changeset
515
b446124cdf5a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 23
diff changeset
516 #ifdef MAIL_USE_MMDF
5435
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
517 lk_close (indesc, 0, 0, 0);
25
b446124cdf5a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 23
diff changeset
518 #else
5435
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
519 close (indesc);
25
b446124cdf5a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 23
diff changeset
520 #endif
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
521
6690
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
522 #ifndef MAIL_USE_SYSTEM_LOCK
16909
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
523 if (! preserve_mail)
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
524 {
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
525 /* Delete the input file; if we can't, at least get rid of its
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
526 contents. */
571
3dfecf91a09b *** empty log message ***
David J. MacKenzie <djm@gnu.org>
parents: 510
diff changeset
527 #ifdef MAIL_UNLINK_SPOOL
16909
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
528 /* This is generally bad to do, because it destroys the permissions
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
529 that were set on the file. Better to just empty the file. */
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
530 if (unlink (inname) < 0 && errno != ENOENT)
571
3dfecf91a09b *** empty log message ***
David J. MacKenzie <djm@gnu.org>
parents: 510
diff changeset
531 #endif /* MAIL_UNLINK_SPOOL */
16909
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
532 creat (inname, 0600);
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
533 }
6690
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
534 #endif /* not MAIL_USE_SYSTEM_LOCK */
5435
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
535
16897
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
536 #ifdef MAIL_USE_MAILLOCK
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
537 /* This has to occur in the child, i.e., in the process that
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
538 acquired the lock! */
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
539 if (spool_name)
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
540 mailunlock ();
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
541 #endif
55442
a47704955f8d Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
542 exit (EXIT_SUCCESS);
5435
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
543 }
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
544
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
545 wait (&status);
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
546 if (!WIFEXITED (status))
55442
a47704955f8d Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
547 exit (EXIT_FAILURE);
5435
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
548 else if (WRETCODE (status) != 0)
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
549 exit (WRETCODE (status));
d7408b99b88f Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 5318
diff changeset
550
6690
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
551 #if !defined (MAIL_USE_MMDF) && !defined (MAIL_USE_SYSTEM_LOCK)
16897
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
552 #ifdef MAIL_USE_MAILLOCK
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
553 if (! spool_name)
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
554 #endif /* MAIL_USE_MAILLOCK */
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
555 unlink (lockname);
6690
a1a42eefcc61 (main): Fix up MAIL_USE_MMDF conditional where
Richard M. Stallman <rms@gnu.org>
parents: 5532
diff changeset
556 #endif /* not MAIL_USE_MMDF and not MAIL_USE_SYSTEM_LOCK */
15101
f86169152e74 (access, unlink) [WINDOWSNT]: Macros undefined.
Richard M. Stallman <rms@gnu.org>
parents: 14649
diff changeset
557
f86169152e74 (access, unlink) [WINDOWSNT]: Macros undefined.
Richard M. Stallman <rms@gnu.org>
parents: 14649
diff changeset
558 #endif /* ! DISABLE_DIRECT_ACCESS */
f86169152e74 (access, unlink) [WINDOWSNT]: Macros undefined.
Richard M. Stallman <rms@gnu.org>
parents: 14649
diff changeset
559
55442
a47704955f8d Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
560 return EXIT_SUCCESS;
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
561 }
16897
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
562
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
563 #ifdef MAIL_USE_MAILLOCK
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
564 /* This function uses stat to confirm that the mail directory is
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
565 identical to the directory of the input file, rather than just
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
566 string-comparing the two paths, because one or both of them might
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
567 be symbolic links pointing to some other directory. */
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
568 static char *
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
569 mail_spool_name (inname)
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
570 char *inname;
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
571 {
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
572 struct stat stat1, stat2;
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
573 char *indir, *fname;
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
574 int status;
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
575
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
576 if (! (fname = rindex (inname, '/')))
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
577 return NULL;
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
578
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
579 fname++;
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
580
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
581 if (stat (MAILDIR, &stat1) < 0)
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
582 return NULL;
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
583
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
584 indir = (char *) xmalloc (fname - inname + 1);
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
585 strncpy (indir, inname, fname - inname);
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
586 indir[fname-inname] = '\0';
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
587
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
588
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
589 status = stat (indir, &stat2);
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
590
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
591 free (indir);
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
592
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
593 if (status < 0)
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
594 return NULL;
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
595
18626
d3d968d0773a (rindex): Add declaration.
Richard M. Stallman <rms@gnu.org>
parents: 17069
diff changeset
596 if (stat1.st_dev == stat2.st_dev
d3d968d0773a (rindex): Add declaration.
Richard M. Stallman <rms@gnu.org>
parents: 17069
diff changeset
597 && stat1.st_ino == stat2.st_ino)
16897
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
598 return fname;
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
599
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
600 return NULL;
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
601 }
523d5c54a3f5 Include maillock.h (conditionally).
Richard M. Stallman <rms@gnu.org>
parents: 16366
diff changeset
602 #endif /* MAIL_USE_MAILLOCK */
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
603
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
604 /* Print error message and exit. */
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
605
9490
4e70299f958d Make functions that return nothing void, not implicitly int.
David J. MacKenzie <djm@gnu.org>
parents: 9157
diff changeset
606 void
59918
5a468b3bfb27 (fatal): Accept third parameter and pass down to
Andreas Schwab <schwab@suse.de>
parents: 59775
diff changeset
607 fatal (s1, s2, s3)
5a468b3bfb27 (fatal): Accept third parameter and pass down to
Andreas Schwab <schwab@suse.de>
parents: 59775
diff changeset
608 char *s1, *s2, *s3;
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
609 {
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
610 if (delete_lockname)
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
611 unlink (delete_lockname);
59918
5a468b3bfb27 (fatal): Accept third parameter and pass down to
Andreas Schwab <schwab@suse.de>
parents: 59775
diff changeset
612 error (s1, s2, s3);
55442
a47704955f8d Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
613 exit (EXIT_FAILURE);
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
614 }
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
615
31233
77ed917b12ee (toplevel) [HAVE_STRING_H]: Include string.h.
Dave Love <fx@gnu.org>
parents: 31080
diff changeset
616 /* Print error message. `s1' is printf control string, `s2' and `s3'
77ed917b12ee (toplevel) [HAVE_STRING_H]: Include string.h.
Dave Love <fx@gnu.org>
parents: 31080
diff changeset
617 are args for it or null. */
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
618
9490
4e70299f958d Make functions that return nothing void, not implicitly int.
David J. MacKenzie <djm@gnu.org>
parents: 9157
diff changeset
619 void
120
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
620 error (s1, s2, s3)
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
621 char *s1, *s2, *s3;
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
622 {
9490
4e70299f958d Make functions that return nothing void, not implicitly int.
David J. MacKenzie <djm@gnu.org>
parents: 9157
diff changeset
623 fprintf (stderr, "movemail: ");
31233
77ed917b12ee (toplevel) [HAVE_STRING_H]: Include string.h.
Dave Love <fx@gnu.org>
parents: 31080
diff changeset
624 if (s3)
77ed917b12ee (toplevel) [HAVE_STRING_H]: Include string.h.
Dave Love <fx@gnu.org>
parents: 31080
diff changeset
625 fprintf (stderr, s1, s2, s3);
77ed917b12ee (toplevel) [HAVE_STRING_H]: Include string.h.
Dave Love <fx@gnu.org>
parents: 31080
diff changeset
626 else if (s2)
77ed917b12ee (toplevel) [HAVE_STRING_H]: Include string.h.
Dave Love <fx@gnu.org>
parents: 31080
diff changeset
627 fprintf (stderr, s1, s2);
77ed917b12ee (toplevel) [HAVE_STRING_H]: Include string.h.
Dave Love <fx@gnu.org>
parents: 31080
diff changeset
628 else
77ed917b12ee (toplevel) [HAVE_STRING_H]: Include string.h.
Dave Love <fx@gnu.org>
parents: 31080
diff changeset
629 fprintf (stderr, s1);
9490
4e70299f958d Make functions that return nothing void, not implicitly int.
David J. MacKenzie <djm@gnu.org>
parents: 9157
diff changeset
630 fprintf (stderr, "\n");
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
631 }
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
632
9490
4e70299f958d Make functions that return nothing void, not implicitly int.
David J. MacKenzie <djm@gnu.org>
parents: 9157
diff changeset
633 void
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
634 pfatal_with_name (name)
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
635 char *name;
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
636 {
59918
5a468b3bfb27 (fatal): Accept third parameter and pass down to
Andreas Schwab <schwab@suse.de>
parents: 59775
diff changeset
637 fatal ("%s for %s", strerror (errno), name);
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
638 }
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
639
9490
4e70299f958d Make functions that return nothing void, not implicitly int.
David J. MacKenzie <djm@gnu.org>
parents: 9157
diff changeset
640 void
447
2e226dcdaf0f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 351
diff changeset
641 pfatal_and_delete (name)
2e226dcdaf0f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 351
diff changeset
642 char *name;
2e226dcdaf0f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 351
diff changeset
643 {
59918
5a468b3bfb27 (fatal): Accept third parameter and pass down to
Andreas Schwab <schwab@suse.de>
parents: 59775
diff changeset
644 char *s = strerror (errno);
447
2e226dcdaf0f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 351
diff changeset
645 unlink (name);
59918
5a468b3bfb27 (fatal): Accept third parameter and pass down to
Andreas Schwab <schwab@suse.de>
parents: 59775
diff changeset
646 fatal ("%s for %s", s, name);
447
2e226dcdaf0f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 351
diff changeset
647 }
2e226dcdaf0f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 351
diff changeset
648
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
649 /* Return a newly-allocated string whose contents concatenate those of s1, s2, s3. */
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
650
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
651 char *
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
652 concat (s1, s2, s3)
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
653 char *s1, *s2, *s3;
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
654 {
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
655 int len1 = strlen (s1), len2 = strlen (s2), len3 = strlen (s3);
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
656 char *result = (char *) xmalloc (len1 + len2 + len3 + 1);
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
657
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
658 strcpy (result, s1);
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
659 strcpy (result + len1, s2);
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
660 strcpy (result + len1 + len2, s3);
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
661 *(result + len1 + len2 + len3) = 0;
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
662
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
663 return result;
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
664 }
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
665
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
666 /* Like malloc but get fatal error if memory is exhausted. */
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
667
11675
496576df5d46 (xmalloc): Declare it to return long *.
Richard M. Stallman <rms@gnu.org>
parents: 10399
diff changeset
668 long *
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
669 xmalloc (size)
571
3dfecf91a09b *** empty log message ***
David J. MacKenzie <djm@gnu.org>
parents: 510
diff changeset
670 unsigned size;
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
671 {
11675
496576df5d46 (xmalloc): Declare it to return long *.
Richard M. Stallman <rms@gnu.org>
parents: 10399
diff changeset
672 long *result = (long *) malloc (size);
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
673 if (!result)
59918
5a468b3bfb27 (fatal): Accept third parameter and pass down to
Andreas Schwab <schwab@suse.de>
parents: 59775
diff changeset
674 fatal ("virtual memory exhausted", 0, 0);
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
675 return result;
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
676 }
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
677
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
678 /* This is the guts of the interface to the Post Office Protocol. */
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
679
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
680 #ifdef MAIL_USE_POP
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
681
15101
f86169152e74 (access, unlink) [WINDOWSNT]: Macros undefined.
Richard M. Stallman <rms@gnu.org>
parents: 14649
diff changeset
682 #ifndef WINDOWSNT
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
683 #include <sys/socket.h>
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
684 #include <netinet/in.h>
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
685 #include <netdb.h>
15101
f86169152e74 (access, unlink) [WINDOWSNT]: Macros undefined.
Richard M. Stallman <rms@gnu.org>
parents: 14649
diff changeset
686 #else
f86169152e74 (access, unlink) [WINDOWSNT]: Macros undefined.
Richard M. Stallman <rms@gnu.org>
parents: 14649
diff changeset
687 #undef _WINSOCKAPI_
f86169152e74 (access, unlink) [WINDOWSNT]: Macros undefined.
Richard M. Stallman <rms@gnu.org>
parents: 14649
diff changeset
688 #include <winsock.h>
f86169152e74 (access, unlink) [WINDOWSNT]: Macros undefined.
Richard M. Stallman <rms@gnu.org>
parents: 14649
diff changeset
689 #endif
634
52d0ff659265 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 604
diff changeset
690 #include <pwd.h>
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
691
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
692 #define NOTOK (-1)
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
693 #define OK 0
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
694 #define DONE 1
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
695
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
696 char *progname;
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
697 FILE *sfi;
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
698 FILE *sfo;
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
699 char ibuffer[BUFSIZ];
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
700 char obuffer[BUFSIZ];
29046
7d5565d3cf32 Include config.h, not ../src/config.h.
Dave Love <fx@gnu.org>
parents: 27507
diff changeset
701 char Errmsg[200]; /* POP errors, at least, can exceed
7d5565d3cf32 Include config.h, not ../src/config.h.
Dave Love <fx@gnu.org>
parents: 27507
diff changeset
702 the original length of 80. */
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
703
26794
535af4b15059 (popmail): Allow mailbox specifications of the
Gerd Moellmann <gerd@gnu.org>
parents: 26083
diff changeset
704 /*
535af4b15059 (popmail): Allow mailbox specifications of the
Gerd Moellmann <gerd@gnu.org>
parents: 26083
diff changeset
705 * The full legal syntax for a POP mailbox specification for movemail
535af4b15059 (popmail): Allow mailbox specifications of the
Gerd Moellmann <gerd@gnu.org>
parents: 26083
diff changeset
706 * is "po:username:hostname". The ":hostname" is optional; if it is
535af4b15059 (popmail): Allow mailbox specifications of the
Gerd Moellmann <gerd@gnu.org>
parents: 26083
diff changeset
707 * omitted, the MAILHOST environment variable will be consulted. Note
535af4b15059 (popmail): Allow mailbox specifications of the
Gerd Moellmann <gerd@gnu.org>
parents: 26083
diff changeset
708 * that by the time popmail() is called the "po:" has been stripped
535af4b15059 (popmail): Allow mailbox specifications of the
Gerd Moellmann <gerd@gnu.org>
parents: 26083
diff changeset
709 * off of the front of the mailbox name.
535af4b15059 (popmail): Allow mailbox specifications of the
Gerd Moellmann <gerd@gnu.org>
parents: 26083
diff changeset
710 *
535af4b15059 (popmail): Allow mailbox specifications of the
Gerd Moellmann <gerd@gnu.org>
parents: 26083
diff changeset
711 * If the mailbox is in the form "po:username:hostname", then it is
535af4b15059 (popmail): Allow mailbox specifications of the
Gerd Moellmann <gerd@gnu.org>
parents: 26083
diff changeset
712 * modified by this function -- the second colon is replaced by a
535af4b15059 (popmail): Allow mailbox specifications of the
Gerd Moellmann <gerd@gnu.org>
parents: 26083
diff changeset
713 * null.
55442
a47704955f8d Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
714 *
a47704955f8d Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
715 * Return a value suitable for passing to `exit'.
26794
535af4b15059 (popmail): Allow mailbox specifications of the
Gerd Moellmann <gerd@gnu.org>
parents: 26083
diff changeset
716 */
535af4b15059 (popmail): Allow mailbox specifications of the
Gerd Moellmann <gerd@gnu.org>
parents: 26083
diff changeset
717
31233
77ed917b12ee (toplevel) [HAVE_STRING_H]: Include string.h.
Dave Love <fx@gnu.org>
parents: 31080
diff changeset
718 int
26794
535af4b15059 (popmail): Allow mailbox specifications of the
Gerd Moellmann <gerd@gnu.org>
parents: 26083
diff changeset
719 popmail (mailbox, outfile, preserve, password, reverse_order)
535af4b15059 (popmail): Allow mailbox specifications of the
Gerd Moellmann <gerd@gnu.org>
parents: 26083
diff changeset
720 char *mailbox;
120
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
721 char *outfile;
16909
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
722 int preserve;
15101
f86169152e74 (access, unlink) [WINDOWSNT]: Macros undefined.
Richard M. Stallman <rms@gnu.org>
parents: 14649
diff changeset
723 char *password;
23182
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
724 int reverse_order;
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
725 {
120
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
726 int nmsgs, nbytes;
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
727 register int i;
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
728 int mbfi;
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
729 FILE *mbf;
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
730 char *getenv ();
9630
5410efcb7b6e PopServer renamed to popserver throughout.
Richard M. Stallman <rms@gnu.org>
parents: 9612
diff changeset
731 popserver server;
23182
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
732 int start, end, increment;
26794
535af4b15059 (popmail): Allow mailbox specifications of the
Gerd Moellmann <gerd@gnu.org>
parents: 26083
diff changeset
733 char *user, *hostname;
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
734
26794
535af4b15059 (popmail): Allow mailbox specifications of the
Gerd Moellmann <gerd@gnu.org>
parents: 26083
diff changeset
735 user = mailbox;
535af4b15059 (popmail): Allow mailbox specifications of the
Gerd Moellmann <gerd@gnu.org>
parents: 26083
diff changeset
736 if ((hostname = index(mailbox, ':')))
535af4b15059 (popmail): Allow mailbox specifications of the
Gerd Moellmann <gerd@gnu.org>
parents: 26083
diff changeset
737 *hostname++ = '\0';
535af4b15059 (popmail): Allow mailbox specifications of the
Gerd Moellmann <gerd@gnu.org>
parents: 26083
diff changeset
738
535af4b15059 (popmail): Allow mailbox specifications of the
Gerd Moellmann <gerd@gnu.org>
parents: 26083
diff changeset
739 server = pop_open (hostname, user, password, POP_NO_GETPASS);
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
740 if (! server)
120
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
741 {
31233
77ed917b12ee (toplevel) [HAVE_STRING_H]: Include string.h.
Dave Love <fx@gnu.org>
parents: 31080
diff changeset
742 error ("Error connecting to POP server: %s", pop_error, 0);
55442
a47704955f8d Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
743 return EXIT_FAILURE;
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
744 }
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
745
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
746 if (pop_stat (server, &nmsgs, &nbytes))
120
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
747 {
31233
77ed917b12ee (toplevel) [HAVE_STRING_H]: Include string.h.
Dave Love <fx@gnu.org>
parents: 31080
diff changeset
748 error ("Error getting message count from POP server: %s", pop_error, 0);
55442
a47704955f8d Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
749 return EXIT_FAILURE;
120
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
750 }
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
751
120
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
752 if (!nmsgs)
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
753 {
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
754 pop_close (server);
55442
a47704955f8d Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
755 return EXIT_SUCCESS;
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
756 }
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
757
120
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
758 mbfi = open (outfile, O_WRONLY | O_CREAT | O_EXCL, 0666);
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
759 if (mbfi < 0)
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
760 {
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
761 pop_close (server);
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
762 error ("Error in open: %s, %s", strerror (errno), outfile);
55442
a47704955f8d Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
763 return EXIT_FAILURE;
120
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
764 }
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
765 fchown (mbfi, getuid (), -1);
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
766
15101
f86169152e74 (access, unlink) [WINDOWSNT]: Macros undefined.
Richard M. Stallman <rms@gnu.org>
parents: 14649
diff changeset
767 if ((mbf = fdopen (mbfi, "wb")) == NULL)
120
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
768 {
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
769 pop_close (server);
31233
77ed917b12ee (toplevel) [HAVE_STRING_H]: Include string.h.
Dave Love <fx@gnu.org>
parents: 31080
diff changeset
770 error ("Error in fdopen: %s", strerror (errno), 0);
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
771 close (mbfi);
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
772 unlink (outfile);
55442
a47704955f8d Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
773 return EXIT_FAILURE;
120
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
774 }
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
775
23182
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
776 if (reverse_order)
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
777 {
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
778 start = nmsgs;
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
779 end = 1;
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
780 increment = -1;
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
781 }
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
782 else
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
783 {
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
784 start = 1;
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
785 end = nmsgs;
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
786 increment = 1;
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
787 }
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
788
0ba967162ee0 [MAIL_USE_POP]: Add the "-r" flag to reverse the
Karl Heuer <kwzh@gnu.org>
parents: 22316
diff changeset
789 for (i = start; i * increment <= end * increment; i += increment)
120
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
790 {
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
791 mbx_delimit_begin (mbf);
17069
0b2b8a0f7570 (popmail): Remove some unnecessary function
Karl Heuer <kwzh@gnu.org>
parents: 16994
diff changeset
792 if (pop_retr (server, i, mbf) != OK)
120
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
793 {
59775
d39551ad7f40 (popmail): Don't use Errmsg as format string.
Richard M. Stallman <rms@gnu.org>
parents: 55442
diff changeset
794 error ("%s", Errmsg, 0);
120
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
795 close (mbfi);
55442
a47704955f8d Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
796 return EXIT_FAILURE;
120
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
797 }
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
798 mbx_delimit_end (mbf);
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
799 fflush (mbf);
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
800 if (ferror (mbf))
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
801 {
31233
77ed917b12ee (toplevel) [HAVE_STRING_H]: Include string.h.
Dave Love <fx@gnu.org>
parents: 31080
diff changeset
802 error ("Error in fflush: %s", strerror (errno), 0);
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
803 pop_close (server);
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
804 close (mbfi);
55442
a47704955f8d Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
805 return EXIT_FAILURE;
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
806 }
120
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
807 }
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
808
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
809 /* On AFS, a call to write only modifies the file in the local
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
810 * workstation's AFS cache. The changes are not written to the server
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
811 * until a call to fsync or close is made. Users with AFS home
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
812 * directories have lost mail when over quota because these checks were
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
813 * not made in previous versions of movemail. */
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
814
16218
32f82ca8b41f Replaced all BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents: 15105
diff changeset
815 #ifdef BSD_SYSTEM
447
2e226dcdaf0f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 351
diff changeset
816 if (fsync (mbfi) < 0)
2e226dcdaf0f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 351
diff changeset
817 {
40683
580a1a573d3e (popmail): Always pass two args to `error'.
Richard M. Stallman <rms@gnu.org>
parents: 31376
diff changeset
818 error ("Error in fsync: %s", strerror (errno), 0);
55442
a47704955f8d Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
819 return EXIT_FAILURE;
447
2e226dcdaf0f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 351
diff changeset
820 }
9491
dd3b83e4ceb0 Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents: 9490
diff changeset
821 #endif
447
2e226dcdaf0f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 351
diff changeset
822
2e226dcdaf0f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 351
diff changeset
823 if (close (mbfi) == -1)
2e226dcdaf0f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 351
diff changeset
824 {
31233
77ed917b12ee (toplevel) [HAVE_STRING_H]: Include string.h.
Dave Love <fx@gnu.org>
parents: 31080
diff changeset
825 error ("Error in close: %s", strerror (errno), 0);
55442
a47704955f8d Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
826 return EXIT_FAILURE;
447
2e226dcdaf0f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 351
diff changeset
827 }
2e226dcdaf0f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 351
diff changeset
828
16909
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
829 if (! preserve)
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
830 for (i = 1; i <= nmsgs; i++)
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
831 {
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
832 if (pop_delete (server, i))
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
833 {
31233
77ed917b12ee (toplevel) [HAVE_STRING_H]: Include string.h.
Dave Love <fx@gnu.org>
parents: 31080
diff changeset
834 error ("Error from POP server: %s", pop_error, 0);
16909
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
835 pop_close (server);
55442
a47704955f8d Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
836 return EXIT_FAILURE;
16909
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
837 }
d878e23bbfa6 (main): Do not display "[POP-password]" in the usage
Richard M. Stallman <rms@gnu.org>
parents: 16897
diff changeset
838 }
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
839
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
840 if (pop_quit (server))
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
841 {
31233
77ed917b12ee (toplevel) [HAVE_STRING_H]: Include string.h.
Dave Love <fx@gnu.org>
parents: 31080
diff changeset
842 error ("Error from POP server: %s", pop_error, 0);
55442
a47704955f8d Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
843 return EXIT_FAILURE;
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
844 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48314
diff changeset
845
55442
a47704955f8d Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
846 return EXIT_SUCCESS;
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
847 }
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
848
17069
0b2b8a0f7570 (popmail): Remove some unnecessary function
Karl Heuer <kwzh@gnu.org>
parents: 16994
diff changeset
849 int
0b2b8a0f7570 (popmail): Remove some unnecessary function
Karl Heuer <kwzh@gnu.org>
parents: 16994
diff changeset
850 pop_retr (server, msgno, arg)
9630
5410efcb7b6e PopServer renamed to popserver throughout.
Richard M. Stallman <rms@gnu.org>
parents: 9612
diff changeset
851 popserver server;
48314
f6d89a1d0478 (pop_retr): Declare comment.
Dave Love <fx@gnu.org>
parents: 40683
diff changeset
852 int msgno;
17069
0b2b8a0f7570 (popmail): Remove some unnecessary function
Karl Heuer <kwzh@gnu.org>
parents: 16994
diff changeset
853 FILE *arg;
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
854 {
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
855 extern char *strerror ();
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
856 char *line;
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
857 int ret;
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
858
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
859 if (pop_retrieve_first (server, msgno, &line))
120
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
860 {
23290
9917b9a0024d (popmail, pop_retr) [MAIL_USE_POP]: When displaying
Karl Heuer <kwzh@gnu.org>
parents: 23182
diff changeset
861 char *error = concat ("Error from POP server: ", pop_error, "");
9917b9a0024d (popmail, pop_retr) [MAIL_USE_POP]: When displaying
Karl Heuer <kwzh@gnu.org>
parents: 23182
diff changeset
862 strncpy (Errmsg, error, sizeof (Errmsg));
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
863 Errmsg[sizeof (Errmsg)-1] = '\0';
23290
9917b9a0024d (popmail, pop_retr) [MAIL_USE_POP]: When displaying
Karl Heuer <kwzh@gnu.org>
parents: 23182
diff changeset
864 free(error);
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
865 return (NOTOK);
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
866 }
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
867
20418
7e1538a45702 Allow messages retrieved from the POP
Karl Heuer <kwzh@gnu.org>
parents: 20387
diff changeset
868 while ((ret = pop_retrieve_next (server, &line)) >= 0)
120
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
869 {
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
870 if (! line)
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
871 break;
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
872
20418
7e1538a45702 Allow messages retrieved from the POP
Karl Heuer <kwzh@gnu.org>
parents: 20387
diff changeset
873 if (mbx_write (line, ret, arg) != OK)
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
874 {
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
875 strcpy (Errmsg, strerror (errno));
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
876 pop_close (server);
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
877 return (NOTOK);
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
878 }
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
879 }
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
880
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
881 if (ret)
120
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
882 {
23290
9917b9a0024d (popmail, pop_retr) [MAIL_USE_POP]: When displaying
Karl Heuer <kwzh@gnu.org>
parents: 23182
diff changeset
883 char *error = concat ("Error from POP server: ", pop_error, "");
9917b9a0024d (popmail, pop_retr) [MAIL_USE_POP]: When displaying
Karl Heuer <kwzh@gnu.org>
parents: 23182
diff changeset
884 strncpy (Errmsg, error, sizeof (Errmsg));
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
885 Errmsg[sizeof (Errmsg)-1] = '\0';
23290
9917b9a0024d (popmail, pop_retr) [MAIL_USE_POP]: When displaying
Karl Heuer <kwzh@gnu.org>
parents: 23182
diff changeset
886 free(error);
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
887 return (NOTOK);
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
888 }
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
889
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
890 return (OK);
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
891 }
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
892
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
893 /* Do this as a macro instead of using strcmp to save on execution time. */
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
894 #define IS_FROM_LINE(a) ((a[0] == 'F') \
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
895 && (a[1] == 'r') \
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
896 && (a[2] == 'o') \
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
897 && (a[3] == 'm') \
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
898 && (a[4] == ' '))
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
899
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
900 int
20418
7e1538a45702 Allow messages retrieved from the POP
Karl Heuer <kwzh@gnu.org>
parents: 20387
diff changeset
901 mbx_write (line, len, mbf)
120
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
902 char *line;
20418
7e1538a45702 Allow messages retrieved from the POP
Karl Heuer <kwzh@gnu.org>
parents: 20387
diff changeset
903 int len;
120
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
904 FILE *mbf;
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
905 {
20387
4c524f5214ce (mbx_write) [MAIL_USE_POP]: Disable the code which quotes with a
Paul Eggert <eggert@twinsun.com>
parents: 18626
diff changeset
906 #ifdef MOVEMAIL_QUOTE_POP_FROM_LINES
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
907 if (IS_FROM_LINE (line))
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
908 {
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
909 if (fputc ('>', mbf) == EOF)
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
910 return (NOTOK);
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
911 }
20387
4c524f5214ce (mbx_write) [MAIL_USE_POP]: Disable the code which quotes with a
Paul Eggert <eggert@twinsun.com>
parents: 18626
diff changeset
912 #endif
4c524f5214ce (mbx_write) [MAIL_USE_POP]: Disable the code which quotes with a
Paul Eggert <eggert@twinsun.com>
parents: 18626
diff changeset
913 if (line[0] == '\037')
4c524f5214ce (mbx_write) [MAIL_USE_POP]: Disable the code which quotes with a
Paul Eggert <eggert@twinsun.com>
parents: 18626
diff changeset
914 {
4c524f5214ce (mbx_write) [MAIL_USE_POP]: Disable the code which quotes with a
Paul Eggert <eggert@twinsun.com>
parents: 18626
diff changeset
915 if (fputs ("^_", mbf) == EOF)
4c524f5214ce (mbx_write) [MAIL_USE_POP]: Disable the code which quotes with a
Paul Eggert <eggert@twinsun.com>
parents: 18626
diff changeset
916 return (NOTOK);
4c524f5214ce (mbx_write) [MAIL_USE_POP]: Disable the code which quotes with a
Paul Eggert <eggert@twinsun.com>
parents: 18626
diff changeset
917 line++;
4c524f5214ce (mbx_write) [MAIL_USE_POP]: Disable the code which quotes with a
Paul Eggert <eggert@twinsun.com>
parents: 18626
diff changeset
918 len--;
4c524f5214ce (mbx_write) [MAIL_USE_POP]: Disable the code which quotes with a
Paul Eggert <eggert@twinsun.com>
parents: 18626
diff changeset
919 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48314
diff changeset
920 if (fwrite (line, 1, len, mbf) != len)
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
921 return (NOTOK);
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
922 if (fputc (0x0a, mbf) == EOF)
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
923 return (NOTOK);
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
924 return (OK);
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
925 }
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
926
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
927 int
120
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
928 mbx_delimit_begin (mbf)
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
929 FILE *mbf;
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
930 {
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
931 if (fputs ("\f\n0, unseen,,\n", mbf) == EOF)
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
932 return (NOTOK);
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
933 return (OK);
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
934 }
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
935
31233
77ed917b12ee (toplevel) [HAVE_STRING_H]: Include string.h.
Dave Love <fx@gnu.org>
parents: 31080
diff changeset
936 int
120
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
937 mbx_delimit_end (mbf)
86f080a3d883 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 38
diff changeset
938 FILE *mbf;
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
939 {
9157
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
940 if (putc ('\037', mbf) == EOF)
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
941 return (NOTOK);
29f4cce05fa5 Improve POP code, move most of it into a separate file.
Richard M. Stallman <rms@gnu.org>
parents: 8449
diff changeset
942 return (OK);
23
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
943 }
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
944
b437d0778a66 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
945 #endif /* MAIL_USE_POP */
5532
9c86c71e879d [! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents: 5524
diff changeset
946
9c86c71e879d [! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents: 5524
diff changeset
947 #ifndef HAVE_STRERROR
9c86c71e879d [! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents: 5524
diff changeset
948 char *
9c86c71e879d [! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents: 5524
diff changeset
949 strerror (errnum)
9c86c71e879d [! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents: 5524
diff changeset
950 int errnum;
9c86c71e879d [! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents: 5524
diff changeset
951 {
9c86c71e879d [! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents: 5524
diff changeset
952 extern char *sys_errlist[];
9c86c71e879d [! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents: 5524
diff changeset
953 extern int sys_nerr;
9c86c71e879d [! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents: 5524
diff changeset
954
9c86c71e879d [! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents: 5524
diff changeset
955 if (errnum >= 0 && errnum < sys_nerr)
9c86c71e879d [! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents: 5524
diff changeset
956 return sys_errlist[errnum];
9c86c71e879d [! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents: 5524
diff changeset
957 return (char *) "Unknown error";
9c86c71e879d [! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents: 5524
diff changeset
958 }
9c86c71e879d [! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents: 5524
diff changeset
959
9c86c71e879d [! HAVE_STRERROR] (strerror): Define the function.
Roland McGrath <roland@gnu.org>
parents: 5524
diff changeset
960 #endif /* ! HAVE_STRERROR */
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52069
diff changeset
961
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52069
diff changeset
962 /* arch-tag: 1c323112-41fe-4fe5-8de9-494de631f73f
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52069
diff changeset
963 (do not change this comment) */
55442
a47704955f8d Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
964
a47704955f8d Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
965 /* movemail.c ends here */