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

1.14

Browse source
This commit is contained in:
Nick Bebout 2011-03-12 02:43:44 +00:00
parent 598d76108a
commit 237b900394
4 changed files with 24 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

9
ChangeLog
View file

@ -1,15 +1,20 @@
RCS file: RCS/imapsync,v RCS file: RCS/imapsync,v
Working file: imapsync Working file: imapsync
head: 1.13 head: 1.14
branch: branch:
locks: strict locks: strict
access list: access list:
symbolic names: symbolic names:
keyword substitution: kv keyword substitution: kv
total revisions: 13; selected revisions: 13 total revisions: 14; selected revisions: 14
description: description:
---------------------------- ----------------------------
revision 1.14
date: 2003/07/17 11:58:56; author: gilles; state: Exp; lines: +14 -12
- Fixed port2 variable.
Thanks again Patrick C. F. Ernzer
----------------------------
revision 1.13 revision 1.13
date: 2003/07/16 17:28:59; author: gilles; state: Exp; lines: +6 -3 date: 2003/07/16 17:28:59; author: gilles; state: Exp; lines: +6 -3
- fix "you forgot to honour the --port option" - fix "you forgot to honour the --port option"

4
README
View file

@ -1,7 +1,7 @@
NAME NAME
imapsync - synchronize mailboxes between two imap servers. imapsync - synchronize mailboxes between two imap servers.
$Revision: 1.13 $ $Revision: 1.14 $
INSTALL INSTALL
Get imapsync at http://www.linux-france.org/prj/imapsync/dist/ Get imapsync at http://www.linux-france.org/prj/imapsync/dist/
@ -114,5 +114,5 @@ SIMILAR SOFTWARES
Feedback will be welcome. Feedback will be welcome.
$Id: imapsync,v 1.13 2003/07/16 17:28:59 gilles Exp $ $Id: imapsync,v 1.14 2003/07/17 11:58:56 gilles Exp $

2
VERSION
View file

@ -1 +1 @@
1.13 1.14

16
imapsync
View file

@ -4,7 +4,7 @@
imapsync - synchronize mailboxes between two imap servers. imapsync - synchronize mailboxes between two imap servers.
$Revision: 1.13 $ $Revision: 1.14 $
=head1 INSTALL =head1 INSTALL
@ -136,7 +136,7 @@ both sides. This will help future users.
Feedback will be welcome. Feedback will be welcome.
$Id: imapsync,v 1.13 2003/07/16 17:28:59 gilles Exp $ $Id: imapsync,v 1.14 2003/07/17 11:58:56 gilles Exp $
=cut =cut
@ -161,7 +161,7 @@ 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.13 2003/07/16 17:28:59 gilles Exp $ '; $rcs = ' $Id: imapsync,v 1.14 2003/07/17 11:58:56 gilles Exp $ ';
$rcs =~ m/,v (\d+\.\d+)/; $rcs =~ m/,v (\d+\.\d+)/;
$VERSION = ($1) ? $1 : "UNKNOWN"; $VERSION = ($1) ? $1 : "UNKNOWN";
$error=0; $error=0;
@ -198,18 +198,20 @@ $from = Mail::IMAPClient->new( Server => $host1,
Fast_IO => 1, Fast_IO => 1,
Uid => 1, Uid => 1,
Peek => 1, Peek => 1,
Debug => $debugimap,) Debug => $debugimap,
)
or die "can't open imap connection on [$host1] with user [$user1]\n"; or die "can't open imap connection on [$host1] with user [$user1]\n";
$to = Mail::IMAPClient->new( Server => $host2, $to = Mail::IMAPClient->new( Server => $host2,
Port => $port1, Port => $port2,
User => $user2, User => $user2,
Password=> $password2, Password => $password2,
Fast_IO => 1, Fast_IO => 1,
Uid => 1, Uid => 1,
Peek => 1, Peek => 1,
Debug => 0,) Debug => 0,
)
or die "can't open imap connection on [$host2] with user [$user2]\n"; or die "can't open imap connection on [$host2] with user [$user2]\n";
my @f_folders; my @f_folders;