package MyAuthApplication
@ISA = qw()

sub BEGIN

sub new
my ($module, $app) = @_;
#	$this->SUPER::new(
return $this;

sub DESTROY
my $this = shift;
#	$this->SUPER::DESTROY(

sub CryptMethod
my ($this, $cm) = @_;
return $this->{CryptMethod} = $cm;

sub CryptPhrase
my ($this, $phrase) = @_;
return $this->{CryptPhrase} = $phrase;

sub SetCryptedHeader
my ($this, $header) = @_;
return $this->{CryptedHeader} = $header;

sub Crypt
my ($this, $s, $CryptMethod, $CryptPhrase, $CryptedHeader) = @_;
return $s if($s eq '');
return $s if($CryptedHeader ne '' and $s =~ /^$CryptedHeader/);
return $s;

sub CryptForSchedule
my ($this, $s, $CryptMethod, $CryptPhrase, $CryptedHeader) = @_;
return $s if($s eq '');
return $s if($CryptedHeader ne '' and $s =~ /^$CryptedHeader/);
return $s;

sub IsIncluded
my ($this, $key, $KeyList, $separator) = @_;
return 1 if($key eq $keys[$i]);
return 0;

sub MergePrivileges
my ($this, $priv1, $priv2) = @_;
return $s;

sub IsPrivilegeIncluded
my ($this, $Privilege, $PrivilegeList) = @_;
return 1 if($Privilege eq $Privileges[$i]);
return 0;

sub GetPrivilege
my ($this, $DB, $EMail, $UsersTableName, $pPrivilegesList) = @_;
return '' if(!$DB);
return $priv;

sub CheckPrivilege
my ($this, $DB, $EMail, $priv, $Password, $UsersTableName) = @_;
return 0 if(!$DB);
return -1 unless($Password eq $Hit{Password} or $Password eq $this->Crypt($Hit{Password}));
return 1 if($Hit{Privilege} =~ /$priv/i);
return 0 if($priv =~ /^LimitedByIPAddress$/i);
return 1;
return 0;

sub HasPriviledge
sub HasPriviledge { return HasPrivilege(
return HasPrivilege(@_);

sub HasPrivilege
my ($this, $key, $IsPrint) = @_;
return 0;
return $this->IsPrivilegeIncluded($key, $pParams->{LogonUserPrivilege});
return 1;
return 1;
return 0;

sub GetLogonLevelText
my ($App, $LogonLevel) = @_;
return '管理者'                                    if($LogonLevel == 1);
return "一般ユーザー (ログオンレベル:$LogonLevel)" if($LogonLevel > 1);
return 'SQL Error'                                 if($LogonLevel == -1);
return '登録されていないアカウント'                if($LogonLevel == -2);
return '空白パスワード'                            if($LogonLevel == -3);
return '不正なパスワード'                          if($LogonLevel == -4);
return '不正なIPアドレス'                          if($LogonLevel == -6);
return '空白パスワード'                            if($LogonLevel == -7);
return 'Administrator'                 if($LogonLevel == 1);
return "User (LogonLevel:$LogonLevel)" if($LogonLevel > 1);
return 'SQL Error'                     if($LogonLevel == -1);
return 'Non-registered Account'        if($LogonLevel == -2);
return 'Blank Password'                if($LogonLevel == -3);
return 'Invalid Password'              if($LogonLevel == -4);
return 'Invalid IPAddress'             if($LogonLevel == -6);
return 'Null Password'                 if($LogonLevel == -7);

sub IsAdministrator
	my($this, $DB, $EMail, $Password, $CheckIPAddress, $pPrivilegedAccount, $pPrivilegedIPAddress) = 
return 0 if(!$DB);
return level=$level\n");
return $level;
return $level;
return $MinAllowedLevel;
return -1;
return 0;

sub IsPrivilegedIPAddress
my ($this, $ip, $pPrivilegedIPAddress) = (@_);
return $Level if($ip =~ /^$IPAddress$/);
return 0;

sub IsPrivilegedIPAddressForConference2
my ($this, $ip, $pPrivilegedIPAddress) = (@_);
return $Level if($ip =~ /^$IPAddress$/);
return 0;

sub GetAdministratorAccount
my ($App, $pParams, $Password, $CheckIPAddress, $pPrivilegedAccount, $pPrivilegedIPAddress) = @_;
return level=$level\n");
return ($account, $pass, $level);
return $level;
return ($account, $pass, $MinAllowedLevel);
return -1;
return ();

sub UserAuthorization
	my($App, $DB, $EMail, $Password, $CryptedHeader, $AdditionalCondition) = 
return $pParams->{LogonLevel} = 6 if(!$DB);
return $pParams->{LogonLevel};

sub UserAuthorization2
	my($App, $DB, $EMail, $Password, $CryptedHeader, $AdditionalCondition) = 
return $pParams->{LogonLevel} = 6 if(!$DB);
return $pParams->{LogonLevel} = -7;
return $AdministratorLevel if($AdministratorLevel > 0);
return $pParams->{LogonLevel} = 7;
return $pParams->{LogonLevel} = -1;
return $pParams->{LogonLevel} = -1;
return $pParams->{LogonLevel} = -2 if($nHit == 0);
return $pParams->{LogonLevel} = -3;
return $pParams->{LogonLevel} = -6;
return $pParams->{LogonLevel} = -4;
return $pParams->{LogonLevel} = -6;
return $pParams->{LogonLevel} = 1;
return $pParams->{LogonLevel} = $IPAddressLevel;
return $pParams->{LogonLevel} = $level;
return $pParams->{LogonLevel} = 6;