#! /usr/bin/perl
#
# rdjoin.pl
# Version 1.0 Hideki Kanayama

$joindir = "../joinlist";
$cgibin = "../cgi-bin";
$datafile = "$joindir/joinlist.dat";
$wrjoin = "$cgibin/wrjoin.pl";

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

print "<FORM type=\"text\" method=post action=\"$wrjoin\">";

print "<table border cols=3 width=\"100%\">";
print "<tr><th nowrap width=\"23%\">参加者名</th><th width=\"60%\">意気込み／コメント</th><th width=\"10%\" nowrap>&nbsp;</th></tr>\n";

open(DAT,"< $datafile");

while(<DAT>){
	s/[\r\n]*$//;
	($num,$name,$join,$comment)=split(/,/);
	$comment =~ s/^$/\&nbsp/;
	if ($join eq 'off'){
		next;
	}

	print "<tr>";
	print "<td width=\"23%\">$name</td>";
	print "<td width=\"60\">$comment</td>";
	print "<td width=\"10%\"><a href=\"$wrjoin?num=$num\">取り消し</a></td>";
	print "</tr>\n";
}


print "<tr><td><input type=\"text\" size=18 name=\"name\"></td><td><input type=\"text\" name=\"comment\" size=\"50\"></td><td><input type=\"submit\" name=\"reg\" value=\"登録\"></td></tr>";
print "</form>";

print "</table>\n";

close(DAT);