33 lines
908 B
Perl
33 lines
908 B
Perl
package App::Netdisco::Worker::Plugin::Discover::Hooks;
|
|
|
|
use Dancer ':syntax';
|
|
use App::Netdisco::Worker::Plugin;
|
|
use aliased 'App::Netdisco::Worker::Status';
|
|
|
|
use App::Netdisco::Util::Worker;
|
|
use App::Netdisco::Util::Permission qw/check_acl_no check_acl_only/;
|
|
|
|
register_worker({ phase => 'late' }, sub {
|
|
my ($job, $workerconf) = @_;
|
|
my $count = 0;
|
|
|
|
foreach my $conf (@{ setting('hooks') }) {
|
|
my $no = ($conf->{'filter'}->{'no'} || []);
|
|
my $only = ($conf->{'filter'}->{'only'} || []);
|
|
|
|
next if check_acl_no( $job->device, $no );
|
|
next unless check_acl_only( $job->device, $only);
|
|
|
|
$count += queue_hook('new_device', $conf)
|
|
if vars->{'new_device'} and $conf->{'event'} eq 'new_device';
|
|
|
|
$count += queue_hook('discover', $conf)
|
|
if $conf->{'event'} eq 'discover';
|
|
}
|
|
|
|
return Status
|
|
->info(sprintf ' [%s] hooks - %d queued', $job->device, $count);
|
|
});
|
|
|
|
true;
|