Lines 1409-1415
sub checkpw {
Link Here
|
1409 |
|
1409 |
|
1410 |
my ( $dbh, $userid, $password, $query ) = @_; |
1410 |
my ( $dbh, $userid, $password, $query ) = @_; |
1411 |
if ($ldap) { |
1411 |
if ($ldap) { |
1412 |
$debug and print "## checkpw - checking LDAP\n"; |
1412 |
$debug and print STDERR "## checkpw - checking LDAP\n"; |
1413 |
my ($retval,$retcard,$retuserid) = checkpw_ldap(@_); # EXTERNAL AUTH |
1413 |
my ($retval,$retcard,$retuserid) = checkpw_ldap(@_); # EXTERNAL AUTH |
1414 |
($retval) and return ($retval,$retcard,$retuserid); |
1414 |
($retval) and return ($retval,$retcard,$retuserid); |
1415 |
} |
1415 |
} |