464 lines
10 KiB
C
464 lines
10 KiB
C
/* $Id$
|
|
*
|
|
* isync - IMAP4 to maildir mailbox synchronizer
|
|
* Copyright (C) 2000-2 Michael R. Elkins <me@mutt.org>
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* 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.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
*
|
|
* As a special exception, isync may be linked with the OpenSSL library,
|
|
* despite that library's more restrictive license.
|
|
*/
|
|
|
|
#include <sys/types.h>
|
|
#include <stdlib.h>
|
|
#include <unistd.h>
|
|
#include <stdarg.h>
|
|
#include <limits.h>
|
|
#include <pwd.h>
|
|
#include <stdio.h>
|
|
#include <errno.h>
|
|
#include <string.h>
|
|
#include <ctype.h>
|
|
#include <dirent.h>
|
|
#include "isync.h"
|
|
|
|
#if HAVE_GETOPT_LONG
|
|
#define _GNU_SOURCE
|
|
#include <getopt.h>
|
|
|
|
int Quiet;
|
|
|
|
void
|
|
info (const char *msg, ...)
|
|
{
|
|
va_list va;
|
|
|
|
if (!Quiet)
|
|
{
|
|
va_start (va, msg);
|
|
vprintf (msg, va);
|
|
va_end (va);
|
|
}
|
|
}
|
|
|
|
void
|
|
infoc (char c)
|
|
{
|
|
if (!Quiet)
|
|
putchar (c);
|
|
}
|
|
|
|
struct option Opts[] = {
|
|
{"all", 0, NULL, 'a'},
|
|
{"list", 0, NULL, 'l'},
|
|
{"config", 1, NULL, 'c'},
|
|
{"create", 0, NULL, 'C'},
|
|
{"create-local", 0, NULL, 'L'},
|
|
{"create-remote", 0, NULL, 'R'},
|
|
{"delete", 0, NULL, 'd'},
|
|
{"expunge", 0, NULL, 'e'},
|
|
{"fast", 0, NULL, 'f'},
|
|
{"help", 0, NULL, 'h'},
|
|
{"remote", 1, NULL, 'r'},
|
|
{"folder", 1, NULL, 'F'},
|
|
{"maildir", 1, NULL, 'M'},
|
|
{"one-to-one", 0, NULL, '1'},
|
|
{"inbox", 1, NULL, 'I'},
|
|
{"host", 1, NULL, 's'},
|
|
{"port", 1, NULL, 'p'},
|
|
{"quiet", 0, NULL, 'q'},
|
|
{"user", 1, NULL, 'u'},
|
|
{"version", 0, NULL, 'v'},
|
|
{"verbose", 0, NULL, 'V'},
|
|
{0, 0, 0, 0}
|
|
};
|
|
#endif
|
|
|
|
config_t global;
|
|
unsigned int Tag = 0;
|
|
char Hostname[256];
|
|
int Verbose = 0;
|
|
|
|
static void
|
|
version (void)
|
|
{
|
|
puts (PACKAGE " " VERSION);
|
|
exit (0);
|
|
}
|
|
|
|
static void
|
|
usage (int code)
|
|
{
|
|
fputs (
|
|
PACKAGE " " VERSION " IMAP4 to maildir synchronizer\n"
|
|
"Copyright (C) 2000-2 Michael R. Elkins <me@mutt.org>\n"
|
|
"usage:\n"
|
|
" " PACKAGE " [ flags ] mailbox [mailbox ...]\n"
|
|
" " PACKAGE " [ flags ] -a\n"
|
|
" " PACKAGE " [ flags ] -l\n"
|
|
" -a, --all synchronize all defined mailboxes\n"
|
|
" -l, --list list all defined mailboxes and exit\n"
|
|
" -L, --create-local create local maildir mailbox if nonexistent\n"
|
|
" -R, --create-remote create remote imap mailbox if nonexistent\n"
|
|
" -C, --create create both local and remote mailboxes if nonexistent\n"
|
|
" -d, --delete delete local msgs that don't exist on the server\n"
|
|
" -e, --expunge expunge deleted messages from the server\n"
|
|
" -f, --fast only fetch new messages\n"
|
|
" -r, --remote BOX remote mailbox\n"
|
|
" -F, --folder DIR remote IMAP folder containing mailboxes\n"
|
|
" -M, --maildir DIR local directory containing mailboxes\n"
|
|
" -1, --one-to-one map every IMAP <folder>/box to <maildir>/box\n"
|
|
" -I, --inbox BOX map IMAP INBOX to <maildir>/BOX (exception to -1)\n"
|
|
" -s, --host HOST IMAP server address\n"
|
|
" -p, --port PORT server IMAP port\n"
|
|
" -u, --user USER IMAP user name\n"
|
|
" -c, --config CONFIG read an alternate config file (default: ~/.isyncrc)\n"
|
|
" -V, --verbose verbose mode (display network traffic)\n"
|
|
" -q, --quiet don't display progress info\n"
|
|
" -v, --version display version\n"
|
|
" -h, --help display this help message\n"
|
|
"Compile time options:\n"
|
|
#if HAVE_LIBSSL
|
|
" +HAVE_LIBSSL\n"
|
|
#else
|
|
" -HAVE_LIBSSL\n"
|
|
#endif
|
|
, code ? stderr : stdout);
|
|
exit (code);
|
|
}
|
|
|
|
char *
|
|
next_arg (char **s)
|
|
{
|
|
char *ret;
|
|
|
|
if (!s)
|
|
return 0;
|
|
if (!*s)
|
|
return 0;
|
|
while (isspace ((unsigned char) **s))
|
|
(*s)++;
|
|
if (!**s)
|
|
{
|
|
*s = 0;
|
|
return 0;
|
|
}
|
|
if (**s == '"')
|
|
{
|
|
++*s;
|
|
ret = *s;
|
|
*s = strchr (*s, '"');
|
|
}
|
|
else
|
|
{
|
|
ret = *s;
|
|
while (**s && !isspace ((unsigned char) **s))
|
|
(*s)++;
|
|
}
|
|
if (*s)
|
|
{
|
|
if (**s)
|
|
*(*s)++ = 0;
|
|
if (!**s)
|
|
*s = 0;
|
|
}
|
|
return ret;
|
|
}
|
|
|
|
int
|
|
main (int argc, char **argv)
|
|
{
|
|
int i;
|
|
config_t *box = 0;
|
|
mailbox_t *mail = 0;
|
|
imap_t *imap = 0;
|
|
int expunge = 0; /* by default, don't delete anything */
|
|
int fast = 0;
|
|
int delete = 0;
|
|
char *config = 0;
|
|
struct passwd *pw;
|
|
int all = 0;
|
|
int list = 0;
|
|
int o2o = 0;
|
|
int mbox_open_mode = 0;
|
|
int imap_create = 0;
|
|
|
|
pw = getpwuid (getuid ());
|
|
|
|
/* defaults */
|
|
memset (&global, 0, sizeof (global));
|
|
/* XXX the precedence is borked:
|
|
it's defaults < cmdline < file instead of defaults < file < cmdline */
|
|
global.port = 143;
|
|
global.box = "INBOX";
|
|
global.folder = "";
|
|
global.user = strdup (pw->pw_name);
|
|
global.maildir = strdup (pw->pw_dir);
|
|
global.use_namespace = 1;
|
|
#if HAVE_LIBSSL
|
|
/* this will probably annoy people, but its the best default just in
|
|
* case people forget to turn it on
|
|
*/
|
|
global.require_ssl = 1;
|
|
global.use_tlsv1 = 1;
|
|
#endif
|
|
|
|
#define FLAGS "alCLRc:defhp:qu:r:F:M:1I:s:vV"
|
|
|
|
#if HAVE_GETOPT_LONG
|
|
while ((i = getopt_long (argc, argv, FLAGS, Opts, NULL)) != -1)
|
|
#else
|
|
while ((i = getopt (argc, argv, FLAGS)) != -1)
|
|
#endif
|
|
{
|
|
switch (i)
|
|
{
|
|
case 'l':
|
|
list = 1;
|
|
/* plopp */
|
|
case 'a':
|
|
all = 1;
|
|
break;
|
|
case '1':
|
|
o2o = 1;
|
|
break;
|
|
case 'C':
|
|
mbox_open_mode |= OPEN_CREATE;
|
|
imap_create = 1;
|
|
break;
|
|
case 'L':
|
|
mbox_open_mode |= OPEN_CREATE;
|
|
break;
|
|
case 'R':
|
|
imap_create = 1;
|
|
break;
|
|
case 'c':
|
|
config = optarg;
|
|
break;
|
|
case 'd':
|
|
delete = 1;
|
|
break;
|
|
case 'e':
|
|
expunge = 1;
|
|
break;
|
|
case 'f':
|
|
mbox_open_mode |= OPEN_FAST;
|
|
fast = 1;
|
|
break;
|
|
case 'p':
|
|
global.port = atoi (optarg);
|
|
break;
|
|
case 'q':
|
|
Quiet = 1;
|
|
Verbose = 0;
|
|
break;
|
|
case 'r':
|
|
global.box = optarg;
|
|
break;
|
|
case 'F':
|
|
global.folder = optarg;
|
|
break;
|
|
case 'M':
|
|
free (global.maildir);
|
|
global.maildir = strdup (optarg);
|
|
break;
|
|
case 'I':
|
|
global.inbox = optarg;
|
|
break;
|
|
case 's':
|
|
#if HAVE_LIBSSL
|
|
if (!strncasecmp ("imaps:", optarg, 6))
|
|
{
|
|
global.use_imaps = 1;
|
|
optarg += 6;
|
|
}
|
|
#endif
|
|
global.host = optarg;
|
|
break;
|
|
case 'u':
|
|
free (global.user);
|
|
global.user = optarg;
|
|
break;
|
|
case 'V':
|
|
Verbose = 1;
|
|
break;
|
|
case 'v':
|
|
version ();
|
|
case 'h':
|
|
usage (0);
|
|
default:
|
|
usage (1);
|
|
}
|
|
}
|
|
|
|
if (!argv[optind] && !all)
|
|
{
|
|
fprintf (stderr, "No mailbox specified");
|
|
usage (1);
|
|
}
|
|
|
|
gethostname (Hostname, sizeof (Hostname));
|
|
|
|
load_config (config, &o2o);
|
|
|
|
if (all && o2o)
|
|
{
|
|
DIR *dir;
|
|
struct dirent *de;
|
|
|
|
if (global.inbox) {
|
|
boxes = malloc (sizeof (config_t));
|
|
memcpy (boxes, &global, sizeof (config_t));
|
|
boxes->box = "INBOX";
|
|
boxes->path = global.inbox;
|
|
}
|
|
|
|
if (!(dir = opendir (global.maildir))) {
|
|
fprintf (stderr, "%s: %s\n", global.maildir, strerror(errno));
|
|
return 1;
|
|
}
|
|
while ((de = readdir (dir))) {
|
|
if (*de->d_name == '.')
|
|
continue;
|
|
if (global.inbox && !strcmp (global.inbox, de->d_name))
|
|
continue;
|
|
box = malloc (sizeof (config_t));
|
|
memcpy (box, &global, sizeof (config_t));
|
|
box->path = strdup (de->d_name);
|
|
box->box = box->path;
|
|
box->next = boxes;
|
|
boxes = box;
|
|
}
|
|
closedir (dir);
|
|
|
|
imap = imap_connect (&global);
|
|
if (!imap)
|
|
goto bork;
|
|
if (imap_list (imap))
|
|
goto bork;
|
|
}
|
|
if (list)
|
|
{
|
|
for (box = boxes; box; box = box->next)
|
|
puts (box->path);
|
|
exit (0);
|
|
}
|
|
for (box = boxes; (all && box) || (!all && argv[optind]); optind++)
|
|
{
|
|
if (!all)
|
|
{
|
|
if (o2o || NULL == (box = find_box (argv[optind])))
|
|
{
|
|
/* if enough info is given on the command line, don't worry if
|
|
* the mailbox isn't defined.
|
|
*/
|
|
if (!global.host)
|
|
{
|
|
fprintf (stderr, "%s: no such mailbox\n", argv[optind]);
|
|
/* continue is ok here because we are not handling the
|
|
* `all' case.
|
|
*/
|
|
continue;
|
|
}
|
|
global.path = argv[optind];
|
|
box = &global;
|
|
if (o2o)
|
|
global.box =
|
|
(global.inbox && !strcmp (global.path, global.inbox)) ?
|
|
"INBOX" : global.path;
|
|
}
|
|
}
|
|
|
|
do {
|
|
info ("Mailbox %s\n", box->path);
|
|
mail = maildir_open (box->path, mbox_open_mode);
|
|
if (!mail)
|
|
{
|
|
fprintf (stderr, "%s: unable to open mailbox\n", box->path);
|
|
break;
|
|
}
|
|
|
|
imap = imap_open (box, fast ? mail->maxuid + 1 : 1, imap, imap_create);
|
|
if (!imap)
|
|
{
|
|
fprintf (stderr, "%s: skipping mailbox due to IMAP error\n",
|
|
box->path);
|
|
break;
|
|
}
|
|
|
|
info ("Synchronizing\n");
|
|
i = (delete || box->delete) ? SYNC_DELETE : 0;
|
|
i |= (expunge || box->expunge) ? SYNC_EXPUNGE : 0;
|
|
if (sync_mailbox (mail, imap, i, box->max_size, box->max_messages))
|
|
{
|
|
imap_close (imap); /* Just to be safe. Don't really know
|
|
* what the problem was.
|
|
*/
|
|
imap = NULL; /* context no longer valid */
|
|
break;
|
|
}
|
|
|
|
if (!fast)
|
|
{
|
|
if ((expunge || box->expunge) &&
|
|
(imap->deleted || mail->deleted))
|
|
{
|
|
/* remove messages marked for deletion */
|
|
info ("Expunging %d messages from server\n", imap->deleted);
|
|
if (imap_expunge (imap))
|
|
{
|
|
imap_close (imap);
|
|
imap = NULL;
|
|
break;
|
|
}
|
|
info ("Expunging %d messages from local mailbox\n",
|
|
mail->deleted);
|
|
if (maildir_expunge (mail, 0))
|
|
break;
|
|
}
|
|
/* remove messages deleted from server. this can safely be an
|
|
* `else' clause since dead messages are marked as deleted by
|
|
* sync_mailbox.
|
|
*/
|
|
else if (delete)
|
|
maildir_expunge (mail, 1);
|
|
}
|
|
|
|
} while (0);
|
|
|
|
/* we never sync the same mailbox twice, so close it now */
|
|
if (mail)
|
|
maildir_close (mail);
|
|
|
|
/* the imap connection is not closed so we can keep the connection
|
|
* open, and there is no IMAP command for un-SELECT-ing a mailbox.
|
|
*/
|
|
if (all)
|
|
box = box->next;
|
|
}
|
|
|
|
/* gracefully close connection to the IMAP server */
|
|
imap_close (imap);
|
|
|
|
bork:
|
|
free_config ();
|
|
|
|
#if DEBUG
|
|
debug_cleanup ();
|
|
#endif
|
|
|
|
exit (0);
|
|
}
|