
#●
#---------------------------------------------------------------------------------------
# 名称     | CheckAdmin
# Version  | 1.00
# 処理名   | 管理者確認
# 動作内容 | 管理者パスワードのチェック
# 引数     | 管理者パスワードの平文
# 戻り値   | 認証されれば1 されない場合は0
#
sub CheckAdmin {

	local($input) = @_;
	local($admin);
	$admin = 0;

	if (!open(READ,$pwd_file)) { &Error('エラー','管理者用パスワードファイルが読み出せません.'); }
	$master = <READ>;
	close(READ);

	$master =~ s/\n//;
	if ($master =~ /^\$1\$/) { $salt = 3; } else { $salt = 0; }
	if ($master eq '' || $input eq '') { ; }
	elsif (crypt($input,substr($master,$salt,2)) eq $master) { $admin = 1; } # 認証できたら$adminを定義

	return $admin;

}#End_of_CheckAdmin

