[MacPerl] Using Net::POP3

[Elton Hughes <ehughes@novapic.org>]

Hello All,

Yesterday I asked for help with the POP3Client module. Paul Schinder answered my question and suggested that I use Net::POP3 instead. Because his reasons were quite sound I did. I found the following code in the Perl Cookbook and decided to give it a try.

#!/usr/bin/perl -w

use Net::POP3;
use Mac::InternetConfig;
use Mac::Types;

$username = "ehughes";
$password = " "; # Aw come on. You didn't think I would broadcast my password???

$pop = Net::POP3->new('dedmail.novapic.org')
	or die "can not open connection to dedmail.novapic.org : $!\n";

$pop->login($username, $password)
	or die "can not authenticate: $!\n";

$messages = $pop->list
	or die "can not get list of undeleted messages: $!\n";

foreach $msgid (keys %$messages) {
	$message = $pop->get($msgid);
	unless (defined $message) {
		warn "could not fetch $msgid from server: $!\n";
		next;
	}
	# message is a reference to an array of lines
}

Which promptly returns this:

# Ambiguous use of {index} resolved to {"index"}.
File 'Cyberia:Applications:MacPerl Ä:lib:Mac:InternetConfig.pm'; Line 501
# Ambiguous use of {index} resolved to {"index"}.
File 'Cyberia:Applications:MacPerl Ä:lib:Mac:InternetConfig.pm'; Line 503
# Ambiguous use of {index} resolved to {"index"}.
File 'Cyberia:Applications:MacPerl Ä:lib:Mac:InternetConfig.pm'; Line 509
# Use of uninitialized value.
File 'Cyberia:Applications:MacPerl Ä:lib:Mac:Types.pm'; Line 68
# Use of uninitialized value.
File 'Cyberia:Applications:MacPerl Ä:lib:Mac:Types.pm'; Line 68
# can not authenticate: 
# Use of uninitialized value during global destruction.

Ok. It bombs at the login line. But what else is happening here. Is it not connecting at all to the server names 'dedmail.novapic.org'? Any help would be greatly appreciated.

Thank you,

Elton



======================================================================
Elton Hughes                               505 W. Olive Ave. Suite 550
NOVA Private Industry Council                      Sunnyvale, CA 94086
http://www.novapic.org/                            Phone: 408-730-7232
----------------------------------------------------------------------


***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch