Mirrors/imapsync
1
0
Fork 0
mirror of https://github.com/imapsync/imapsync.git synced 2024-11-17 00:02:29 +01:00
Code Issues Releases Activity

1.111

Browse Source
This commit is contained in:
Nick Bebout 2011-03-12 02:44:11 +00:00
parent 9829b8a5c7
commit 8d3368026e
4 changed files with 19 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ChangeLog
View File

@ -1,17 +1,20 @@
RCS file: RCS/imapsync,v RCS file: RCS/imapsync,v
Working file: imapsync Working file: imapsync
head: 1.110 head: 1.111
branch: branch:
locks: strict locks: strict
gilles: 1.110
access list: access list:
symbolic names: symbolic names:
keyword substitution: kv keyword substitution: kv
total revisions: 110; selected revisions: 110 total revisions: 111; selected revisions: 111
description: description:
---------------------------- ----------------------------
revision 1.110 locked by: gilles; revision 1.111
date: 2005/01/04 04:05:07; author: gilles; state: Exp; lines: +9 -13
Suppressed perl warnings
----------------------------
revision 1.110
date: 2005/01/04 03:56:59; author: gilles; state: Exp; lines: +92 -12 date: 2005/01/04 03:56:59; author: gilles; state: Exp; lines: +92 -12
Better performances Better performances
---------------------------- ----------------------------

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.110 $ $Revision: 1.111 $
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.110 2005/01/04 03:56:59 gilles Exp gilles $ $Id: imapsync,v 1.111 2005/01/04 04:05:07 gilles Exp $

2
VERSION
View File

@ -1 +1 @@
1.110 1.111

22
imapsync
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.110 $ $Revision: 1.111 $
=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.110 2005/01/04 03:56:59 gilles Exp gilles $ $Id: imapsync,v 1.111 2005/01/04 04:05:07 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.110 2005/01/04 03:56:59 gilles Exp gilles $ '; $rcs = ' $Id: imapsync,v 1.111 2005/01/04 04:05:07 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.110 $ ', '$Revision: 1.111 $ ',
'$Date: 2005/01/04 03:56:59 $ ', '$Date: 2005/01/04 04:05:07 $ ',
"\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",
@ -715,8 +715,6 @@ FOLDER: foreach my $f_fold (@f_folders) {
my %f_hash = (); my %f_hash = ();
my %t_hash = (); my %t_hash = ();
my %f_hash1 = ();
my %t_hash1 = ();
# No history # No history
$from->Clear(1); $from->Clear(1);
@ -730,13 +728,11 @@ FOLDER: foreach my $f_fold (@f_folders) {
# print "From Buffer I/O : ", $from->Buffer(), "\n"; # print "From Buffer I/O : ", $from->Buffer(), "\n";
# print "To Buffer I/O : ", $to->Buffer(), "\n"; # print "To Buffer I/O : ", $to->Buffer(), "\n";
print "++++ From Parse 1 ++++\n"; print "++++ From Parse 1 ++++\n";
my $f_heads = $from->parse_headers([@f_msgs],"ALL"); my $f_heads = $from->parse_headers([@f_msgs],"ALL") if (@f_msgs) ;
print "Time : ", timenext(), " s\n"; print "Time : ", timenext(), " s\n";
my $f_size = $from->fetch_hash("RFC822.SIZE"); my $f_size = $from->fetch_hash("RFC822.SIZE") if (@f_msgs);
use Data::Dumper; use Data::Dumper;
#print Data::Dumper->Dump([$f_heads]); #print Data::Dumper->Dump([$f_heads]);
@ -747,9 +743,9 @@ FOLDER: foreach my $f_fold (@f_folders) {
} }
print "Time : ", timenext(), " s\n"; print "Time : ", timenext(), " s\n";
print "\n++++ To Parse 1 ++++\n"; print "\n++++ To Parse 1 ++++\n";
my $t_heads = $to->parse_headers([@t_msgs],"ALL"); my $t_heads = $to->parse_headers([@t_msgs],"ALL") if (@t_msgs);
print "Time : ", timenext(), " s\n"; print "Time : ", timenext(), " s\n";
my $t_size = $to->fetch_hash("RFC822.SIZE"); my $t_size = $to->fetch_hash("RFC822.SIZE") if (@t_msgs);
print "Time : ", timenext(), " s\n"; print "Time : ", timenext(), " s\n";
foreach my $m (@t_msgs) { foreach my $m (@t_msgs) {