1989-04-28 03:54:04 +00:00
|
|
|
|
/* movemail foo bar -- move file foo to file bar,
|
|
|
|
|
locking file foo the way /bin/mail respects.
|
Add support for large files. Merge glibc 2.1.2.
* b2m.c, emacsclient.c, emacsserver.c, fakemail.c, make-docfile.c,
movemail.c, pop.c:
Do not include <stdlib.h>, as <config.h> does this now.
* b2m.c, emacsserver.c, etags.c, profile.c:
Include <config.h> before any system include files.
* emacsclient.c, emacsserver.c, fakemail.c, movemail.c, pop.c,
test-distrib.c:
(read, write, open, close): Do not undef.
* getopt.c, getopt1.c: Adopt glibc 2.1.2, with the following fix:
(const): Do not define if HAVE_CONFIG_H; that's config.h's job.
* getopt.h: Adopt glibc 2.1.2.
1999-10-19 07:17:20 +00:00
|
|
|
|
Copyright (C) 1986, 92, 93, 94, 96, 1999 Free Software Foundation, Inc.
|
1989-04-28 03:54:04 +00:00
|
|
|
|
|
|
|
|
|
This file is part of GNU Emacs.
|
|
|
|
|
|
1989-10-31 16:00:17 +00:00
|
|
|
|
GNU Emacs is free software; you can redistribute it and/or modify
|
|
|
|
|
it under the terms of the GNU General Public License as published by
|
1994-01-08 21:50:14 +00:00
|
|
|
|
the Free Software Foundation; either version 2, or (at your option)
|
1989-10-31 16:00:17 +00:00
|
|
|
|
any later version.
|
|
|
|
|
|
1989-04-28 03:54:04 +00:00
|
|
|
|
GNU Emacs is distributed in the hope that it will be useful,
|
1989-10-31 16:00:17 +00:00
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
GNU General Public License for more details.
|
1989-04-28 03:54:04 +00:00
|
|
|
|
|
1989-10-31 16:00:17 +00:00
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
|
|
|
along with GNU Emacs; see the file COPYING. If not, write to
|
1996-01-15 09:18:04 +00:00
|
|
|
|
the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
|
|
Boston, MA 02111-1307, USA. */
|
1989-04-28 03:54:04 +00:00
|
|
|
|
|
1994-04-05 23:04:36 +00:00
|
|
|
|
/* Important notice: defining MAIL_USE_FLOCK or MAIL_USE_LOCKF *will
|
|
|
|
|
cause loss of mail* if you do it on a system that does not normally
|
|
|
|
|
use flock as its way of interlocking access to inbox files. The
|
|
|
|
|
setting of MAIL_USE_FLOCK and MAIL_USE_LOCKF *must agree* with the
|
|
|
|
|
system's own conventions. It is not a choice that is up to you.
|
1992-01-18 22:46:00 +00:00
|
|
|
|
|
|
|
|
|
So, if your system uses lock files rather than flock, then the only way
|
|
|
|
|
you can get proper operation is to enable movemail to write lockfiles there.
|
|
|
|
|
This means you must either give that directory access modes
|
|
|
|
|
that permit everyone to write lockfiles in it, or you must make movemail
|
|
|
|
|
a setuid or setgid program. */
|
|
|
|
|
|
1989-04-28 03:54:04 +00:00
|
|
|
|
/*
|
|
|
|
|
* Modified January, 1986 by Michael R. Gretzinger (Project Athena)
|
|
|
|
|
*
|
1996-02-22 22:37:14 +00:00
|
|
|
|
* Added POP (Post Office Protocol) service. When compiled -DMAIL_USE_POP
|
1989-04-28 03:54:04 +00:00
|
|
|
|
* movemail will accept input filename arguments of the form
|
|
|
|
|
* "po:username". This will cause movemail to open a connection to
|
|
|
|
|
* a pop server running on $MAILHOST (environment variable). Movemail
|
|
|
|
|
* must be setuid to root in order to work with POP.
|
2003-02-04 14:56:31 +00:00
|
|
|
|
*
|
1989-04-28 03:54:04 +00:00
|
|
|
|
* New module: popmail.c
|
|
|
|
|
* Modified routines:
|
1991-12-07 22:01:44 +00:00
|
|
|
|
* main - added code within #ifdef MAIL_USE_POP; added setuid (getuid ())
|
2003-02-04 14:56:31 +00:00
|
|
|
|
* after POP code.
|
1989-04-28 03:54:04 +00:00
|
|
|
|
* New routines in movemail.c:
|
|
|
|
|
* get_errmsg - return pointer to system error message
|
|
|
|
|
*
|
1994-09-27 19:45:00 +00:00
|
|
|
|
* Modified August, 1993 by Jonathan Kamens (OpenVision Technologies)
|
|
|
|
|
*
|
|
|
|
|
* Move all of the POP code into a separate file, "pop.c".
|
|
|
|
|
* Use strerror instead of get_errmsg.
|
|
|
|
|
*
|
1989-04-28 03:54:04 +00:00
|
|
|
|
*/
|
|
|
|
|
|
1994-08-04 23:15:35 +00:00
|
|
|
|
#define NO_SHORTNAMES /* Tell config not to load remap.h */
|
2000-05-21 11:02:50 +00:00
|
|
|
|
#include <config.h>
|
1989-04-28 03:54:04 +00:00
|
|
|
|
#include <sys/types.h>
|
|
|
|
|
#include <sys/stat.h>
|
|
|
|
|
#include <sys/file.h>
|
1994-10-12 19:20:24 +00:00
|
|
|
|
#include <stdio.h>
|
1989-04-28 03:54:04 +00:00
|
|
|
|
#include <errno.h>
|
2000-08-28 18:56:15 +00:00
|
|
|
|
|
1997-01-21 01:54:39 +00:00
|
|
|
|
#include <getopt.h>
|
2000-09-01 13:50:50 +00:00
|
|
|
|
#ifdef HAVE_UNISTD_H
|
|
|
|
|
#include <unistd.h>
|
|
|
|
|
#endif
|
2000-08-28 18:56:15 +00:00
|
|
|
|
#ifdef HAVE_FCNTL_H
|
|
|
|
|
#include <fcntl.h>
|
|
|
|
|
#endif
|
2000-09-01 13:50:50 +00:00
|
|
|
|
#include "syswait.h"
|
1994-09-27 19:45:00 +00:00
|
|
|
|
#ifdef MAIL_USE_POP
|
|
|
|
|
#include "pop.h"
|
|
|
|
|
#endif
|
1989-04-28 03:54:04 +00:00
|
|
|
|
|
1994-01-06 03:57:28 +00:00
|
|
|
|
#ifdef MSDOS
|
|
|
|
|
#undef access
|
|
|
|
|
#endif /* MSDOS */
|
|
|
|
|
|
1996-04-28 23:37:04 +00:00
|
|
|
|
#ifndef DIRECTORY_SEP
|
|
|
|
|
#define DIRECTORY_SEP '/'
|
|
|
|
|
#endif
|
|
|
|
|
#ifndef IS_DIRECTORY_SEP
|
|
|
|
|
#define IS_DIRECTORY_SEP(_c_) ((_c_) == DIRECTORY_SEP)
|
|
|
|
|
#endif
|
|
|
|
|
|
1996-04-28 19:07:35 +00:00
|
|
|
|
#ifdef WINDOWSNT
|
1998-05-02 06:43:03 +00:00
|
|
|
|
#include "ntlib.h"
|
1996-04-28 19:07:35 +00:00
|
|
|
|
#undef access
|
|
|
|
|
#undef unlink
|
|
|
|
|
#define fork() 0
|
1998-06-01 14:09:21 +00:00
|
|
|
|
#define wait(var) (*(var) = 0)
|
1996-04-28 19:07:35 +00:00
|
|
|
|
/* Unfortunately, Samba doesn't seem to properly lock Unix files even
|
|
|
|
|
though the locking call succeeds (and indeed blocks local access from
|
|
|
|
|
other NT programs). If you have direct file access using an NFS
|
|
|
|
|
client or something other than Samba, the locking call might work
|
1998-05-02 06:43:03 +00:00
|
|
|
|
properly - make sure it does before you enable this!
|
|
|
|
|
|
|
|
|
|
[18-Feb-97 andrewi] I now believe my comment above to be incorrect,
|
|
|
|
|
since it was based on a misunderstanding of how locking calls are
|
|
|
|
|
implemented and used on Unix. */
|
|
|
|
|
//#define DISABLE_DIRECT_ACCESS
|
|
|
|
|
|
|
|
|
|
#include <fcntl.h>
|
1996-04-28 19:07:35 +00:00
|
|
|
|
#endif /* WINDOWSNT */
|
|
|
|
|
|
1989-06-15 16:52:48 +00:00
|
|
|
|
#ifndef F_OK
|
|
|
|
|
#define F_OK 0
|
|
|
|
|
#define X_OK 1
|
|
|
|
|
#define W_OK 2
|
|
|
|
|
#define R_OK 4
|
|
|
|
|
#endif
|
1989-04-28 03:54:04 +00:00
|
|
|
|
|
1996-04-28 19:07:35 +00:00
|
|
|
|
#if defined (XENIX) || defined (WINDOWSNT)
|
1989-04-28 03:54:04 +00:00
|
|
|
|
#include <sys/locking.h>
|
|
|
|
|
#endif
|
|
|
|
|
|
1994-04-05 23:04:36 +00:00
|
|
|
|
#ifdef MAIL_USE_LOCKF
|
|
|
|
|
#define MAIL_USE_SYSTEM_LOCK
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef MAIL_USE_FLOCK
|
|
|
|
|
#define MAIL_USE_SYSTEM_LOCK
|
|
|
|
|
#endif
|
|
|
|
|
|
1989-05-14 22:52:53 +00:00
|
|
|
|
#ifdef MAIL_USE_MMDF
|
|
|
|
|
extern int lk_open (), lk_close ();
|
|
|
|
|
#endif
|
|
|
|
|
|
1997-01-20 07:30:40 +00:00
|
|
|
|
#if !defined (MAIL_USE_SYSTEM_LOCK) && !defined (MAIL_USE_MMDF) && \
|
2003-05-20 16:34:35 +00:00
|
|
|
|
(defined (HAVE_LIBMAIL) || defined (HAVE_LIBLOCKFILE)) && \
|
|
|
|
|
defined (HAVE_MAILLOCK_H)
|
1997-01-20 07:30:40 +00:00
|
|
|
|
#include <maillock.h>
|
|
|
|
|
/* We can't use maillock unless we know what directory system mail
|
|
|
|
|
files appear in. */
|
|
|
|
|
#ifdef MAILDIR
|
|
|
|
|
#define MAIL_USE_MAILLOCK
|
|
|
|
|
static char *mail_spool_name ();
|
|
|
|
|
#endif
|
|
|
|
|
#endif
|
|
|
|
|
|
1992-03-09 17:40:11 +00:00
|
|
|
|
#ifndef errno
|
1989-04-28 03:54:04 +00:00
|
|
|
|
extern int errno;
|
1992-03-09 17:40:11 +00:00
|
|
|
|
#endif
|
1994-10-12 19:20:24 +00:00
|
|
|
|
char *strerror ();
|
2000-09-04 15:26:16 +00:00
|
|
|
|
#ifdef HAVE_INDEX
|
|
|
|
|
extern char *index __P ((const char *, int));
|
|
|
|
|
#endif
|
|
|
|
|
#ifdef HAVE_RINDEX
|
|
|
|
|
extern char *rindex __P((const char *, int));
|
|
|
|
|
#endif
|
1994-10-12 19:20:24 +00:00
|
|
|
|
|
|
|
|
|
void fatal ();
|
|
|
|
|
void error ();
|
|
|
|
|
void pfatal_with_name ();
|
|
|
|
|
void pfatal_and_delete ();
|
|
|
|
|
char *concat ();
|
1995-05-04 06:46:51 +00:00
|
|
|
|
long *xmalloc ();
|
1994-10-12 19:20:24 +00:00
|
|
|
|
int popmail ();
|
|
|
|
|
int pop_retr ();
|
|
|
|
|
int mbx_write ();
|
|
|
|
|
int mbx_delimit_begin ();
|
|
|
|
|
int mbx_delimit_end ();
|
1989-04-28 03:54:04 +00:00
|
|
|
|
|
|
|
|
|
/* Nonzero means this is name of a lock file to delete on fatal error. */
|
|
|
|
|
char *delete_lockname;
|
|
|
|
|
|
1994-10-12 19:20:24 +00:00
|
|
|
|
int
|
1989-04-28 03:54:04 +00:00
|
|
|
|
main (argc, argv)
|
|
|
|
|
int argc;
|
|
|
|
|
char **argv;
|
|
|
|
|
{
|
|
|
|
|
char *inname, *outname;
|
|
|
|
|
int indesc, outdesc;
|
|
|
|
|
int nread;
|
1994-01-04 06:46:12 +00:00
|
|
|
|
WAITTYPE status;
|
1997-01-21 01:54:39 +00:00
|
|
|
|
int c, preserve_mail = 0;
|
1989-04-28 03:54:04 +00:00
|
|
|
|
|
1994-04-05 23:04:36 +00:00
|
|
|
|
#ifndef MAIL_USE_SYSTEM_LOCK
|
1989-04-28 03:54:04 +00:00
|
|
|
|
struct stat st;
|
|
|
|
|
long now;
|
|
|
|
|
int tem;
|
|
|
|
|
char *lockname, *p;
|
1992-03-28 21:00:42 +00:00
|
|
|
|
char *tempname;
|
1989-04-28 03:54:04 +00:00
|
|
|
|
int desc;
|
1994-04-05 23:04:36 +00:00
|
|
|
|
#endif /* not MAIL_USE_SYSTEM_LOCK */
|
1989-04-28 03:54:04 +00:00
|
|
|
|
|
1997-01-20 07:30:40 +00:00
|
|
|
|
#ifdef MAIL_USE_MAILLOCK
|
|
|
|
|
char *spool_name;
|
|
|
|
|
#endif
|
|
|
|
|
|
1998-09-04 20:14:16 +00:00
|
|
|
|
#ifdef MAIL_USE_POP
|
|
|
|
|
int pop_reverse_order = 0;
|
|
|
|
|
# define ARGSTR "pr"
|
|
|
|
|
#else /* ! MAIL_USE_POP */
|
|
|
|
|
# define ARGSTR "p"
|
|
|
|
|
#endif /* MAIL_USE_POP */
|
|
|
|
|
|
2000-08-22 21:20:07 +00:00
|
|
|
|
#ifdef WINDOWSNT
|
|
|
|
|
/* Ensure all file i/o is in binary mode. */
|
|
|
|
|
_fmode = _O_BINARY;
|
|
|
|
|
#endif
|
|
|
|
|
|
1989-04-28 03:54:04 +00:00
|
|
|
|
delete_lockname = 0;
|
|
|
|
|
|
1998-09-04 20:14:16 +00:00
|
|
|
|
while ((c = getopt (argc, argv, ARGSTR)) != EOF)
|
1994-10-12 19:20:24 +00:00
|
|
|
|
{
|
1997-01-21 01:54:39 +00:00
|
|
|
|
switch (c) {
|
1998-09-04 20:14:16 +00:00
|
|
|
|
#ifdef MAIL_USE_POP
|
|
|
|
|
case 'r':
|
|
|
|
|
pop_reverse_order = 1;
|
|
|
|
|
break;
|
|
|
|
|
#endif
|
1997-01-21 01:54:39 +00:00
|
|
|
|
case 'p':
|
|
|
|
|
preserve_mail++;
|
|
|
|
|
break;
|
|
|
|
|
default:
|
2004-05-08 15:26:33 +00:00
|
|
|
|
exit (EXIT_FAILURE);
|
1997-01-21 01:54:39 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (
|
|
|
|
|
#ifdef MAIL_USE_POP
|
|
|
|
|
(argc - optind < 2) || (argc - optind > 3)
|
|
|
|
|
#else
|
|
|
|
|
(argc - optind != 2)
|
|
|
|
|
#endif
|
|
|
|
|
)
|
|
|
|
|
{
|
|
|
|
|
#ifdef MAIL_USE_POP
|
2003-07-28 22:10:30 +00:00
|
|
|
|
fprintf (stderr, "Usage: movemail [-p] inbox destfile%s\n",
|
|
|
|
|
" [POP-password]");
|
1997-01-21 01:54:39 +00:00
|
|
|
|
#else
|
2003-07-28 22:10:30 +00:00
|
|
|
|
fprintf (stderr, "Usage: movemail [-p] inbox destfile%s\n", "");
|
1997-01-21 01:54:39 +00:00
|
|
|
|
#endif
|
2004-05-08 15:26:33 +00:00
|
|
|
|
exit (EXIT_FAILURE);
|
1994-10-12 19:20:24 +00:00
|
|
|
|
}
|
1989-04-28 03:54:04 +00:00
|
|
|
|
|
1997-01-21 01:54:39 +00:00
|
|
|
|
inname = argv[optind];
|
|
|
|
|
outname = argv[optind+1];
|
1989-04-28 03:54:04 +00:00
|
|
|
|
|
1989-05-14 22:52:53 +00:00
|
|
|
|
#ifdef MAIL_USE_MMDF
|
|
|
|
|
mmdf_init (argv[0]);
|
|
|
|
|
#endif
|
|
|
|
|
|
1995-08-06 23:57:31 +00:00
|
|
|
|
if (*outname == 0)
|
2005-02-04 22:11:43 +00:00
|
|
|
|
fatal ("Destination file name is empty", 0, 0);
|
1995-08-06 23:57:31 +00:00
|
|
|
|
|
1990-11-13 05:11:43 +00:00
|
|
|
|
/* Check access to output file. */
|
1989-04-28 03:54:04 +00:00
|
|
|
|
if (access (outname, F_OK) == 0 && access (outname, W_OK) != 0)
|
|
|
|
|
pfatal_with_name (outname);
|
|
|
|
|
|
1996-01-05 10:03:17 +00:00
|
|
|
|
/* Also check that outname's directory is writable to the real uid. */
|
1989-04-28 03:54:04 +00:00
|
|
|
|
{
|
1994-01-06 03:57:28 +00:00
|
|
|
|
char *buf = (char *) xmalloc (strlen (outname) + 1);
|
1994-10-12 19:20:24 +00:00
|
|
|
|
char *p;
|
1989-04-28 03:54:04 +00:00
|
|
|
|
strcpy (buf, outname);
|
|
|
|
|
p = buf + strlen (buf);
|
1996-04-28 19:07:35 +00:00
|
|
|
|
while (p > buf && !IS_DIRECTORY_SEP (p[-1]))
|
1989-04-28 03:54:04 +00:00
|
|
|
|
*--p = 0;
|
|
|
|
|
if (p == buf)
|
|
|
|
|
*p++ = '.';
|
|
|
|
|
if (access (buf, W_OK) != 0)
|
|
|
|
|
pfatal_with_name (buf);
|
|
|
|
|
free (buf);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#ifdef MAIL_USE_POP
|
1993-05-30 19:26:11 +00:00
|
|
|
|
if (!strncmp (inname, "po:", 3))
|
1989-04-28 03:54:04 +00:00
|
|
|
|
{
|
1995-06-30 01:10:20 +00:00
|
|
|
|
int status;
|
1989-04-28 03:54:04 +00:00
|
|
|
|
|
1997-01-21 01:54:39 +00:00
|
|
|
|
status = popmail (inname + 3, outname, preserve_mail,
|
1998-09-04 20:14:16 +00:00
|
|
|
|
(argc - optind == 3) ? argv[optind+2] : NULL,
|
|
|
|
|
pop_reverse_order);
|
1989-04-28 03:54:04 +00:00
|
|
|
|
exit (status);
|
|
|
|
|
}
|
|
|
|
|
|
1991-12-07 22:01:44 +00:00
|
|
|
|
setuid (getuid ());
|
1989-04-28 03:54:04 +00:00
|
|
|
|
#endif /* MAIL_USE_POP */
|
|
|
|
|
|
1996-04-28 19:07:35 +00:00
|
|
|
|
#ifndef DISABLE_DIRECT_ACCESS
|
|
|
|
|
|
1990-11-13 05:11:43 +00:00
|
|
|
|
/* Check access to input file. */
|
|
|
|
|
if (access (inname, R_OK | W_OK) != 0)
|
|
|
|
|
pfatal_with_name (inname);
|
|
|
|
|
|
1989-05-14 22:52:53 +00:00
|
|
|
|
#ifndef MAIL_USE_MMDF
|
1994-04-05 23:04:36 +00:00
|
|
|
|
#ifndef MAIL_USE_SYSTEM_LOCK
|
1997-01-20 07:30:40 +00:00
|
|
|
|
#ifdef MAIL_USE_MAILLOCK
|
|
|
|
|
spool_name = mail_spool_name (inname);
|
|
|
|
|
if (! spool_name)
|
|
|
|
|
#endif
|
1989-04-28 03:54:04 +00:00
|
|
|
|
{
|
1997-01-20 07:30:40 +00:00
|
|
|
|
/* Use a lock file named after our first argument with .lock appended:
|
|
|
|
|
If it exists, the mail file is locked. */
|
|
|
|
|
/* Note: this locking mechanism is *required* by the mailer
|
|
|
|
|
(on systems which use it) to prevent loss of mail.
|
|
|
|
|
|
|
|
|
|
On systems that use a lock file, extracting the mail without locking
|
|
|
|
|
WILL occasionally cause loss of mail due to timing errors!
|
|
|
|
|
|
|
|
|
|
So, if creation of the lock file fails
|
|
|
|
|
due to access permission on the mail spool directory,
|
|
|
|
|
you simply MUST change the permission
|
|
|
|
|
and/or make movemail a setgid program
|
|
|
|
|
so it can create lock files properly.
|
|
|
|
|
|
|
|
|
|
You might also wish to verify that your system is one
|
|
|
|
|
which uses lock files for this purpose. Some systems use other methods.
|
|
|
|
|
|
|
|
|
|
If your system uses the `flock' system call for mail locking,
|
|
|
|
|
define MAIL_USE_SYSTEM_LOCK in config.h or the s-*.h file
|
|
|
|
|
and recompile movemail. If the s- file for your system
|
|
|
|
|
should define MAIL_USE_SYSTEM_LOCK but does not, send a bug report
|
|
|
|
|
to bug-gnu-emacs@prep.ai.mit.edu so we can fix it. */
|
|
|
|
|
|
|
|
|
|
lockname = concat (inname, ".lock", "");
|
|
|
|
|
tempname = (char *) xmalloc (strlen (inname) + strlen ("EXXXXXX") + 1);
|
|
|
|
|
strcpy (tempname, inname);
|
|
|
|
|
p = tempname + strlen (tempname);
|
|
|
|
|
while (p != tempname && !IS_DIRECTORY_SEP (p[-1]))
|
|
|
|
|
p--;
|
|
|
|
|
*p = 0;
|
|
|
|
|
strcpy (p, "EXXXXXX");
|
|
|
|
|
mktemp (tempname);
|
1991-12-07 22:01:44 +00:00
|
|
|
|
unlink (tempname);
|
1989-04-28 03:54:04 +00:00
|
|
|
|
|
1997-01-20 07:30:40 +00:00
|
|
|
|
while (1)
|
1989-04-28 03:54:04 +00:00
|
|
|
|
{
|
1997-01-20 07:30:40 +00:00
|
|
|
|
/* Create the lock file, but not under the lock file name. */
|
|
|
|
|
/* Give up if cannot do that. */
|
|
|
|
|
desc = open (tempname, O_WRONLY | O_CREAT | O_EXCL, 0666);
|
|
|
|
|
if (desc < 0)
|
|
|
|
|
{
|
|
|
|
|
char *message = (char *) xmalloc (strlen (tempname) + 50);
|
2000-01-29 23:53:44 +00:00
|
|
|
|
sprintf (message, "creating %s, which would become the lock file",
|
1997-01-20 07:30:40 +00:00
|
|
|
|
tempname);
|
|
|
|
|
pfatal_with_name (message);
|
|
|
|
|
}
|
|
|
|
|
close (desc);
|
|
|
|
|
|
|
|
|
|
tem = link (tempname, lockname);
|
|
|
|
|
unlink (tempname);
|
|
|
|
|
if (tem >= 0)
|
|
|
|
|
break;
|
|
|
|
|
sleep (1);
|
|
|
|
|
|
|
|
|
|
/* If lock file is five minutes old, unlock it.
|
|
|
|
|
Five minutes should be good enough to cope with crashes
|
|
|
|
|
and wedgitude, and long enough to avoid being fooled
|
|
|
|
|
by time differences between machines. */
|
|
|
|
|
if (stat (lockname, &st) >= 0)
|
|
|
|
|
{
|
|
|
|
|
now = time (0);
|
|
|
|
|
if (st.st_ctime < now - 300)
|
|
|
|
|
unlink (lockname);
|
|
|
|
|
}
|
1989-04-28 03:54:04 +00:00
|
|
|
|
}
|
|
|
|
|
|
1997-01-20 07:30:40 +00:00
|
|
|
|
delete_lockname = lockname;
|
|
|
|
|
}
|
1994-04-05 23:04:36 +00:00
|
|
|
|
#endif /* not MAIL_USE_SYSTEM_LOCK */
|
|
|
|
|
#endif /* not MAIL_USE_MMDF */
|
1989-04-28 03:54:04 +00:00
|
|
|
|
|
1994-01-04 06:46:12 +00:00
|
|
|
|
if (fork () == 0)
|
|
|
|
|
{
|
1996-09-29 22:45:55 +00:00
|
|
|
|
int lockcount = 0;
|
1997-01-20 07:30:40 +00:00
|
|
|
|
int status = 0;
|
|
|
|
|
#if defined (MAIL_USE_MAILLOCK) && defined (HAVE_TOUCHLOCK)
|
|
|
|
|
long touched_lock, now;
|
|
|
|
|
#endif
|
1996-09-29 22:45:55 +00:00
|
|
|
|
|
1994-04-12 01:28:10 +00:00
|
|
|
|
setuid (getuid ());
|
1994-01-04 06:46:12 +00:00
|
|
|
|
|
1994-04-05 23:04:36 +00:00
|
|
|
|
#ifndef MAIL_USE_MMDF
|
|
|
|
|
#ifdef MAIL_USE_SYSTEM_LOCK
|
1994-01-04 06:46:12 +00:00
|
|
|
|
indesc = open (inname, O_RDWR);
|
1994-04-05 23:04:36 +00:00
|
|
|
|
#else /* if not MAIL_USE_SYSTEM_LOCK */
|
1994-01-04 06:46:12 +00:00
|
|
|
|
indesc = open (inname, O_RDONLY);
|
1994-04-05 23:04:36 +00:00
|
|
|
|
#endif /* not MAIL_USE_SYSTEM_LOCK */
|
1994-01-04 06:46:12 +00:00
|
|
|
|
#else /* MAIL_USE_MMDF */
|
|
|
|
|
indesc = lk_open (inname, O_RDONLY, 0, 0, 10);
|
1989-05-14 22:52:53 +00:00
|
|
|
|
#endif /* MAIL_USE_MMDF */
|
|
|
|
|
|
1994-01-04 06:46:12 +00:00
|
|
|
|
if (indesc < 0)
|
|
|
|
|
pfatal_with_name (inname);
|
1989-04-28 03:54:04 +00:00
|
|
|
|
|
1996-09-17 02:37:17 +00:00
|
|
|
|
#if defined (BSD_SYSTEM) || defined (XENIX)
|
1994-01-04 06:46:12 +00:00
|
|
|
|
/* In case movemail is setuid to root, make sure the user can
|
|
|
|
|
read the output file. */
|
|
|
|
|
/* This is desirable for all systems
|
|
|
|
|
but I don't want to assume all have the umask system call */
|
|
|
|
|
umask (umask (0) & 0333);
|
1996-09-17 02:37:17 +00:00
|
|
|
|
#endif /* BSD_SYSTEM || XENIX */
|
1994-01-04 06:46:12 +00:00
|
|
|
|
outdesc = open (outname, O_WRONLY | O_CREAT | O_EXCL, 0666);
|
|
|
|
|
if (outdesc < 0)
|
|
|
|
|
pfatal_with_name (outname);
|
1996-09-29 22:45:55 +00:00
|
|
|
|
|
|
|
|
|
/* This label exists so we can retry locking
|
|
|
|
|
after a delay, if it got EAGAIN or EBUSY. */
|
|
|
|
|
retry_lock:
|
|
|
|
|
|
|
|
|
|
/* Try to lock it. */
|
1997-01-20 07:30:40 +00:00
|
|
|
|
#ifdef MAIL_USE_MAILLOCK
|
|
|
|
|
if (spool_name)
|
|
|
|
|
{
|
|
|
|
|
/* The "0 - " is to make it a negative number if maillock returns
|
|
|
|
|
non-zero. */
|
|
|
|
|
status = 0 - maillock (spool_name, 1);
|
|
|
|
|
#ifdef HAVE_TOUCHLOCK
|
|
|
|
|
touched_lock = time (0);
|
|
|
|
|
#endif
|
|
|
|
|
lockcount = 5;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
#endif /* MAIL_USE_MAILLOCK */
|
|
|
|
|
{
|
1994-04-05 23:04:36 +00:00
|
|
|
|
#ifdef MAIL_USE_SYSTEM_LOCK
|
|
|
|
|
#ifdef MAIL_USE_LOCKF
|
1997-01-20 07:30:40 +00:00
|
|
|
|
status = lockf (indesc, F_LOCK, 0);
|
1994-04-05 23:04:36 +00:00
|
|
|
|
#else /* not MAIL_USE_LOCKF */
|
1989-04-28 03:54:04 +00:00
|
|
|
|
#ifdef XENIX
|
1997-01-20 07:30:40 +00:00
|
|
|
|
status = locking (indesc, LK_RLCK, 0L);
|
1996-04-28 19:07:35 +00:00
|
|
|
|
#else
|
|
|
|
|
#ifdef WINDOWSNT
|
1997-01-20 07:30:40 +00:00
|
|
|
|
status = locking (indesc, LK_RLCK, -1L);
|
1989-04-28 03:54:04 +00:00
|
|
|
|
#else
|
1997-01-20 07:30:40 +00:00
|
|
|
|
status = flock (indesc, LOCK_EX);
|
1989-04-28 03:54:04 +00:00
|
|
|
|
#endif
|
1996-04-28 19:07:35 +00:00
|
|
|
|
#endif
|
1994-04-05 23:04:36 +00:00
|
|
|
|
#endif /* not MAIL_USE_LOCKF */
|
|
|
|
|
#endif /* MAIL_USE_SYSTEM_LOCK */
|
1997-01-20 07:30:40 +00:00
|
|
|
|
}
|
1989-04-28 03:54:04 +00:00
|
|
|
|
|
1996-09-29 22:45:55 +00:00
|
|
|
|
/* If it fails, retry up to 5 times
|
|
|
|
|
for certain failure codes. */
|
|
|
|
|
if (status < 0)
|
|
|
|
|
{
|
|
|
|
|
if (++lockcount <= 5)
|
|
|
|
|
{
|
|
|
|
|
#ifdef EAGAIN
|
|
|
|
|
if (errno == EAGAIN)
|
|
|
|
|
{
|
|
|
|
|
sleep (1);
|
|
|
|
|
goto retry_lock;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
#ifdef EBUSY
|
|
|
|
|
if (errno == EBUSY)
|
|
|
|
|
{
|
|
|
|
|
sleep (1);
|
|
|
|
|
goto retry_lock;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
pfatal_with_name (inname);
|
|
|
|
|
}
|
2003-02-04 14:56:31 +00:00
|
|
|
|
|
1992-04-01 11:14:15 +00:00
|
|
|
|
{
|
1994-01-04 06:46:12 +00:00
|
|
|
|
char buf[1024];
|
|
|
|
|
|
|
|
|
|
while (1)
|
1992-04-01 11:14:15 +00:00
|
|
|
|
{
|
1994-01-04 06:46:12 +00:00
|
|
|
|
nread = read (indesc, buf, sizeof buf);
|
|
|
|
|
if (nread != write (outdesc, buf, nread))
|
|
|
|
|
{
|
|
|
|
|
int saved_errno = errno;
|
|
|
|
|
unlink (outname);
|
|
|
|
|
errno = saved_errno;
|
|
|
|
|
pfatal_with_name (outname);
|
|
|
|
|
}
|
|
|
|
|
if (nread < sizeof buf)
|
|
|
|
|
break;
|
1997-01-20 07:30:40 +00:00
|
|
|
|
#if defined (MAIL_USE_MAILLOCK) && defined (HAVE_TOUCHLOCK)
|
|
|
|
|
if (spool_name)
|
|
|
|
|
{
|
|
|
|
|
now = time (0);
|
|
|
|
|
if (now - touched_lock > 60)
|
|
|
|
|
{
|
|
|
|
|
touchlock ();
|
|
|
|
|
touched_lock = now;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
#endif /* MAIL_USE_MAILLOCK */
|
1992-04-01 11:14:15 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
1989-04-28 03:54:04 +00:00
|
|
|
|
|
1996-09-17 02:37:17 +00:00
|
|
|
|
#ifdef BSD_SYSTEM
|
1994-01-04 06:46:12 +00:00
|
|
|
|
if (fsync (outdesc) < 0)
|
|
|
|
|
pfatal_and_delete (outname);
|
1989-04-28 03:54:04 +00:00
|
|
|
|
#endif
|
|
|
|
|
|
1994-01-04 06:46:12 +00:00
|
|
|
|
/* Check to make sure no errors before we zap the inbox. */
|
|
|
|
|
if (close (outdesc) != 0)
|
|
|
|
|
pfatal_and_delete (outname);
|
1989-04-28 03:54:04 +00:00
|
|
|
|
|
1994-04-05 23:04:36 +00:00
|
|
|
|
#ifdef MAIL_USE_SYSTEM_LOCK
|
1997-01-21 01:54:39 +00:00
|
|
|
|
if (! preserve_mail)
|
|
|
|
|
{
|
1999-05-02 09:31:32 +00:00
|
|
|
|
#if defined (STRIDE) || defined (XENIX)
|
1997-01-21 01:54:39 +00:00
|
|
|
|
/* Stride, xenix have file locking, but no ftruncate.
|
|
|
|
|
This mess will do. */
|
|
|
|
|
close (open (inname, O_CREAT | O_TRUNC | O_RDWR, 0666));
|
1989-04-28 03:54:04 +00:00
|
|
|
|
#else
|
1997-01-21 01:54:39 +00:00
|
|
|
|
ftruncate (indesc, 0L);
|
1989-04-28 03:54:04 +00:00
|
|
|
|
#endif /* STRIDE or XENIX */
|
1998-01-23 11:06:49 +00:00
|
|
|
|
}
|
1994-04-05 23:04:36 +00:00
|
|
|
|
#endif /* MAIL_USE_SYSTEM_LOCK */
|
1989-05-14 22:52:53 +00:00
|
|
|
|
|
|
|
|
|
#ifdef MAIL_USE_MMDF
|
1994-01-04 06:46:12 +00:00
|
|
|
|
lk_close (indesc, 0, 0, 0);
|
1989-05-14 22:52:53 +00:00
|
|
|
|
#else
|
1994-01-04 06:46:12 +00:00
|
|
|
|
close (indesc);
|
1989-05-14 22:52:53 +00:00
|
|
|
|
#endif
|
1989-04-28 03:54:04 +00:00
|
|
|
|
|
1994-04-05 23:04:36 +00:00
|
|
|
|
#ifndef MAIL_USE_SYSTEM_LOCK
|
1997-01-21 01:54:39 +00:00
|
|
|
|
if (! preserve_mail)
|
|
|
|
|
{
|
|
|
|
|
/* Delete the input file; if we can't, at least get rid of its
|
|
|
|
|
contents. */
|
1992-03-09 17:40:11 +00:00
|
|
|
|
#ifdef MAIL_UNLINK_SPOOL
|
1997-01-21 01:54:39 +00:00
|
|
|
|
/* This is generally bad to do, because it destroys the permissions
|
|
|
|
|
that were set on the file. Better to just empty the file. */
|
|
|
|
|
if (unlink (inname) < 0 && errno != ENOENT)
|
1992-03-09 17:40:11 +00:00
|
|
|
|
#endif /* MAIL_UNLINK_SPOOL */
|
1997-01-21 01:54:39 +00:00
|
|
|
|
creat (inname, 0600);
|
|
|
|
|
}
|
1994-04-05 23:04:36 +00:00
|
|
|
|
#endif /* not MAIL_USE_SYSTEM_LOCK */
|
1994-01-04 06:46:12 +00:00
|
|
|
|
|
1997-01-20 07:30:40 +00:00
|
|
|
|
#ifdef MAIL_USE_MAILLOCK
|
|
|
|
|
/* This has to occur in the child, i.e., in the process that
|
|
|
|
|
acquired the lock! */
|
|
|
|
|
if (spool_name)
|
|
|
|
|
mailunlock ();
|
|
|
|
|
#endif
|
2004-05-08 15:26:33 +00:00
|
|
|
|
exit (EXIT_SUCCESS);
|
1994-01-04 06:46:12 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
wait (&status);
|
|
|
|
|
if (!WIFEXITED (status))
|
2004-05-08 15:26:33 +00:00
|
|
|
|
exit (EXIT_FAILURE);
|
1994-01-04 06:46:12 +00:00
|
|
|
|
else if (WRETCODE (status) != 0)
|
|
|
|
|
exit (WRETCODE (status));
|
|
|
|
|
|
1994-04-05 23:04:36 +00:00
|
|
|
|
#if !defined (MAIL_USE_MMDF) && !defined (MAIL_USE_SYSTEM_LOCK)
|
1997-01-20 07:30:40 +00:00
|
|
|
|
#ifdef MAIL_USE_MAILLOCK
|
|
|
|
|
if (! spool_name)
|
|
|
|
|
#endif /* MAIL_USE_MAILLOCK */
|
|
|
|
|
unlink (lockname);
|
1994-04-05 23:04:36 +00:00
|
|
|
|
#endif /* not MAIL_USE_MMDF and not MAIL_USE_SYSTEM_LOCK */
|
1996-04-28 19:07:35 +00:00
|
|
|
|
|
|
|
|
|
#endif /* ! DISABLE_DIRECT_ACCESS */
|
|
|
|
|
|
2004-05-08 15:26:33 +00:00
|
|
|
|
return EXIT_SUCCESS;
|
1989-04-28 03:54:04 +00:00
|
|
|
|
}
|
1997-01-20 07:30:40 +00:00
|
|
|
|
|
|
|
|
|
#ifdef MAIL_USE_MAILLOCK
|
|
|
|
|
/* This function uses stat to confirm that the mail directory is
|
|
|
|
|
identical to the directory of the input file, rather than just
|
|
|
|
|
string-comparing the two paths, because one or both of them might
|
|
|
|
|
be symbolic links pointing to some other directory. */
|
|
|
|
|
static char *
|
|
|
|
|
mail_spool_name (inname)
|
|
|
|
|
char *inname;
|
|
|
|
|
{
|
|
|
|
|
struct stat stat1, stat2;
|
|
|
|
|
char *indir, *fname;
|
|
|
|
|
int status;
|
|
|
|
|
|
|
|
|
|
if (! (fname = rindex (inname, '/')))
|
|
|
|
|
return NULL;
|
|
|
|
|
|
|
|
|
|
fname++;
|
|
|
|
|
|
|
|
|
|
if (stat (MAILDIR, &stat1) < 0)
|
|
|
|
|
return NULL;
|
|
|
|
|
|
|
|
|
|
indir = (char *) xmalloc (fname - inname + 1);
|
|
|
|
|
strncpy (indir, inname, fname - inname);
|
|
|
|
|
indir[fname-inname] = '\0';
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
status = stat (indir, &stat2);
|
|
|
|
|
|
|
|
|
|
free (indir);
|
|
|
|
|
|
|
|
|
|
if (status < 0)
|
|
|
|
|
return NULL;
|
|
|
|
|
|
1997-07-05 03:19:16 +00:00
|
|
|
|
if (stat1.st_dev == stat2.st_dev
|
|
|
|
|
&& stat1.st_ino == stat2.st_ino)
|
1997-01-20 07:30:40 +00:00
|
|
|
|
return fname;
|
|
|
|
|
|
|
|
|
|
return NULL;
|
|
|
|
|
}
|
|
|
|
|
#endif /* MAIL_USE_MAILLOCK */
|
1989-04-28 03:54:04 +00:00
|
|
|
|
|
|
|
|
|
/* Print error message and exit. */
|
|
|
|
|
|
1994-10-12 19:20:24 +00:00
|
|
|
|
void
|
2005-02-04 22:11:43 +00:00
|
|
|
|
fatal (s1, s2, s3)
|
|
|
|
|
char *s1, *s2, *s3;
|
1989-04-28 03:54:04 +00:00
|
|
|
|
{
|
|
|
|
|
if (delete_lockname)
|
|
|
|
|
unlink (delete_lockname);
|
2005-02-04 22:11:43 +00:00
|
|
|
|
error (s1, s2, s3);
|
2004-05-08 15:26:33 +00:00
|
|
|
|
exit (EXIT_FAILURE);
|
1989-04-28 03:54:04 +00:00
|
|
|
|
}
|
|
|
|
|
|
2000-08-28 18:56:15 +00:00
|
|
|
|
/* Print error message. `s1' is printf control string, `s2' and `s3'
|
|
|
|
|
are args for it or null. */
|
1989-04-28 03:54:04 +00:00
|
|
|
|
|
1994-10-12 19:20:24 +00:00
|
|
|
|
void
|
1990-11-13 05:11:43 +00:00
|
|
|
|
error (s1, s2, s3)
|
|
|
|
|
char *s1, *s2, *s3;
|
1989-04-28 03:54:04 +00:00
|
|
|
|
{
|
1994-10-12 19:20:24 +00:00
|
|
|
|
fprintf (stderr, "movemail: ");
|
2000-08-28 18:56:15 +00:00
|
|
|
|
if (s3)
|
|
|
|
|
fprintf (stderr, s1, s2, s3);
|
|
|
|
|
else if (s2)
|
|
|
|
|
fprintf (stderr, s1, s2);
|
|
|
|
|
else
|
|
|
|
|
fprintf (stderr, s1);
|
1994-10-12 19:20:24 +00:00
|
|
|
|
fprintf (stderr, "\n");
|
1989-04-28 03:54:04 +00:00
|
|
|
|
}
|
|
|
|
|
|
1994-10-12 19:20:24 +00:00
|
|
|
|
void
|
1989-04-28 03:54:04 +00:00
|
|
|
|
pfatal_with_name (name)
|
|
|
|
|
char *name;
|
|
|
|
|
{
|
2005-02-04 22:11:43 +00:00
|
|
|
|
fatal ("%s for %s", strerror (errno), name);
|
1989-04-28 03:54:04 +00:00
|
|
|
|
}
|
|
|
|
|
|
1994-10-12 19:20:24 +00:00
|
|
|
|
void
|
1991-12-07 22:01:44 +00:00
|
|
|
|
pfatal_and_delete (name)
|
|
|
|
|
char *name;
|
|
|
|
|
{
|
2005-02-04 22:11:43 +00:00
|
|
|
|
char *s = strerror (errno);
|
1991-12-07 22:01:44 +00:00
|
|
|
|
unlink (name);
|
2005-02-04 22:11:43 +00:00
|
|
|
|
fatal ("%s for %s", s, name);
|
1991-12-07 22:01:44 +00:00
|
|
|
|
}
|
|
|
|
|
|
1989-04-28 03:54:04 +00:00
|
|
|
|
/* Return a newly-allocated string whose contents concatenate those of s1, s2, s3. */
|
|
|
|
|
|
|
|
|
|
char *
|
|
|
|
|
concat (s1, s2, s3)
|
|
|
|
|
char *s1, *s2, *s3;
|
|
|
|
|
{
|
|
|
|
|
int len1 = strlen (s1), len2 = strlen (s2), len3 = strlen (s3);
|
|
|
|
|
char *result = (char *) xmalloc (len1 + len2 + len3 + 1);
|
|
|
|
|
|
|
|
|
|
strcpy (result, s1);
|
|
|
|
|
strcpy (result + len1, s2);
|
|
|
|
|
strcpy (result + len1 + len2, s3);
|
|
|
|
|
*(result + len1 + len2 + len3) = 0;
|
|
|
|
|
|
|
|
|
|
return result;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Like malloc but get fatal error if memory is exhausted. */
|
|
|
|
|
|
1995-05-04 06:46:51 +00:00
|
|
|
|
long *
|
1989-04-28 03:54:04 +00:00
|
|
|
|
xmalloc (size)
|
1992-03-09 17:40:11 +00:00
|
|
|
|
unsigned size;
|
1989-04-28 03:54:04 +00:00
|
|
|
|
{
|
1995-05-04 06:46:51 +00:00
|
|
|
|
long *result = (long *) malloc (size);
|
1989-04-28 03:54:04 +00:00
|
|
|
|
if (!result)
|
2005-02-04 22:11:43 +00:00
|
|
|
|
fatal ("virtual memory exhausted", 0, 0);
|
1989-04-28 03:54:04 +00:00
|
|
|
|
return result;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* This is the guts of the interface to the Post Office Protocol. */
|
|
|
|
|
|
|
|
|
|
#ifdef MAIL_USE_POP
|
|
|
|
|
|
1996-04-28 19:07:35 +00:00
|
|
|
|
#ifndef WINDOWSNT
|
1989-04-28 03:54:04 +00:00
|
|
|
|
#include <sys/socket.h>
|
|
|
|
|
#include <netinet/in.h>
|
|
|
|
|
#include <netdb.h>
|
1996-04-28 19:07:35 +00:00
|
|
|
|
#else
|
|
|
|
|
#undef _WINSOCKAPI_
|
|
|
|
|
#include <winsock.h>
|
|
|
|
|
#endif
|
1992-05-07 20:13:17 +00:00
|
|
|
|
#include <pwd.h>
|
1989-04-28 03:54:04 +00:00
|
|
|
|
|
|
|
|
|
#define NOTOK (-1)
|
|
|
|
|
#define OK 0
|
|
|
|
|
#define DONE 1
|
|
|
|
|
|
|
|
|
|
char *progname;
|
|
|
|
|
FILE *sfi;
|
|
|
|
|
FILE *sfo;
|
1994-09-27 19:45:00 +00:00
|
|
|
|
char ibuffer[BUFSIZ];
|
|
|
|
|
char obuffer[BUFSIZ];
|
2000-05-21 11:02:50 +00:00
|
|
|
|
char Errmsg[200]; /* POP errors, at least, can exceed
|
|
|
|
|
the original length of 80. */
|
1989-04-28 03:54:04 +00:00
|
|
|
|
|
1999-12-10 09:53:01 +00:00
|
|
|
|
/*
|
|
|
|
|
* The full legal syntax for a POP mailbox specification for movemail
|
|
|
|
|
* is "po:username:hostname". The ":hostname" is optional; if it is
|
|
|
|
|
* omitted, the MAILHOST environment variable will be consulted. Note
|
|
|
|
|
* that by the time popmail() is called the "po:" has been stripped
|
|
|
|
|
* off of the front of the mailbox name.
|
|
|
|
|
*
|
|
|
|
|
* If the mailbox is in the form "po:username:hostname", then it is
|
|
|
|
|
* modified by this function -- the second colon is replaced by a
|
|
|
|
|
* null.
|
2004-05-08 15:26:33 +00:00
|
|
|
|
*
|
|
|
|
|
* Return a value suitable for passing to `exit'.
|
1999-12-10 09:53:01 +00:00
|
|
|
|
*/
|
|
|
|
|
|
2000-08-28 18:56:15 +00:00
|
|
|
|
int
|
1999-12-10 09:53:01 +00:00
|
|
|
|
popmail (mailbox, outfile, preserve, password, reverse_order)
|
|
|
|
|
char *mailbox;
|
1990-11-13 05:11:43 +00:00
|
|
|
|
char *outfile;
|
1997-01-21 01:54:39 +00:00
|
|
|
|
int preserve;
|
1996-04-28 19:07:35 +00:00
|
|
|
|
char *password;
|
1998-09-04 20:14:16 +00:00
|
|
|
|
int reverse_order;
|
1989-04-28 03:54:04 +00:00
|
|
|
|
{
|
1990-11-13 05:11:43 +00:00
|
|
|
|
int nmsgs, nbytes;
|
|
|
|
|
register int i;
|
|
|
|
|
int mbfi;
|
|
|
|
|
FILE *mbf;
|
1994-09-27 19:45:00 +00:00
|
|
|
|
char *getenv ();
|
1994-10-20 20:35:57 +00:00
|
|
|
|
popserver server;
|
1998-09-04 20:14:16 +00:00
|
|
|
|
int start, end, increment;
|
1999-12-10 09:53:01 +00:00
|
|
|
|
char *user, *hostname;
|
|
|
|
|
|
|
|
|
|
user = mailbox;
|
|
|
|
|
if ((hostname = index(mailbox, ':')))
|
|
|
|
|
*hostname++ = '\0';
|
1989-04-28 03:54:04 +00:00
|
|
|
|
|
1999-12-10 09:53:01 +00:00
|
|
|
|
server = pop_open (hostname, user, password, POP_NO_GETPASS);
|
1994-09-27 19:45:00 +00:00
|
|
|
|
if (! server)
|
1990-11-13 05:11:43 +00:00
|
|
|
|
{
|
2000-08-28 18:56:15 +00:00
|
|
|
|
error ("Error connecting to POP server: %s", pop_error, 0);
|
2004-05-08 15:26:33 +00:00
|
|
|
|
return EXIT_FAILURE;
|
1989-04-28 03:54:04 +00:00
|
|
|
|
}
|
|
|
|
|
|
1994-09-27 19:45:00 +00:00
|
|
|
|
if (pop_stat (server, &nmsgs, &nbytes))
|
1990-11-13 05:11:43 +00:00
|
|
|
|
{
|
2000-08-28 18:56:15 +00:00
|
|
|
|
error ("Error getting message count from POP server: %s", pop_error, 0);
|
2004-05-08 15:26:33 +00:00
|
|
|
|
return EXIT_FAILURE;
|
1989-04-28 03:54:04 +00:00
|
|
|
|
}
|
|
|
|
|
|
1990-11-13 05:11:43 +00:00
|
|
|
|
if (!nmsgs)
|
|
|
|
|
{
|
1994-09-27 19:45:00 +00:00
|
|
|
|
pop_close (server);
|
2004-05-08 15:26:33 +00:00
|
|
|
|
return EXIT_SUCCESS;
|
1990-11-13 05:11:43 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
mbfi = open (outfile, O_WRONLY | O_CREAT | O_EXCL, 0666);
|
|
|
|
|
if (mbfi < 0)
|
|
|
|
|
{
|
1994-09-27 19:45:00 +00:00
|
|
|
|
pop_close (server);
|
|
|
|
|
error ("Error in open: %s, %s", strerror (errno), outfile);
|
2004-05-08 15:26:33 +00:00
|
|
|
|
return EXIT_FAILURE;
|
1990-11-13 05:11:43 +00:00
|
|
|
|
}
|
|
|
|
|
fchown (mbfi, getuid (), -1);
|
|
|
|
|
|
1996-04-28 19:07:35 +00:00
|
|
|
|
if ((mbf = fdopen (mbfi, "wb")) == NULL)
|
1990-11-13 05:11:43 +00:00
|
|
|
|
{
|
1994-09-27 19:45:00 +00:00
|
|
|
|
pop_close (server);
|
2000-08-28 18:56:15 +00:00
|
|
|
|
error ("Error in fdopen: %s", strerror (errno), 0);
|
1994-09-27 19:45:00 +00:00
|
|
|
|
close (mbfi);
|
|
|
|
|
unlink (outfile);
|
2004-05-08 15:26:33 +00:00
|
|
|
|
return EXIT_FAILURE;
|
1990-11-13 05:11:43 +00:00
|
|
|
|
}
|
|
|
|
|
|
1998-09-04 20:14:16 +00:00
|
|
|
|
if (reverse_order)
|
|
|
|
|
{
|
|
|
|
|
start = nmsgs;
|
|
|
|
|
end = 1;
|
|
|
|
|
increment = -1;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
start = 1;
|
|
|
|
|
end = nmsgs;
|
|
|
|
|
increment = 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
for (i = start; i * increment <= end * increment; i += increment)
|
1990-11-13 05:11:43 +00:00
|
|
|
|
{
|
|
|
|
|
mbx_delimit_begin (mbf);
|
1997-02-23 08:47:57 +00:00
|
|
|
|
if (pop_retr (server, i, mbf) != OK)
|
1990-11-13 05:11:43 +00:00
|
|
|
|
{
|
2005-01-29 16:56:30 +00:00
|
|
|
|
error ("%s", Errmsg, 0);
|
1990-11-13 05:11:43 +00:00
|
|
|
|
close (mbfi);
|
2004-05-08 15:26:33 +00:00
|
|
|
|
return EXIT_FAILURE;
|
1989-04-28 03:54:04 +00:00
|
|
|
|
}
|
1990-11-13 05:11:43 +00:00
|
|
|
|
mbx_delimit_end (mbf);
|
|
|
|
|
fflush (mbf);
|
1994-09-27 19:45:00 +00:00
|
|
|
|
if (ferror (mbf))
|
|
|
|
|
{
|
2000-08-28 18:56:15 +00:00
|
|
|
|
error ("Error in fflush: %s", strerror (errno), 0);
|
1994-09-27 19:45:00 +00:00
|
|
|
|
pop_close (server);
|
|
|
|
|
close (mbfi);
|
2004-05-08 15:26:33 +00:00
|
|
|
|
return EXIT_FAILURE;
|
1994-09-27 19:45:00 +00:00
|
|
|
|
}
|
1989-04-28 03:54:04 +00:00
|
|
|
|
}
|
|
|
|
|
|
1994-09-27 19:45:00 +00:00
|
|
|
|
/* On AFS, a call to write only modifies the file in the local
|
|
|
|
|
* workstation's AFS cache. The changes are not written to the server
|
|
|
|
|
* until a call to fsync or close is made. Users with AFS home
|
|
|
|
|
* directories have lost mail when over quota because these checks were
|
|
|
|
|
* not made in previous versions of movemail. */
|
|
|
|
|
|
1996-09-17 02:37:17 +00:00
|
|
|
|
#ifdef BSD_SYSTEM
|
1991-12-07 22:01:44 +00:00
|
|
|
|
if (fsync (mbfi) < 0)
|
|
|
|
|
{
|
2001-11-03 19:03:48 +00:00
|
|
|
|
error ("Error in fsync: %s", strerror (errno), 0);
|
2004-05-08 15:26:33 +00:00
|
|
|
|
return EXIT_FAILURE;
|
1991-12-07 22:01:44 +00:00
|
|
|
|
}
|
1994-10-12 20:21:51 +00:00
|
|
|
|
#endif
|
1991-12-07 22:01:44 +00:00
|
|
|
|
|
|
|
|
|
if (close (mbfi) == -1)
|
|
|
|
|
{
|
2000-08-28 18:56:15 +00:00
|
|
|
|
error ("Error in close: %s", strerror (errno), 0);
|
2004-05-08 15:26:33 +00:00
|
|
|
|
return EXIT_FAILURE;
|
1991-12-07 22:01:44 +00:00
|
|
|
|
}
|
|
|
|
|
|
1997-01-21 01:54:39 +00:00
|
|
|
|
if (! preserve)
|
|
|
|
|
for (i = 1; i <= nmsgs; i++)
|
|
|
|
|
{
|
|
|
|
|
if (pop_delete (server, i))
|
|
|
|
|
{
|
2000-08-28 18:56:15 +00:00
|
|
|
|
error ("Error from POP server: %s", pop_error, 0);
|
1997-01-21 01:54:39 +00:00
|
|
|
|
pop_close (server);
|
2004-05-08 15:26:33 +00:00
|
|
|
|
return EXIT_FAILURE;
|
1997-01-21 01:54:39 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
1989-04-28 03:54:04 +00:00
|
|
|
|
|
1994-09-27 19:45:00 +00:00
|
|
|
|
if (pop_quit (server))
|
1990-11-13 05:11:43 +00:00
|
|
|
|
{
|
2000-08-28 18:56:15 +00:00
|
|
|
|
error ("Error from POP server: %s", pop_error, 0);
|
2004-05-08 15:26:33 +00:00
|
|
|
|
return EXIT_FAILURE;
|
1989-04-28 03:54:04 +00:00
|
|
|
|
}
|
2003-02-04 14:56:31 +00:00
|
|
|
|
|
2004-05-08 15:26:33 +00:00
|
|
|
|
return EXIT_SUCCESS;
|
1989-04-28 03:54:04 +00:00
|
|
|
|
}
|
|
|
|
|
|
1997-02-23 08:47:57 +00:00
|
|
|
|
int
|
|
|
|
|
pop_retr (server, msgno, arg)
|
1994-10-20 20:35:57 +00:00
|
|
|
|
popserver server;
|
2002-11-14 14:09:51 +00:00
|
|
|
|
int msgno;
|
1997-02-23 08:47:57 +00:00
|
|
|
|
FILE *arg;
|
1989-04-28 03:54:04 +00:00
|
|
|
|
{
|
1994-09-27 19:45:00 +00:00
|
|
|
|
extern char *strerror ();
|
|
|
|
|
char *line;
|
|
|
|
|
int ret;
|
1989-04-28 03:54:04 +00:00
|
|
|
|
|
1994-09-27 19:45:00 +00:00
|
|
|
|
if (pop_retrieve_first (server, msgno, &line))
|
1990-11-13 05:11:43 +00:00
|
|
|
|
{
|
1998-09-21 17:36:14 +00:00
|
|
|
|
char *error = concat ("Error from POP server: ", pop_error, "");
|
|
|
|
|
strncpy (Errmsg, error, sizeof (Errmsg));
|
1994-09-27 19:45:00 +00:00
|
|
|
|
Errmsg[sizeof (Errmsg)-1] = '\0';
|
1998-09-21 17:36:14 +00:00
|
|
|
|
free(error);
|
1994-09-27 19:45:00 +00:00
|
|
|
|
return (NOTOK);
|
1989-04-28 03:54:04 +00:00
|
|
|
|
}
|
|
|
|
|
|
1997-12-04 06:44:56 +00:00
|
|
|
|
while ((ret = pop_retrieve_next (server, &line)) >= 0)
|
1990-11-13 05:11:43 +00:00
|
|
|
|
{
|
1994-09-27 19:45:00 +00:00
|
|
|
|
if (! line)
|
|
|
|
|
break;
|
|
|
|
|
|
1997-12-04 06:44:56 +00:00
|
|
|
|
if (mbx_write (line, ret, arg) != OK)
|
1990-11-13 05:11:43 +00:00
|
|
|
|
{
|
1994-09-27 19:45:00 +00:00
|
|
|
|
strcpy (Errmsg, strerror (errno));
|
|
|
|
|
pop_close (server);
|
|
|
|
|
return (NOTOK);
|
1989-04-28 03:54:04 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1994-09-27 19:45:00 +00:00
|
|
|
|
if (ret)
|
1990-11-13 05:11:43 +00:00
|
|
|
|
{
|
1998-09-21 17:36:14 +00:00
|
|
|
|
char *error = concat ("Error from POP server: ", pop_error, "");
|
|
|
|
|
strncpy (Errmsg, error, sizeof (Errmsg));
|
1994-09-27 19:45:00 +00:00
|
|
|
|
Errmsg[sizeof (Errmsg)-1] = '\0';
|
1998-09-21 17:36:14 +00:00
|
|
|
|
free(error);
|
1994-09-27 19:45:00 +00:00
|
|
|
|
return (NOTOK);
|
1989-04-28 03:54:04 +00:00
|
|
|
|
}
|
|
|
|
|
|
1994-09-27 19:45:00 +00:00
|
|
|
|
return (OK);
|
1989-04-28 03:54:04 +00:00
|
|
|
|
}
|
|
|
|
|
|
1994-09-27 19:45:00 +00:00
|
|
|
|
/* Do this as a macro instead of using strcmp to save on execution time. */
|
|
|
|
|
#define IS_FROM_LINE(a) ((a[0] == 'F') \
|
|
|
|
|
&& (a[1] == 'r') \
|
|
|
|
|
&& (a[2] == 'o') \
|
|
|
|
|
&& (a[3] == 'm') \
|
|
|
|
|
&& (a[4] == ' '))
|
1989-04-28 03:54:04 +00:00
|
|
|
|
|
1994-09-27 19:45:00 +00:00
|
|
|
|
int
|
1997-12-04 06:44:56 +00:00
|
|
|
|
mbx_write (line, len, mbf)
|
1990-11-13 05:11:43 +00:00
|
|
|
|
char *line;
|
1997-12-04 06:44:56 +00:00
|
|
|
|
int len;
|
1990-11-13 05:11:43 +00:00
|
|
|
|
FILE *mbf;
|
1989-04-28 03:54:04 +00:00
|
|
|
|
{
|
1997-12-03 07:11:43 +00:00
|
|
|
|
#ifdef MOVEMAIL_QUOTE_POP_FROM_LINES
|
1994-09-27 19:45:00 +00:00
|
|
|
|
if (IS_FROM_LINE (line))
|
|
|
|
|
{
|
|
|
|
|
if (fputc ('>', mbf) == EOF)
|
|
|
|
|
return (NOTOK);
|
|
|
|
|
}
|
1997-12-03 07:11:43 +00:00
|
|
|
|
#endif
|
|
|
|
|
if (line[0] == '\037')
|
|
|
|
|
{
|
|
|
|
|
if (fputs ("^_", mbf) == EOF)
|
|
|
|
|
return (NOTOK);
|
|
|
|
|
line++;
|
|
|
|
|
len--;
|
|
|
|
|
}
|
2003-02-04 14:56:31 +00:00
|
|
|
|
if (fwrite (line, 1, len, mbf) != len)
|
1994-09-27 19:45:00 +00:00
|
|
|
|
return (NOTOK);
|
|
|
|
|
if (fputc (0x0a, mbf) == EOF)
|
|
|
|
|
return (NOTOK);
|
|
|
|
|
return (OK);
|
1989-04-28 03:54:04 +00:00
|
|
|
|
}
|
|
|
|
|
|
1994-09-27 19:45:00 +00:00
|
|
|
|
int
|
1990-11-13 05:11:43 +00:00
|
|
|
|
mbx_delimit_begin (mbf)
|
|
|
|
|
FILE *mbf;
|
1989-04-28 03:54:04 +00:00
|
|
|
|
{
|
1994-09-27 19:45:00 +00:00
|
|
|
|
if (fputs ("\f\n0, unseen,,\n", mbf) == EOF)
|
|
|
|
|
return (NOTOK);
|
|
|
|
|
return (OK);
|
1989-04-28 03:54:04 +00:00
|
|
|
|
}
|
|
|
|
|
|
2000-08-28 18:56:15 +00:00
|
|
|
|
int
|
1990-11-13 05:11:43 +00:00
|
|
|
|
mbx_delimit_end (mbf)
|
|
|
|
|
FILE *mbf;
|
1989-04-28 03:54:04 +00:00
|
|
|
|
{
|
1994-09-27 19:45:00 +00:00
|
|
|
|
if (putc ('\037', mbf) == EOF)
|
|
|
|
|
return (NOTOK);
|
|
|
|
|
return (OK);
|
1989-04-28 03:54:04 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#endif /* MAIL_USE_POP */
|
1994-01-09 01:00:04 +00:00
|
|
|
|
|
|
|
|
|
#ifndef HAVE_STRERROR
|
|
|
|
|
char *
|
|
|
|
|
strerror (errnum)
|
|
|
|
|
int errnum;
|
|
|
|
|
{
|
|
|
|
|
extern char *sys_errlist[];
|
|
|
|
|
extern int sys_nerr;
|
|
|
|
|
|
|
|
|
|
if (errnum >= 0 && errnum < sys_nerr)
|
|
|
|
|
return sys_errlist[errnum];
|
|
|
|
|
return (char *) "Unknown error";
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#endif /* ! HAVE_STRERROR */
|
2003-09-01 15:45:59 +00:00
|
|
|
|
|
|
|
|
|
/* arch-tag: 1c323112-41fe-4fe5-8de9-494de631f73f
|
|
|
|
|
(do not change this comment) */
|
2004-05-08 15:26:33 +00:00
|
|
|
|
|
|
|
|
|
/* movemail.c ends here */
|