123456789101112131415161718192021222324252627282930313233343536 |
-
-
-
-
-
-
-
-
-
-
-
-
- use Cyrus::IMAP::Admin;
- require '/etc/mail/postfixadmin/cyrus.conf';
- use strict;
- use vars qw($cyrus_user $cyrus_password $cyrus_host);
-
- my %opts;
-
- my $mailbox = mailbox_name($ARGV[0]);
-
- my $client = Cyrus::IMAP::Admin->new($cyrus_host);
- die_on_error($client);
-
- $opts{-user} = $cyrus_user;
- $opts{-password} = $cyrus_password;
-
- $client->authenticate(%opts);
- die_on_error($client);
-
- $client->setacl($mailbox,$cyrus_user => 'all');
- die_on_error($client);
-
- $client->deletemailbox($mailbox);
- die_on_error($client);
|