← Back
Editing: cyrus-mailbox-postdelete.pl
#!/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);
Save File
Cancel