View | Details | Raw Unified | Return to bug 10384
Collapse All | Expand All

(-)a/C4/Auth_with_ldap.pm (-1 / +5 lines)
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
- 

Return to bug 10384