summaryrefslogtreecommitdiff
path: root/bin/delete_mailbox.pl
blob: c0992f68ae134cd4e42c995326bd4aae60d92496 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl

# Delete an existing mailbox.
use Kolab;
use Kolab::Cyrus;

# John Doe's contract is terminated
my ($mailboxName, $mailboxType) = @ARGV;

if ( !$mailboxType ) {
    $mailboxType = 'user';
}

Kolab::reloadConfig('/etc/kolab/kolab-shc.conf');

Kolab::cyrusMurderDeleteMailbox($mailboxName, $mailboxType);