30 lines
815 B
Perl
30 lines
815 B
Perl
package App::Netdisco::Worker::Plugin::Arpnip;
|
||
|
||
use Dancer ':syntax';
|
||
use App::Netdisco::Worker::Plugin;
|
||
use aliased 'App::Netdisco::Worker::Status';
|
||
|
||
use App::Netdisco::Util::Device 'is_arpnipable_now';
|
||
|
||
register_worker({ phase => 'check' }, sub {
|
||
my ($job, $workerconf) = @_;
|
||
my $device = $job->device;
|
||
|
||
return Status->error('arpnip failed: unable to interpret device param')
|
||
unless defined $device;
|
||
|
||
return Status->error("arpnip skipped: $device not yet discovered")
|
||
unless $device->in_storage;
|
||
|
||
return Status->info("arpnip skipped: $device is not arpnipable")
|
||
unless is_arpnipable_now($device);
|
||
|
||
# support for Hooks
|
||
vars->{'hook_data'} = { $device->get_columns };
|
||
delete vars->{'hook_data'}->{'snmp_comm'}; # for privacy
|
||
|
||
return Status->done('arpnip is able to run');
|
||
});
|
||
|
||
true;
|