You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
37 lines
773 B
Perl
37 lines
773 B
Perl
14 years ago
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
# Cyrus Mailbox deletion
|
||
|
|
#
|
||
|
|
# Iñaki Rodriguez (irodriguez@virtualminds.es / irodriguez@ackstorm.es)
|
||
|
|
#
|
||
|
|
# LICENSE
|
||
|
|
# This source file is subject to the GPL license that is bundled with
|
||
|
|
# this package in the file LICENSE.TXT.
|
||
|
|
#
|
||
|
|
# (26/10/2009)
|
||
|
|
|
||
|
|
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);
|
||
|
|
|