nieuwe email check perl linux imap

[Logic]

Hi,

Ik ben al een tijdje aan het zoeken op google en op GOT, maar kan helemaal niks vinden over dit onderwerp.
Ik wil graag een scrippie maken , die checkt hoeveel unread messages ik in mijn email box heb.

Helaas kan ik nog nie zoveel vinden hierover..
Ik maak dus gebruik van imap.
ik begreep dat je met pop3 niet kan zien of een message al bekeken is...
helaas werkt het onderstaande script dan ook niet

code:

#!/usr/bin/perl

use Net::POP3;
use Term::ReadKey;

my $mailserver = "not.nl";

my $username = "burp";

my $password = "burp";

my $pop = Net::POP3->new($mailserver) ||  die "Cannot open connection to $mailserver : $! \n";

print "number of total messages: ";

defined( print $pop->login($username, $password) ) ||   die "Cannot authenticate $! \n";

@mes=$pop->ping($username);

print "\n New messages: $mes[0] Total messages: $mes[1] \n";

$pop->quit();

Kan iemand mij misschien een klein beetje op weg helpen?


edit: pfff hoe dom kan ik zijn?? even mijn pas weggehaalt..

[ Voor 23% gewijzigd door Logic op 28-01-2003 16:44 ]

[Verwijderd]

Ik mag hopen dat het niet je echte username en password zijn in dat script, want anders zou ik maar snel even weg halen.

[arikkert]

ken je de protocollen wel ? met pop3 kun je nl bijv messages lezen zonder te verwijderen en bij imap is dat zelfs de default.
en als je de protocollen kent dan is het een script request geworden