note
Tomte
<p>
try the <tt>login</tt> command, see the [http://gemma.apple.com/documentation/Darwin/Reference/ManPages/man3/Cyrus::IMAP::Shell.3pm.html|documentation for the module].
</p>
<p>
Otherwise, if you don't use the shell interactivly, why not use <tt>Cyrus::IMAP::Admin</tt> and do the full monty directly in perl?
<code>
use Cyrus::IMAP::Admin;
#
# assuming all necessary variables have been declared and filled accordingly:
#
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);
</code>
</p>
<div class="pmsig"><div class="pmsig-184363">
<p>
regards,<br />
tomte
<hr />
</p>
<p align="right">
An intellectual is someone whose mind watches itself.<br>-- Albert Camus
</p>
</div></div>
542936
542936