#! /usr/bin/perl
# $Id: from2form,v 1.1 1997/07/17 13:10:01 ryo2 Exp ryo2 $

require "/home/jaz/aki/public_html/cgi-bin/jcode.pl";
$decode = "/home/jaz/aki/bin/mdecode";

# field separator
$s = "\034";

while (<>) {
    $_ =~ s/\047/\001/g;
    $_ = `mdecode '$_'`;
    print &cnvt($_)."\n";
}

sub cnvt {
    local($_) = @_;
    &jcode'jis2euc(*_);
    #' tr/-ڣ--/A-Za-z0-9/
    s/\xa3([\xb0-\xb9\xc1-\xda\xe1-\xfa])/sprintf("%c", unpack("C", $1) - 128)/ge;
    s/\t//go;
    s/\s\s+/ /go;
    s/^\s+//o;
    s/\s+$//o;
    s/\"//go;
    if (/^(.*)\/(.*)\s*<(\S+\@\S+)>$/) {
	$_ = "$3$s$1 \($2\)";
    } elsif (/^(.*)\s*\((.*)\)\s*<(\S+\@\S+)>$/) {
	$_ = "$3$s$1 \($2\)";
    } elsif (/^(\S.*)\s*<(\S+\@\S+)>$/) {
	$_ = "$2$s$1";
    } elsif (/^(\S+\@\S+)\s*\((.*)\)/) {
	$_ = "$1$s"; $tmp = $2;
	$tmp =~ m,(.*)/(.*), && ($tmp = "$2 ($1)");
	$_ .= $tmp;
    } elsif (/^(.*)\s*<(\S+)>$/) {
	$_ = "$2$s$1";
    } else {
	$_ .= $s;
    }
    &jcode'euc2jis(*_);
    $_ =~ s/\001/\047/g;
    $_;
}
