From owner-FreeBSD-users-jp@jp.freebsd.org  Sun Mar 18 12:06:42 2001
Received: (from daemon@localhost)
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) id MAA52558;
	Sun, 18 Mar 2001 12:06:42 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from pop13.dreamnet.ne.jp (smtp13.dreamnet.ne.jp [202.217.109.119])
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) with ESMTP id MAA52553
	for <FreeBSD-users-jp@jp.freebsd.org>; Sun, 18 Mar 2001 12:06:42 +0900 (JST)
	(envelope-from chi@bd.mbn.or.jp)
Received: from chino.localhost ([210.144.157.30]) by pop13.dreamnet.ne.jp
          with ESMTP
          id <20010318030640.VJS28885.pop13.dreamnet.ne.jp@chino.localhost>
          for <FreeBSD-users-jp@jp.freebsd.org>;
          Sun, 18 Mar 2001 12:06:40 +0900
Posted-Date: Sat, 17 Mar 2001 20:14:38 JST
To: FreeBSD-users-jp@jp.freebsd.org
In-Reply-To: Your message of "Thu, 15 Mar 2001 22:01:06 +0900".
	<20010315220106K.okamoto@momo.so-net.ne.jp>
From: chi@bd.mbn.or.jp (Chiharu Shibata)
X-Mailer: mnews [version 1.22] 1999-12/19(Sun)
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="-=-mnews-multipart-=-"
Message-Id: <20010318030640.VJS28885.pop13.dreamnet.ne.jp@chino.localhost>
Date: Sun, 18 Mar 2001 12:06:41 +0900
Reply-To: FreeBSD-users-jp@jp.freebsd.org
Precedence: list
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+000315
X-Sequence: FreeBSD-users-jp 59936
Subject: [FreeBSD-users-jp 59936] Re: Tips for *digest-jp
Errors-To: owner-FreeBSD-users-jp@jp.freebsd.org
Sender: owner-FreeBSD-users-jp@jp.freebsd.org
X-Originator: chi@bd.mbn.or.jp


---=-mnews-multipart-=-
Content-Type: text/plain; charset=ISO-2022-JP
Content-Transfer-Encoding: 7bit

$B$3$s$K$A$O!"<FED!s(Bdigest$B9XFI<T$G$9!#(B
Thu, 15 Mar 2001 22:01:06 JST$B$K(B
okamoto@momo.so-net.ne.jp$B$5$s$O=q$-$^$7$?!#(B

>digest $B$N%a!<%k$O@8$N$^$^$@$HFI$_$K$/$$$N$G!"(B
>$B0lC6(B procmail $B$KEO$7$F(B formail $B$GJ,3d$7$F$$$k$N$G$9$,!"(B
>$BJ,3d$7$?7k2L!"(B 1$BDL$N%a!<%k$,J#?t$N%a!<%k$K$J$C$F$7$^$&(B
>$B$b$N$,$"$j$^$9!#(B

$B<+J,$b(Bformail$B$G$NJ,3d$K8B3&$r46$8$FE:IU$N$h$&$J(Bperl$B%9%/%j%W%H$G=hM}(B
$B$7$F$$$^$9!#$3$s$J$b$s$G$h$1$l$P$I$&$>!#(B

$B$A$J$_$K:#$N<+J,$N4D6-$O!"(Bmh$BIUB0$N(Brcvstore$B$HJ;MQ$7$F(B

:0 :freebsd-users-jp/$LOCKEXT
* ^To: freebsd-users-jp-digest@jp\.freebsd\.org$
* ^Content-Type: Multipart/Mixed;
| split-digest "/usr/local/lib/mh/rcvstore +freebsd-users-jp"

$B$H$$$&$d$jJ}$G$9!#(B
-- 
$B<FED(B $B@i=U(B($B!i(B) chi@bd.mbn.or.jp <http://plaza17.mbn.or.jp/~chi/>
---=-mnews-multipart-=-
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit
Content-Description: split-digest
Content-Disposition: attachment; filename="split-digest"

#!/usr/bin/perl

$seq = 0;
$user=$ENV{"LOGNAME"};
$sendmail="/usr/sbin/sendmail -oi $user";
#$sendmail="/usr/libexec/mail.local -d $user";
$sendmail=$ARGV[0] if ($ARGV[0]);

while (<STDIN>) {
	last if (/^$/);

	if (/boundary="([^"]*)"/i) {
		$boundary=$1;
	}
}
die "No boundary found" unless ($boundary);

$opened = undef;
while (<STDIN>) {
	if (/^--$boundary/) {
		if ($opened) {
			close(HANDLE);
			$opened = undef;
		}
		last if (/^--$boundary--$/);

		while (<STDIN>) {
			last if (/^$/);
		}
		if ($seq) {
			open(HANDLE, "|$sendmail") || die "Can't fork $sendmail\n"; 
			$opened = 1;
		}
		++$seq;
	}
	else {
		if ($opened) {
			print HANDLE $_;
		}
	}
}

---=-mnews-multipart-=---

