From owner-FreeBSD-users-jp@jp.freebsd.org  Wed Mar 24 10:09:31 1999
Received: by jaz.jp.freebsd.org (8.9.2+3.1W/8.7.3) id KAA04827;
	Wed, 24 Mar 1999 10:09:31 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from dog.kanagawa.isp.ntt.co.jp (dog.kanagawa.isp.ntt.co.jp [202.212.159.50])
	by jaz.jp.freebsd.org (8.9.2+3.1W/8.7.3) with ESMTP id KAA04816
	for <FreeBSD-users-jp@jp.freebsd.org>; Wed, 24 Mar 1999 10:09:14 +0900 (JST)
	(envelope-from moritak@kanagawa.isp.ntt.co.jp)
Received: from bird.kanagawa.isp.ntt.co.jp (bird [202.212.159.52])
	by dog.kanagawa.isp.ntt.co.jp (8.9.1/3.7W) with ESMTP id KAA24230
	for <FreeBSD-users-jp@jp.freebsd.org>; Wed, 24 Mar 1999 10:09:03 +0900 (JST)
Received: from localhost (localhost [127.0.0.1])
	by bird.kanagawa.isp.ntt.co.jp (8.9.1a/3.7W) with ESMTP id KAA25386
	for <FreeBSD-users-jp@jp.freebsd.org>; Wed, 24 Mar 1999 10:09:02 +0900 (JST)
To: FreeBSD-users-jp@jp.freebsd.org
In-Reply-To: Your message of "Tue, 23 Mar 1999 17:50:12 +0900"
	<199903230910.SAA22160@roadking.fjs.fujitsu.co.jp>
References: <199903230910.SAA22160@roadking.fjs.fujitsu.co.jp>
X-Mailer: Mew version 1.93 on Emacs 19.28 / Mule 2.3
 =?iso-2022-jp?B?KBskQkt2RSYyVhsoQik=?=
Mime-Version: 1.0
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Message-Id: <19990324100901R.moritak@kanagawa.isp.ntt.co.jp>
Date: Wed, 24 Mar 1999 10:09:01 +0900
From: "MORITA, Koji" <moritak@kanagawa.isp.ntt.co.jp>
X-Dispatcher: imput version 980905(IM100)
Lines: 56
Reply-To: FreeBSD-users-jp@jp.freebsd.org
Precedence: list
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+981115
X-Sequence: FreeBSD-users-jp 40114
Subject: [FreeBSD-users-jp 40114] Re: aliases
 =?ISO-2022-JP?B?GyRCJWEhPCVqJXMlMCVqJTklSCRLGyhC?= Reply-to
 =?ISO-2022-JP?B?GyRCJHJGfiRsJD8kJBsoQg==?= 
Errors-To: owner-FreeBSD-users-jp@jp.freebsd.org
Sender: owner-FreeBSD-users-jp@jp.freebsd.org
X-Originator: moritak@kanagawa.isp.ntt.co.jp

$B?9ED!w?@F`@nK!?M(B.$B#N#T#T$G$9!#(B

$B7kO@$,=P$?8e$G>x$7JV$9$N$b$J$s$G$9$,!"!"!"(B

Subject: [FreeBSD-users-jp 40095] Re: aliases $B%a!<%j%s%0%j%9%H$K(B Reply-to $B$rF~$l$?$$(B $B$N(Bmail$B$K$*$$$F!"(B
$B$o$i$,$$(B: Hirobumi Waragai <wara-ml@fjs.fujitsu.co.jp> $B$5$s$O=q$-$^$7$?!#(B

> $B$b$7$+$7$?$i!"%X%C%@$N2C9)$@$1$G4JC1$K$G$-$A$c$&$b$s$+$J(B
> $B$H$+;W$$$^$7$F!#<ALd$5$;$F$$$?$@$-$^$7$?!#(B

$B$3$l$O(BSolaris$B$G;H$C$F$$$k(Bscript$B$J$N$G$A$g$C$H(Bdirectory$B9=B$$,0c$$$^$9$,!"(B
---<$B$3$3$+$i(B>---
#!/usr/local/bin/perl

$FQDN = "kanagawa.isp.ntt.co.jp"; #FQDN$B$OE,59JQ$($F2<$5$$!#(B

open(MEMBER,"< /etc/mail/alias/$ARGV[0]") || die $!; #directory$B$O$"$i$+$8$aMQ0U!#(B

while(<MEMBER>){
   s/\n//g;
   $member.=$_;
}

open(MAIL, "|/bin/mail $member") || die $!;

$/ ='';
$* = 1;

$_ = <STDIN>;

chop;

s/^From\s.*?\n//; #MAIL From:$B$r(Bcut
s/(To:\s.*?\n)(\S)/$1Reply-To: $ARGV[0]\@$FQDN\n$2/s; #To:$B$ND>8e$K(BReply-To:$B$rA^F~!#(B

print MAIL "$_\n";

while(<STDIN>){
   print MAIL $_
}

close(MAIL);
---<$B$3$3$^$G(B>---
$B$H$$$&(Bscript$B$G$*K>$_$N$3$H$O=PMh$^$9!#(B
$B!t4JC1$J%3%a%s%H$rIU$1$^$7$?!#(B

aliasese$B$N5-=R$O!"(B
hoge:"|/usr/local/bin/scripts/addreply.pl hoge"
$B$H$J$j$^$9!#(B

$B$3$N(Bscript$B$r$A$g$C$H$$$8$k$H(BSubject$B$N=q$-49$(Ey$b4JC1$K2DG=$G$9!#(B

*                            >>> MORITA, Koji <<<                            *
*                Kanagawa Branch Business Communications Dept.               *
*                Nippon  Telegraph and Telephone  Corporation                *
* Tel:+81-45-224-3833 FAX:+81-45-224-6142 E-mail:kjm@kanagawa.isp.ntt.co.jp  *
