Re: How do I pass the password to Cyrus::IMAP::Shell?

[Tomte]

in reply to How do I pass the password to Cyrus::IMAP::Shell?

try the login command, see the documentation for the module.

Otherwise, if you don't use the shell interactivly, why not use Cyrus::IMAP::Admin and do the full monty directly in perl?

use Cyrus::IMAP::Admin;

#
# assuming all necessary variables have been declared and filled accor
+dingly:
#

my $client = Cyrus::IMAP::Admin->new($host);

my $auth = {
    -mechanism => 'login',
    -service => 'imap',
    -authz => $admin,
    -user => $admin,
    -minssf => 0,
    -maxssf => 10000,
    -password => $admin_pass,
};

$client->authenticate( \%$auth);

(print $client->{error} && return(1)) if $client->{error};

# e.g. create a new mailbox:
$client->createmailbox('user.' . $mailuser);

[Anonymous Monk]

Excellent script! I only had to remove the '\%' token in the authenticate call, and it worked like a charm. Any idea on how to set quota to that newly created mailbox? My guesses were all wrong! ;-) Thanks anyway! Juli

[Tomte]

Juli,

Any idea on how to set quota to that newly created mailbox? My guesses were all wrong! ;-)

The perldoc suggests

# setting a 256MB quota
$client->setquota('user.name@domain', 'STORAGE', 262144);

Unfortunately I can't test this right now - but I'm sure other monks can help, if you post what you unsuccessfully tried.