|
ru.unix.bsd
- RU.UNIX.BSD ------------------------------------------------------------------
From : Denis Yakimov 2:5028/52.219 18 Jul 2002 16:58:44
To : Dmitry Suhodoev
Subject : postfix - уведомления
--------------------------------------------------------------------------------
DS> как заставить postfix 1.11.1,1 высылать уведомления об отпpавке пpи
DS> наличии кладжа в письме
DS> Return-Receipt-To: кому@домен
DS> на тот адpес? в sendmail описание этого в конфиге есть...
-------
[den@mx den]$ cat .procmailrc
PATH=/bin:/usr/bin:/sbin:/usr/sbin
LOGFILE=/home/den/.procmail.log
:0hc
* ^Return-Receipt-To.*
|/usr/local/bin/rcpt.plx
[den@mx den]$ cat /usr/local/bin/rcpt.plx
#!/usr/bin/perl
use Mail::Mailer;
$from_daemon="MAIL_DAEMON\@mydomain.ru";
while (<STDIN>) {
if (($from_adr) = /^From: (.*)$/) {$f_adr=$from_adr;}
if (($to_adr) = /^To: (.*)$/) {$t_adr=$to_adr;}
if (($subject) = /^Subject: (.*)$/) {$subj=$subject;}
if (($rrt) = /^Return-Receipt-To: (.*)$/) {$rrts=$rrt;}
if ($t_adr && $f_adr && $subj && $rrts) {last;}
}
$mailer = Mail::Mailer->new();
$mailer->open({ From => "MAIL_DAEMON\@mydomain.ru",
To => $rrts,
Subject => "Подтверждение. Re: $subj"});
print $mailer "Подтверждение о приходе письма на почтовый сервер
mydomain.ru.\n";
print $mailer "От Вас было принято сервером письмо к $t_adr\n";
print $mailer "с темой $subj.\n\n";
print $mailer "Это подверждение не гарантирует оперативную доставку почты
получателю.\n\n";
print $mailer "---- return-receipt-to flag on ----\n";
$mailer->close();
-----
"Как наколенный вариант" работает более двух лет. ;)
Denis
--- GoldED+/LNX 1.1.4.7
* Origin: А пули летят, пули. (2:5028/52.219)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
