ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Oleg Patsan                          2:5020/400     07 Jun 2002  13:25:11
 To : Alexander Panov
 Subject : Re: _help_
 -------------------------------------------------------------------------------- 
 

 > Hужно сделать прогу, которая при запуске получает почту с одного почтового
 > ящика (POP3, пароли известны) и кидает на другой, при этом вместо
 
 оригинальной
 
 > темы письма пишет ту строчку, которуя я скажу...
 
 Hедавно делал, чтоб на мобилу смс-ки писало от кого и сабж:
 
 #!/usr/bin/perl
 
 use DB_File;
 use Net::POP3;
 use MIME::Lite;
 
     %NHASH = ();
     $pop = Net::POP3->new("pop.server") || die "Cann't connect to pop3
 server";
     $pop->login("login", "password") || die "Cann't login to pop3 server";
     MIME::Lite->send('smtp', "smtp.server", Timeout=>60);
     dbmopen(%HASH, 'existingmail.db', 0666);
     $undeleted = $pop->list();
     foreach $msgnum (keys %$undeleted){
         $from = "";
         $subj = "";
         $message = $pop->get($msgnum);
         $uidl = $pop->uidl($msgnum);
         unless(exists($HASH{$uidl})){
             foreach (@$message){
                 $from = $1 if (/^From:\s+(.*)/);
                 $subj = $1 if (/^Subject:\s+(.*)/);
             }
             $msg = MIME::Lite->new(
                 From    => 'from@adres.com',
                 To      => 'to@adres.com',
                 Type    => 'TEXT',
                 Data    => "$from $subj"
             );
             $msg->send;
         }
         $NHASH{$uidl} = $uidl;
     }
     %HASH = %NHASH;
     dbmclose(%HASH);
     $pop->quit();
 -- 
 Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.Mail.Ru (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    _help_   Alexander Panov   06 Jun 2002 22:04:17   Re: _help_   Oleg Patsan   07 Jun 2002 13:25:11   Re: _help_   Artem Chuprina   10 Jun 2002 17:28:16   _help_   Alexander Panov   12 Jun 2002 22:59:20   Re: _help_   Victor Wagner   13 Jun 2002 11:08:15   _help_   Alexander Panov   14 Jun 2002 00:42:12