#!/usr/bin/perl

use CGI;
$q = CGI->new;

@list = `ls -t cons`;

$listhtml = "";
foreach $i (@list) {
	$i =~ s/[\r\n]+//g;
	if ($i =~ /\.cgi$/) {
		open (FILE, "./cons/$i");
		$info = <FILE>;
		@entryer = ();
		while(<FILE>) {
			chop;
			push(@entryer,$_);
		}
		chomp($info);
		close (FILE);
		($title,$abs,$jud,$win,$name,$email,$date,$url) = split(/\t/,$info);
		$id = $i;
		$id =~ s/\.cgi$//;
		
		if ($url ne '') {
			if ($url =~ /^http/) {} else { $url = "http://$url"; }
			$name = "<a href='$url' target=_blank>$name</a>";
		}
		
		$entries = "";
		$ecnt = 0;
		foreach $e (@entryer) {
			($entname,$entmail,$pass,$opt) = split(/\t/,$e);
			if ($pass eq '') {
				$entries .= "$entname, ";
				$ecnt++;
			}
		}
		if ($entries ne "") {
			chop($entries);chop($entries);
			$entries .= " ( $ecnt人) ";
		}
		$listhtml .=<<"EOT";
<table cellpadding=0 cellspacing=8>
<tr><td align="right" class="tdl">タイトル：</td><td class="tdr"><span class="ctitle"><a href="each.cgi?id=$id">$title</a></span></td></tr>
<tr><td align="right" valign="top" class="tdl">概要：</td><td class="tdr"><span class="cabs">$abs</span></td></tr>
<tr><td align="right" class="tdl" valign="top">勝利の条件：</td class="tdr"><td><span class="cjdg">$jud</span></td></tr>
<tr><td align="right" class="tdl" valign="top">優勝賞品：</td class="tdr"><td><span class="cjdg">$win</span></td></tr>
<tr><td align="right" class="tdl" valign="top">企画者：</td><td class="tdr"><span class="cown">$name</span></td></tr>
<tr><td align="right" class="tdl" valign="top">参加者：</td><td class="tdr"><span class="cent">$entries</span></td></tr>
<tr><td align="right" class="tdl" valign="top"> </td><td align="right" class="tdr"><!--<font class="f11"><span class="cdetail" id="button2"><a href="each.cgi?id=$id">&nbsp;$titleにエントリーする&nbsp;</a></span></font>--></td></tr>
</table><br>
EOT
	}
}


open (TMPL, "list.html");
while(<TMPL>) {
	$tmpl .= $_;
}
close (TMPL);

$tmpl =~ s/\<\!CONTESTS\>/$listhtml/;

print "Content-type: text/html\nPragma: no-cache\n\n$tmpl";

exit;