#!/usr/bin/perl

use CGI;
$q = CGI->new;

$id = $q->param('id');

open (FILE, "./cons/$id".".cgi");
$info = <FILE>;
@entryer = ();
while(<FILE>) {
	chop;
	push(@entryer,$_);
}
chomp($info);
close (FILE);
($title,$abs,$jud,$win,$name,$email,$date,$url) = split(/\t/,$info);
	
if ($url ne '') {
	$name = "<a href='$url'>$name</a>";
}
	
	$entries = "";
	$ecnt = 0;
	foreach $e (@entryer) {
		($entname,$entmail,$pass) = split(/\t/,$e);
		if ($pass eq '') {
			$entries .= "$entname, ";
			$ecnt++;
		}
	}
	if ($entries ne "") {
		chop($entries);chop($entries);
		$entries .= " ( $ecnt人 ) ";
	}
	
	$listhtml .=<<"EOT";
<div style="width:700px;" class="mini"><div align="right"><a href="eachedit.cgi?id=$id">編集</a></div></div>
<table border=0 celpadding=0 cellspacing=8 width="700">
<tr><td align="right" class="tdl" valign="top">タイトル：</td><td class="tdr"><span class="ctitle">$title</span></td></tr>
<tr><td align="right" class="tdl" valign="top">概要：</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>
</table>
EOT


&template_out("each.html");

sub template_out {
	$tmp = $_[0];
	open (TMPL, "$tmp");
	while(<TMPL>) {
		$tmpl .= $_;
	}
	close (TMPL);
	
	$tmpl =~ s/\<\!CONTESTS\>/$listhtml/;
	$tmpl =~ s/\<!ID\>/$id/g;
	
	print "Content-type: text/html\nPragma: no-cache\n\n$tmpl";
}