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