git.rot13.org Git - dell-switch/blob - wap-scan.pl

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4 use autodie;
   5 use Data::Dump qw(dump);
   6
   7 open(my $dot, '>', '/dev/shm/wap-scan.dot');
   8 print $dot qq|digraph wap {
   9
  10 |;
  11
  12 my $stat;
  13
  14 sub path2hostname {
  15         my $hostname = shift;
  16         $hostname =~ s/^.*\///;
  17         $hostname =~ s/_.*$//;
  18         return $hostname;
  19 }
  20
  21 my $mac2hostname;
  22 foreach my $link ( glob "/dev/shm/wap/*ip_link*" ) {
  23         my $hostname = path2hostname $link;
  24         open(my $fh, '<', $link);
  25         my $if;
  26         while(<$fh>) {
  27                 chomp;
  28                 if ( m/^\d+:\s(\S+):/ ) {
  29                         $if = $1;
  30                 } elsif ( m/link\/ether\s(\S+)/ ) {
  31                         push @{ $mac2hostname->{$1}->{$hostname} }, $if;
  32                 }
  33         }
  34
  35 }
  36
  37 warn "# mac2hostname = ",dump($mac2hostname);
  38
  39 foreach my $scan ( glob "/dev/shm/wap/*iw_*_scan" ) {
  40         my $hostname = path2hostname $scan;
  41
  42         open(my $fh, '<', $scan);
  43         my $bss;
  44         while(<$fh>) {
  45                 chomp;
  46                 if ( m/^BSS\s(\S+)\(on\s(\S+)\)/ ) {
  47                         $bss = $1;
  48                         $stat->{$hostname}->{$bss} = {
  49                                 #if => $2,
  50                         };
  51
  52                 } elsif ( m/^\s*(freq|signal|SSID):\s*(.+)/ ) {
  53                         $stat->{$hostname}->{$bss}->{$1} = $2;
  54                 }
  55         }
  56
  57 }
  58
  59 warn "# stat = ", dump($stat);
  60
  61 sub _dot {
  62         my $t = shift;
  63         $t =~ s/\W+/_/g;
  64         return $t;
  65 }
  66
  67 my $ap_freq;
  68 my $freq_count;
  69 my @edges;
  70
  71 foreach my $ap ( keys %$stat ) {
  72         foreach my $bss ( keys %{ $stat->{$ap} } ) {
  73                 my $freq = $stat->{$ap}->{$bss}->{freq};
  74                 if ( exists $mac2hostname->{$bss} ) {
  75                         my $remote = join(',', keys %{ $mac2hostname->{$bss} } );
  76                         print "$ap $remote ";
  77                         my $len = $stat->{$ap}->{$bss}->{signal} || die "no signal in ",dump($stat->{$ap}->{$bss});
  78                         $len =~ s/ \w+//;
  79                         $len = abs($len);
  80                         if ( $stat->{$ap}->{$bss}->{SSID} =~ m/eduroam/i && $freq =~ m/^24/ && $len < 90 ) { # FIXME
  81                                 $freq_count->{$freq}++;
  82                                 printf $dot qq| %s -> %s:%s [ len = %d, label = "%s" ];\n|,
  83                                         _dot($ap),_dot($remote),$freq, $len, $len;
  84                         }
  85                         $ap_freq->{ $remote }->{local}->{$freq}++;
  86                 } else {
  87                         $ap_freq->{ $ap }->{external}->{$freq}++;
  88                         print "$ap EXTERNAL ";
  89                 }
  90                 my $info = dump( $stat->{$ap}->{$bss} );
  91                 $info =~ s/[\n\r\s]+/ /gs;
  92                 print "$bss $info\n";
  93         }
  94 }
  95
  96 warn "# freq_count = ",dump($freq_count);
  97 warn "# ap_freq = ",dump($ap_freq);
  98
  99 foreach my $node ( sort keys %$ap_freq ) {
 100         print $dot _dot($node), ' [ shape=record, label="', $node, '|{', join('|', map { "<$_>$_ " . $ap_freq->{$node}->{local}->{$_} } sort keys %{ $ap_freq->{$node}->{local} }), '}" ];', "\n";
 101
 102 }
 103
 104 print $dot qq|
 105 }
 106 |;
 107 __END__
 108
 109 ls /dev/shm/wap/*iw_*_scan | while read file ; do
 110
 111         hostname=`echo $file | sed -e 's/^.*\///' -e 's/_.*$//'`
 112
 113         echo `egrep '(BSS|freq:|signal:|SSID:)' $file` \
 114         | sed -e 's/\n  */ /g' -e "s/ *BSS/\n## $hostname BSS/g" -e 's/ *(on \([^ ][^ ]*\)) */ \1 /g'
 115 done
 116