
#●
#---------------------------------------------------------------------------------------
# 名称     | Error
# Version  | 1.00
# 処理名   | エラー処理
# 動作内容 | エラーメッセージの表示とプログラム終了
# 引数     | エラーメッセージ
# 戻り値   | なし
#
sub Error {

	local (@msg) = @_;
	local ($i);

	&Html_head;

	print <<"EOF";
	$body
	<h1>$msg[0]</h1>
EOF
	if ($msg[1] ne '') {

		print "<ul>\n";
		foreach $i (1 .. $#msg) { print "<li>$msg[$i]\n"; }
		print "</ul>\n";
	}

	print <<"EOF";
	<h3>[<A HREF="JavaScript:history.back()">戻る</A>]</h3>
	</body></html>
EOF
	exit;

}#End_of_Error

