89b8f8c0ce
* allow the use of base snmp::info * dont use . * should have been: dont use $_ * also document some extra features * reword
40 lines
1.0 KiB
Perl
40 lines
1.0 KiB
Perl
package App::Netdisco::Worker::Plugin::Show;
|
|
|
|
use Dancer ':syntax';
|
|
use App::Netdisco::Worker::Plugin;
|
|
use aliased 'App::Netdisco::Worker::Status';
|
|
|
|
use Data::Printer ();
|
|
use App::Netdisco::Transport::SNMP;
|
|
|
|
register_worker({ phase => 'check' }, sub {
|
|
return Status->error('Missing device (-d).')
|
|
unless defined shift->device;
|
|
return Status->done('Show is able to run');
|
|
});
|
|
|
|
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 $i = App::Netdisco::Transport::SNMP->reader_for($device, $class);
|
|
my $result = sub { eval { $i->$extra($port) } || undef };
|
|
Data::Printer::p( $result->() );
|
|
|
|
return Status->done(
|
|
sprintf "Showed %s response from %s", $extra, $device->ip);
|
|
});
|
|
|
|
true;
|