+ my $len = $stat->{$ap}->{$bss}->{signal} || die "no signal in ",dump($stat->{$ap}->{$bss});
+ $len =~ s/ \w+//;
+ $len = abs($len);
+ if ( $stat->{$ap}->{$bss}->{SSID} =~ m/eduroam/i && $freq =~ m/^24/ && $len < 90 ) { # FIXME
+ $freq_count->{$freq}++;
+ printf $dot qq| %s -> %s:%s [ len = %d, label = "%s" ];\n|,
+ _dot($ap),_dot($remote),$freq, $len, $len;
+ }
+ $ap_freq->{ $remote }->{local}->{$freq}++;