|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Aleksey Korolkov 2:5020/400 04 Jul 2000 16:09:35
To : All
Subject : Re: pop3 problem
--------------------------------------------------------------------------------
On 3 Jul 2000, Konstantin Tokar wrote:
> Вот примерный сеанс получения почты (не заголовков, а всего сообщения).
> Если не вызывать $pop->delete($msgid) , почта не будет удаляться.
> Конечно, если pop-сервер правильный. (неправильного я пока не встречал).
>
> my $host='xxxx.xxxx.xxxx';
> my $user='xxxx';
> my $password='xxxx';
> my $pop = Net::POP3->new($host, Timeout => 60) || die($!);
> $pop->login($user, $password);
> my ($msgnum)=$pop->popstat;
> if( defined $msgnum and $msgnum>0){
> my $messages = $pop->list || die($!);
> my $msgid;
> foreach $msgid ( keys %$messages ){
> my $message = $pop->get($msgid);
> <Что-то сделать с сообщением>
> $pop->delete($msgid); - если надо удалить
> }
> }
> $pop->quit();
>
Hi, Konstantin.
I primerno tak i tvoril.
Spasibo vsem otkliknuvshims'a, problema byla v servere.
Posle perenosa na drugoj vse zarabotalo.
Izvinite za translit.
--
Best regards, Korolkov Aleksey.
--- ifmail v.2.15dev5
* Origin: UNKNOWN (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
