From owner-FreeBSD-users-jp@jp.freebsd.org  Tue Oct 26 22:55:02 1999
Received: (from daemon@localhost)
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) id WAA85844;
	Tue, 26 Oct 1999 22:55:02 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from mfo01.iij.ad.jp (mfo01.iij.ad.jp [202.232.2.118])
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) with ESMTP id WAA85837
	for <FreeBSD-users-jp@jp.freebsd.org>; Tue, 26 Oct 1999 22:55:02 +0900 (JST)
	(envelope-from tao@dd.iij4u.or.jp)
Received: from dd.iij4u.or.jp (dd.iij4u.or.jp [210.130.0.14])
	by mfo01.iij.ad.jp (8.8.8/MFO1.3) with ESMTP id WAA16197
	for <FreeBSD-users-jp@jp.freebsd.org>; Tue, 26 Oct 1999 22:55:01 +0900 (JST)
Received: from dd.iij4u.or.jp (h039.p110.iij4u.or.jp [210.130.110.39])
	by dd.iij4u.or.jp (8.8.8+2.2IIJ/4U1.1) with ESMTP id WAA07823
	for <FreeBSD-users-jp@jp.freebsd.org>; Tue, 26 Oct 1999 22:55:00 +0900 (JST)
Message-ID: <3815B2B6.88F45035@dd.iij4u.or.jp>
Date: Tue, 26 Oct 1999 22:55:02 +0900
From: "TAO,Seiichiroh" <tao@dd.iij4u.or.jp>
X-Mailer: Mozilla 4.61 [ja_JP.EUC] (X11; I; FreeBSD 3.2-RELEASE i386)
X-Accept-Language: ja, en
MIME-Version: 1.0
To: FreeBSD-users-jp <FreeBSD-users-jp@jp.freebsd.org>
Content-Type: text/plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Reply-To: FreeBSD-users-jp@jp.freebsd.org
Precedence: list
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+990727
X-Sequence: FreeBSD-users-jp 46902
Subject: [FreeBSD-users-jp 46902] =?ISO-2022-JP?B?GyRCJUAlJCU4JScbKEI=?=
 =?ISO-2022-JP?B?GyRCJTklSEZJJF8kTiVqJVclaSUkGyhC?= 
Errors-To: owner-FreeBSD-users-jp@jp.freebsd.org
Sender: owner-FreeBSD-users-jp@jp.freebsd.org
X-Originator: tao@dd.iij4u.or.jp

$BF=$G$9(B

Netscape Messenger $B$r;H$C$F$*$C$F(B
$B%@%$%8%'%9%H$K$I$&%j%W%i%$$9$k$+:$$C$F$*$C$?$s$G$9$,(B
$B$*$+$2$5$^$G2r7h$7$^$7$?(B
$B$H$/$KBg>k$5$^$"$j$,$H$&$4$6$$$^$7$?(B

$B0J2<$N(B perl script $B$GJ,2r$9$l$P8DJL$K%j%W%i%$$,2DG=$H$J$j$^$9(B
# $BBg>k$5$^$+$iBW$$$?(B perl script $B$r85$K$7$^$7$?(B
devide_mail.pl
### $B$3$3$+$i(B
#!/usr/local/bin/jperl

if(1!=@ARGV){
    print STDERR "Usage: $0 target_mail\n";
    exit 1;
}

$file_head=@ARGV[0];
$file_no=0;
$OFILE=sprintf("%s.%02d",$file_head,$file_no);
open(OPEN_FILE_HANDLE,"> $OFILE");
$opened=1;
$file_no++;

while(<>){
    print OPEN_FILE_HANDLE $_;
    if(/^From/){
        $first_line=$_;
        last;
    }
}    

while(<>){
    print OPEN_FILE_HANDLE $_;
    if($_=~m/boundary/){
        @array=split(/=/,$_);
        for($cnti=0;@array>$cnti;$cnti++){
            if(boundary==@array[$cnti]){
                $boundary=@array[$cnti+1];
                if(0<($boundary=~tr/"//)){
                    $boundary=~tr/"//d;
                }       
                last;
            }
        }
        last;
    }
}
$separator="^--$boundary*";

$lnum=0;
while(<>){
    if(!$lnum){
        if($_=~m/${separator}/){
            $lnum++;
        }
    }else{
        $lnum++;
    }
    if(!$lnum){
        print OPEN_FILE_HANDLE $_;
    }
    if(3<$lnum){
        last;
    }
}

while(<>){
    if($_=~m/${separator}/){
        if($opened){
            close(OPEN_FILE_HANDLE);
            $opened=0;
        }

        $OFILE=sprintf("%s.%02d",$file_head,$file_no);
        open(OPEN_FILE_HANDLE,"> $OFILE");
        $opened=1;
        $lnum=0;
        $file_no++;
    }else{
        if(!$opened){
            next;
        }
        $lnum++;
        if(4>$lnum){
            next;
        }
        if(4==$lnum){
            print OPEN_FILE_HANDLE $first_line;
        }
        print OPEN_FILE_HANDLE $_;
    }
}

if($opened){
    close(OPEN_FILE_HANDLE);
    if(4>$lnum){
        unlink $OFILE;
    }
}

exit 0;

#EOF
### $B$3$3$^$G(B

Netscape Messenger $B$G$N;H$$J}(B
$B$^$:(B Netscape Messenger $B$N:n6HMQ%[%k%@$r:n@.$7$F$*$-$^$9(B
# $B%[%k%@$H$$$C$F$b$8$D$O%U%!%$%k$J$s$G$9$,(B
atwork $B%[%k%@$r:n@.$7$?$H$7$^$9(B
$B$D$.$KBP>]$N%@%$%8%'%9%H%a!<%k$r3+$$$?>uBV$G(B
$B!V%U%!%$%k!W(B -> $B!VL>A0$rIU$1$FJ]B8!W(B -> $B!V%U%!%$%k!W(B
$B$H$7$F%@%$%8%'%9%H%a!<%k$r%U%!%$%k$H$7$FJ]B8$7$^$9(B
/tmp/digest.mail $B$,J]B8$5$l$?$H$7$^$9(B
% cd /tmp
% divide_mail.pl digest.mail
$B$H$9$k$H(B digest.mail.[0-9][0-9] $B$,:n@.$5$l$^$9(B
$B$3$3$GEv3:$N%a!<%k$rJT=82DG=$H$J$j$^$9(B
$BI,MW$G$"$l$P%a!<%k%X%C%@$J$I$N=$@0$r9T$J$C$?8e(B
% cat digest.mail.[0-9][0-9] > ~/nsmail/atwork
$B$H$9$k$H(B Netscape Messenger $B$G8DJL$KJ,2r$5$l$?%a!<%k$,(B
atwork $B%[%k%@$GFI$a$k$h$&$K$J$j$^$9(B
# ~/nsmail/ $B$O(B Netscape Messenger $B$N%a!<%k%G%#%l%/%H%j$G$9(B

Netscape Messenger $B$rMxMQ$7$F$$$kJ}!9$N$*Lr$K$?$F$P$H;W$$$^$9(B
# $B$=$s$J$K$*$i$s$+$d$O$j(B
# $B$=$*$f$&<+J,$O$J$s$+B>$N%a!<%i$X$N0\9T$r;W0FCf$G$9(B
