This commit is contained in:
Nick Bebout 2011-03-12 02:43:44 +00:00
parent e3723130d5
commit 8b580f51fb
6 changed files with 27 additions and 10 deletions

View file

@ -1,15 +1,20 @@
RCS file: RCS/imapsync,v
Working file: imapsync
head: 1.10
head: 1.11
branch:
locks: strict
access list:
symbolic names:
keyword substitution: kv
total revisions: 10; selected revisions: 10
total revisions: 11; selected revisions: 11
description:
----------------------------
revision 1.11
date: 2003/07/04 23:32:23; author: gilles; state: Exp; lines: +7 -5
- use of namespace separator,
Thanks to Sebastien Namèhe.
----------------------------
revision 1.10
date: 2003/05/05 22:37:48; author: gilles; state: Exp; lines: +5 -5
Updated --folder documentation.

4
README
View file

@ -1,7 +1,7 @@
NAME
imapsync - synchronize mailboxes between two imap servers.
$Revision: 1.10 $
$Revision: 1.11 $
INSTALL
Get imapsync at http://www.linux-france.org/prj/imapsync/dist/
@ -98,5 +98,5 @@ BUGS
SIMILAR SOFTWARES
None known. Feedback will be welcome.
$Id: imapsync,v 1.10 2003/05/05 22:37:48 gilles Exp $
$Id: imapsync,v 1.11 2003/07/04 23:32:23 gilles Exp $

2
TODO
View file

@ -7,3 +7,5 @@ Tested on
> the destination one Cyrus imapd 2.1.12.
by Per Steinar Iversen <PerSteinar.Iversen@adm.hio.no>
Add a list of well tested imap servers.

View file

@ -1 +1 @@
1.10
1.11

8
freshmeat Normal file
View file

@ -0,0 +1,8 @@
imapsync is a tool for facilitating incremental recursive IMAP
transfers from one mailbox to another. It is useful for mailbox
migration, and reduces the amount of data transferred by only copying
messages that are not present on both servers. Read, unread, and
deleted flags are preserved, and the process can be stopped and
resumed. The original messages can optionally be deleted after a
successful transfer.

View file

@ -4,7 +4,7 @@
imapsync - synchronize mailboxes between two imap servers.
$Revision: 1.10 $
$Revision: 1.11 $
=head1 INSTALL
@ -120,7 +120,7 @@ Report any bugs to the author: lamiral@linux-france.org
None known.
Feedback will be welcome.
$Id: imapsync,v 1.10 2003/05/05 22:37:48 gilles Exp $
$Id: imapsync,v 1.11 2003/07/04 23:32:23 gilles Exp $
=cut
@ -145,7 +145,7 @@ my(
use vars qw ($opt_G); # missing code for this will be option.
$rcs = ' $Id: imapsync,v 1.10 2003/05/05 22:37:48 gilles Exp $ ';
$rcs = ' $Id: imapsync,v 1.11 2003/07/04 23:32:23 gilles Exp $ ';
$rcs =~ m/,v (\d+\.\d+)/;
$VERSION = ($1) ? $1 : "UNKNOWN";
$error=0;
@ -196,6 +196,9 @@ $to = Mail::IMAPClient->new( Server => $host2,
my @f_folders;
# @f_folders = (scalar(@folder)) ? @folder : @{$from->folders()};
# what are the private folders separators for each server ?
my $f_sep = $from->namespace()->[0][0][1];
my $t_sep = $to->namespace()->[0][0][1];
if (scalar(@folder)) {
# folders are given as argument.
@ -219,8 +222,7 @@ FOLDER: foreach my $f_fold (@f_folders) {
# }else {
$t_fold = $f_fold;
# }
$t_fold =~ s@\\@\.@g;
$t_fold =~ s@\/@\.@g;
$t_fold =~ s@\$f_sep@\$t_sep@g;
print "To Folder $t_fold\n";
unless ($from->select($f_fold)) {
warn