Wayne wrote:
>
> ----- Original Message -----
> From: "John W. Krahn" <[EMAIL PROTECTED]>
> >
> > #!/usr/bin/perl -w
> > use strict;
> > use Net::POP3;
> >
> > my $user_name = 'yourname';
> > my $user_pw = 'yourpassword';
> > my $pop_host = 'pop.somehost.com';
> > my $mail_file = '/home/yourname/mail';
> >
> > my $pop = Net::POP3->new( $pop_host ) or die "Cannot connect to
> $pop_host\n";
> > open my $mail, '>>', $mail_file or die "Cannot open $mail_file: $!";
> >
> > $pop->login( $user_name, $user_pw ) == 0 and die "No messages at
> $pop_host\n";
> > $pop->get( $_, $mail ) for keys %{$pop->list()};
> >
> > __END__
>
> A quick question here.
> Do you place the actual username and password in the script,
In this example I did.
> or does it prompt you for them when run?
You can always write code to prompt the user if you want.
> As an example, I have an account with username of wayneleake, password of
> xxxxxxxx,
> at mail.mynetname.net (or pop.mynetname.net).
> I have not tried running any of this code just yet.
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
