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 <[EMAIL PROTECTED]> 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
