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

Auth is only interested in active auth methods.

Browse Source
This commit is contained in:
Chris 2012-03-13 12:21:47 +00:00
parent d379a093c0
commit 73fd461c21
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Auth.pm
View File

@ -62,10 +62,6 @@ sub new {
my $invocant = shift;
my $class = ref($invocant) || $invocant;
my $self = {
cgi => undef,
dbh => undef,
settings => undef,
system => undef,
@_,
};
@ -198,7 +194,7 @@ sub valid_user {
# that, if an auth method is removed for some reason, the system will try other auth
# methods instead.
if(!$valid && (!$authmethod || !$methodimpl || $self -> {"settings"} -> {"Auth:enable_fallback"})) {
my $methods = $self -> {"methods"} -> available_methods();
my $methods = $self -> {"methods"} -> available_methods(1);
foreach $authmethod (@{$methods}) {
my $methodimpl = $self -> {"methods"} -> load_method($authmethod);