I have asked this question at a perl.org list and havent' gotten a response,
i thought i would try here as well, i don't know if it may be a debian
'issue', any ideas?
Ok, this is very frustrating, 2 days and many hours worth! I have used this
module/lib (libwww) before with ease (on other distro's). The only thing
i can think of is if it could be my linux distro? (Debian Woody 3.0),
although i can't think why, or maybe the pop-servers encrytion methods?.
The following is the exact script i am trying to run, (except with my
personal info removed) and below is the Debugging info i'm getting.
All my supplied data is correct, (i.e. username and password, i use the exact
same info for ~/.fetchmailrc and i retrieve mail fine. I am including a
Microsoft pop-server and a 'unknown' although probably some form of
*NIX server.
I was also reciveing some MD5.pm error's although they seem be gone.
I would appreciate any info, guidance or help anyone could provide.
thank you.
-mUs.
<script>
#!/usr/bin/perl -w
use Mail::POP3Client;
use strict;
use warnings;
my($pop,$usr,$passwd,$host,$i);
$usr = '[EMAIL PROTECTED]';
$passwd = 'clear_text';
$host = 'pop.me.com';
$pop = new Mail::POP3Client( USER => "$usr",
PASSWORD => "$passwd",
DEBUG => 1,
HOST => "$host");
for ($i = 1; $i <= $pop->Count(); $i++) {
foreach ( $pop->Head( $i ) ) {
(/^(From|Subject):\s+/i) && print $_, "\n";
}
print "\n";
}
$pop->Close();
</script>
---------------------------------------------------------------------
<debug output>
POP3 <- +OK
at ./J_mail_client line 15
POP3 -> USER [EMAIL PROTECTED]
at ./J_mail_client line 15
POP3 <- +OK
at ./J_mail_client line 15
POP3 -> PASS clear_text
at ./J_mail_client line 15
POP3 <- -ERR
at ./J_mail_client line 15
POP3 -> QUIT
at ./J_mail_client line 26
Use of uninitialized value in join or string at /usr/share/perl/5.6.1/Carp/Heavy.pm
line 145, <GEN0> line 3.
POP3 <- at ./J_mail_client line 26
Use of uninitialized value in pattern match (m//) at
/usr/share/perl5/Mail/POP3Client.pm line 828, <GEN0> line 3.
Use of uninitialized value in pattern match (m//) at
/usr/share/perl5/Mail/POP3Client.pm line 313.
</debug output>
------------------------------------------------------------------------
<debug output on msserver>
POP3 <- +OK Microsoft POP3 Server Version: 5.5.1877.747.74 ready
<23423423.34454545me.me.com>
at ./N_mail_client line 15
POP3 -> APOP [EMAIL PROTECTED] erierj24353245ksdfj4534k4j5k45j
at ./N_mail_client line 15
POP3 <- -ERR APOP not supported.
at ./N_mail_client line 15
POP3 -> USER [EMAIL PROTECTED]
at ./N_mail_client line 15
POP3 <- +OK Waiting for password
at ./N_mail_client line 15
POP3 -> PASS clear_text
at ./N_mail_client line 15
POP3 <- -ERR Permission denied
at ./N_mail_client line 15
POP3 -> QUIT
at ./N_mail_client line 27
POP3 <- +OK
at ./N_mail_client line 27
</debug msserver>
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
