|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Artem Chuprina 2:5020/400 14 May 2002 11:57:58 To : "Andre N.Dmitrik" Subject : Re: вопрос -------------------------------------------------------------------------------- Здравствуй, Andre N.Dmitrik. AND> помогите AND> письмо приходит на какого-то узера , например vasya AND> Для sendmail-a имееться записть вида AND> ---aliases begin AND> vasya : "/patch/to/program/mail.pl" AND> ---aliases end AND> Далее программа выкусывает из письма e-mail (это работает) и поидее должна AND> на него ответить. Проблемма в строках #!!!. Что нитак ??? А в чем проблема? "Hитак" для начала, скорее всего, отсутствие в $ENV{PATH} директории, где лежит sendmail. Поскольку он не предназначен для запуска пользователями с такой квалификацией. Воспользуйся каким-нибудь MIME::Lite и не морочь людям голову. 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. -- Artem Chuprina Communiware.net RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757 --- ifmail v.2.15dev5 * Origin: Leninsky 45 home network (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/14454422d0bbb.html, оценка из 5, голосов 10
|