1.147

CREDITS

@@ -1,5 +1,24 @@
 #!/bin/cat
 
+Jim Rosenberg
+Had problems with dbmail.
+
+Thomas Stegbauer 
+Suggested the mailing list creation.
+
+Stan Novogroudski
+Made me wrote the learn/subscribe script example.
+
+René Pfeiffer
+Paid me 100 euros for just an imapsync success story
+and little help from me. René also wrote a LinuxGazette
+article about imapsync in april/may 2006
+
+Mike
+Gave "Mdaemon 8.1" success story.
+(Pb with folders containing 2000 messages,
+had to split them to 800 messages)
+
 Nicolai Rasmussen
 Suggested the --minage option and asked
 a friend of him to code it.

ChangeLog

@@ -1,15 +1,24 @@
 
 RCS file: RCS/imapsync,v
 Working file: imapsync
-head: 1.145
+head: 1.147
 branch:
 locks: strict
+	gilles: 1.147
 access list:
 symbolic names:
 keyword substitution: kv
-total revisions: 145;	selected revisions: 145
+total revisions: 147;	selected revisions: 147
 description:
 ----------------------------
+revision 1.147	locked by: gilles;
+date: 2006/02/08 07:54:46;  author: gilles;  state: Exp;  lines: +7 -9
+Just a little debug for Jim.
+----------------------------
+revision 1.146
+date: 2006/01/13 02:43:18;  author: gilles;  state: Exp;  lines: +6 -6
+MDaemon
+----------------------------
 revision 1.145
 date: 2005/12/04 01:58:54;  author: gilles;  state: Exp;  lines: +54 -12
 Added --minage option

README

@@ -2,7 +2,7 @@ NAME
     imapsync - IMAP synchronization, copy or migration tool. Synchronize
     mailboxes between two imap servers. Good at IMAP migration.
 
-    $Revision: 1.145 $
+    $Revision: 1.147 $
 
 INSTALL
      imapsync works fine under any Unix OS.
@@ -188,7 +188,7 @@ IMAP SERVERS
      - Groupwise IMAP (Novell). Buggy so see the FAQ.
      - iPlanet Messaging server 4.15, 5.1
      - IMail 7.15 (Ipswitch/Win2003), 8.12
-     - MDaemon 7.0.1
+     - MDaemon 7.0.1, 8.1
      - MS Exchange Server 5.5
      - Netscape Mail Server 3.6 (Wintel !)
      - Netscape Messaging Server 4.15 Patch 7
@@ -263,5 +263,5 @@ AUTHOR
     teaching free open and gratis softwares. Don't hesitate to pay him for
     that services.
 
-    $Id: imapsync,v 1.145 2005/12/04 01:58:54 gilles Exp $
+    $Id: imapsync,v 1.147 2006/02/08 07:54:46 gilles Exp gilles $
 

TODO

@@ -1,6 +1,16 @@
 TODO file for imapsync
 ----------------------
 
+
+Create a imapsync mailing list.
+
+Add features from Herman (patch against 1.139)
+ - Support for authenticating as different (admin) user
+ - Support for different auth mechanisms (we needed PLAIN)
+
+
+Add my amazon wishlist link.
+
 Add an --exactsync option to remove target messages
 that are not on source.
 

VERSION

@@ -1 +1 @@
-1.145
+1.147

imapsync

@@ -6,7 +6,7 @@ imapsync - IMAP synchronization, copy or migration
 tool. Synchronize mailboxes between two imap servers. Good
 at IMAP migration.
 
-$Revision: 1.145 $
+$Revision: 1.147 $
 
 =head1 INSTALL
 
@@ -213,7 +213,7 @@ Success stories reported with the following imap servers
  - Groupwise IMAP (Novell). Buggy so see the FAQ.
  - iPlanet Messaging server 4.15, 5.1
  - IMail 7.15 (Ipswitch/Win2003), 8.12
- - MDaemon 7.0.1
+ - MDaemon 7.0.1, 8.1
  - MS Exchange Server 5.5
  - Netscape Mail Server 3.6 (Wintel !)
  - Netscape Messaging Server 4.15 Patch 7
@@ -308,7 +308,7 @@ Gilles LAMIRAL earn his living writing, installing,
 configuring and teaching free open and gratis
 softwares. Don't hesitate to pay him for that services.
 
-$Id: imapsync,v 1.145 2005/12/04 01:58:54 gilles Exp $
+$Id: imapsync,v 1.147 2006/02/08 07:54:46 gilles Exp gilles $
 
 =cut
 
@@ -355,7 +355,7 @@ my(
 use vars qw ($opt_G); # missing code for this will be option.
 
 
-$rcs = ' $Id: imapsync,v 1.145 2005/12/04 01:58:54 gilles Exp $ ';
+$rcs = ' $Id: imapsync,v 1.147 2006/02/08 07:54:46 gilles Exp gilles $ ';
 $rcs =~ m/,v (\d+\.\d+)/;
 $VERSION = ($1) ? $1 : "UNKNOWN";
 
@@ -392,8 +392,8 @@ $error=0;
 
 my $banner = join("", 
 		  '$RCSfile: imapsync,v $ ',
-		  '$Revision: 1.145 $ ',
-		  '$Date: 2005/12/04 01:58:54 $ ',
+		  '$Revision: 1.147 $ ',
+		  '$Date: 2006/02/08 07:54:46 $ ',
 		  "\n",
 		  "Mail::IMAPClient version used here is ",
 		  $VERSION_IMAPClient,"\n"
@@ -822,18 +822,16 @@ FOLDER: foreach my $f_fold (@f_folders) {
 
 
 
-	$debug and print "LIST FROM : @f_msgs\n";
+	$debug and print "LIST FROM : [@f_msgs]\n";
 	# internal dates on "TO" are after the ones on "FROM"
 	# normally...
 	my @t_msgs = select_msgs($to);
 	
-	$debug and print "LIST TO   : @t_msgs\n";
+	$debug and print "LIST TO   : [@t_msgs]\n";
 
 	my %f_hash = ();
 	my %t_hash = ();
 
-
-	
 	print "++++ From [$f_fold] Parse 1 ++++\n";
 	
 	my $f_heads = $from->parse_headers($from->Range([@f_msgs]),@useheader) 

learn/subscribe

@@ -0,0 +1,24 @@
+#!/usr/bin/perl -w
+
+use Mail::IMAPClient;
+
+$ARGV[1] or die "usage: $0 user password\n";
+
+$host = "localhost";
+$user = $ARGV[0];
+$password = $ARGV[1];
+
+my $imap = Mail::IMAPClient->new();
+#$imap->Debug(1);
+$imap->Server($host);
+$imap->connect() or die;
+$imap->User($user);
+$imap->Password($password);
+$imap->login() or die;
+$imap->subscribe("shared.Spam") or die;
+print	"$user subscribed to\n", 
+	join("\n", $imap->subscribed()), 
+	"\n";
+$imap->close();
+
+