This commit is contained in:
Nick Bebout 2011-03-12 02:44:09 +00:00
parent 496c895c56
commit d23a9d84e4
6 changed files with 21 additions and 12 deletions

View file

@ -12,6 +12,7 @@ Bryce Walter
Gave "OpenWave to Imail 8.12" Gave "OpenWave to Imail 8.12"
David Alix David Alix
Suggested transfer the ACL.
Suggested order message transfer by uid. Suggested order message transfer by uid.
Gave "Simeon Messaging Server from MessagingDirect" and Gave "Simeon Messaging Server from MessagingDirect" and
"Sendmail Advanced Messaging Server (from Sendmail.com)" "Sendmail Advanced Messaging Server (from Sendmail.com)"

View file

@ -1,15 +1,19 @@
RCS file: RCS/imapsync,v RCS file: RCS/imapsync,v
Working file: imapsync Working file: imapsync
head: 1.107 head: 1.108
branch: branch:
locks: strict locks: strict
access list: access list:
symbolic names: symbolic names:
keyword substitution: kv keyword substitution: kv
total revisions: 107; selected revisions: 107 total revisions: 108; selected revisions: 108
description: description:
---------------------------- ----------------------------
revision 1.108
date: 2004/12/29 03:19:48; author: gilles; state: Exp; lines: +8 -7
--prefix2 applied before --regextrans2
----------------------------
revision 1.107 revision 1.107
date: 2004/12/28 23:24:05; author: gilles; state: Exp; lines: +30 -9 date: 2004/12/28 23:24:05; author: gilles; state: Exp; lines: +30 -9
Added option --nosyncacls Added option --nosyncacls

4
README
View file

@ -2,7 +2,7 @@ NAME
imapsync - IMAP synchronization, copy or migration tool. Synchronize imapsync - IMAP synchronization, copy or migration tool. Synchronize
mailboxes between two imap servers. Good at IMAP migration. mailboxes between two imap servers. Good at IMAP migration.
$Revision: 1.107 $ $Revision: 1.108 $
INSTALL INSTALL
imapsync works fine under any Unix OS. imapsync works fine under any Unix OS.
@ -239,5 +239,5 @@ AUTHOR
teaching free open and gratis softwares. Don't hesitate to pay him for teaching free open and gratis softwares. Don't hesitate to pay him for
that services. that services.
$Id: imapsync,v 1.107 2004/12/28 23:24:05 gilles Exp $ $Id: imapsync,v 1.108 2004/12/29 03:19:48 gilles Exp $

3
TODO
View file

@ -1,6 +1,9 @@
TODO file for imapsync TODO file for imapsync
---------------------- ----------------------
Add cyrus link about INBOX. namespace
http://asg.web.cmu.edu/cyrus/download/imapd/altnamespace.html
Look at http://freshmeat.net/projects/freshmeat-submit/ Look at http://freshmeat.net/projects/freshmeat-submit/
Look at comp.mail.imap http://groups.google.fr/groups?q=imapsync Look at comp.mail.imap http://groups.google.fr/groups?q=imapsync

View file

@ -1 +1 @@
1.107 1.108

View file

@ -6,7 +6,7 @@ imapsync - IMAP synchronization, copy or migration
tool. Synchronize mailboxes between two imap servers. Good tool. Synchronize mailboxes between two imap servers. Good
at IMAP migration. at IMAP migration.
$Revision: 1.107 $ $Revision: 1.108 $
=head1 INSTALL =head1 INSTALL
@ -281,7 +281,7 @@ Gilles LAMIRAL earn his living writing, installing,
configuring and teaching free open and gratis configuring and teaching free open and gratis
softwares. Don't hesitate to pay him for that services. softwares. Don't hesitate to pay him for that services.
$Id: imapsync,v 1.107 2004/12/28 23:24:05 gilles Exp $ $Id: imapsync,v 1.108 2004/12/29 03:19:48 gilles Exp $
=cut =cut
@ -323,7 +323,7 @@ my(
use vars qw ($opt_G); # missing code for this will be option. use vars qw ($opt_G); # missing code for this will be option.
$rcs = ' $Id: imapsync,v 1.107 2004/12/28 23:24:05 gilles Exp $ '; $rcs = ' $Id: imapsync,v 1.108 2004/12/29 03:19:48 gilles Exp $ ';
$rcs =~ m/,v (\d+\.\d+)/; $rcs =~ m/,v (\d+\.\d+)/;
$VERSION = ($1) ? $1 : "UNKNOWN"; $VERSION = ($1) ? $1 : "UNKNOWN";
@ -360,8 +360,8 @@ $error=0;
my $banner = join("", my $banner = join("",
'$RCSfile: imapsync,v $ ', '$RCSfile: imapsync,v $ ',
'$Revision: 1.107 $ ', '$Revision: 1.108 $ ',
'$Date: 2004/12/28 23:24:05 $ ', '$Date: 2004/12/29 03:19:48 $ ',
"\n", "\n",
"Mail::IMAPClient version used here is ", "Mail::IMAPClient version used here is ",
$VERSION_IMAPClient, " auth md5 : $md5_supported", $VERSION_IMAPClient, " auth md5 : $md5_supported",
@ -641,14 +641,15 @@ FOLDER: foreach my $f_fold (@f_folders) {
$t_fold = separator_invert($f_fold,$f_sep, $t_sep); $t_fold = separator_invert($f_fold,$f_sep, $t_sep);
# Adding the prefix supplied by the --prefix2 option
$t_fold = $prefix2 . $t_fold if ($prefix2);
# Transforming the folder name by the --regextrans2 option # Transforming the folder name by the --regextrans2 option
if ($regextrans2) { if ($regextrans2) {
$debug and print "eval \$t_fold =~ $regextrans2\n"; $debug and print "eval \$t_fold =~ $regextrans2\n";
eval("\$t_fold =~ $regextrans2"); eval("\$t_fold =~ $regextrans2");
} }
# Adding the prefix supplied by the --prefix2 option
$t_fold = $prefix2 . $t_fold if ($prefix2);
print "To Folder [$t_fold]\n"; print "To Folder [$t_fold]\n";
unless ($from->select($f_fold)) { unless ($from->select($f_fold)) {