Changeset 130 for trunk/klask

Timestamp:

May 18, 2013, 10:54:49 AM (12 years ago)

Author:

g7moreau

Message:

• Small bug in get-vlan-name, return 'empty' if no name

File:

• trunk/klask (modified) (2 diffs)

trunk/klask

@@ -1449 +1449 @@
          }
 
-      my $search_vlan_name = $OID_NUMBER{vlanName} . "$vlan_id";
+      my $search_vlan_name = $OID_NUMBER{vlanName} . ".$vlan_id";
 
       my ($session, $error) = Net::SNMP->session( %session );
@@ -1459 +1459 @@
 
       if (defined $result and $result->{$search_vlan_name} ne 'noSuchInstance') {
-         my $vlan_name = $result->{$search_vlan_name};
-         print "Klask find VLAN $vlan_id on switch $sw_name with name $swport\n";
+         my $vlan_name = $result->{$search_vlan_name || 'empty'};
+         print "Klask find VLAN $vlan_id on switch $sw_name with name $vlan_name\n";
          }
       else {