135/netdisco
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

#1087 netdisco-do show handles qualified MIB leafs

Browse Source
This commit is contained in:
Oliver Gorwits
2023-08-11 10:24:05 +01:00
parent 3e883e163e
commit 21afacccc4
2 changed files with 27 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
lib/App/Netdisco/Worker/Plugin/Show.pm
View File

@@ -15,25 +15,22 @@ register_worker({ phase => 'check' }, sub {
register_worker({ phase => 'main', driver => 'snmp' }, sub {
my ($job, $workerconf) = @_;
my ($device, $port, $extra) = map {$job->$_} qw/device port extra/;
$extra ||= 'interfaces'; my $class = undef;
my @values = split /::/, $extra;
$extra = pop @values;
if (scalar(@values)) {
$class = "SNMP::Info";
foreach my $v (@values) {
last if ($v eq '');
$class = $class.'::'.$v;
}
}
my ($device, $class, $object) = map {$job->$_} qw/device port extra/;
$class = 'SNMP::Info::'.$class if $class and $class !~ m/^SNMP::Info::/;
my $snmp = App::Netdisco::Transport::SNMP->reader_for($device, $class);
my $result = sub { eval { $snmp->$extra($port) } || undef };
$object ||= 'interfaces';
my $orig_object = $object;
my ($mib, $leaf) = split m/::/, $object;
SNMP::loadModules($mib) if $mib and $leaf and $mib ne $leaf;
$object =~ s/[-:]/_/g;
my $result = sub { eval { $snmp->$object() } || undef };
Data::Printer::p( $result->() );
return Status->done(
sprintf "Showed %s response from %s", $extra, $device->ip);
sprintf "Showed %s response from %s", $orig_object, $device->ip);
});
true;