Your script doesn't get connect to anywhere. (netstat -a says nothing)
I give the correct host , username, password and it doesn't work.
Is the module broken? Net::POP3 (i use it on win32 active's distribution)
----- Original Message -----
From: "Gunnar Hjalmarsson" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, June 30, 2004 5:55 PM
Subject: Re: Checking for Senders via POP3
> John wrote:
> > I want to check for specific senders (in my inbox) connecting to
> > the Mail Server via POP3.(just checking the From : bla bla string)
> > Not to download the inbox mails to my system.
>
> This is one way:
>
> use Net::POP3;
> my $pop = Net::POP3->new($host) or die "Couldn't connect: $!";
> my $cnt;
> unless ( defined ( $cnt = $pop->login($user, $pw) ) ) {
> $pop->quit;
> die "Login error";
> }
> if ($cnt > 0) {
> for my $num ( sort { $a <=> $b } keys %{ $pop->list } ) {
> print "Msg $num - ", grep /^From: /, @{ $pop->top($num) };
> }
> } else {
> print "No messages\n";
> }
> $pop->quit;
>
> I for one did not receive the result of your efforts so far. Maybe you
> forgot to paste it into the message you sent...
>
> --
> Gunnar Hjalmarsson
> Email: http://www.gunnar.cc/cgi-bin/contact.pl
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> <http://learn.perl.org/> <http://learn.perl.org/first-response>
>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
