From: Nicolas Boisselier <nicolas.boisselier@gmail.com>
Date: Sat, 25 May 2019 04:01:01 +0000 (+0100)
Subject: bin/iwtop
X-Git-Url: https://git.nbdom.net/?a=commitdiff_plain;h=ddb1777fa651d1046dc7ab6010c7d0d4e1d414ab;p=nb.git

bin/iwtop
---

diff --git a/bin/iwtop b/bin/iwtop
index 59fa6f52..00dcd760 100755
--- a/bin/iwtop
+++ b/bin/iwtop
@@ -45,8 +45,17 @@ while (<>) {
 
 }
 
+my %max;
+for my $k (keys %net) {
+	for my $field (keys %{$net{$k}}) {
+		my $len = length($net{$k}{$field});
+		$max{$k}{$field} = $len if !$max{$k}{$field} or $max{$k}{$field}<$len;
+	}
+}
+
+#die Dumper \%max,$speed_size;
 #die Dumper \%net;
-#$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 {