oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Work towards having Spectre::Workflow::getJsonStatus return information about

Browse source 
all sites, needed for munging workflow monitoring into wremonitor.pl.
This commit is contained in:
Chris Nehren 2007-11-02 18:08:20 +00:00
parent c7334e2b22
commit 3e2bad5cb4
2 changed files with 100 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lib/Spectre/Workflow.pm
View file

@ -274,7 +274,7 @@ sub getJsonStatus {
my ($sitename, $rsvp) = @$request;
# only return this site's info
return $kernel->call(IKC=>post=>$rsvp, '{}') unless $sitename;
#return $kernel->call(IKC=>post=>$rsvp, '{}') unless $sitename;
my %queues = ();
tie %queues, 'Tie::IxHash';
@ -283,17 +283,26 @@ sub getJsonStatus {
Waiting => $self->getWaitingQueue,
Running => $self->getRunningQueue,
);
my %output = ();
foreach my $queueName (keys %queues) {
for my $queueName (keys %queues) {
my $queue = $queues{$queueName};
my $count = $queue->get_item_count;
my @instances;
if ($count > 0) {
foreach my $itemAref ($queue->peek_items(sub { shift()->{sitename} eq $sitename })) {
push @instances, $itemAref;
for my $queueItem ($queue->peek_items(sub {1})) {
my($priority, $id, $instance) = @{$queueItem};
# it's not a hash ref, we haven't seen it yet
if(ref $output{$instance->{sitename}} ne 'HASH') {
$output{$instance->{sitename}} = {};
}
# it's not an array ref, we haven't seen it yet
if(ref $output{$instance->{sitename}}{$queueName} ne 'ARRAY') {
$output{$instance->{sitename}}{$queueName} = [];
}
$instance->{originalPriority} = ($instance->{priority} - 1) * 10;
push @{$output{$instance->{sitename}}{$queueName}}, $instance;
}
}
$output{$queueName} = \@instances;
}
$kernel->call(IKC=>post=>$rsvp, objToJson(\%output));