#!/usr/bin/perl

### 変数設定部 （詳細は上記ページをご覧下さい） ######################

$bg1   = "#333399";
$bg2   = "#333399";
$bg3   = "#333399";
$bg4   = "#333399";
$font1 = "#FFFFFF";
$font2 = "#FFFFFF";
$font3 = "#FFFFFF";
$font4 = "#FFFFFF";

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

require "./tqlib.pl";
require '../forbidden/forbidden.pl';


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

&access_check;
&main;

sub main{
	&init_variables;
	
	open(FILE, "$tphtml") || die &tqlib'error($tphtml, 1);
	foreach (<FILE>){
		if($_=~/<!--#GENRE#-->/){
			&show_genre;
		}
		else{
			print $_;
		}
	}
	close(FILE);
}

sub init_variables{
	$ext = $tqlib'ext;
	$basedir = $tqlib'basedir;
	
	$genrefile = "$basedir/genre.txt";
	$genre100 = "$basedir/genre100.txt";
	$tphtml = "$basedir/tqtop.html";
}

sub show_genre{
	open(FILE,"$genrefile") || die &tqlib'error("$genrefile",1);
	@genres=<FILE>;
	close(FILE);
	
	print "<P>\n";

	foreach $data(@genres){
		@sps=split("\t",$data);
		
		$dir="$basedir/data/$sps[0]";
		
		$summfile="$dir/summery.txt";
		if(!(open(FILE,"$summfile"))){
			$summs[11]="ERROR!";
			$summs[13]="ERROR!";
		}
		else{
			@summs = split("\t",<FILE>);
			close(FILE);
		}
		
		$ratefile = "$dir/rate.txt";
		if(!open(FILE,"$ratefile")){ $arate="ERROR!"; }
		else{
			$rbuf = <FILE>;
			close(FILE);
			($try, $cor) = split("\t", $rbuf);
			$arate = &tqlib'calc_rate($cor, $try);
		}
		
		$hsfile = "$dir/highscore.txt";
		if(!open(FILE,"$hsfile")){ $himes="ERROR!"; }
		else{
			$hs=<FILE>;
			close(FILE);
			@hss=split("\t",$hs);
			$htime = &tqlib'change_time($hss[1]);
			if($hs){
				$himes="<B>$hss[3]</B> ($hss[2])<BR><B>成績</B>：$hss[0]％、<B>タイム</B>：$htime";
			}
			else{
				$himes="登録者無し";
			}
		}
		
		$qno=&tqlib'count_quiz($dir);
		
		$dif="";
		for(1..$sps[3]){ $dif="$dif★"; }
		
#--------------------------------------
print <<"EOF";
<center>
<table border noshade width=80% cellspacing=0 cellpadding=0>
<tr>
  <th colspan=3 align=center bgcolor=$bg1><font size=3 color=$font1>■ $sps[1] ■</font></th>
</tr>
<tr>
  <th colspan=2 bgcolor=$bg2 width=50%>
    <font size=3 color=$font2><B><a href="tqquiz.$ext?genre=$sps[0]">挑戦</a></B></font>
  </th>
  <td rowspan=2 bgcolor=$bg3 width=50%>
    <font size=2 color=$font3><B>Top</B>：$himes</font>
  </td>
</tr>
<!--
<tr>
  <td colspan=2 bgcolor=$bg2 width=50%>
    <font size=2 color=$font2>難易度：$dif</font>
  </td>
</tr>
-->
<tr>
  <td width=25% bgcolor=$bg2>
    <font size=2 color=$font2>出題数：$sps[2]問</font>
  </td>
  <td width=25% bgcolor=$bg2>
    <font size=2 color=$font2>挑戦者：$summs[11]人</font>
  </td>
</tr>
<tr>
  <td width=25% bgcolor=$bg2>
    <font size=2 color=$font2>問題数：$qno問</font>
  </td>
  <td width=25% bgcolor=$bg2>
    <font size=2 color=$font2>合格者：$summs[13]人</font>
  </td>
  <td rowspan=3 bgcolor=$bg4 width=50%>
    <font size=2 color=$font4>$sps[5]</font>
  </td>
</tr>
<tr>
  <td width=25% bgcolor=$bg2>
    <font size=2 color=$font2>合格点：$sps[4]％以上</font>
  </td>
  <td width=25% bgcolor=$bg2>
    <font size=2 color=$font2>正答率：$arate％</font>
  </td>
</tr>
<tr>
  <th width=25% bgcolor=$bg2>
    <font size=2 color=$font2>
      <a href="tqscore.$ext?act=rank&genre=$sps[0]">成績一覧</a>
    </font>
  </th>
  <th width=25% bgcolor=$bg2>
    <font size=2 color=$font2>
      <a href="tqscore.$ext?act=rate&genre=$sps[0]">正答率一覧</a>
    </font>
  </th>
</tr>
</table>
</center>
<BR>

EOF


#--------------------------------------
	}
	open(FILE,"$genre100") || die &tqlib'error("$genre100",1);
	@genres=<FILE>;
	close(FILE);
	
	print "<P>\n";

	foreach $data(@genres){
		@sps=split("\t",$data);
		
		$dir="$basedir/data/$sps[0]";
		
		$summfile="$dir/summery100.txt";
		if(!(open(FILE,"$summfile"))){
			$summs[11]="ERROR!";
			$summs[13]="ERROR!";
		}
		else{
			@summs = split("\t",<FILE>);
			close(FILE);
		}
		
		$ratefile = "$dir/rate100.txt";
		if(!open(FILE,"$ratefile")){ $arate="ERROR!"; }
		else{
			$rbuf = <FILE>;
			close(FILE);
			($try, $cor) = split("\t", $rbuf);
			$arate = &tqlib'calc_rate($cor, $try);
		}
		
		$hsfile = "$dir/highscore100.txt";
		if(!open(FILE,"$hsfile")){ $himes="ERROR!"; }
		else{
			$hs=<FILE>;
			close(FILE);
			@hss=split("\t",$hs);
			$htime = &tqlib'change_time($hss[1]);
			if($hs){
				$himes="<B>$hss[3]</B> ($hss[2])<BR><B>成績</B>：$hss[0]％、<B>タイム</B>：$htime";
			}
			else{
				$himes="登録者無し";
			}
		}
		
		$qno=&tqlib'count_quiz($dir);
		
		$dif="";
		for(1..$sps[3]){ $dif="$dif★"; }
		
#--------------------------------------
print <<"EOF";
<center>
<table border noshade width=80% cellspacing=0 cellpadding=0>
<tr>
  <th colspan=3 align=center bgcolor=$bg1><font size=3 color=$font1>■ $sps[1] ■</font></th>
</tr>
<tr>
  <th colspan=2 bgcolor=$bg2 width=50%>
    <font size=3 color=$font2><B><a href="tqquiz100.$ext?genre=$sps[0]">挑戦</a></B></font>
  </th>
  <td rowspan=2 bgcolor=$bg3 width=50%>
    <font size=2 color=$font3><B>Top</B>：$himes</font>
  </td>
</tr>
<!--
<tr>
  <td colspan=2 bgcolor=$bg2 width=50%>
    <font size=2 color=$font2>難易度：$dif</font>
  </td>
</tr>
-->
<tr>
  <td width=25% bgcolor=$bg2>
    <font size=2 color=$font2>出題数：$sps[2]問</font>
  </td>
  <td width=25% bgcolor=$bg2>
    <font size=2 color=$font2>挑戦者：$summs[11]人</font>
  </td>
</tr>
<tr>
  <td width=25% bgcolor=$bg2>
    <font size=2 color=$font2>問題数：$qno問</font>
  </td>
  <td width=25% bgcolor=$bg2>
    <font size=2 color=$font2>合格者：$summs[13]人</font>
  </td>
  <td rowspan=3 bgcolor=$bg4 width=50%>
    <font size=2 color=$font4>$sps[5]</font>
  </td>
</tr>
<tr>
  <td width=25% bgcolor=$bg2>
    <font size=2 color=$font2>合格点：$sps[4]％以上</font>
  </td>
  <td width=25% bgcolor=$bg2>
    <font size=2 color=$font2>正答率：$arate％</font>
  </td>
</tr>
<tr>
  <th width=25% bgcolor=$bg2>
    <font size=2 color=$font2>
      <a href="tqscore100.$ext?act=rank&genre=$sps[0]">成績一覧</a>
    </font>
  </th>
  <th width=25% bgcolor=$bg2>
    <font size=2 color=$font2>
      <a href="tqscore100.$ext?act=rate&genre=$sps[0]">正答率一覧</a>
    </font>
  </th>
</tr>
</table>
</center>
<BR>

EOF

#--------------------------------------
	}
	print "<div align=right>";
	&tqlib'copyright;
	print "</div><P>\n";

}