
#●
#---------------------------------------------------------------------------------------
# 名称     | PasswordForm
# Version  | 1.00
# 処理名   | 管理者パスワードの設定と変更
# 動作内容 | 設定フォーム画面
# 引数     | なし
# 戻り値   | なし
#
sub PasswordForm {

	if ($log) { &Error("エラー"); } # 過去ログモード時は処理しない

	&Html_head;

	print <<"EOF";
	$body
	<h1>管理者パスワードの設定/変更<hr size=1></h1>
	<form action="$ENV{'SCRIPT_NAME'}?log=$cmd{'log'}" method=POST>
	<input type=hidden name="action" value="Set_MasterPassword">
EOF
	if (!-z $pwd_file) { print "現パスワード <input type=password name=\"old_password\" size=10><br>\n"; }

	print <<"EOF";
	新パスワード <input type=password name="new_password" size=10><br>
	新パスワード <input type=password name="retype_password" size=10> (もう一度)<p>
	<input type=submit value="実行">
	</form><p><hr size=1>
EOF
	if (!-z $pwd_file) { print "[<A HREF=\"JavaScript:history.back()\">戻る</A>]<p>\n"; }
	print "</body></html>\n";
	exit;

}#End_of_PasswordForm

