Net::POP3

[shawn_milochik]

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]