#!/usr/local/bin/perl
#
######################################################################
###
###
###  CGIクイズシステム TakaQ Ver.2.05
###     [3/5] 成績登録、表示 (tqscore.cgi)
###                                 (c) 1996-1999 Takahiro Nishida
###                                 http://www.mytools.net/
###
###
######################################################################
#
### 変数設定部 （詳細は上記ページをご覧下さい） ######################

$titlebg    = "olive";
$tablebg1   = "darkturquoise";
$tablebg2   = "paleturquoise";
$scorebg1   = "palevioletred";
$scorebg2   = "pink";
$scorebg3   = "darkkhaki";
$titlefont  = "white";
$scorefont1 = "black";
$scorefont2 = "black";
$scorefont3 = "black";
$namefont   = "darkgreen";

### 変数設定部 （ここまで）###########################################

$showno = "10";
$regbody = "BGCOLOR=lightgreen";

require "./tqlib.pl";

print "Content-type: text/html\n\n";

&main;

sub main{
	&parse_form;
	&init_variables;
	($FORM{'act'} eq "reg") && &regist_score;
	&get_genreinfo;
	&show_html_score;
}

sub parse_form{
	if($ENV{'REQUEST_METHOD'} eq "POST"){
	read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
	}
	else{
		$buffer=$ENV{'QUERY_STRING'};
	}
	@pairs=split(/&/, $buffer);
	foreach $pair(@pairs){
		($name,$value)=split(/=/,$pair);
		$FORM{$name}=$value;
	}
}



# 変数の初期化
sub init_variables{
	$ext = $tqlib'ext;
	$basedir = $tqlib'basedir;
	
	$tphtml = "$basedir/tqtop.html";
	$reghtml = "$basedir/tqquiz.html";
	$genrefile = "$basedir/genre.txt";
}



sub get_genreinfo{
	open(FILE,"$genrefile") || die &tqlib'error("$genrefile",1);
	@grs=<FILE>;
	close(FILE)
}

sub show_html_score{
	open(FILE,"$tphtml") || die &tqlib'error("$tphtml",1);
	foreach (<FILE>){
		if($_=~/<!--#GENRE#-->/){
			if($FORM{'act'} eq "rate"){
				&show_rate;
			}
			else{
				&show_ranking;
			}
		}
		else{
			print $_;
		}
	}
	close(FILE);
}


################################## 順位表表示関数 ##################################

sub show_ranking{
	if($FORM{genre}){
		foreach(@grs){
			if($_=~/^$FORM{genre}\t([^\t]+)\t/){
				&genre_ranking($FORM{genre},$1,-1,1);
				last;
			}
		}
	}
	else{
		foreach(@grs){
			@sps=split("\t",$_);
			&genre_ranking($sps[0],$sps[1],$showno,0);
		}
	}
}

sub genre_ranking{
	local($dir,$gname,$sno,$com)=@_;
	$summfile="$basedir/data/$dir/summery.txt";
	$regfile="$basedir/data/$dir/highscore.txt";
	
	open(FILE,"$summfile") || die &tqlib'error("$summfile",1);
	$sum=<FILE>;
	close(FILE);
	@sums=split("\t",$sum);
	
	open(FILE,"$regfile") || die &tqlib'error("$regfile",1);
	@regs=<FILE>;
	close(FILE);
	
	print "<center>\n";
	print "<table width=80%><tr><th bgcolor=$titlebg><font size=\"3\" color=\"$titlefont\">■ $gname 成績一覧 ■</font></th></tr></table><BR>\n";
	print "<font size=2>\n";
	print "[<a href=\"tqscore.$ext?act=rank&genre=$dir\">全順位</a>]\n";
	print "[<a href=\"tqscore.$ext?act=rate&genre=$dir\">正答率</a>]\n";
	print "</font><P>\n";

	print "<table border><tr bgcolor=$tablebg1><th>挑戦</th><th>完答</th>";
	for($a=0;$a<=100;$a+=10){ print "<th>$a%</th>"; }
	print "<th>合格</th></tr>\n<tr bgcolor=$tablebg2>";
	for(11,12,0..10,13){
		print "<th><font size=3>$sums[$_]</font></th>";
	}
	print "</tr></table><P>\n";
	
	$sno=@regs if (($sno<0)||($FORM{tq}));
	for(0..$sno-1){
		if(!$regs[$_]){ last; }
		@rsp=split("\t",$regs[$_]);
		$i=$_+1;
		$mstime = &tqlib'change_time($rsp[1]);
		
		if($i<3){ $f=6-$i; }else{ $f=3; }
		print "<table border cellpadding=1 cellspacing=1 noshade width=70%>\n";
		print "<tr><th bgcolor=$scorebg1 width=10%><font size=2 color=$scorefont1>$i位</font></th>\n";
		print "<th bgcolor=$scorebg2 width=10% nowrap><font size=2 color=$scorefont2>$rsp[0]%</font></th>\n";
		print "<th bgcolor=$scorebg2 width=15% nowrap><font size=2 color=$scorefont2>$mstime</font></th>\n";
		print "<td bgcolor=$scorebg2><font size=$f color=$namefont><B>$rsp[3]</B></font>";
		if($rsp[4]){
			print " <font size=2><a href=\"mailto:$rsp[4]\">[email]</a></font> ";
		}
		if($rsp[5]){
			print " <font size=2><a href=\"http://$rsp[5]\" target=\"_top\">[HP]</a></font> ";
		}
		print "</td></tr>\n";
		if($com || $FORM{tq}){
			print "<tr><td bgcolor=$scorebg3 colspan=\"4\"><font color=$scorefont3><font size=1><I>[$rsp[2] $rsp[7]]</I></font><BR><font size=2>$rsp[6]</font></font></td></tr>\n";
		}
		print "</table>\n";
		
	}
	print "</center><HR>\n";
}


################################## 正答率表示関数 ##################################

sub show_rate{
	if($FORM{genre}){
		foreach(@grs){
			if($_=~/^$FORM{genre}\t([^\t]+)\t/){
				&genre_rate($FORM{genre},$1,1);
				last;
			}
		}
	}
	else{
		foreach(@grs){
			@sps=split("\t",$_);
			&genre_rate($sps[0],$sps[1],0);
		}
	}
}

sub genre_rate{
	local($genre,$gname,$qsh)=@_;
	
	$dir="$basedir/data/$genre";
	$ratefile="$dir/rate.txt";
	
	open(FILE,"$ratefile") || die &tqlib'error("$ratefile",1);
	$rbuf = <FILE>;
	close(FILE);
	($try, $cor) = split("\t", $rbuf);
	$arate=&tqlib'calc_rate($cor,$try);
	
	print "<center><table width=80%><tr><th bgcolor=$titlebg><font size=\"3\" color=\"white\">■ $gname 正答率一覧 ■</font></th></tr></table></center><BR>\n";
	print "<center><font size=2>\n";
	print "[<a href=\"tqscore.$ext?act=rank&genre=$genre\">全順位</a>]\n";
	print "[<a href=\"tqscore.$ext?act=rate&genre=$genre\">正答率</a>]\n";
	print "</font></center><BR>\n";
	
	print "<center><table  border=1 width=50%>\n";
	print "<tr bgcolor=$tablebg1><th>全出題数</th><th>全正解数</th><th>総正答率</th></tr>\n";
	print "<tr bgcolor=$tablebg2><th>$try問</th><th>$cor問</th><th>$arate%</th></tr>\n";
	print "</table></center><P>\n";
	
	$qsh=1;
	if($qsh || $FORM{'tq'}){
		$qno=&tqlib'count_quiz($dir);
		print "<center><table cellpadding=0 cellspacing=0 width=80% border>\n";
		for(1..$qno){
			open(FILE,"$dir/$_.q") || die &tqlib'error("$dir/$qno.q",1);
			$qbuf=<FILE>;
			close(FILE);
			
			@qcfg=split("\t",$qbuf);
			$orate=&tqlib'calc_rate($qcfg[1],$qcfg[0]);
			
			print "<tr><th width=\"10%\" bgcolor=$scorebg1><font size=2>Q$_</font></th>\n";
			print "<th width=\"10%\" bgcolor=$scorebg2><font size=2>$orate%</font></th>\n";
			print "<td width=\"10%\" align=\"center\" bgcolor=$scorebg2><font size=2>$qcfg[1] / $qcfg[0]</font></td>\n";
			print "<td width=\"70%\" bgcolor=$scorebg3><font size=2>$qcfg[2]</font></td></tr>\n";
		}
		print "</table></center>\n";
	}
	print "<HR>\n";
}


################################## 高得点者登録用関数 ##################################

# 制御用
sub regist_score{
	&tqlib'file_lock;
	&check_form;
	&open_sheet;
	&check_data;
	&get_rank;
	&regist_data;
	&show_html_regist;
	&tqlib'unlock;
	exit;
}

# フォーム入力内容のチェック
sub check_form{
	$hname = &tqlib'decode($FORM{'hname'});
	$hmail = &tqlib'decode($FORM{'hmail'});
	$hurl  = &tqlib'decode($FORM{'hurl'});
	$com   = &tqlib'decode($FORM{'com'});
	
	&tqlib'error("", 5) unless $hname;
	&tqlib'error("", 6) if ($hmail && $hmail !~ /^(.+)\@(.+)\.(.+)$/);
}

# 解答用紙を開く
sub open_sheet{
	if(!$FORM{acn}){ &tqlib'error("FORM{'acn'}",3); }
	$acn = $FORM{acn};
	
	$fshfile="$basedir/log/$acn.f";
	$mshfile="$basedir/log/$acn.m";
	
	# 解答用紙1 (〜.f)
	open(FILE,"$fshfile") || die &tqlib'error("",8);
	foreach(<FILE>){
		if($_ =~ /(.*):(.*)\n/){
			$SHEET{$1}=$2;
		}
	}
	close(FILE);
	
	# 解答用紙2 (〜.m)
	open(FILE,"$mshfile") || die &tqlib'error("",8);
	@buf = <FILE>;
	close(FILE);
	
	($ptime,$rp)=split("\t",$buf[3]);
}

# 登録資格があるかどうかのチェック
sub check_data{
	if(!(($ptime)&&($rp>=$SHEET{'suc'}))){ &tqlib'error("",4); }
}

# 順位の取得
sub get_rank{
	$regfile="$basedir/data/$SHEET{'dir'}/highscore.txt";
	open(FILE,"$regfile") || die &tqlib'error("$regfile",1);
	@regs=<FILE>;
	close(FILE);
	
	$rank=1;
	foreach $data(@regs){
		@sps=split("\t",$data);
		if($sps[0]==$rp && $sps[1]>$ptime){ last; }
		elsif($sps[0]<$rp){ last; }
		else{ $rank++; }
	}
}

# 登録
sub regist_data{
	$date =&tqlib'get_time;
	$hname=&tqlib'decode($FORM{'hname'});
	$hmail=&tqlib'decode($FORM{'hmail'});
	$hurl =&tqlib'decode($FORM{'hurl'});
	$com  =&tqlib'decode($FORM{'com'});
	
	$regdata="$rp\t$ptime\t$date\t$hname\t$hmail\t$hurl\t$com\t$ENV{'REMOTE_HOST'}\t\n";
	
	splice(@regs,$rank-1,0,$regdata);
	
	open(FILE,">$regfile") || die &tqlib'error("$regfile",0);
	print FILE @regs;
	close(FILE);
	
	# データファイルの消去
	unlink($fshfile);
	unlink($mshfile);
}

# 表示
sub show_html_regist{
	$info="登録完了";
	
	open(FILE,"$reghtml") || die &error("$reghtml",1);
	foreach(<FILE>){
		if($_=~/#MESSAGE(\d)#/){
			if($1==1){ &show_regist; }
		}
		else{
			$_ =~ s/#GENREINFO#/$info/ig;
			$_ =~ s/#BODY#/$regbody/ig;
			print $_;
		}
	}
	close(FILE)
}

# 登録内容
sub show_regist{
	$mstime = &tqlib'change_time($ptime);
	&tqlib'copyright;
#----------------------------
print <<"EOF";
<P>
<B>以下の情報が登録されました</B>
<P>
<table border width=70% noshade bgcolor="yellow" cellspacing="0" cellpadding="1" >
<tr><th align="right">日時：</th><td>$date</td></tr>
<tr><th align="right">サーバー：</th><td>$ENV{'REMOTE_HOST'}</td></tr>
<tr><th align="right">ジャンル：</th><td>$SHEET{gnm}</td></tr>
<tr><th align="right">順位：</th><td>$rank位</td></tr>
<tr><th align="right">正答率：</th><td>$rp%</td></tr>
<tr><th align="right">タイム：</th><td>$mstime</td></tr>
<tr><th align="right">名前：</th><td>$hname</td></tr>
<tr><th align="right">メール：</th><td>$hmail</td></tr>
<tr><th align="right">ＵＲＬ：</th><td>http://$hurl</td></tr>
<tr><th align="right">コメント：</th><td>$com</td></tr>
</table>
<P>
<B>またの挑戦をお待ちしています</B>
<P>
[<a href="tqindex.$ext">クイズのトップへ戻る</a>]
[<a href="tqscore.$ext?act=rank&genre=$SHEET{dir}">合格者一覧を見る</a>]
EOF
#----------------------------

}