From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <pif@entek.ru>
From: =?koi8-r?b?5dDJxsHOz9cg88XSx8XK?= <serpiph@entek.ru>
To: sisyphus@altlinux.ru
Subject: Re: [sisyphus] Re: =?koi8-r?b?68HLIMLP0s/U2NPRINMgzMXa1d3JzSDX?= postfix?
Date: Thu, 27 Feb 2003 12:24:50 +0300
User-Agent: KMail/1.5
References: <200302270936.16712.yuda66@yandex.ru> <200302271106.08662.serpiph@entek.ru> <20030227083811.GF22079@ifirst.ru>
In-Reply-To: <20030227083811.GF22079@ifirst.ru>
MIME-Version: 1.0
Content-Type: Multipart/Mixed;
  boundary="Boundary-00=_ildX+1Y9cTYccHM"
Message-Id: <200302271224.50855.serpiph@entek.ru>
Sender: sisyphus-admin@altlinux.ru
Errors-To: sisyphus-admin@altlinux.ru
X-BeenThere: sisyphus@altlinux.ru
X-Mailman-Version: 2.0.9
Precedence: bulk
Reply-To: sisyphus@altlinux.ru
X-Reply-To: serpiph@entek.ru
List-Unsubscribe: <http://altlinux.ru/mailman/listinfo/sisyphus>,
	<mailto:sisyphus-request@altlinux.ru?subject=unsubscribe>
List-Id: <sisyphus.altlinux.ru>
List-Post: <mailto:sisyphus@altlinux.ru>
List-Help: <mailto:sisyphus-request@altlinux.ru?subject=help>
List-Subscribe: <http://altlinux.ru/mailman/listinfo/sisyphus>,
	<mailto:sisyphus-request@altlinux.ru?subject=subscribe>
List-Archive: <http://altlinux.ru/pipermail/sisyphus/>
Archived-At: <http://lore.altlinux.org/sisyphus/200302271224.50855.serpiph@entek.ru/>
List-Archive: <http://lore.altlinux.org/sisyphus/>

--Boundary-00=_ildX+1Y9cTYccHM
Content-Type: text/plain;
  charset="koi8-r"
Content-Transfer-Encoding: 8bit
Content-Disposition: inline

В сообщении от 27 Февраль 2003 11:38 Artem K. Jouravsky написал:

> Кстати, есть ли у кого-то скрипт, берущий на вход письмо, по его
> заголовкам определяющий, откуда оно пришло (первый Received после
> доверительных), и определяющий, кому писать? Хочется прикрутить
> автоотсылалку писем с жалобами к mutt... Уж больно много народа
> напрашивается, а некий Американский Бизнес-центр вообще достал :)
> А руками на каждого не наопределяешься

Попробуйте такой вариант (в аттаче). Если что, всегда можно подправить.

-- 
С уважением, Епифанов Сергей

--Boundary-00=_ildX+1Y9cTYccHM
Content-Type: application/x-perl;
  name="TestMail"
Content-Transfer-Encoding: 8bit
Content-Disposition: attachment; filename="TestMail"

#!/usr/bin/perl

$Received='';

while (<>) {
    chomp;
    if (/^Received:(.*)$/) {
	$l=$1;
	if ($l=~/^\s*from\s+?(.*?)\s*\(.*?\)/) {
	    $Received=$1;
	    print "Received from: $Received\n";
	}
    }
}

#Testing!!!
#open (MAIL,"|cat");
#print MAIL "To: abuse\@$Received\n";
#print MAIL "Subject: Drop all from you!!!\n";
#print MAIL "That's all\n";
#close MAIL;
#ENDING

#Sending!!!
#open MAIL, "|mail abuse\@$Received -s \"SPAM MAIL\"";
#print MAIL "Too much noisy mail from you!!!\n";
#close MAIL
#ENDING
--Boundary-00=_ildX+1Y9cTYccHM--