Lines 1424-1430
sub checkpw {
Link Here
|
1424 |
|
1424 |
|
1425 |
my ( $dbh, $userid, $password, $query ) = @_; |
1425 |
my ( $dbh, $userid, $password, $query ) = @_; |
1426 |
if ($ldap) { |
1426 |
if ($ldap) { |
1427 |
$debug and print "## checkpw - checking LDAP\n"; |
1427 |
$debug and print STDERR "## checkpw - checking LDAP\n"; |
1428 |
my ($retval,$retcard,$retuserid) = checkpw_ldap(@_); # EXTERNAL AUTH |
1428 |
my ($retval,$retcard,$retuserid) = checkpw_ldap(@_); # EXTERNAL AUTH |
1429 |
($retval) and return ($retval,$retcard,$retuserid); |
1429 |
($retval) and return ($retval,$retcard,$retuserid); |
1430 |
} |
1430 |
} |
1431 |
- |
|
|