ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Comoderator of RU.CGI.PERL           2:5020/400     14 May 2002  12:00:02
 To : "Andre N.Dmitrik"
 Subject : Re: вопрос
 -------------------------------------------------------------------------------- 
 

 Здравствуй, Andre N.Dmitrik.
 
 AND> hi
 AND> помогите
 AND> письмо приходит на какого-то узера , например vasya
 AND> Для sendmail-a имееться записть вида
 
 AND> ---aliases begin
 AND> vasya    :    "/patch/to/program/mail.pl"
 AND> ---aliases end
 
 AND> Далее программа выкусывает из письма e-mail (это работает) и поидее должна
 AND> на него ответить. Проблемма в строках #!!!. Что нитак ???
 
 AND> ---begin mail.pl-------
 AND> #!/usr/bin/perl -w
 AND> open(FILE,">/tmp/mail");
 AND> while($mail=<STDIN>)
 AND>         {
 AND>         print FILE "$mail";
 AND>         };
 AND> close(FILE);
 AND> open(FILE,"</tmp/mail");
 AND> while($m=<FILE>)
 AND>         {
 AND>         if ($m=~/^From:/)
 AND>                 {
 AND>                 ($v1,$v2)=split(/</,$m);
 AND>                 ($v3,$v4)=split(/>/,$v2);
 AND>                 qx(mail -s HELLO $v3 < /path/to/message);
 AND> #!!!
 AND>                 #qx(sendmail -ffrom_user to_user@domain.name
 AND> </path/to/message);            #!!!
 AND>                }
 AND>         };
 AND> close(FILE);
 AND> ---end mail.pl--------
 AND> --
 AND> Andrey D.
 
 Оффтопик.
 
 -- 
 FIDO: Artem Chuprina, 2:5020/371.32, comoderator of RU.CGI.PERL
 Internet: Artem Chuprina <cmrcp@ran.pp.ru>, comoderator of fido7.ru.cgi.perl
 --- ifmail v.2.15dev5
  * Origin: Leninsky 45 home network (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    вопрос   Andre N.Dmitrik   12 May 2002 11:39:35   Re: вопрос   Comoderator of RU.CGI.PERL   14 May 2002 12:00:02