zydronium/imapsync
1
0
Fork 0
mirror of https://github.com/imapsync/imapsync.git synced 2025-08-03 15:31:50 +02:00
Code Issues Projects Releases Packages Wiki Activity

1.31

Browse source
This commit is contained in:
Nick Bebout 2011-03-12 02:43:47 +00:00
parent ea11029578
commit 564aed33ea
5 changed files with 30 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

10
imapsync
View file

@ -4,7 +4,7 @@
imapsync - synchronize mailboxes between two imap servers.
$Revision: 1.30 $
$Revision: 1.31 $
=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.30 2003/08/27 16:40:38 gilles Exp $
$Id: imapsync,v 1.31 2003/08/28 16:07:28 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.30 2003/08/27 16:40:38 gilles Exp $ ';
$rcs = ' $Id: imapsync,v 1.31 2003/08/28 16:07:28 gilles Exp $ ';
$rcs =~ m/,v (\d+\.\d+)/;
$VERSION = ($1) ? $1 : "UNKNOWN";
$error=0;
my $banner = '$RCSfile: imapsync,v $ ' . '$Revision: 1.30 $ ' . '$Date: 2003/08/27 16:40:38 $ ' . "\n";
my $banner = '$RCSfile: imapsync,v $ ' . '$Revision: 1.31 $ ' . '$Date: 2003/08/28 16:07:28 $ ' . "\n";
get_options();
@ -269,7 +269,7 @@ FOLDER: foreach my $f_fold (@f_folders) {
my $t_fold;
print "From Folder [$f_fold]\n";
$t_fold = $f_fold;
$t_fold =~ s@\$f_sep@\$t_sep@g;
$t_fold =~ s@\Q$f_sep@$t_sep@g unless ($f_sep eq $t_sep);
print "To Folder [$t_fold]\n";
unless ($from->select($f_fold)) {
warn