помогите доработать скрипт пересылки почты
Здравствуйте!
28/01/05 я поднимал вопрос с темой "пересылка почты в sendmail".
Вкратце суть проблемы:
Есть почтовый ящик в формте mbox. В определенные дни на этот ящик необходимо
включать перенаправление писем на другой почтовый ящик за пределы нашей организации.
Перенаправление включается, а не забранные письма в ящике отсылаются скриптом
Тогда мне очень помог уважаемый Константин вот таким скриптом:
sendmbox #!/usr/bin/perl
use Mail::Util qw(read_mbox);
$sendmail = '/usr/sbin/sendmail';
for $i(read_mbox("-")) {
open(SM, "|$sendmail -t") or die("$sendmail command not found");
print SM @$i;
close(SM);
}
Вот спустя столько времени образовалась следующая проблема..
Письма в которых есть скрытые копии, или несколько получателей в поле To: отсылаются
заново sendmail'ом нашему адресату ну и остальным адресатам из поля To: CC: и
т.п. Конечно стали поступать жалобы от этих адресатов на получении одного и того
же несколько раз.
Посему принято решение делать не отправку заново этих писем, а forward по отдельности
каждого письма от какого-либо нашего внутреннего адреса. Тогда мы избавимся от
лишних копий писем по другим адресатам.
Как в таком случае модернизировать скрипт? Или он совсем не подходит для такого
решения?
Может кто предложит свои варианты решения проблемы..
В сообщении от 2 Июнь 2005 16:15 mik написал(a):
Наверное надо sendmail-у указать конкретный адрес, на который пересылать, а не
предлагать искать список получателей в заголовках письма, тем более, что там
нужного адресата не быть вообще:
$forw_addr = 'user@s*****.where';
open(SM, "|$sendmail \'$forw_addr\'")...