aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xcapibarra6
1 files changed, 5 insertions, 1 deletions
diff --git a/capibarra b/capibarra
index 90189c1..ff771e6 100755
--- a/capibarra
+++ b/capibarra
@@ -1,4 +1,8 @@
#!/usr/bin/env perl
+#
+# Dependencies: iproute2 iw volctl
+#
+################################################################################
use strict;
use warnings;
@@ -24,7 +28,7 @@ sub pango_onoff($txt, $on) {
sub render_iface($is_wireless, $name, $status, $addr) {
my $extra = '';
$extra .= " $addr" if $addr;
- if ($is_wireless) {
+ if ($is_wireless and $status eq 'UP') {
my ($ssid) = `iw dev $name link` =~ /SSID: ([^\n]*).*/;
my ($dbm) = `iw dev $name link` =~ /signal: ([0-9-]+ dBm)/;
$extra .= ' (' . $ssid . ', ' . $dbm . ')';