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

- Simplified Spectre's initial data load, and reduced memory footprint in the

Browse source 
process.
This commit is contained in:
JT Smith 2007-02-01 18:48:23 +00:00
parent f140fdead4
commit b19bf14389
8 changed files with 159 additions and 73 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -11,8 +11,11 @@ package WebGUI::Operation::Spectre;
#-------------------------------------------------------------------
use strict;
use WebGUI::Utility;
use JSON;
use POE::Component::IKC::ClientLite;
use WebGUI::Utility;
use WebGUI::Workflow::Cron;
use WebGUI::Workflow::Instance;
=head1 NAME
@ -26,6 +29,60 @@ Operations for Spectre.
#-------------------------------------------------------------------
=head2 www_spectreGetSiteData ( )
Checks to ensure the requestor is who we think it is, and then returns a JSON string with worklfow and cron data. We do it in one payload for efficiency.
=cut
sub www_spectreGetSiteData {
my $session = shift;
$session->http->setMimeType("text/json");
$session->http->setCacheControl("none");
my %siteData = ();
if (!isInSubnet($session->env->get("REMOTE_ADDR"), $session->config->get("spectreSubnets"))) {
$session->errorHandler->security("make a Spectre workflow data load request, but we're only allowed to accept requests from "
.join(",",@{$session->config->get("spectreSubnets")}).".");
}
else {
my $sitename = $session->config->get("sitename")->[0];
my $gateway = $session->config->get("gateway");
my $cookieName = $session->config->getCookieName;
my @instances = ();
foreach my $instance (@{WebGUI::Workflow::Instance->getAllInstances($session)}) {
next unless $instance->getWorkflow->get("enabled");
push(@instances, {
instanceId => $instance->getId,
priority => $instance->get("priority"),
cookieName => $cookieName,
gateway => $gateway,
sitename => $sitename,
});
}
$siteData{workflow} = \@instances;
my @schedules = ();
foreach my $task (@{WebGUI::Workflow::Cron->getAllTasks($session)}) {
next unless $task->get("enabled");
push(@schedules, {
taskId => $task->getId,
cookieName => $cookieName,
gateway => $gateway,
sitename => $sitename,
minuteOfHour => $task->get('minuteOfHour'),
hourOfDay => $task->get('hourOfDay'),
dayOfMonth => $task->get('dayOfMonth'),
monthOfYear => $task->get('monthOfYear'),
dayOfWeek => $task->get('dayOfWeek'),
runOnce => $task->get('runOnce'),
});
}
$siteData{cron} = \@schedules;
}
return JSON::objToJson(\%siteData);
}
#-------------------------------------------------------------------
=head2 www_spectreTest ( )
Spectre executes this function to see if WebGUI connectivity is working.