Lines 1982-1991
sub checkpw {
Link Here
|
1982 |
|
1982 |
|
1983 |
# Nothing to check, account is locked |
1983 |
# Nothing to check, account is locked |
1984 |
} elsif ( $ldap && defined($password) ) { |
1984 |
} elsif ( $ldap && defined($password) ) { |
1985 |
my ( $retval, $retcard, $retuserid ); |
1985 |
my ( $retval, $retcard, $retuserid, $ldap_patron ); |
1986 |
( $retval, $retcard, $retuserid, $patron ) = checkpw_ldap(@_); # EXTERNAL AUTH |
1986 |
( $retval, $retcard, $retuserid, $ldap_patron ) = checkpw_ldap(@_); # EXTERNAL AUTH |
1987 |
if ( $retval == 1 ) { |
1987 |
if ( $retval == 1 ) { |
1988 |
@return = ( $retval, $retcard, $retuserid, $patron ); |
1988 |
@return = ( $retval, $retcard, $retuserid, $ldap_patron ); |
1989 |
$passwd_ok = 1; |
1989 |
$passwd_ok = 1; |
1990 |
} |
1990 |
} |
1991 |
$check_internal_as_fallback = 1 if $retval == 0; |
1991 |
$check_internal_as_fallback = 1 if $retval == 0; |
1992 |
- |
|
|