if ( m/^BSS\s(\S+)\(on\s(\S+)\)/ ) {
$bss = $1;
$stat->{$hostname}->{$bss} = {
- if => $2,
+ #if => $2,
};
} elsif ( m/^\s*(freq|signal|SSID):\s*(.+)/ ) {
return $t;
}
+my $ap_freq;
+my $freq_count;
+my @edges;
+
foreach my $ap ( keys %$stat ) {
foreach my $bss ( keys %{ $stat->{$ap} } ) {
+ my $freq = $stat->{$ap}->{$bss}->{freq};
if ( exists $mac2hostname->{$bss} ) {
my $remote = join(',', keys %{ $mac2hostname->{$bss} } );
print "$ap $remote ";
my $len = $stat->{$ap}->{$bss}->{signal} || die "no signal in ",dump($stat->{$ap}->{$bss});
$len =~ s/ \w+//;
$len = abs($len);
- printf $dot qq| %s -> %s [ len = %d ];\n|, _dot($ap),_dot($remote),$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}++;
} else {
+ $ap_freq->{ $ap }->{external}->{$freq}++;
print "$ap EXTERNAL ";
}
my $info = dump( $stat->{$ap}->{$bss} );
}
}
+warn "# freq_count = ",dump($freq_count);
+warn "# ap_freq = ",dump($ap_freq);
+
+foreach my $node ( sort keys %$ap_freq ) {
+ print $dot _dot($node), ' [ shape=record, label="', $node, '|{', join('|', map { "<$_>$_ " . $ap_freq->{$node}->{local}->{$_} } sort keys %{ $ap_freq->{$node}->{local} }), '}" ];', "\n";
+
+}
+
print $dot qq|
}
|;