diff --git a/ChangeLog b/ChangeLog index a870dc9..2736e60 100644 --- a/ChangeLog +++ b/ChangeLog @@ -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. diff --git a/README b/README index d1d8453..0adcba5 100644 --- a/README +++ b/README @@ -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 $ diff --git a/TODO b/TODO index 6717c48..18cfb78 100644 --- a/TODO +++ b/TODO @@ -7,3 +7,5 @@ Tested on > the destination one Cyrus imapd 2.1.12. by Per Steinar Iversen +Add a list of well tested imap servers. + diff --git a/VERSION b/VERSION index c044b1a..0960158 100644 --- a/VERSION +++ b/VERSION @@ -1 +1 @@ -1.10 +1.11 diff --git a/freshmeat b/freshmeat new file mode 100644 index 0000000..d9e3741 --- /dev/null +++ b/freshmeat @@ -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. + diff --git a/imapsync b/imapsync index 505b254..8489bd8 100755 --- a/imapsync +++ b/imapsync @@ -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