Listar caixas de correio às quais um usuário tem acesso no Cyrus IMAP?

Question

Gostaria de saber se existe uma maneira de listar todas as caixas de correio às quais um usuário tem acesso via cyradm (ou outros meios). Pode-se executar lam user.% e analisar a saída, mas acho que é uma porcaria:)

    

Answer 1

Respondendo a mim mesmo depois de pesquisar IMAP::Admin

#!/usr/bin/perl

use IMAP::Admin;

$imap = IMAP::Admin->new('Server' => 'localhost',
                           'Login' => 'cyrus',
                           'Password' => 'cyrus',
                           );

my $finduser = "root"; # the user you search for

my @mailboxes = $imap->list("user.%");
foreach my $mailbox (@mailboxes) {
        my %list = $imap->get_acl($mailbox);
        if (defined($list{$finduser})) {
                print $mailbox."\n";
        }
}