#729 Discovery partially fails on invalid indexes

Changes

@@ -1,3 +1,9 @@
+2.046000 - 2020-06-29
+
+  [BUG FIXES]
+
+  * #729 Discovery partially fails on invalid indexes
+
 2.045007 - 2020-06-05
 
   [BUG FIXES]

lib/App/Netdisco/Worker/Plugin/Discover/Entities.pm

@@ -72,7 +72,15 @@ register_worker({ phase => 'main', driver => 'snmp' }, sub {
   # build device modules list for DBIC
   my (@modules, %seen_idx);
   foreach my $entry (keys %$e_index) {
+      next unless defined $e_index->{$entry};
       next if $seen_idx{ $e_index->{$entry} }++;
+
+      if ($e_index->{$entry} !~ m/^[0-9]+$/) {
+          debug sprintf ' [%s] modules - index %s is not an integer',
+            $device->ip, $e_index->{$entry};
+          next;
+      }
+
       push @modules, {
           index  => $e_index->{$entry},
           type   => $e_type->{$entry},

lib/App/Netdisco/Worker/Plugin/Discover/PortProperties.pm

@@ -102,13 +102,21 @@ register_worker({ phase => 'main', driver => 'snmp' }, sub {
   }
 
   foreach my $idx (keys %$interfaces) {
+    next unless defined $idx;
     my $port = $interfaces->{$idx} or next;
+
     if (!defined $device_ports->{$port}) {
         debug sprintf ' [%s] properties/ifindex - local port %s already skipped, ignoring',
           $device->ip, $port;
         next;
     }
 
+    if ($idx !~ m/^[0-9]+$/) {
+        debug sprintf ' [%s] properties/ifindex - port %s ifindex %s is not an integer',
+          $device->ip, $port, $idx;
+        next;
+    }
+
     $properties{ $port }->{ifindex} = $idx;
   }