
#●
#---------------------------------------------------------------------------------------
# 名称     | AdminSet
# Version  | 1.00
# 処理名   | 管理者パスワードの設定関連
# 動作内容 | フォームから入力されたデータの取得とログファイルの確定
# 引数     | なし
# 戻り値   | なし
#
sub AdminSet {

	if (!-e $pwd_file) { &Error("エラー","管理者パスワード記録用ファイルが見つかりません."); }
	if ($in{'action'} eq 'Set_MasterPassword') { &Set_MasterPassword; } # 管理者パスワード記録へ
	if (-z $pwd_file || $cmd{'action'} eq 'PasswordForm') { &PasswordForm; } # 管理者パスワードの設定画面へ

}#End_of_AdminSet

