Lines 119-125
sub checkpw_ldap {
Link Here
|
119 |
$userldapentry = $search->shift_entry; |
119 |
$userldapentry = $search->shift_entry; |
120 |
|
120 |
|
121 |
# Perform a LDAP bind for the given username using the matched DN |
121 |
# Perform a LDAP bind for the given username using the matched DN |
122 |
my $res = $db->bind( $userldapentry->dn, password => $password ); |
122 |
$res = $db->bind( $userldapentry->dn, password => $password ); |
123 |
if ( $res->code ) { |
123 |
if ( $res->code ) { |
124 |
$debug and warn "LDAP bind failed as kohauser $userid: ". description($res); |
124 |
$debug and warn "LDAP bind failed as kohauser $userid: ". description($res); |
125 |
return 0; |
125 |
return 0; |
126 |
- |
|
|