@@ -30,15 +30,14 @@ our @EXPORT_OK = qw/
|
||||
/;
|
||||
our %EXPORT_TAGS = ( all => \@EXPORT_OK );
|
||||
|
||||
# this can take a few seconds - only do it once
|
||||
our $fqdn = hostfqdn || 'localhost';
|
||||
|
||||
sub _getsome {
|
||||
my ($num_slots, $where) = @_;
|
||||
return () if ((!defined $num_slots) or ($num_slots < 1));
|
||||
return () if ((!defined $where) or (ref {} ne ref $where));
|
||||
|
||||
my $fqdn = hostfqdn || 'localhost';
|
||||
my $jobs = schema('netdisco')->resultset('Admin');
|
||||
|
||||
my $rs = $jobs->search({
|
||||
status => 'queued',
|
||||
device => { '-not_in' =>
|
||||
@@ -72,6 +71,7 @@ sub jq_getsomep {
|
||||
}
|
||||
|
||||
sub jq_locked {
|
||||
my $fqdn = hostfqdn || 'localhost';
|
||||
my @returned = ();
|
||||
|
||||
my $rs = schema('netdisco')->resultset('Admin')
|
||||
@@ -112,6 +112,7 @@ sub _get_denied_actions {
|
||||
}
|
||||
|
||||
sub jq_prime_skiplist {
|
||||
my $fqdn = hostfqdn || 'localhost';
|
||||
my @devices = schema('netdisco')->resultset('Device')->all;
|
||||
my $rs = schema('netdisco')->resultset('DeviceSkip');
|
||||
my %actionset = ();
|
||||
@@ -135,6 +136,7 @@ sub jq_prime_skiplist {
|
||||
|
||||
sub jq_lock {
|
||||
my $job = shift;
|
||||
my $fqdn = hostfqdn || 'localhost';
|
||||
my $happy = false;
|
||||
|
||||
# need to handle device discovered since backend daemon started
|
||||
@@ -183,6 +185,7 @@ sub jq_lock {
|
||||
|
||||
sub jq_defer {
|
||||
my $job = shift;
|
||||
my $fqdn = hostfqdn || 'localhost';
|
||||
my $happy = false;
|
||||
|
||||
# note this taints all actions on the device. for example if both
|
||||
|
||||
Reference in New Issue
Block a user