|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Bazil 2:5020/400 10 Jun 2002 21:19:59 To : Dmitry Koteroff Subject : Re[2]: заглушка sendmail -------------------------------------------------------------------------------- Приветствую Вас, Dmitry! BB>>> А можно ли под винду сделать некий эмулятор-заглушку sendmail'a DK> информация к размышлению. В Windows можно делать <perl-bat-файл>, DK> вот так: DK> Файл sendmail.bat: DK> @echo off DK> perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9 DK> exit; DK> #!z:/usr/bin/perl -w DK> open(local *F, ">>>/tmp/mails.txt"); DK> binmode(F); binmode(STDIN); DK> print F "Arguments: ".join(" ",@ARGV)."\r\n"; DK> while(defined(my $line=<STDIN>)) { DK> prinf F $line; DK> } Интересная опция -x. А я сделал двумя файлами: ==== файл c:/usr/sbin/sendmail.bat: === @perl /usr/sbin/sendmail.pl ==== файл /usr/sbin/sendmail.pl: ====== #!/usr/local/bin/perl open FILE, '>>/path/sendmail.log'; while( <STDIN> ) { print FILE $_; } close FILE; ----------------------------------------- Всего наилучшего, Bazil - --- Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru --- ifmail v.2.15dev5 * Origin: Talk.Mail.Ru (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/17441e891520c.html, оценка из 5, голосов 10
|