CERBERUS/nmap
1
0
Fork 0
mirror of https://github.com/nmap/nmap.git synced 2026-08-28 04:25:15 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Remove hardcoded delay in favor of waiting for a LISTEN message.

Browse source
This commit is contained in:
david 2013-08-16 08:02:57 +00:00
parent f1cfaba9e2
commit f9f8937057
1 changed files with 25 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

28
ncat/test/ncat-test.pl
View file

@ -50,10 +50,32 @@ sub ncat {
return ($pid, *OUT, *IN, *ERR);
}
sub wait_listen {
my $fh = shift;
my $timeout = shift || 0.3;
my $rd = "";
vec($rd, fileno($fh), 1) = 1;
my $partial = "";
for (;;) {
my ($n, $frag);
($n, $timeout) = select($rd, undef, undef, $timeout);
last if $n == 0;
$n = sysread($fh, $frag, $BUFSIZ);
last if (not defined($n)) || $n == 0;
$partial = $partial . $frag;
while ($partial =~ /^(.*?)\n(.*)$/s) {
my $line = $1;
$partial = $2;
if ($line =~ /^NCAT TEST: LISTEN/) {
return;
}
}
}
}
sub ncat_server {
my @ret = ncat($HOST, $PORT, "-l", @_);
# Give it a moment to start up.
select(undef, undef, undef, 0.3);
my @ret = ncat($HOST, $PORT, "--test", "-l", @_);
wait_listen($ret[3]);
return @ret;
}