diff options
Diffstat (limited to 'capibarra')
-rwxr-xr-x | capibarra | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -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 . ')'; |