I try to make a script for delete a mailbox
but the cyrus->listaclmailbox and cyrus->setaclmailbox
return that my mailbox doesn't exit, but in fact I just
creat it with your script imapcreate.
For my script I use imapcreate with listacl and setacl
instead of createmailbox with correct parameter :
mbox,id and acl.
The debug script :
main::(/usr/local/bin/del-cyrus:58):
58: $cyrus->listaclmailbox($mbox);
DB<1> s
Cyrus::IMAP::Admin::listaclmailbox(/usr/lib/perl5/site_perl/5.6.1/i386-linux/Cyrus/IMAP/Admin.pm:134):
134: my ($self, $mbx) = @_;
DB<1> n
Cyrus::IMAP::Admin::listaclmailbox(/usr/lib/perl5/site_perl/5.6.1/i386-linux/Cyrus/IMAP/Admin.pm:135):
135: my %info = ();
136: $self->addcallback({-trigger
=> 'ACL',
137: -callback => sub {
DB<1> n
Cyrus::IMAP::Admin::listaclmailbox(/usr/lib/perl5/site_perl/5.6.1/i386-linux/Cyrus/IMAP/Admin.pm:144):
144: -rock => \%info});
DB<1> n
Cyrus::IMAP::Admin::listaclmailbox(/usr/lib/perl5/site_perl/5.6.1/i386-linux/Cyrus/IMAP/Admin.pm:145):
145: my ($rc, $msg) =
$self->send('', '', 'GETACL %s', $mbx);
DB<1> n
Cyrus::IMAP::Admin::listaclmailbox(/usr/lib/perl5/site_perl/5.6.1/i386-linux/Cyrus/IMAP/Admin.pm:146):
146: $self->addcallback({-trigger
=> 'ACL'});
DB<1> n
Cyrus::IMAP::Admin::listaclmailbox(/usr/lib/perl5/site_perl/5.6.1/i386-linux/Cyrus/IMAP/Admin.pm:147):
147: if ($rc eq 'OK') {
DB<1> p $mbox
Use of uninitialized value in
print at (eval 7)[/usr/lib/perl5/5.6.1/perl5db.pl:1521]
line 2, <> line 1.
DB<2> p $rc
NO
DB<3> p $mbx
user.lmametz
DB<4> p $msg
Mailbox does not exist
**************
Where is the problem.
Thanks.
Logged In: NO
It's not a bug, I have a malicious space caracter
in my list of users.
Excuse me.