Net::POP3

[Honza Pazdziora]

On Wed, Aug 09, 2000 at 08:45:07AM +0200, Underground wrote:
> Zdravicko,
> potreboval bych poradit s modulem Net::POP3 (respektive 
> POP3.pm). Nemuzu za zadnou cenu docilit toho, abych
> si precetl obsah zpravy (mailu) pomoci fce get(index_zpravy)
> nebo top(index_zpravy). Porad se mi jen vypisuje hlavicka
> zpravy (tj. from:, subject: atd) :-(

Treba je ta zprava prazdna, takze zadne telo nema.

> Procetl jsem si info o pouzivani funkci pro praci s POP3,
> videl jsem i dost ukazkovych prikladu, ale nemuzu to rozchodit.
> 
> Ruzne jsem dereferencoval a indexoval odkazy na premenne,
> ale nepomohlo :-(
> 
> Muzete mi nekdo poradit, popr. poslat ukazkovy soubor s
> mensim popisem.

perl -MNet::POP3 -e 'my $pop = Net::POP3->new("remotehost", "Debug" => 1);
my $pass = <STDIN>; chomp $pass; my $ret = $pop->login("adelton",
$pass); print "Ret $ret\n"; my $msg = $pop->get(1); print @$msg;'

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
 .project: Perl, DBI, Oracle, MySQL, auth. WWW servers, MTB, Spain, ...
------------------------------------------------------------------------