|
Lines 103-108
sub checkpw_ldap {
Link Here
|
| 103 |
my ($dbh, $userid, $password) = @_; |
103 |
my ($dbh, $userid, $password) = @_; |
| 104 |
my @hosts = split(',', $prefhost); |
104 |
my @hosts = split(',', $prefhost); |
| 105 |
my $db = Net::LDAP->new(\@hosts); |
105 |
my $db = Net::LDAP->new(\@hosts); |
|
|
106 |
unless ( $db ) { |
| 107 |
warn "LDAP connexion failed"; |
| 108 |
return 0; |
| 109 |
} |
| 110 |
|
| 106 |
#$debug and $db->debug(5); |
111 |
#$debug and $db->debug(5); |
| 107 |
my $userldapentry; |
112 |
my $userldapentry; |
| 108 |
|
113 |
|
| 109 |
- |
|
|