sslug-teknik team mailing list archive

[Peter Makholm <peter@xxxxxxxxxxx>]

Peter Toft <pto@xxxxxxxxxxx> writes:

> Jeg er kommet til samme konklusion, men er der nogen som ved om der 
> findes et tekst-mode program som kunne løbe alle foldere på en
> IMAP-server igennem og skrive ud hvor mange læste, hhv. ulæste indlæg
> som findes på serveren? Det må findes....

#!/usr/bin/perl

$\ = "\n";

use Mail::IMAPClient;

my $imap = new Mail::IMAPClient ( Server   => 'localhost',
                                  User     => 'mig',
                                  Password => '********',
                                );

for $folder (sort $imap->folders) {
    $imap->select($folder);

    # For some reason my server gives an error on $imap->message_count
    my $messages   = $imap->search("ALL");
    my $msgcnt     = @$messages;
    my $unseen     = $imap->unseen_count;

    print "$folder: ($unseen/$msgcnt)";
}
__END__

-- 
 Peter Makholm     |                                              What if:
 peter@xxxxxxxxxxx |     IBM bought Xenix from Microsoft instead of buying
 http://hacking.dk |                                                  DOS?