diff --git a/ChangeLog b/ChangeLog index da3ca5f..752fc38 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,15 +1,20 @@ RCS file: RCS/imapsync,v Working file: imapsync -head: 1.29 +head: 1.30 branch: locks: strict access list: symbolic names: keyword substitution: kv -total revisions: 29; selected revisions: 29 +total revisions: 30; selected revisions: 30 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 date: 2003/08/24 02:01:28; author: gilles; state: Exp; lines: +6 -4 Updated doc about fixed flags first time bug. diff --git a/README b/README index 24ac044..0391b9c 100644 --- a/README +++ b/README @@ -1,7 +1,7 @@ NAME imapsync - synchronize mailboxes between two imap servers. - $Revision: 1.29 $ + $Revision: 1.30 $ INSTALL 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. - $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 $ diff --git a/VERSION b/VERSION index 9de53f1..57432cb 100644 --- a/VERSION +++ b/VERSION @@ -1 +1 @@ -1.29 +1.30 diff --git a/imapsync b/imapsync index 5839ada..dc1685b 100755 --- a/imapsync +++ b/imapsync @@ -4,7 +4,7 @@ imapsync - synchronize mailboxes between two imap servers. -$Revision: 1.29 $ +$Revision: 1.30 $ =head1 INSTALL @@ -146,7 +146,7 @@ Rate imapsync : http://freshmeat.net/projects/imapsync/ 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 @@ -169,12 +169,12 @@ my( 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+)/; $VERSION = ($1) ? $1 : "UNKNOWN"; $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(); @@ -241,6 +241,10 @@ my (@f_folders, @t_folders); my $f_sep = $from->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 my $tohasuidplus = $to->has_capability("UIDPLUS"); @@ -258,7 +262,7 @@ my $tohasuidplus = $to->has_capability("UIDPLUS"); @t_folders = @{$to->folders()}; print "From folders : ", map("[$_] ",@f_folders),"\n", - "To folders : ", map("[$_] ",@f_folders),"\n"; + "To folders : ", map("[$_] ",@t_folders),"\n"; #exit; FOLDER: foreach my $f_fold (@f_folders) {