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