capibarra: small fix

Signed-off-by: Guillermo Ramos <gramos@opennebula.io>

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 . ')';