Lines 1459-1465
sub checkpw {
Link Here
|
1459 |
|
1459 |
|
1460 |
my ( $dbh, $userid, $password, $query ) = @_; |
1460 |
my ( $dbh, $userid, $password, $query ) = @_; |
1461 |
if ($ldap) { |
1461 |
if ($ldap) { |
1462 |
$debug and print "## checkpw - checking LDAP\n"; |
1462 |
$debug and print STDERR "## checkpw - checking LDAP\n"; |
1463 |
my ($retval,$retcard,$retuserid) = checkpw_ldap(@_); # EXTERNAL AUTH |
1463 |
my ($retval,$retcard,$retuserid) = checkpw_ldap(@_); # EXTERNAL AUTH |
1464 |
($retval) and return ($retval,$retcard,$retuserid); |
1464 |
($retval) and return ($retval,$retcard,$retuserid); |
1465 |
} |
1465 |
} |
1466 |
- |
|
|