yaptest-ident-user-enum.pl

#!/usr/bin/env perl
use strict;
use warnings;
use POSIX;
use yaptest;
use Getopt::Long;
use File::Basename;

my $run = 0;
my $max_processes = 5;
my $help = 0;
my $script_name = basename($0);
my $usage = "Usage: $script_name
Runs ident-user-enum.pl on open TCP ports (found from backend database).

ident-user-enum.pl is required to be in the path.
";
die $usage if shift;
my $commit = 1;
my $verbose = 1;
my $y = yaptest->new();

$y->run_test (
	command => "ident-user-enum.pl ::IP:: ::PORTLIST-SPACE::",
	host_filter => { port => 113 },
	filter => { transport_protocol => 'TCP' },
	parallel_processes => $max_processes,
	output_file => "ident-::IP::.out",
	inactivity_timeout => 90,
	parser => 'yaptest-parse-ident-user-enum.pl'
);