bin/iwtop

diff --git a/bin/iwtop b/bin/iwtop
index 0d0ff167152fa55582c07d29ba27b1ebb4d03d8b..63f40df75cd6bcde98a3e2051be3601cbafac88b 100755 (executable)
--- a/bin/iwtop
+++ b/bin/iwtop
@@ -10,9 +10,10 @@ $_ = @ARGV ? ' '.join(' ',@ARGV) : '';
 my (
   $int,
   $cell,
-  %net
+  %net,
 );
 
+my $speed_size = '';
 while (<>) {
 
   /^([\w:_-]+)/ and $int = $1 and next;
@@ -27,7 +28,12 @@ while (<>) {
     $net{$k}{frequency} = $1;
     $net{$k}{channel} = $2;
   }
-  /Bit Rates: *(.*)/ and $net{$k}{speed} = $1;
+  if (/Bit Rates: *(.*)/) {
+       $net{$k}{speed} = $1;
+       #warn length($1).' <'.$1.'>' if !$speed_size or $speed_size<length($net{$k}{speed});
+       $speed_size = length($net{$k}{speed}) if !$speed_size or $speed_size<length($net{$k}{speed});
+  }
+
   if (/Quality=(\d+).100\s+Signal level=(\d+).100/) {
     $net{$k}{quality} = $1;
     $net{$k}{signal} = $2;
@@ -40,7 +46,8 @@ while (<>) {
 }
 
 #die Dumper \%net;
-my $fmt = "%5s | %17s | %9s | %2s | %10s | %3s | %3s | %s\n";
+$speed_size = 33;
+my $fmt = "%6s | %17s | %9s | %2s | %".$speed_size."s | %3s | %3s | %s\n";
 printf $fmt,'INT','MAC','FREQ','CH','SPEED','SIG','QLT','NAME';
 for my $k (sort {
   ($net{$b}{signal}||0) <=> ($net{$a}{signal}||0)