Hi!
I am trying to connect to a pop3 account to get a count of the unread
mail using Net::POP3::SSLWrapper in perl v5.16.2, but it fails with
the error Net::POP3: Unexpected EOF on command channel at pop3s.pl
line 4.
This is the tiny script from the examples:
use Net::POP3::SSLWrapper;
pop3s {
my $pop3 = Net::POP3->new('pop.gmx.net', Port => 995, Debug => 1)
or die "Can't connect";
if ($pop3->login('user','pass' ) > 0) {
my $msgnum = $pop3->list;
}
$pop3->quit;
};
I know the password is right and the general connection seems to work
as well judging by the debug output.
Net::POP3>>> Net::POP3(2.29)
Net::POP3>>> Net::POP3::SSLWrapper(0.06)
Net::POP3>>> Net::Cmd(2.29)
Net::POP3>>> Exporter(5.66)
Net::POP3>>> IO::Socket::SSL(1.77)
Net::POP3>>> IO::Socket::INET6(2.69)
Net::POP3>>> IO::Socket(1.34)
Net::POP3>>> IO::Handle(1.33)
Net::POP3=GLOB(0x7fb9620e25d0)<<< +OK POP server ready H migmx109
0LeKAW-1YQy8o3IEf-00qhQR
Net::POP3=GLOB(0x7fb9620e25d0)>>> USER user
Net::POP3=GLOB(0x7fb9620e25d0)<<< +OK password required for user "user"
Net::POP3=GLOB(0x7fb9620e25d0)>>> PASS ....
Net::POP3=GLOB(0x7fb9620e25d0)<<< +OK mailbox "user" has 1000 messages
(65057327 octets) H migmx109
Net::POP3=GLOB(0x7fb9620e25d0)>>> LIST
Net::POP3: Unexpected EOF on command channel at ../../../pop3s.pl line 4.
The only thing my google-fu could turn up was this, but I have a hard
time following the discussion:
http://www.nntp.perl.org/group/perl.module-authors/2009/11/msg8053.html
Any ideas? Are there too many unread messages or am I doing something
wrong? Using an old module?
(I got the same error on two totally different machines)
Cheers
k
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
