#!/usr/bin/perl
##############################################################
# uranaiCGI Rev. 1.00
# Created by Web�V�ï‘g�i”‹Œ´ˆí˜Y<hagi@web-kyoto.com>�j
# Created on 2000”N11ŒŽ03“ú
#
# support http://www.web-kyoto.com/
#
# �Ä”z•zŒµ‹Ö
$Copyright="<br><br><div align=right>\
<a href=\"http://www.nandemo.com\"><font size=1>\
uranaiCGI1.00\
</div>";
##############################################################

$t=time;$t+=(3600*10);
($d,$m,$y)=(gmtime($t))[3..5];
$seed=$d . $m . $y . "1";
srand($seed);
$m++;$y+=1900;

@range=(0,1,2,3,4,5,6,7,8,9,10);
@col_range=("0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F");
@recname=("‰²—r�À","‰²‹��À","‘oŽq�À","ŠI�À","Ž‚Žq�À","‰³�—�À","“V”‰�À","å¶�À","ŽËŽè�À","ŽR—r�À","�…•r�À","‹›�À");


for($i=0;$i<12;$i++){
    $num=rand(11);
    $count_a=$range[$num];
    $num=rand(11);
    $count_b=$range[$num];
    $num=rand(11);
    $count_c=$range[$num];

    $heikin=($count_a + $count_b + $count_c)/3;
    $heikin=(int($heikin * 100))/100;

    $num=rand(16);
    $cdmy=$range[$num];
    $color=$col_range[$cdmy];
    for($j=0;$j<5;$j++){
	$num=rand(16);
	$cdmy=$range[$num];
	$color=$color . $col_range[$cdmy];
    }
    $kekka[$i]=join(':',$heikin,$count_a,$count_b,$count_c,$color,$recname[$i]);
    $keys[$i]=$heikin;
}

sub bydatakeys { $keys[$b] <=> $keys[$a];}
@sorted=@kekka[sort bydatakeys $[..$#kekka];


print <<"EOL";
Content-type: text/html

<html>
<title>�¡“ú‚Ì�è‚¢ƒJƒEƒ“ƒgƒ_ƒEƒ“</title>
<a href="../index.html">–ß‚é</a>
<body bgcolor="#FFFFFF">
<center>
<font size=5>�¡“ú‚Ì�è‚¢ƒJƒEƒ“ƒgƒ_ƒEƒ“</font>
<br>
$y ”N $m ŒŽ $d “ú<br>

<table border=2>
<tr><th>‰^”Ô</th><th>�¯�À</th><th>�@</th><th>‰^Žw�”</th><th>�K‰^�F</th></tr>
EOL

$rank=1;
foreach $data (@sorted){
    ($heikin,$count_a,$count_b,$count_c,$color,$name)=split(/:/,$data);

    print "<tr><th rowspan=3>$rank</th><th rowspan=3>$name</th>\n";$rank++;
    print "<th>—öˆ¤</th><td>";
    for($i=1;$i<=$count_a;$i++){
	print "<img src=\"./gauge.gif\">";
    }
    print " $count_a</td>\n";

    print "<td rowspan =3 bgcolor=\"\#$color\">�@</td>\n";

    print "</tr>\n<tr>";
    print "<th>‚¨‚©‚Ë</th><td>";
    for($i=1;$i<=$count_b;$i++){
	print "<img src=\"./gauge.gif\">";
    }
    print " $count_b</td></tr>\n<tr>";
    print "<th>•×‹­�E‚¨ŽdŽ–</th><td>";
    for($i=1;$i<=$count_c;$i++){
	print "<img src=\"./gauge.gif\">";
    }
    print " $count_c</td></tr>\n";
}

print "</table></center></body></html>\n";