scripted delete mailbox for cyradm

[Aleksandar Milivojevic]

Craig White wrote:
> Trying to script deleting a user's mailbox from system...
> 
> /bin/su - cyrus -c '/usr/lib/cyrus-imapd/cyradm localhost \ 
> --userrc=/var/lib/imap/.systemrc dm user.public'

Try something like this instead:

#! /usr/bin/perl -w

use Cyrus::IMAP::Admin;

$imap = Cyrus::IMAP::Admin->new("servername")
    or die "Failed to connect";
$imap->authenticate("-user" => "username",
                     "-password" => "password",
                     "-mechanism" => "LOGIN")
    or die "Failed to authenticate";
$imap->delete("user.mailbox")
    or die "Failed to delete mailbox";

See man pages for Cyrus::IMAP::Admin and Cyrus::IMAP for more details.

-- 
Aleksandar Milivojevic <amilivojevic at pbl.ca>    Pollard Banknote Limited
Systems Administrator                           1499 Buffalo Place
Tel: (204) 474-2323 ext 276                     Winnipeg, MB  R3T 1L7
---
Cyrus Home Page: http://asg.web.cmu.edu/cyrus
Cyrus Wiki/FAQ: http://cyruswiki.andrew.cmu.edu
List Archives/Info: http://asg.web.cmu.edu/cyrus/mailing-list.html