zydronium/imapsync
1
0
Fork 0
mirror of https://github.com/imapsync/imapsync.git synced 2025-08-05 00:11:31 +02:00
Code Issues Projects Releases Packages Wiki Activity

1.142

Browse source
This commit is contained in:
Nick Bebout 2011-03-12 02:44:19 +00:00
parent 3895b22b0a
commit 05cda6e79b
9 changed files with 273 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

14
imapsync
View file

@ -6,7 +6,7 @@ imapsync - IMAP synchronization, copy or migration
tool. Synchronize mailboxes between two imap servers. Good
at IMAP migration.
$Revision: 1.140 $
$Revision: 1.142 $
=head1 INSTALL
@ -305,7 +305,7 @@ Gilles LAMIRAL earn his living writing, installing,
configuring and teaching free open and gratis
softwares. Don't hesitate to pay him for that services.
$Id: imapsync,v 1.140 2005/10/30 10:16:52 gilles Exp $
$Id: imapsync,v 1.142 2005/11/16 01:08:49 gilles Exp gilles $
=cut
@ -350,7 +350,7 @@ my(
use vars qw ($opt_G); # missing code for this will be option.
$rcs = ' $Id: imapsync,v 1.140 2005/10/30 10:16:52 gilles Exp $ ';
$rcs = ' $Id: imapsync,v 1.142 2005/11/16 01:08:49 gilles Exp gilles $ ';
$rcs =~ m/,v (\d+\.\d+)/;
$VERSION = ($1) ? $1 : "UNKNOWN";
@ -387,8 +387,8 @@ $error=0;
my $banner = join("",
'$RCSfile: imapsync,v $ ',
'$Revision: 1.140 $ ',
'$Date: 2005/10/30 10:16:52 $ ',
'$Revision: 1.142 $ ',
'$Date: 2005/11/16 01:08:49 $ ',
"\n",
"Mail::IMAPClient version used here is ",
$VERSION_IMAPClient,"\n"
@ -539,7 +539,7 @@ die unless $to->IsAuthenticated();
my (@f_folders, @t_folders, %fs_folders);
# Make a hash of subscribed folders in source server.
# map { $fs_folders{$_}=1 } $from->subscribed();
map { $fs_folders{$_}=1 } $from->subscribed();
@ -1029,6 +1029,8 @@ sub get_options
"foldersizes!" => \$foldersizes,
"dry!" => \$dry,
"expunge!" => \$expunge,
"expunge1!" => \$expunge1,
"expunge2!" => \$expunge2,
"subscribed!" => \$subscribed,
"subscribe!" => \$subscribe,
"justconnect!"=> \$justconnect,