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