my $num_nets = 0;
for my $net (@Config::networks) {
+ if ($survey) {
+ $sendsock->set({
+ ip => {
+ saddr => $Config::survey_ip,
+ daddr => $broadcast
+ },
+ udp => {
+ source => $survey_sport,
+ dest => $dport,
+ data => $data
+ }
+ });
+ $sendsock->send;
+ }
+
next if (cache_cidrlookup(inet_ntoa($saddr), $net));
my ($range) = cache_cidrrange($net);
});
$sendsock->send;
- if ($survey) {
- $sendsock->set({
- ip => {
- saddr => $Config::survey_ip,
- daddr => $broadcast
- },
- udp => {
- source => $survey_sport,
- dest => $dport,
- data => $data
- }
- });
- $sendsock->send;
- }
-
++$num_nets;
}