ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Aleksey Korolkov                     2:5020/400     28 May 2002  01:09:00
 To : All
 Subject : Net::POP3
 -------------------------------------------------------------------------------- 
 

 *** Изменено Edward Muhutdinov (2:5049/89.13), 28-05-2002 01:09:31.
 
 From: Aleksey Korolkov <lehkor@dfe3300.karelia.ru>
 
 Hi, All .
 
 EАБЛ И» БЦБ УБј-Ѕ»єЦЦЛ, АНHё »ГАЖјИЛ·ЦHИ»Ф,
 Жјѕјё»БЙ ЮН·јєЮНБЛАО, ЖјёНИЦФАБНH
 
 ЦЙИНH БНУ:
 
 #!/usr/bin/perl -w
 
 use lib '/lehkor/libnet';
 use Net::POP3;
 
 open(UDATA,'usrdat') or die "cant open user data file\n";
 $login  = <UDATA>; chop($login);
 $passw  = <UDATA>; chop($passw);
 $server = <UDATA>; chop($server);
 close(UDATA);
 
 $pop3 = Net::POP3->new($server, Debug=>0);
 die "Couldn't log on to server" unless $pop3;
 
 $msg_num = $pop3->login($login, $passw);
 ($undmsg_num,$box_size) = $pop3->popstat();
 
 print "messages  :   $msg_num\n";
 print "undeleted :   $undmsg_num\n";
 print "box size  :   ",int($box_size/1024),"kb\n";
 
 if ($msg_num > 0)
 {
  print "printing message #1\n";
  @message = $pop3->get(1);
  foreach (@message)
  {
    print "$_\n";
  }
  open(LOG,">logfile") or die "cant open log file\n";
  print LOG @message;
  close(LOG);
 }
 
 $pop3->quit();
 ХАЙ ЮНєјБНЙБ, Х»ёЦ АУјИЛУј Ж»АЙѕ, Ѕј ЖјИЦГ»БЛ ЅЙ ѕјёЦ.
 Х Ијё Ж»ХЙБАО ГБј-Бј Б»ЖН ARRAY(0x818a438).
 УНУ МБј ЅНЦј ЖјЅ»ѕНБЛ » ГБј ЅНЦј ЦЙИНБЛ?
 -- 
 Best regards, Korolkov Aleksey.
 
 --- ifmail v.2.15dev5
  * Origin: UNKNOWN (2:5020/400)
 
 

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