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);
regards,
tomte
An intellectual is someone whose mind watches itself.
-- Albert Camus
In Section
Seekers of Perl Wisdom