1.14

ChangeLog

@@ -1,15 +1,20 @@
 
 RCS file: RCS/imapsync,v
 Working file: imapsync
-head: 1.13
+head: 1.14
 branch:
 locks: strict
 access list:
 symbolic names:
 keyword substitution: kv
-total revisions: 13;	selected revisions: 13
+total revisions: 14;	selected revisions: 14
 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
 date: 2003/07/16 17:28:59;  author: gilles;  state: Exp;  lines: +6 -3
 - fix "you forgot to honour the --port option"

README

@@ -1,7 +1,7 @@
 NAME
     imapsync - synchronize mailboxes between two imap servers.
 
-    $Revision: 1.13 $
+    $Revision: 1.14 $
 
 INSTALL
      Get imapsync at http://www.linux-france.org/prj/imapsync/dist/
@@ -114,5 +114,5 @@ SIMILAR SOFTWARES
 
     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 $
 

VERSION

@@ -1 +1 @@
-1.13
+1.14

imapsync

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