NetAndProg-CGI-scriptlet-error.pl

[ IndexPage / ネットとプログラミング / CGI / 便利なスクリプト片(未整理) / error.pl ]

sub error{
	my($package, $filename, $line) = caller;
	print <<EOF;
Content-Type: text/html

<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=EUC-JP">
<TITLE>エラー</TITLE></HEAD>
<BODY BGCOLOR="#FFFFFF">
<H1>エラー</H1>
<HR>
<P>
ブラウザの「戻る」ボタンを押してやり直して下さい。<BR>
(解決しない場合はシステム管理者に相談してください)。
</P>
<DL>
	<!-- Location: at file ``$filename'' line $line. -->
	<!-- Package: $package -->
	<!-- \$!: $! -->
	<!-- \$\@: $@ -->
	<LI>理由: @_
</DL>
</BODY>
</HTML>
EOF
	exit;
}