|
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 |
- |
|
|