Changeset 213 for trunk/klask

Timestamp:

Feb 18, 2017, 2:16:19 PM (7 years ago)

Author:

g7moreau

Message:

• Begin reverse name port search. Command status with port named and not numeric

File:

• trunk/klask (modified) (3 diffs)

trunk/klask

@@ -776 +776 @@
    }
 
+# Reverse search port number
+sub snmp_get_switchport_num {
+   my ($snmp_session, $swport_hr, $verbose) = @_;
+
+   my $swport_num = $swport_hr;
+   return $swport_num if $swport_num =~ m/^\d+$/; # direct return if already numeric
+
+   my $research_index = $OID_NUMBER{ifIndex}; # base OID
+   my @args = ( -varbindlist =>  [$research_index]);
+   LOOP_OID_PORT:
+   while ( defined $snmp_session->get_next_request(@args) ) {
+      my ($oid_current) = $snmp_session->var_bind_names;
+      last if  not Net::SNMP::oid_base_match($research_index, $oid_current);
+      
+      my $port_ifIndex = $snmp_session->var_bind_list->{$oid_current};
+      my ($port_index) = reverse split /\./, $oid_current; # last number
+      printf "PORT1: %s => %s\n", $oid_current, $port_ifIndex if $verbose;
+
+      # prepare next loop
+      @args = (-varbindlist => [$oid_current]);
+      
+      my $oid_ifName = $OID_NUMBER{ifName} .'.'. $port_ifIndex;
+      my $result = $snmp_session->get_request(-varbindlist => [$oid_ifName]);
+      next LOOP_OID_PORT if not defined $result;
+      
+      my $current_port_hr = get_port_human_readable_short($result->{$oid_ifName});
+      printf "PORT2: $oid_ifName => $current_port_hr\n" if $verbose;
+      if ( $current_port_hr =~ m/^$swport_hr$/i ) {
+         print "PORT3: $current_port_hr <-> $swport_hr\n" if $verbose;
+         $swport_num = $port_index;
+         last LOOP_OID_PORT;
+         }
+      }
+   return $swport_num;
+   }
+
+#   $research_index = $OID_NUMBER{ifName}; # base OID
+#   @args = ( -varbindlist =>  [$research_index]);
+#   while ( defined $snmp_session->get_next_request(@args) ) {
+#      my ($oid_current) = $snmp_session->var_bind_names;
+#      last if not Net::SNMP::oid_base_match($research_index, $oid_current);
+#      my $current_port_hr = get_port_human_readable_short($snmp_session->var_bind_list->{$oid_current});
+ #     printf "%s => %s\n", $oid_current, $current_port_hr;  # if $verbose;
+#      if ( $current_port_hr =~ m/$swport_hr/i ) {
+#         print "FIND PORT $current_port_hr  -- $swport_h\n";
+#         last
+#         }
+#      @args = (-varbindlist => [$oid_current]);
+#      }
+#   return;
+
+#   my $result_index = $snmp_session->get_bulk_request(
+#      -maxrepetitions   => 10,
+#      -varbindlist => [$research_index]
+ #     );
+#   my $swifindex = $swport;
+#   $swifindex = $result_index->{$research_index} if defined $result_index;
+#
+#   my $research_hr = $OID_NUMBER{ifName} .'.'. $swifindex;
+#   my $result_hr = $snmp_session->get_request(
+#      -varbindlist => [$research_hr]
+#      );
+#   my $swport_hr = $swport;
+#   $swport_hr = get_port_human_readable_short($result_hr->{$research_hr}) if defined $result_hr;
+#   return $swport_hr;
+#   }
+
 # Load computer database
 sub computerdb_load {
@@ -2038 +2105 @@
       -varbindlist => [$search_portstatus, INTEGER, 2],
       );
+   print $session->error()."\n" if $session->error_status();
 
    $session->close;
@@ -2065 +2133 @@
       }
 
-   my $search_portstatus = $OID_NUMBER{'portUpDown'} .'.'. $port;
-   print "Info: switch $switch_name port $port SNMP OID $search_portstatus\n" if $verbose;
-
    my $sw = $SWITCH_DB{$switch_name};
    my ($session, $error) = Net::SNMP->session( %{$sw->{snmp_param_session}} );
    print "$error \n" if $error;
+
+   # Retrieve numeric port value
+   my $port_num = snmp_get_switchport_num($session, $port, $verbose ? 'yes' : '');
+   die "Error : Port $port not exist on switch $switch_name\n" if $port_num =~ m/^\d+$/;
+
+   my $search_portstatus = $OID_NUMBER{'portUpDown'} .'.'. $port_num;
+   print "Info: switch $switch_name port $port ($port_num) SNMP OID $search_portstatus\n" if $verbose;
 
    my $result = $session->get_request(