#!/usr/bin/perl
#文字列の受けとりと展開。
$\ = "\n";
print "Content-type: text/html";
print "";

@arg = split /&/ ,$ENV{QUERY_STRING};
foreach (@arg){
($ind,$val) = split /=/ ;
$hash{$ind} = $val;
}

#ID の発行。
if( $hash{ID} eq "" ){
$hash{ID} = time; 
}
$ID = $hash{ID};
$page = $hash{page};
$key = $hash{0};
#解答の読みと答合わせ。
open KEY, $key;
while(<KEY>){
    chop;
    ($arg,$val,$point) = split /,/;
     $keys{$arg} = $val;
     $points{$arg} = $point;
}
close KEY;
$gain = 0;
foreach (keys %hash){
    if( $hash{$_} eq $keys{$_}){
	$gain = $gain + $points{$_};
    }
}


#累積得点の読みと出力。
$score = 0;
$score = $score + $gain + $hash{SC};
#ヘッダの読みと出力。
open PRE, $key.".pre";
$log = "";
while(<PRE>){
    $log = $log.$_ ;
}
print $log;
close PRE;

print '<input type="hidden" name="ID" value="'.$ID.'">' ;
print '<input type="hidden" name="SC" value="'.$score.'">' ;
print '<br>';
if( $gain == 0 ){
    print '<font size="+1" color="blue">残念でした〜。は・ず・れ(^\'^)</font>';
}else{
    print '<font size="+2" color="red">おお当り〜!(^^)!</font>';
}
print '<br>得点= ',$gain,'<br>総得点= ',$score,'<br>';
#print %hash;
# 解説の読みと出力
open COMM, $key.".comment".$page;
$log = "";
while(<COMM>){
    $log = $log.$_ ;
}
print $log;
close COMM;
print '<br><br>';
#コンテンツの読みと出力。
open CON, $key.'.cont'.$page;
$log = "";
while(<CON>){
    $log = $log.$_ ;
}
print $log;
close CON;

# 最終ページの処理
if( $page == -1 ){
    #まずは、得点の記録と読みこみ
    open LOG, '>>'.$key.'.log';
    $date = localtime;
    print LOG $score.' '.$date;
    close LOG;

    open LOG, $key.'.log';
    @log = "";
    $i = 0;
    while(<LOG>){
	chop;
	($arg,$val) = split / /,$_,2;
	@log = (@log ,$arg);
	$i++;
    };
    close LOG;
    # 平均点を出す。
    $total = 0;
    while(<@log>){
	$total = $total + $_;
    };
    $ave = sprintf("%.1f",($total/$i));
    #標準偏差を出して
    $sigma = 0;
    while(<@log>){
	$sigma = $sigma + ($_ - $ave)**2;
    };
$hhs = sprintf("%.1f",sqrt( $sigma / $i ));
print '<br><br>-------スコア--------------<br>';
print '<br>総得点= ',$score;
print '<br>平均点= ',$ave;
$hst = sprintf("%.1f",($score - $ave)*10/$hhs+50) ;
print '<br>標準偏差= ',$hhs;
print '<br>偏差値= ',$hst;
open EPI, $key.".epi2";
$log = "";
while(<EPI>){
    $log = $log.$_ ;
};
print $log;
close EPI;

}else{ 
#フッタの読みと出力。
open EPI, $key.".epi";
$log = "";
while(<EPI>){
    $log = $log.$_ ;
};
print $log;
close EPI;
};