zydronium/imapsync
1
0
Fork 0
mirror of https://github.com/imapsync/imapsync.git synced 2025-06-10 14:44:32 +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

8
ChangeLog
View file

@ -1,15 +1,19 @@
RCS file: RCS/imapsync,v
Working file: imapsync
head: 1.30
head: 1.31
branch:
locks: strict
access list:
symbolic names:
keyword substitution: kv
total revisions: 30; selected revisions: 30
total revisions: 31; selected revisions: 31
description:
----------------------------
revision 1.31
date: 2003/08/28 16:07:28; author: gilles; state: Exp; lines: +5 -5
Fixed bug converting separators
----------------------------
revision 1.30
date: 2003/08/27 16:40:38; author: gilles; state: Exp; lines: +9 -5
Added output separators

4
README
View file

@ -1,7 +1,7 @@
NAME
imapsync - synchronize mailboxes between two imap servers.
$Revision: 1.30 $
$Revision: 1.31 $
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.30 2003/08/27 16:40:38 gilles Exp $
$Id: imapsync,v 1.31 2003/08/28 16:07:28 gilles Exp $

2
VERSION
View file

@ -1 +1 @@
1.30
1.31

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

16
zz Normal file
View file

@ -0,0 +1,16 @@
my $f_sep="/";
my $t_sep=".";
foreach my $f_fold ("testsub/testsub3", "testsub.testsub3" ) {
my $t_fold;
print "From Folder [$f_fold]\n";
$t_fold = $f_fold;
my $t_fold2 = $f_fold;
$t_fold =~ s@\Q$f_sep@$t_sep@g;
$t_fold2 =~ s@\Q$t_sep@$f_sep@g;
#$t_fold =~ s@/@.@g;
print "To /. Folder [$t_fold]\n";
print "To ./ Folder2[$t_fold2]\n\n";
}