From owner-FreeBSD-users-jp@jp.freebsd.org  Wed Jul 26 12:10:35 2000
Received: (from daemon@localhost)
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) id MAA27435;
	Wed, 26 Jul 2000 12:10:35 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from mail151.nifty.com (mail151.nifty.com [202.248.37.144])
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) with ESMTP id MAA27430
	for <FreeBSD-users-jp@jp.freebsd.org>; Wed, 26 Jul 2000 12:10:35 +0900 (JST)
	(envelope-from endo@atlas-is.co.jp)
Received: from aquamarineN.atlas-is.co.jp
	by mail151.nifty.com (8.9.3+3.2W/3.7W-10/13/99) with SMTP id MAA18686
	for <FreeBSD-users-jp@jp.freebsd.org>; Wed, 26 Jul 2000 12:10:33 +0900
Message-Id: <200007260310.AA00131@aquamarineN.atlas-is.co.jp>
From: endo@atlas-is.co.jp (=?ISO-2022-JP?B?GyRCMXNGIyEhPVNNNRsoQg==?=)
Date: Wed, 26 Jul 2000 12:10:05 +0900
To: FreeBSD-users-jp@jp.freebsd.org
In-Reply-To: <20000726114553B.keisuke@csl.sony.co.jp>
References: <20000726114553B.keisuke@csl.sony.co.jp>
MIME-Version: 1.0
X-Mailer: AL-Mail32 Version 1.10
Content-Type: text/plain; charset=iso-2022-jp
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 53644
Subject: [FreeBSD-users-jp 53644] Re: mail from
 =?ISO-2022-JP?B?GyRCJHI8aCRqPVAkNyQ/JCQhIxsoQg==?= 
Errors-To: owner-FreeBSD-users-jp@jp.freebsd.org
Sender: owner-FreeBSD-users-jp@jp.freebsd.org
X-Originator: endo@atlas-is.co.jp

$B$($s$I$&$G$9!#(B

Keisuke Inoue $B$5$s$O=q$-$^$7$?!#(B
>$B<+J,$N$d$m$&$H$7$F$$$k$3$H$O4{$K@h?M$K$h$C$F2r7h$5$l$F$$$J$$(B
>$B$+$H9M$($F!$C5$7$F:FMxMQ$9$k$3$H$bJY6/$N$&$A$G$9!%(B

$B$J$s$+$_$J$5$s$N$*OC$rJ9$$$F$$$k$H!";d$N$d$j8}$O$^$:$=$&$G$9$M!#(B

$B<B$O0JA0!"(B/var/mail/xxx $B$N%a!<%k$r$b$&0lEYAw$jD>$9!"$=$s$J(B
$B%9%/%j%W%H$r=q$$$F$$$?$@$$$?$3$H$,$"$j$^$9!#(B
# uucp $B%5%$%H$K?M;v0[F0$KH<$C$F:FAw$9$kI,MW$,$"$C$?$?$a!#(B

$B$=$NFbMF$O(B perl $B$G$7$?!#(B
$B$7$+$7!"(Bperl $B$rFI$a$J$$;d$K$H$C$F$O$=$l$r(B sh $B$K0\?"$9$k$3$H$,(B
$B=PMh$^$;$s$G$7$?!#!J>P!K(B

$B$H$$$&$3$H$G!"$=$N%3!<%I$N0lIt$r:\$;$^$9!#(B
$B$d$C$Q$j!"$3$l$b$^$:$$$s$G$9$+!)(B^^;

sub mbox2mail(*$) {
  local (*SRC, $recipient) = @_;
  my $opend = 0;
  my ($enverope, $header, $body) = (0, 1, 2);
  my $status = $body;
  my $from;

  while ( <SRC> ) {
    if ( $status == $body ) {
      if ( /^From\s+(\S+)\s+\w\w\w\s\w\w\w\s\d\d\s\d\d:\d\d:\d\d\s\d\d\d\d$/o ) { $B"+$3$3!#(B
  $from = $1;
