zydronium/imapsync
1
0
Fork 0
mirror of https://github.com/imapsync/imapsync.git synced 2025-06-10 06:34:37 +02:00
Code Issues Projects Releases Packages Wiki Activity

1.103

Browse source
This commit is contained in:
Nick Bebout 2011-03-12 02:44:06 +00:00
parent 8eaed02a04
commit 82dcebb23c
4 changed files with 18 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

8
ChangeLog
View file

@ -1,15 +1,19 @@
RCS file: RCS/imapsync,v
Working file: imapsync
head: 1.102
head: 1.103
branch:
locks: strict
access list:
symbolic names:
keyword substitution: kv
total revisions: 102; selected revisions: 102
total revisions: 103; selected revisions: 103
description:
----------------------------
revision 1.103
date: 2004/10/19 04:15:27; author: gilles; state: Exp; lines: +9 -11
Removed search("ALL") from foldersizes code
----------------------------
revision 1.102
date: 2004/10/15 14:41:25; author: gilles; state: Exp; lines: +36 -21
Add use of fetch_hash() in foldersizes counting.

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.102 $
$Revision: 1.103 $
INSTALL
imapsync works fine under any Unix OS.
@ -238,5 +238,5 @@ AUTHOR
teaching free open and gratis softwares. Don't hesitate to pay him for
that services.
$Id: imapsync,v 1.102 2004/10/15 14:41:25 gilles Exp $
$Id: imapsync,v 1.103 2004/10/19 04:15:27 gilles Exp $

2
VERSION
View file

@ -1 +1 @@
1.102
1.103

20
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.102 $
$Revision: 1.103 $
=head1 INSTALL
@ -280,7 +280,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.102 2004/10/15 14:41:25 gilles Exp $
$Id: imapsync,v 1.103 2004/10/19 04:15:27 gilles Exp $
=cut
@ -322,7 +322,7 @@ my(
use vars qw ($opt_G); # missing code for this will be option.
$rcs = ' $Id: imapsync,v 1.102 2004/10/15 14:41:25 gilles Exp $ ';
$rcs = ' $Id: imapsync,v 1.103 2004/10/19 04:15:27 gilles Exp $ ';
$rcs =~ m/,v (\d+\.\d+)/;
$VERSION = ($1) ? $1 : "UNKNOWN";
@ -359,8 +359,8 @@ $error=0;
my $banner = join("",
'$RCSfile: imapsync,v $ ',
'$Revision: 1.102 $ ',
'$Date: 2004/10/15 14:41:25 $ ',
'$Revision: 1.103 $ ',
'$Date: 2004/10/19 04:15:27 $ ',
"\n",
"Mail::IMAPClient version used here is ",
$VERSION_IMAPClient, " auth md5 : $md5_supported",
@ -564,16 +564,14 @@ if ($foldersizes) {
}
if ($maxage) {
my @f_msgs = $maxage
? $from->since(time - 86400 * $maxage)
: $from->search("ALL");
my $smess2 = scalar(@f_msgs);
print "Messages in $f_fold: $smess2\n";
# The pb is fetch_hash() an only be applied on ALL messages
#
my @f_msgs = $from->since(time - 86400 * $maxage);
my $smess = scalar(@f_msgs);
foreach my $m (@f_msgs) {
my $s = $from->size($m)
or warn "Could not find size of message $m: $@\n";
$stot += $s;
$smess++;
print ".";
}
print "\n";