Error.pm

package Error;

use Jcode;

sub error{
	print "Content-Type: text/html\n\n";
	my($err) = shift;
	open(FILE, "error.html");
	my $msg = "<TABLE>";
	foreach(@$err){
		my($key, $value) = split(/:=:/);

		$msg .= "<TR><TD ALIGN=Right><font color=red>$key</font></TD><TD>$value</TD></TR>\n";
	}
	$msg .= "</TABLE>";

	while(<FILE>){
		s/%%ERROR%%/$msg/g;
		print jcode($_)->sjis;
	}
	exit;
}
1;