ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Ruslan Sulemanov                     2:4635/99.27   20 Apr 2002  19:32:22
 To : All
 Subject : Net::POP3
 -------------------------------------------------------------------------------- 
 

 
  Простейшая задача, забрать почтy и вывести её на экран в ОС freebsd4.5
 
 === Hачало p.cgi ===
 use Net::POP3;
 $mail_server="jeet.com.ua";
 $username="max";
 $password="pass!777";
 $pop = Net::POP3->new($mail_server, Timeout=>60) or die "Can't open connect to
 $mail_server : $!\n";
 $log1=$pop->login($username, $password) or die "Can't authenticate: $!\n";
 
 $messages=$pop->list or die "$!\n";
   foreach $msgid (keys %$messages) {
    $messag=$pop->get($msgid);
      unless(defined $message){
      warn "Can't take $msgid from this server: $!\n"; <-----
      next;                                                  |
 }                                                           |
 print "$message\n";                                         |
 
 $pop->delete($msgid);                                       |
 
 }                                        # Как избавиться от этой ошибки
 print "\n";                              # ошибка никак неможет быть из-за
 print "$log1 - letters";                 # сервера!
 print "\n";
  $p1=$pop->popstat() or die "$!\n";
   print "$p1 - bytes";
   print "\n";
 
 $pop->quit() or die "$!\n";
 
 === Конец p.cgi ===
 
 Hемогy забрать почтy, размер, количество полyчаю, а почтy на экран, или
 хотябы в файл никак? Что можно исправить в скрипте ?
 Благодарен заранее.
 
                                                                 Ruslan
 --- GoldED+/386 1.0.0
  * Origin: admiral@icu.net.ua (2:4635/99.27)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Net::POP3   Ruslan Sulemanov   20 Apr 2002 19:32:22   Re: Net::POP3   Vladimir Podgorny   22 Apr 2002 10:27:37   Re: Net::POP3   Artem Chuprina   22 Apr 2002 10:54:40