Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

AuthMethod load failures are now fatal.

Browse Source
This commit is contained in:
Chris 2012-03-19 13:02:23 +00:00
parent 85e8a223cf
commit 2166de27fd
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Auth.pm
View File

@ -218,10 +218,10 @@ sub valid_user {
my $methods = $self -> {"methods"} -> available_methods(1);
foreach $authmethod (@{$methods}) {
my $methodimpl = $self -> {"methods"} -> load_method($authmethod);
my $methodimpl = $self -> {"methods"} -> load_method($authmethod)
or die_log($self -> {"cgi"} -> remote_host(), "Auth implementation load failed: ".$self -> {"methods"} -> {"errstr"});
$valid = $methodimpl -> authenticate($username, $password, $self)
if($methodimpl);
$valid = $methodimpl -> authenticate($username, $password, $self);
# If an auth method says the user is valid, stop immediately
last if($valid);