equal
deleted
inserted
replaced
48 use File::Basename; |
48 use File::Basename; |
49 use DBI; |
49 use DBI; |
50 use Data::Dumper; |
50 use Data::Dumper; |
51 use Getopt::Long; |
51 use Getopt::Long; |
52 use File::Path; |
52 use File::Path; |
|
53 |
|
54 END { |
|
55 my $acl_file = 'cyrus_mbox_acls.txt'; |
|
56 -f $acl_file && unlink $acl_file; |
|
57 } |
|
58 |
|
59 |
53 |
60 |
54 my $ME = basename $0; |
61 my $ME = basename $0; |
55 |
62 |
56 my $dsn = "DBI:mysql:database=mail;host=pu.schlittermann.de"; |
63 my $dsn = "DBI:mysql:database=mail;host=pu.schlittermann.de"; |
57 my $db_user = "exim"; |
64 my $db_user = "exim"; |
138 |
145 |
139 # now the remaining mailboxes |
146 # now the remaining mailboxes |
140 system("$cmd --syncacls --justfolders $logfile"); |
147 system("$cmd --syncacls --justfolders $logfile"); |
141 warn "$ME: migration of mailbox $mailbox failed, see $logfile\n" if ($? != 0); |
148 warn "$ME: migration of mailbox $mailbox failed, see $logfile\n" if ($? != 0); |
142 } else { |
149 } else { |
143 system("$cmd --delete2 $logfile"); |
150 system("$cmd --expunge2 --delete2 $logfile"); |
144 warn "$ME: migration of mailbox $mailbox failed, see $logfile\n" if ($? != 0); |
151 warn "$ME: migration of mailbox $mailbox failed, see $logfile\n" if ($? != 0); |
145 } |
152 } |
146 } |
153 } |
147 |
154 |
148 # vim: sw=4 sts=4 aw |
155 # vim: sw=4 sts=4 aw |