
sub sinki {
(略)
if (???) {
???;
}
}
|
if ($in{'pass'} eq "") { &error("パスワードが入力されていません"); }
|
sub error {
&header;
print "エラー:<font color='red'>$_[0]</font>\n";
print "<br><a href=JavaScript:history.back()>やりなおし</A>\n";
&unlock;
&footer;
exit;
}
|
$title = "マイホームページ"; &header; print "ようこそ!\x20 \x20$titleへ\n"; |