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
Working file: imapsync
head: 1.110
head: 1.111
branch:
locks: strict
gilles: 1.110
access list:
symbolic names:
keyword substitution: kv
total revisions: 110; selected revisions: 110
total revisions: 111; selected revisions: 111
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
Better performances
----------------------------

4
README
View File

@ -2,7 +2,7 @@ NAME
imapsync - IMAP synchronization, copy or migration tool. Synchronize
mailboxes between two imap servers. Good at IMAP migration.
$Revision: 1.110 $
$Revision: 1.111 $
INSTALL
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
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
at IMAP migration.
$Revision: 1.110 $
$Revision: 1.111 $
=head1 INSTALL
@ -281,7 +281,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.110 2005/01/04 03:56:59 gilles Exp gilles $
$Id: imapsync,v 1.111 2005/01/04 04:05:07 gilles Exp $
=cut
@ -323,7 +323,7 @@ my(
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+)/;
$VERSION = ($1) ? $1 : "UNKNOWN";
@ -360,8 +360,8 @@ $error=0;
my $banner = join("",
'$RCSfile: imapsync,v $ ',
'$Revision: 1.110 $ ',
'$Date: 2005/01/04 03:56:59 $ ',
'$Revision: 1.111 $ ',
'$Date: 2005/01/04 04:05:07 $ ',
"\n",
"Mail::IMAPClient version used here is ",
$VERSION_IMAPClient, " auth md5 : $md5_supported",
@ -715,8 +715,6 @@ FOLDER: foreach my $f_fold (@f_folders) {
my %f_hash = ();
my %t_hash = ();
my %f_hash1 = ();
my %t_hash1 = ();
# No history
$from->Clear(1);
@ -730,13 +728,11 @@ FOLDER: foreach my $f_fold (@f_folders) {
# print "From Buffer I/O : ", $from->Buffer(), "\n";
# print "To Buffer I/O : ", $to->Buffer(), "\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";
my $f_size = $from->fetch_hash("RFC822.SIZE");
my $f_size = $from->fetch_hash("RFC822.SIZE") if (@f_msgs);
use Data::Dumper;
#print Data::Dumper->Dump([$f_heads]);
@ -747,9 +743,9 @@ FOLDER: foreach my $f_fold (@f_folders) {
}
print "Time : ", timenext(), " s\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";
my $t_size = $to->fetch_hash("RFC822.SIZE");
my $t_size = $to->fetch_hash("RFC822.SIZE") if (@t_msgs);
print "Time : ", timenext(), " s\n";
foreach my $m (@t_msgs) {