32 lines
889 B
Perl
32 lines
889 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({ stage => '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->defer("arpnip skipped: $device is pseudo-device")
|
|
if $device->is_pseudo;
|
|
|
|
return Status->defer("arpnip skipped: $device has no layer 3 capability")
|
|
unless $device->has_layer(3);
|
|
|
|
return Status->defer("arpnip deferred: $device is not arpnipable")
|
|
unless is_arpnipable_now($device);
|
|
|
|
return Status->done('Arpnip is able to run');
|
|
});
|
|
|
|
true;
|