From 0e77cffb6786b06d7ff83f40d4f697becdefe95a Mon Sep 17 00:00:00 2001
From: Klas Lindfors <klas@yubico.com>
Date: Tue, 7 Apr 2015 08:55:39 +0200
Subject: [PATCH] add some debug logging to ldap and ykval mocks

---
 tests/aux/ldap.pl  | 1 +
 tests/aux/ykval.pl | 1 +
 2 files changed, 2 insertions(+)

diff --git a/tests/aux/ldap.pl b/tests/aux/ldap.pl
index c05b369..169d5fe 100755
--- a/tests/aux/ldap.pl
+++ b/tests/aux/ldap.pl
@@ -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;
diff --git a/tests/aux/ykval.pl b/tests/aux/ykval.pl
index bc64da1..a766689 100755
--- a/tests/aux/ykval.pl
+++ b/tests/aux/ykval.pl
@@ -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";