rooty/yubico-pam
1
0
Fork 0
mirror of https://github.com/Yubico/yubico-pam.git synced 2025-02-20 21:54:16 +01:00
Code Issues Projects Releases Wiki Activity

add some debug logging to ldap and ykval mocks

Browse Source
This commit is contained in:
Klas Lindfors 2015-04-07 08:55:39 +02:00
parent fe8eb203d9
commit 0e77cffb67
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tests/aux/ldap.pl
View File

@ -67,6 +67,7 @@ sub search {
$id = $objects{'sub:base=' . $reqData->{'baseObject'} . ':(' . $match->{'attributeDesc'} . '=' . $match->{'assertionValue'} . ')'};
$base = $id->{'dn'};
}
warn "ldap search with " . $reqData->{'scope'};
my @entries;
if($id) {
my $entry = Net::LDAP::Entry->new;

1
tests/aux/ykval.pl
View File

@ -57,6 +57,7 @@ while(1) {
if($clientdata =~ m/nonce=([a-zA-Z0-9]+).*otp=([cbdefghijklnrtuv]+)/) {
my $nonce = $1;
my $otp = $2;
warn "validation for $otp (on port $port)";
if($otps{$otp}) {
my $status = $otps{$otp};
$ret .= "nonce=$nonce\n";