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

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

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