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

spectre/workflows/priorities RFE

Browse source
This commit is contained in:
James Tolley 2007-06-26 23:48:41 +00:00
parent 794da40e5c
commit 60eeebdba9
10 changed files with 556 additions and 51 deletions
Download patch file Download diff file Expand all files Collapse all files

64
lib/WebGUI/Operation/Spectre.pm
View file

@ -81,6 +81,70 @@ sub www_spectreGetSiteData {
return JSON::objToJson(\%siteData,{autoconv=>0, skipinvalid=>1});
}
#-------------------------------------------------------------------
=head2 www_spectreStatus ( )
Show information about Spectre's current workload.
=cut
sub www_spectreStatus {
my $session = shift;
return $session->privilege->adminOnly() unless $session->user->isInGroup(3);
# start to prepare the display
my $ac = WebGUI::AdminConsole->new($session, 'spectre');
my $i18n = WebGUI::International->new($session, 'Spectre');
$session->http->setCacheControl("none");
unless (isInSubnet($session->env->get("REMOTE_ADDR"), $session->config->get("spectreSubnets"))) {
$session->errorHandler->security("make a Spectre workflow runner request, but we're only allowed to accept requests from ".join(",",@{$session->config->get("spectreSubnets")}).".");
return "subnet";
}
my $remote = create_ikc_client(
port=>$session->config->get("spectrePort"),
ip=>$session->config->get("spectreIp"),
name=>rand(100000),
timeout=>10
);
if (!$remote) {
return $ac->render($i18n->get('not running'), $i18n->get('spectre'));
}
my $sitename = $session->config()->get('sitename')->[0];
my $workflowResult = $remote->post_respond('workflow/getJsonStatus',$sitename);
if (!$workflowResult) {
$remote->disconnect();
return $ac->render($i18n->get('workflow status error'), $i18n->get('spectre'));
}
my $cronResult = $remote->post_respond('cron/getJsonStatus',$sitename);
if (! defined $cronResult) {
$remote->disconnect();
return $ac->render($i18n->get('cron status error'), $i18n->get('spectre'));
}
my %data = (
workflow => jsonToObj($workflowResult),
cron => jsonToObj($cronResult),
);
my $workflowCount = @{ $data{workflow}{Suspended} } + @{ $data{workflow}{Waiting} } + @{ $data{workflow}{Running} };
my $workflowUrl = $session->url->page('op=showRunningWorkflows');
my $cronCount = keys %{ $data{cron} };
my $cronUrl = $session->url->page('op=manageCron');
my $output = $i18n->get('running').'<br/>';
$output .= sprintf $i18n->get('workflow header'), $workflowUrl, $workflowCount;
$output .= sprintf $i18n->get('cron header'), $cronUrl, $cronCount;
return $ac->render($output, $i18n->get('spectre'));
}
#-------------------------------------------------------------------
=head2 www_spectreTest ( )