mirror of
https://github.com/imapsync/imapsync.git
synced 2025-07-23 18:55:55 +02:00
1.30
This commit is contained in:
parent
fc86fe47ec
commit
ea11029578
4 changed files with 19 additions and 10 deletions
|
@ -1,15 +1,20 @@
|
||||||
|
|
||||||
RCS file: RCS/imapsync,v
|
RCS file: RCS/imapsync,v
|
||||||
Working file: imapsync
|
Working file: imapsync
|
||||||
head: 1.29
|
head: 1.30
|
||||||
branch:
|
branch:
|
||||||
locks: strict
|
locks: strict
|
||||||
access list:
|
access list:
|
||||||
symbolic names:
|
symbolic names:
|
||||||
keyword substitution: kv
|
keyword substitution: kv
|
||||||
total revisions: 29; selected revisions: 29
|
total revisions: 30; selected revisions: 30
|
||||||
description:
|
description:
|
||||||
----------------------------
|
----------------------------
|
||||||
|
revision 1.30
|
||||||
|
date: 2003/08/27 16:40:38; author: gilles; state: Exp; lines: +9 -5
|
||||||
|
Added output separators
|
||||||
|
Fixed bad output fot "To folders"
|
||||||
|
----------------------------
|
||||||
revision 1.29
|
revision 1.29
|
||||||
date: 2003/08/24 02:01:28; author: gilles; state: Exp; lines: +6 -4
|
date: 2003/08/24 02:01:28; author: gilles; state: Exp; lines: +6 -4
|
||||||
Updated doc about fixed flags first time bug.
|
Updated doc about fixed flags first time bug.
|
||||||
|
|
4
README
4
README
|
@ -1,7 +1,7 @@
|
||||||
NAME
|
NAME
|
||||||
imapsync - synchronize mailboxes between two imap servers.
|
imapsync - synchronize mailboxes between two imap servers.
|
||||||
|
|
||||||
$Revision: 1.29 $
|
$Revision: 1.30 $
|
||||||
|
|
||||||
INSTALL
|
INSTALL
|
||||||
Get imapsync at http://www.linux-france.org/prj/imapsync/dist/
|
Get imapsync at http://www.linux-france.org/prj/imapsync/dist/
|
||||||
|
@ -126,5 +126,5 @@ SIMILAR SOFTWARES
|
||||||
|
|
||||||
Feedback (good or bad) will be always welcome.
|
Feedback (good or bad) will be always welcome.
|
||||||
|
|
||||||
$Id: imapsync,v 1.29 2003/08/24 02:01:28 gilles Exp $
|
$Id: imapsync,v 1.30 2003/08/27 16:40:38 gilles Exp $
|
||||||
|
|
||||||
|
|
2
VERSION
2
VERSION
|
@ -1 +1 @@
|
||||||
1.29
|
1.30
|
||||||
|
|
14
imapsync
14
imapsync
|
@ -4,7 +4,7 @@
|
||||||
|
|
||||||
imapsync - synchronize mailboxes between two imap servers.
|
imapsync - synchronize mailboxes between two imap servers.
|
||||||
|
|
||||||
$Revision: 1.29 $
|
$Revision: 1.30 $
|
||||||
|
|
||||||
=head1 INSTALL
|
=head1 INSTALL
|
||||||
|
|
||||||
|
@ -146,7 +146,7 @@ Rate imapsync : http://freshmeat.net/projects/imapsync/
|
||||||
|
|
||||||
Feedback (good or bad) will be always welcome.
|
Feedback (good or bad) will be always welcome.
|
||||||
|
|
||||||
$Id: imapsync,v 1.29 2003/08/24 02:01:28 gilles Exp $
|
$Id: imapsync,v 1.30 2003/08/27 16:40:38 gilles Exp $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|
||||||
|
@ -169,12 +169,12 @@ 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.29 2003/08/24 02:01:28 gilles Exp $ ';
|
$rcs = ' $Id: imapsync,v 1.30 2003/08/27 16:40:38 gilles Exp $ ';
|
||||||
$rcs =~ m/,v (\d+\.\d+)/;
|
$rcs =~ m/,v (\d+\.\d+)/;
|
||||||
$VERSION = ($1) ? $1 : "UNKNOWN";
|
$VERSION = ($1) ? $1 : "UNKNOWN";
|
||||||
$error=0;
|
$error=0;
|
||||||
|
|
||||||
my $banner = '$RCSfile: imapsync,v $ ' . '$Revision: 1.29 $ ' . '$Date: 2003/08/24 02:01:28 $ ' . "\n";
|
my $banner = '$RCSfile: imapsync,v $ ' . '$Revision: 1.30 $ ' . '$Date: 2003/08/27 16:40:38 $ ' . "\n";
|
||||||
|
|
||||||
|
|
||||||
get_options();
|
get_options();
|
||||||
|
@ -241,6 +241,10 @@ my (@f_folders, @t_folders);
|
||||||
my $f_sep = $from->namespace()->[0][0][1];
|
my $f_sep = $from->namespace()->[0][0][1];
|
||||||
my $t_sep = $to->namespace()->[0][0][1];
|
my $t_sep = $to->namespace()->[0][0][1];
|
||||||
|
|
||||||
|
print "From separator : [$f_sep]\n";
|
||||||
|
print "To separator : [$t_sep]\n";
|
||||||
|
|
||||||
|
|
||||||
# needed for setting flags
|
# needed for setting flags
|
||||||
my $tohasuidplus = $to->has_capability("UIDPLUS");
|
my $tohasuidplus = $to->has_capability("UIDPLUS");
|
||||||
|
|
||||||
|
@ -258,7 +262,7 @@ my $tohasuidplus = $to->has_capability("UIDPLUS");
|
||||||
@t_folders = @{$to->folders()};
|
@t_folders = @{$to->folders()};
|
||||||
print
|
print
|
||||||
"From folders : ", map("[$_] ",@f_folders),"\n",
|
"From folders : ", map("[$_] ",@f_folders),"\n",
|
||||||
"To folders : ", map("[$_] ",@f_folders),"\n";
|
"To folders : ", map("[$_] ",@t_folders),"\n";
|
||||||
#exit;
|
#exit;
|
||||||
|
|
||||||
FOLDER: foreach my $f_fold (@f_folders) {
|
FOLDER: foreach my $f_fold (@f_folders) {
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue