zydronium/imapsync
1
0
Fork 0
mirror of https://github.com/imapsync/imapsync.git synced 2025-07-23 18:55:55 +02:00
Code Issues Projects Releases Packages Wiki Activity

1.11

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

9
ChangeLog
View file

@ -1,15 +1,20 @@
RCS file: RCS/imapsync,v RCS file: RCS/imapsync,v
Working file: imapsync Working file: imapsync
head: 1.10 head: 1.11
branch: branch:
locks: strict locks: strict
access list: access list:
symbolic names: symbolic names:
keyword substitution: kv keyword substitution: kv
total revisions: 10; selected revisions: 10 total revisions: 11; selected revisions: 11
description: 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 revision 1.10
date: 2003/05/05 22:37:48; author: gilles; state: Exp; lines: +5 -5 date: 2003/05/05 22:37:48; author: gilles; state: Exp; lines: +5 -5
Updated --folder documentation. Updated --folder documentation.

4
README
View file

@ -1,7 +1,7 @@
NAME NAME
imapsync - synchronize mailboxes between two imap servers. imapsync - synchronize mailboxes between two imap servers.
$Revision: 1.10 $ $Revision: 1.11 $
INSTALL INSTALL
Get imapsync at http://www.linux-france.org/prj/imapsync/dist/ Get imapsync at http://www.linux-france.org/prj/imapsync/dist/
@ -98,5 +98,5 @@ BUGS
SIMILAR SOFTWARES SIMILAR SOFTWARES
None known. Feedback will be welcome. 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. > the destination one Cyrus imapd 2.1.12.
by Per Steinar Iversen <PerSteinar.Iversen@adm.hio.no> by Per Steinar Iversen <PerSteinar.Iversen@adm.hio.no>
Add a list of well tested imap servers.

2
VERSION
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.

12
imapsync
View file

@ -4,7 +4,7 @@
imapsync - synchronize mailboxes between two imap servers. imapsync - synchronize mailboxes between two imap servers.
$Revision: 1.10 $ $Revision: 1.11 $
=head1 INSTALL =head1 INSTALL
@ -120,7 +120,7 @@ Report any bugs to the author: lamiral@linux-france.org
None known. None known.
Feedback will be welcome. 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 =cut
@ -145,7 +145,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.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+)/; $rcs =~ m/,v (\d+\.\d+)/;
$VERSION = ($1) ? $1 : "UNKNOWN"; $VERSION = ($1) ? $1 : "UNKNOWN";
$error=0; $error=0;
@ -196,6 +196,9 @@ $to = Mail::IMAPClient->new( Server => $host2,
my @f_folders; my @f_folders;
# @f_folders = (scalar(@folder)) ? @folder : @{$from->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)) { if (scalar(@folder)) {
# folders are given as argument. # folders are given as argument.
@ -219,8 +222,7 @@ FOLDER: foreach my $f_fold (@f_folders) {
# }else { # }else {
$t_fold = $f_fold; $t_fold = $f_fold;
# } # }
$t_fold =~ s@\\@\.@g; $t_fold =~ s@\$f_sep@\$t_sep@g;
$t_fold =~ s@\/@\.@g;
print "To Folder $t_fold\n"; print "To Folder $t_fold\n";
unless ($from->select($f_fold)) { unless ($from->select($f_fold)) {
warn warn