[FLUG] check imap mail

Mailing List del Fortunae LUG
=============================

#!/usr/bin/perl
use Mail::IMAPClient;
my $imap = Mail::IMAPClient->new( Server => 'IL.VOSTRO.IMAP.SERVER',
        User   => 'USER',
        Password => 'PASSWORD',
        );
$imap->Debug($opt_d);

while(1)
{

my @folders = $imap->folders;
$elementi=@folders;
print "@folders[1] ", $imap->message_count(@folders[1]), "\n";
sleep 900;
}


ecco la mia nuova fantastica utility per checkare quante mail ci sono
nella vostra mail box, stavolta sfrutta l`imap

per funzionare dovete scaricarvi sto coso :
http://search.cpan.org/search?module=Mail::IMAPClient


bau
--
<SmartArt> Ogni giorno un sistemista Windows NT si sveglia...... e sa che 
dovra' lavorare. 
<SmartArt> Ogni giorno un sistemista Linux si sveglia...... alle 13.00, per il 
pranzo. 
<SmartArt> Non importa che tu sia sistemista Windows NT o Linux.....tanto ti 
pagano uguale!

Other related posts: