mirror of
https://github.com/imapsync/imapsync.git
synced 2025-07-22 18:25:54 +02:00
1.11
This commit is contained in:
parent
e3723130d5
commit
8b580f51fb
6 changed files with 27 additions and 10 deletions
|
@ -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
4
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 $
|
||||
|
||||
|
|
2
TODO
2
TODO
|
@ -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.
|
||||
|
||||
|
|
2
VERSION
2
VERSION
|
@ -1 +1 @@
|
|||
1.10
|
||||
1.11
|
||||
|
|
8
freshmeat
Normal file
8
freshmeat
Normal 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
12
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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue