hyung-hwan/codepot
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

some spacing fixes

Browse Source
This commit is contained in:
hyung-hwan 2021-09-03 17:45:24 +00:00
parent 6d243590d8
commit 586c664148
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
codepot/etc/perl/Codepot/AccessHandler.pm
View File

@ -388,16 +388,15 @@ sub __handler
}
}
}
my $auth = -3;
if ($cfg->{login_model} eq 'LdapLoginModel')
{
$auth = authenticate_ldap ($r, $cfg, $userid, $password);
$auth = authenticate_ldap($r, $cfg, $userid, $password);
}
elsif ($cfg->{login_model} eq 'DbLoginModel')
{
($auth, $errmsg) = authenticate_database (
$dbh, $cfg->{database_prefix}, $userid, $password, $qc);
($auth, $errmsg) = authenticate_database($dbh, $cfg->{database_prefix}, $userid, $password, $qc);
if ($auth <= -1)
{
$r->log_error ("Database error - $errmsg");
@ -468,7 +467,7 @@ sub handler: method
return Apache2::Const::HTTP_INTERNAL_SERVER_ERROR;
}
$res = __handler ($r, $cfg, $dbh);
$res = __handler($r, $cfg, $dbh);
close_database ($dbh);
return $res;