[MacPerl] I know I am going to feel foolish, but...

[Elton Hughes <ehughes@novapic.org>]

This program used to work.

----------
#!/usr/bin/perl

use Net::POP3;

$username = 'galcantar';
$password = 'gustavo';
# $popserver = 'ftp.youthatwork.org';
$popserver = 'dedmail.novapic.org';

open (POP3TEXT, '>>gamail.txt') or die "Cannot open email.txt : $!\n";

$| = 1; # Disable Buffering
select($popserver);

$pop = Net::POP3->new($popserver)
        or die "Can not open connection to $popserver : $!\n";

unless (defined $pop->pop($username, $password))  {
        $pop->quit;
        die "Can not authenticate!\n";
}

unless (defined ($messages = $pop->list))  {
         $pop->quit;
         die "Can not get list of undeleted messages!\n";
}

$msgcount = scalar keys %$messages;

print POP3TEXT ("You have $msgcount messages.\n");

foreach $msgid (sort keys %$messages) {
        $message = $pop->get($msgid);
        unless (defined $message) {
                warn "could not fetch $msgid from server: $!\n";
                next;
        }
        print POP3TEXT ("\n\nMessage ID - $msgid\n");
        print POP3TEXT (@$message);

								$pop->delete($msgid);

}

$pop->quit;

----------

Now I get this error message.

# Can't locate auto/Net/POP3/pop.al in @INC.
File 'Appland:MacPerl Ÿ:lib:AutoLoader.pm'; Line 38

File 'Appland:MacPerl Ÿ:popread3.pl'; Line 18

----------

What am I forgetting? I reformatted my hard drive crash a couple a months ago. I thought I installed all of the modules I had in MacPerl before. Net is in lib and POP3.pm is in net. I am a bit confused (and embarrassed) about this one.

Elton



========================================================================= 
NOVA Private Industry Council                 505 W. Olive Ave. Suite 550 
Elton Hughes (Information Technology)                  Sunnyvale CA 94086 
Phone: 408-730-7235                                     Fax: 408-730-7643 
------------------------------------------------------------------------- 



===== Want to unsubscribe from this list?
===== Send mail with body "unsubscribe" to macperl-request@macperl.org