Re: Reading pop3 accounts

Otis Gospodnetic (otis@populus.net)
Mon, 26 Jan 1998 22:03:58 -0500


try libnet modules from CPAN.

Otis
--
POPULUS, the Intelligent People Locator -- http://www.POPULUS.net/

-----Original Message-----
From: Stuart Thorn <thorn@spinnaker.fr>
To: libwww list <libwww-perl@ics.uci.edu>
Date: Monday, January 26, 1998 9:08 PM
Subject: Reading pop3 accounts


>I want to write a function that will do something like (but hopefully more
>efficiently):
>
>sub readmail {
>my( $account, $login, $pass ) = @_;
>my $leavemailonserver = 1;  # IMPORTANT: just want to read mail, + not take
>it off
>my ( @mails );
>my $mailobject = new MailObject( $account, $login, $pass,
>$leavemailonserver );
>while( $mailobject->hasUnreadMail() ) {
>my( $messages, $sender, $date, $subject ) = $mailobject->nextmessage();
>push( @mails, [( $messages, $sender, $date, $subject )] );
>}
>@mails;
>}
>
>Does the libwww package have a viable solution for this, or are there other
>more suitable packages. Could someone maybe point me to some ready-rolled
>code?
>Thanks for your help.
>
>Stuart Thorn,
>Spinnaker Internet Services,   Paris,   France.
>thorn@spinnaker.fr      http://www.spinnaker.fr
>