26 lines
798 B
Perl
26 lines
798 B
Perl
package App::Netdisco::Worker::Plugin::Internal::BackendFQDN;
|
||
|
||
use Dancer ':syntax';
|
||
use App::Netdisco::Worker::Plugin;
|
||
use aliased 'App::Netdisco::Worker::Status';
|
||
|
||
use Net::Domain 'hostfqdn';
|
||
use Scalar::Util 'blessed';
|
||
|
||
register_worker({ phase => 'check', driver => 'direct' }, sub {
|
||
my ($job, $workerconf) = @_;
|
||
my $action = $job->action or return;
|
||
|
||
# if the job is running at CLI it may need a BACKEND setting
|
||
return unless scalar grep {$_ eq $action} @{ setting('deferrable_actions') }
|
||
and not setting('workers')->{'BACKEND'};
|
||
|
||
# this can take a few seconds - only do it once
|
||
info 'resolving backend hostname...';
|
||
setting('workers')->{'BACKEND'} ||= (hostfqdn || 'fqdn-undefined');
|
||
|
||
debug sprintf 'Backend identity set to %s', setting('workers')->{'BACKEND'};
|
||
});
|
||
|
||
true;
|