Cyrus::IMAP::Admin

[ms419 at freezone.co.uk]

Three questions about Cyrus::IMAP::Admin:

I am using Cyrus::IMAP::Admin for a script to archive mailboxes. It 
should rename <mailbox> to <mailbox>.Archives.<date><integer>.

1). How does one list mailboxes which _don't_ contain ".Archives."? 
It's one thing to list those that _do_:

----
my @mailboxes = $connection->list "*.Archives.*";
----

But I've been over the IMAP RFC and Cyrus documentation and can't find 
how to put negation in a pattern.

2). How does one test whether a mailbox exists? I want to do something 
like:

----
my $integer = 0;
while (exists "$mailbox.Archives.$date$integer") {
	$integer++;
}
---

3). How does one test whether a mailbox is empty? I want to do 
something like:

----
if (! empty $mailbox) {
	$connection->rename $mailbox "$mailbox.Archives.$date$integer";
}
----

As an extension, how does one test the size of a mailbox? Instead of 
"if (! empty $mailbox) ...", it might be useful to test "if (size 
$mailbox > $limit) ..."

Thank you very much for any help or suggestions!

Jack

---
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