--- a/cyrus-migrate.pl Mon Aug 03 17:11:08 2009 +0200
+++ b/cyrus-migrate.pl Thu Sep 17 13:03:02 2009 +0200
@@ -39,6 +39,7 @@
--help this help text
--folders only sync folders
--acls fix ACLs
+ --shared migrage shared mailboxes
#
use strict;
@@ -73,12 +74,14 @@
my $opt_maxage = 0;
my $opt_folders = 0;
my $opt_acls = 0;
+my $opt_shared = 0;
GetOptions(
"dry-ryn" => \$opt_dry,
"skip" => \$opt_skip,
"folders" => \$opt_folders,
"acls" => \$opt_acls,
+ "shared" => \$opt_shared,
"logdir=s" => \$opt_logdir,
"maxage=i" => \$opt_maxage,
) or die eval "\"$usage\"";
@@ -91,6 +94,13 @@
exit 0;
}
+if ($opt_shared) {
+ system("./imapsync --syncacls --ssl1 --ssl2 --prefix2 'Shared Folders' --prefix1 'Shared Folders' --sep1 / --sep2 / --host1 $imap_from_host --host2 $imap_to_host --subscribe --user1 heiko\@schlittermann.de --user2 heiko\@schlittermann.de --authuser1 root --authuser2 root --password1 x --password2 x --folder 'Shared Folders/domains'");
+ exit 0;
+}
+
+
+
### connection to mysql account database
my $dbh = DBI->connect($dsn, $db_user, $db_pass, { RaiseError => 1} ) or
die "$ME: cannot conncet to mysql: $!\n";
--- a/mailboxes.all Mon Aug 03 17:11:08 2009 +0200
+++ b/mailboxes.all Thu Sep 17 13:03:02 2009 +0200
@@ -12,7 +12,6 @@
antje@prana-kreis.de
arbes@sandsteine.de
arnold@schlittermann.de
-aviehrig@saxacon.de
b.braeckle@ajh-drucktechnik.de
beate.becher@sandsteine.de
beate.gross@ugvo.de