allocate one process for 50 ports

command-line paramenter is now hard limit for maximum number of parallel
scans on single IP address

diff --git a/persistant_worker.pl b/persistant_worker.pl
index 82339cd..666859d 100755 (executable)
--- a/persistant_worker.pl
+++ b/persistant_worker.pl
@@ -59,8 +59,12 @@ foreach my $ip ( keys %$poll ) {
        my $module = 'H1::' . $variant;
        my $zte = $module->new( ip => $ip );
 
+       my $ports = keys %{ $poll->{$ip} };
+       my $max_procs = ( int($ports/50) ) + 1; # one process for 50 ports
+       $max_procs = $max_processes if $max_processes < $max_procs; # hard-limit for maximum ports in parallel
+
        $driver->add_job({
-               max_processes => $max_processes,
+               max_processes => $max_procs,
                min_processes => 1,
                name            => $method,
                worker          => $worker,
@@ -115,7 +119,7 @@ foreach my $ip ( keys %$poll ) {
                ]
        });
 
-       warn "$method added\n";
+       warn "$method for $ip with $ports ports using $max_procs processes\n";
 
 }