mib-parser: pass through error messages

Thomas-Gelf · Dec 1, 2017 · 59a7b06 · 59a7b06
1 parent edb6197
commit 59a7b06
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/contrib/mib-parser.pl b/contrib/mib-parser.pl
@@ -29,14 +29,20 @@ BEGIN
 delete $mib->{'stream'};
 $fh->close;
 
+use JSON;
+
 unless ($r) {
-  print "Unable to parse MIB\n";
+  my $err = "Unable to parse MIB:";
+  foreach my $msg (@{$mib->{'msg'}}) {
+    $err .= ' ' . $msg->{'msg'};
+  }
+  print "$err\n";
+  #  print "Unable to parse MIB: " . join(', ', @{$mib->{'msg'}}) . "\n";
   exit(1);
 }
 
 $mib->create_tree();
 
-use JSON;
 print to_json {
    'name'    => $mib->{'name'},
    'imports' => $mib->{'imports'},