I was just playing with Net::POP3 this past weeked. Here's a working
script. It's not great, but I got the basics working, and you can mess
with it.
Shawn
#|/-\||/-\||/-\||/-\||/-\||/-\||/-\||/-\||/-\|
# Code
#|/-\||/-\||/-\||/-\||/-\||/-\||/-\||/-\||/-\|
#!/usr/bin/perl
#use Net::FTP;
use Net::POP3;
$result = undef;
print "Enter the server name:\n";
$popServer = <STDIN>;
print "Enter your user name:\n";
$popUser = <STDIN>;
print "Enter your password:\n";
$popPass = <STDIN>;
chomp($popServer);
chomp($popUser);
chomp($popPass);
@message = undef;
$pop = Net::POP3->new($popServer);
$result = $pop->user($popUser);
print "POP3 logon successful.\n" if $result == 1;
$numMessages = $pop->pass($popPass);
print "Number of messages: $numMessages.\n \n";
if ($numMessages > 0){
for ($x=1;$x<=$numMessages;$x++){
$result = $pop->get($x);
@message = @$result;
print "\nInfo for message $x of $numMessages:\n";
foreach $message (@message){
print $message if $message =~ /subject:/i;
print $message if $message =~ /from:/i;
}
print "\n\n";
}
}
$result = $pop->quit();
print "POP3 logout successful.\n" if $result == 1;
#|/-\||/-\||/-\||/-\||/-\||/-\||/-\||/-\||/-\|
# End of Code
#|/-\||/-\||/-\||/-\||/-\||/-\||/-\||/-\||/-\|
**********************************************************************
This e-mail and any files transmitted with it may contain
confidential information and is intended solely for use by
the individual to whom it is addressed. If you received
this e-mail in error, please notify the sender, do not
disclose its contents to others and delete it from your
system.
**********************************************************************
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
