ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Anton Dyuzhev 2:5020/400 14 Sep 2000 15:42:06
To : All
Subject : Net::POP3 глюк ? (второй раз спрашиваю)
--------------------------------------------------------------------------------
Привет, All !
Subj. Hа стадии $pop->pass("myc00lpassword");
Проверено на 2-х POP3-серверах.
Прога такая:
use Net::POP3;
$pop=Net::POP3->new("pop3.provider.com", Timeout=>30) or die "ERROR1 $! \n";
$pop->user("vasyapupkin")or die "ERROR2 $! \n";
$pop->pass("myc00lpassword") or die "ERROR3 $! \n"; #Просиходит die здесь
$pop->quit();
Использование $pop->login(...) тоже дает ошибку.
Причем при указании Debug=>1 получаем следующее:
Net::POP3: Net::POP3(2.12)
Net::POP3: Net::Cmd(2.11)
Net::POP3: Exporter
Net::POP3: IO::Socket::INET
Net::POP3: IO::Socket(1.1603)
Net::POP3: IO::Handle(1.1505)
Net::POP3=GLOB(0xca83cc)<<< +OK
Net::POP3=GLOB(0xca83cc)>>> USER vasyapupkin
Net::POP3=GLOB(0xca83cc)<<< +OK
Net::POP3=GLOB(0xca83cc)>>> PASS ....
Net::POP3=GLOB(0xca83cc)<<< +OK
ERROR3 << Что это ? Ведь ^^^^^ ?!
Net::POP3=GLOB(0xca83cc)>>> RSET
Net::POP3=GLOB(0xca83cc)<<< +OK
Net::POP3=GLOB(0xca83cc)>>> QUIT
Net::POP3=GLOB(0xca83cc)<<< +OK
Если убрать "or die or die "ERROR3 $! \n"
то тоже неработает - список сообщениий пуст.
p.s. Происходит это под NT4.0 SP6 +Activestste Perl build 522
Антон Дюжев
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
