|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Dmitry Koteroff 2:5020/400 10 Jun 2002 17:13:50
To : Bazil Bobkov
Subject : Re: заглушка sendmail
--------------------------------------------------------------------------------
Здравствуйте, Bazil.
Была пятница 07 июня 2002 года, 18:46. Вы написали:
BB>>> А можно ли под винду сделать некий эмулятор-заглушку
sendmail'a в
виде перлового скрипта, чтобы посылаемые внешними программами
письма реально не отправлялись, а, скажем, записывались в файл.
AC>> Разумеется. Более того, это задачка-тест на предмет того, читал
ли ты
хоть какую-нибудь детскую книжку про perl.
> Тест прошел. Хотя детских книжек про перл не читал. Только
perldoc.
Вопрос номер 2. Имеет ли смысл binmode STDIN в данном случае?
Все зависит от того, как именно Вы хотите сохранить письмо и для каких
именно целей. Думаю, что имеет.
Вот еще информация к размышлению. В Windows можно делать <perl-bat-файл>,
вот так:
Файл sendmail.bat:
@echo off
perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
exit;
#!z:/usr/bin/perl -w
#line 5
#########################################################################
open(local *F, ">>/tmp/mails.txt");
binmode(F); binmode(STDIN);
print F "Arguments: ".join(" ",@ARGV)."\r\n";
while(defined(my $line=<STDIN>)) {
prinf F $line;
}
Таким образом, положив такой файл в /usr/sbin/sendmail.bat, Вы можете даже
не менять свои скрипты при отладке (я, правда, не проверял, но должно
работать).
--
С уважением,
Дмитрий Котеров (dk@dklab.ru), ведущий программист.
Лаборатория dk, http://www.dklab.ru
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: заглушка sendmail 