#! /usr/bin/perl
print "Content-Type: text/html\n\n";

$year=$ENV{QUERY_STRING};
exit unless($year=~/^\d\d\d\d$/);


print <<EOF;
<head>
<meta http-equiv="Content-Type" content="text/html; charset=euc-jp">
<title>Seminar Information ($year)</title>
</head>
<body>
<h1>Seminar Information ($year)</h1>
EOF

populate("/home/sem/data.to2008");
populate("/home/sem/data");


for(keys %entry){
	if($_=~/^$year/){
		push @k,$_;
	}
}

@k=sort {$a<=>$b} @k;
@y=sort {$a<=>$b} (keys %ys);

for(@y){
	print <<EOF;
	<a href="./history.cgi?$_">$_</a>
EOF
}
for(@k){
	emit($_);
}

print <<EOF;
<hr></body>
EOF

sub emit{
	my $i=shift;
	my ($date,$place,$speaker,$subject)=@{$entry{$i}};
	@a=<slides/$i*>;
	if(scalar @a!=0){
		my $file=$a[0];
		$subject=qq(<a href="$file">$subject</a>);
	}
	print <<EOF;
	<hr>
<b>$date</b>; $place
<ul><li>$speaker
<li>$subject
</ul>
EOF
}

sub populate{
	my $f=shift;
	open(IN,$f);
	undef $/;
	my $all=<IN>;
	close(IN);
	my @x=split "\n\n", $all;
	for(@x){
		my ($tag,$date,$place,$speaker,$subject)=
		split "\n";
		if(exists $entry{$tag}){
			$tag+=0.1;
		}
#		next if(exists $entry{$tag});
		$tag=~/^(\d\d\d\d)/;
		$ys{$1}=1;
		$entry{$tag}=[$date,$place,$speaker,$subject];
	}
}