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

more debugging on mocks

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

2
tests/aux/ldap.pl
View File

@ -97,6 +97,8 @@ $sock->listen();
my $sel = IO::Select->new($sock); my $sel = IO::Select->new($sock);
my %handlers; my %handlers;
warn "LDAP mockup started";
while (my @ready = $sel->can_read) { while (my @ready = $sel->can_read) {
foreach my $fh (@ready) { foreach my $fh (@ready) {
if ($fh == $sock) { if ($fh == $sock) {

2
tests/aux/ykval.pl
View File

@ -49,6 +49,8 @@ my $socket = new IO::Socket::INET (
Reuse => 1 Reuse => 1
) or die "Oops: $! \n"; ) or die "Oops: $! \n";
warn "YKVAL mockup started on $port";
while(1) { while(1) {
my $clientsocket = $socket->accept(); my $clientsocket = $socket->accept();
my $clientdata = <$clientsocket>; my $clientdata = <$clientsocket>;