mirror of
https://github.com/postfixadmin/postfixadmin.git
synced 2024-09-20 03:36:20 +02:00
4c912f1da8
- hand over $search to smarty templates templates/list-virtual_alias.tpl, templates/list-virtual_alias_domain.tpl: - add search result highlighting templates/list-virtual_mailbox.tpl: - add search result highlighting - move output of "Mailbox" / "Forward only" outside the foreach loop (was displayed once per mailbox alias target) css/default.css: - add style for ".searchresult" git-svn-id: https://svn.code.sf.net/p/postfixadmin/code/trunk@868 a1433add-5e2c-0410-b055-b7f2511e0802
37 lines
773 B
Perl
Executable File
37 lines
773 B
Perl
Executable File
#!/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);
|
|
|