next unless $pass;
+ my $num_nets = 0;
+
for my $net (@Config::networks) {
next if (cache_cidrlookup(inet_ntoa($saddr), $net));
$range =~ /-(.*?)$/;
my $broadcast = $1;
- print inet_ntoa($saddr), ", $dport, $size bytes => $broadcast\n";
-
$sendsock->set({
ip => {
saddr => inet_ntoa($saddr),
}
});
$sendsock->send;
+ ++$num_nets;
}
+ print inet_ntoa($saddr), ", $dport, $size bytes => ($num_nets networks)\n";
}
}