#!/usr/local/bin/perl

# 
# memo2mail: メモ形式からメール形式への変換
# 
#     [1997/12/07] OSHIRO Naoki.
# 
#     $Log:$
#

@month_str=split(' ', "null Jan Feb Mar Apr May Jun Jul Aug Sep Aug Nov Dec");
$user=$ENV{USER};

$date="";
$_=<>;
unless (/^---\s*$/) {
    print "From header\n\n$_";
} else {
    print "From $user\n\n";
    print "$_";
}
while (<>) {
    last if (eof);
    if (/^---\s*$/) {
	print "\nFrom $user\n";
	$_=<>; $tmp=$_;
	if (m#^\[(\d{4}/\d{2}/\d{2})\]\s*$#) {
	    $_=<>; $tmp.=$_; $date=$1;
	}
	print "Subject: $_";
	print "Date: " . &date_format($date) . "\n" if ($date);
	print "\n";
	$date="";
	$_=$tmp;
    }
    s/^From /^ From /;
    print;
}

sub date_format {
    local($_)=@_;
    local($y,$m,$d);
    ($y,$m,$d)=m#(\d{4})/(\d{2})/(\d{2})#;
    $_="$d $month_str[$m] $y";
    return $_;
}