|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Konstantin Tokar 2:5020/400 03 Jul 2000 15:23:17
To : All
Subject : Re: pop3 problem
--------------------------------------------------------------------------------
Вот примерный сеанс получения почты (не заголовков, а всего сообщения).
Если не вызывать $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();
>
> AK>Люди, использующие Net::POP3, подскажите мне что делать.
> AK>Почему-то после того как моя прога получает хидеры мессаг из моего
> AK>почтового ящика размер почтового файла /var/mail/login уменьшается до нуля.
> AK>Мне этого совсем не нужно, пайном почту мне уже не посмотреть.
> AK>При получении писем целиком получаем тот же результат. Письма я не удаляю.
> AK>Хочется чтоб после получения писем они оставались и в почтовом файле.
> AK>Помогите. Извините если оффтоп.
--
Konstantin Tokar (http://www.mpei.ac.ru/tokar)
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
