Changeset 123 for trunk/klask

Timestamp:

Apr 21, 2013, 10:31:57 AM (11 years ago)

Author:

g7moreau

Message:

• Error in test and close two time SNMP session...

File:

• trunk/klask (modified) (2 diffs)

trunk/klask

@@ -1518 +1518 @@
       my $research2 = $OID_NUMBER{searchPort2} . mac_address_hex_to_dec($mac_address);
       print "Klask search OID $research1 on switch $sw_name\n";
+      print "Klask search OID $research2 on switch $sw_name\n";
 
       my ($session, $error) = Net::SNMP->session( %session );
@@ -1526 +1527 @@
          );
 
-      if (not(defined $result and ($result->{$research1} ne 'noSuchInstance' or $result->{$research2} ne 'noSuchInstance'))) {
+      if (defined $result and ($result->{$research1} ne 'noSuchInstance' or $result->{$research2} ne 'noSuchInstance')) {
+         my $swport = $result->{$research1};
+         $swport = $result->{$research2} if $result->{$research1} eq 'noSuchInstance';
+         print "Klask find MAC $mac_address on switch $sw_name port $swport\n";
+         }
+      else {
          print "Klask do not find MAC $mac_address on switch $sw_name\n";
-         $session->close;
-         }
-
-      my $swport = $result->{$research1};
-      $swport = $result->{$research2} if $result->{$research1} eq 'noSuchInstance';
+         }
+
       $session->close;
-
-      print "Klask find MAC $mac_address on switch $sw_name port $swport\n";
       }
    return;