From owner-FreeBSD-users-jp@jp.FreeBSD.org Wed Sep 24 12:51:37 2003
Received: (from daemon@localhost)
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) id h8O3pbd05501;
	Wed, 24 Sep 2003 12:51:37 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from arts.kikansha.jp (usen-219x113x149x212.ap-US.usen.ad.jp [219.113.149.212])
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) with ESMTP/inet id h8O3pbJ05496
	for <FreeBSD-users-jp@jp.FreeBSD.org>; Wed, 24 Sep 2003 12:51:37 +0900 (JST)
	(envelope-from yaemon@kikansha.jp)
Received: from arts.kikansha.jp (localhost [127.0.0.1])
	by arts.kikansha.jp (8.12.9p1/8.12.9) with ESMTP id h8O3lDWA050496;
	Wed, 24 Sep 2003 12:47:13 +0900 (JST)
	(envelope-from yaemon@arts.kikansha.jp)
Received: (from yaemon@localhost)
	by arts.kikansha.jp (8.12.9p1/8.12.9/Submit) id h8O3lDJ9050495;
	Wed, 24 Sep 2003 12:47:13 +0900 (JST)
From: "T.P.S.Nakagawa" <yaemon@kikansha.jp>
X-PGP-key-URL: http://www.kikansha.jp/~yaemon/yaemon.asc
X-FingerPrint: F3F0 33AA C0F4 A2B4 B5A0  9B41 B81D 20F5 FA18 E3C0
X-Powerd-By: FreeBSD, vim, wmx
To: FreeBSD-users-jp@jp.FreeBSD.org
In-Reply-To: <200309232144.AA00144@uptown.shonan.homeunix.org>
References: <200309232144.AA00144@uptown.shonan.homeunix.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-2022-JP
Message-ID: <030924124711.M0149289@arts.kikansha.jp>
X-Mailer: mnews [version 1.22PL5 custom] Original: 2001-02/07(Wed)
Reply-To: FreeBSD-users-jp@jp.FreeBSD.org
Precedence: list
Date: Wed, 24 Sep 2003 12:47:13 +0900
X-Sequence: FreeBSD-users-jp 76387
Subject: [FreeBSD-users-jp 76387] Re: =?ISO-2022-JP?B?GyRCN0hCUxsoQg==?=
 =?ISO-2022-JP?B?GyRCJFgkTiVhITwla0U+QXcbKEI=?= 
Sender: owner-FreeBSD-users-jp@jp.FreeBSD.org
X-Originator: yaemon@kikansha.jp
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+030902

$B%Q%$%W5J$$$NCf@n$G$9!#(B

	$BFb;3(B(agent.homeunix.org)$B$5$s$,(B
	09$B7n(B24$BF|(B06$B;~(B44$BJ,$KH/?.$5$l$?(B
	$B!V(B[FreeBSD-users-jp 76382] $B7HBS$X$N%a!<%kE>Aw(B $B!W$3$H(B
	<200309232144.AA00144@uptown.shonan.homeunix.org>$B$h$j(B

>  $B$H$$$&$b$N$GE>Aw%a!<%k$OI8=`=PNO$K=PNO$5$l$k$H$$$&E*30$l$NM=A[$r$7$?$?$a!"(B

$BE*30$l$G$O$J$$$G$9!#(B


>  "|/home/uchiyama/mailredirect"

mailredirect $B$r!"$3$s$J46$8$N(B perlscript $B$K$9$l$PNI$$$+$J!#(B

------
#!/usr/bin/perl

use strict;
use FileHandle;

my $type = "";
my %header;

my $tensou = new FileHandle( "| /usr/sbin/sendmail tensou\@host");

my $header_flag=1;

while ( my $line = <> ){
    print $tensou $line;

    if( $line =~ /^$/ ){
        $header_flag = 0;
    }

    if( $header_flag){
        if( $line !~ /^\s/ ){
            $type = "";
        }else{
            $line =~ s/^\s*//;
        }
    
        if( $line =~ /^From: /){
            $type = "from";
        }
        if( $line =~ /^To: /){
            $type = "to";
        }
        if( $line =~ /^Subject: /){
            $type = "subject";
        }
        if( $line =~ /^Date: /){
            $type = "date";
        }
        if( $type ){
            $header{ $type } .= $line;
        }
    }
}
undef $tensou;


my $keitai = new FileHandle ( "| /usr/local/bin/nkf -j | /usr/bin/mail keitai\@host" );

foreach my $header (values %header ){
    print $keitai "$header"
}
undef $keitai;
-----------------------
========================================================================
         $B!X40`z$G$J$/$FNI$$$s$@$h!"7/$b!#@$3&$b!#!Y(B
--
  $BCf@n(B $B91M:(B ( T.Nakagawa )         mailto:yaemon@kikansha.jp
                                   http://www.kikansha.jp/~yaemon/
