#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
require 'jcode.pl';
if ($ENV{'REQUEST_METHOD'} eq "POST") {
    read(STDIN, $str, $ENV{'CONTENT_LENGTH'});
} else {
    $str = $ENV{'QUERY_STRING'};
}

@part = split('&', $str);
foreach $i (@part) {
    ($variable, $value) = split('=', $i);
    $value =~ tr/+/ /;
    $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg;
    &jcode'convert(*value, 'euc'); 
    $value =~ s/</&lt;/g;   
    $value =~ s/>/&gt;/g;  
    $value =~ s/\r\n/\n/g; 
    $value =~ s/\r/\n/g; 
    $cgi{$variable} = $value;
}
#↑デコード

# ---- 初期設定 ----

$logfile = "/home/WWW/KOUKAIkawasaki/haisin_html/log.html";
$logurl = "/~kawasaki/haisin_html/log.html";
$homeurl = "/~kawasaki/haisin_html/pr001e.xml";
#↑解答ファイル名指定

$myname = "kawasaki";
$mymail = "kawasaki@owc.ac..jp";
$mailto = "/usr/ucb/mail " . $mymail;
#↑メールのパスと自分のメールアドレスを指定
$name = $cgi{'name'};
$kaitou1 = $cgi{'c1'};
$kaitou2 = $cgi{'c2'};
$kaitou3 = $cgi{'c3'};
$kaitou4 = $cgi{'c4'};
$kaitou5 = $cgi{'c5'};
#↑変数名を短くする
open(FILE, ">>$logfile");
    print FILE &print_jis(<<EOF);
     名前：$name
     解答１：$c1
     解答２：$c2
     解答３：$c3
     解答４：$c4
     解答５：$c5
EOF
close(FILE);
open(MAIL, "| $mailto");
print MAIL &print_jis(<<EOF);
    名前：$name
    解答１：$c1
    解答２：$c2
    解答３：$c3
    解答４：$c4
    解答５：$c5
EOF
close(MAIL);
#↑登録された内容をメールで送る
exit;
sub print_jis{
  local($value) = @_;
  &jcode'convert(*value, 'jis');
  $value;
}