ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Andre N.Dmitrik                      2:5020/400     12 May 2002  11:39:35
 To : All
 Subject : вопрос
 -------------------------------------------------------------------------------- 
 

 hi
 помогите
 письмо приходит на какого-то узера , например vasya
 Для sendmail-a имееться записть вида
 
 - ---aliases begin
 vasya    :    "/patch/to/program/mail.pl"
 - ---aliases end
 
 Далее программа выкусывает из письма e-mail (это работает) и поидее должна
 на него ответить. Проблемма в строках #!!!. Что нитак ???
 
 - ---begin mail.pl-------
 #!/usr/bin/perl -w
 open(FILE,">/tmp/mail");
 while($mail=<STDIN>)
         {
         print FILE "$mail";
         };
 close(FILE);
 open(FILE,"</tmp/mail");
 while($m=<FILE>)
         {
         if ($m=~/^From:/)
                 {
                 ($v1,$v2)=split(/</,$m);
                 ($v3,$v4)=split(/>/,$v2);
                 qx(mail -s HELLO $v3 < /path/to/message);
 #!!!
                 #qx(sendmail -ffrom_user to_user@domain.name
 </path/to/message);            #!!!
                }
         };
 close(FILE);
 - ---end mail.pl--------
 --
 Andrey D.
 --- ifmail v.2.15dev5
  * Origin: dan(ko) (2:5020/400)
 
 

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

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