#!/usr/bin/perl -w

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

$fname = $ARGV[0] . "_" . $ARGV[1] . ".dat" ;
open (DATA, "$fname");
$flag = true ;
print "<p><hr width='80%'><br>\n";
print "<div align='center'>\n";
print "<table border=0 width='80%'>\n";
while (($rec1 = <DATA>) && ($flag eq true)) {
	chomp ($rec1);
	if ($rec1 =~ /^$ARGV[2]/) {
		$flag = false ;
                print "<tr><td>\n";
		print "<font color='blue'><b>$rec1</b></font>\n";
                print "</td></tr>\n";
		$rec2 = "<br>\n";
		do {
			print "<tr><td>$rec2\n</td></tr>\n";
		        $rec2 = <DATA>;
		        chomp ($rec2);
		} while ($rec2 !~ /^==========/);
	}
}
print "</table>\n";
print "</div>\n";
print "<br><hr width='80%'><br>\n";
print "<center>[<a href='total.htm'>µ²§ô¬d¸ß</a>]</center><br>\n";
close (DATA);