#!/usr/bin/perl

use XML::DOM;
use CGI;

print CGI::header(-charset=>'utf-8');
print CGI::start_html(
		-title	=>	'wolf.tfcis.org',
		-style	=>	'@import url(wolf.css);',
		-script	=>	{-language=>'JavaScript',-src=>'class.js'},
		-onLoad	=>	'initial()'
		);

my $parser = new XML::DOM::Parser;
my $doc = $parser->parsefile ("wolf.xml");

@top = $doc->getDocumentElement;
$all = $top[0];

if (CGI::param('name')) {
	my $name = CGI::param('name');
	@list = $all->getElementsByTagName("class");
	foreach (@list) {
		if($_->getAttribute("name") =~ $name) {
			$count = show($_);
			last;
		}
	}
} else {
	$count = show($all);
}

print "\n<script type=\"text/javascript\" language=\"JavaScript\">\n";
print "\tvar n = $count, begin = 0, bar = 0;\n";
print "\tfunction initial() {\n";
print "\t\tvar tmp = document.getElementById(\"c0\");\n";
print "\t\ttmp.style.background=\"rgb(240,240,255)\";\n";
print "\t}\n";
print "</script>\n";

$doc->dispose;
print CGI::end_html();

sub show
{
	my $element = shift;
	my @list = $element->getChildNodes;
	my $count = 0;

	print "<table border=\"0\" align=\"center\" width=\"50%\">\n";
	foreach (@list) {
		if ($_->getNodeType != 3) {
			my $name = $_->getAttribute("name");
			my $description = $_->getAttribute("description");
			my $tagname = $_->getTagName;
			print "<tr id=\"c$count\">";
			if ($tagname =~ "class") {
				print "<td><a id=\"l$count\" href=\"class.cgi?name=$name\">$name</a></td>";
				print "<td><a href=\"class.cgi?name=$name\">$description</a></td>";
			} elsif ($tagname =~ "board") {
				print "<td><a id=\"l$count\" href=\"board.cgi?name=$name\">$name</a></td>";
				print "<td><a href=\"board.cgi?name=$name\">$description</a></td>";
			} else {
			}
			print "</tr>\n";
			$count++;
		} else {
		}
	}
	print "</table>\n";
	return $count;
}