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

added data serialization, encryption, and ip subnet checking to spectre

Browse source
This commit is contained in:
JT Smith 2006-02-08 20:18:00 +00:00
parent 6595290272
commit 75ecd4d7f4
9 changed files with 139 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/Spectre/Admin.pm
View file

@ -48,7 +48,7 @@ Gracefully shuts down the admin interface.
sub _stop {
my ($kernel, $self) = @_[KERNEL, OBJECT];
print "Stopping WebGUI Admin...";
print "Stopping Spectre...";
undef $self;
$kernel->stop;
print "OK\n";

23
lib/Spectre/Workflow.pm
View file

@ -210,7 +210,17 @@ sub runWorker {
my $url = $job->{sitename}.'/'.$job->{gateway};
$url =~ s/\/\//\//g;
$url = "http://".$url."?op=spectre;instanceId=".$job->{instanceId};
$kernel->post( useragent => 'request', { request => HTTP::Request->new(GET => $url), response => $session->postback('workerResponse') });
my $payload = {
'do'=>'runWorkflow',
instanceId=>$job->{instanceId},
};
my $cipher = Crypt::Blowfish->new($self->{_config}->get("cryptoKey"));
my $request = HTTP::Request->new(POST => $url, Content => { op=>"spectre", payload=>$cipher->encrypt(objToJson($payload)) });
my $cookie = $self->{_cookies}{$job->{sitename}};
$request->header("Cookie","wgSession=".$cookie) if (defined $cookie);
$request->header("User-Agent","Spectre");
$request->header("X-JobId",$job->{instanceId});
$kernel->post( useragent => 'request', { request => $request, response => $session->postback('workerResponse') });
}
#-------------------------------------------------------------------
@ -247,9 +257,16 @@ This method is called when the response from the runWorker() method is received.
sub workerResponse {
my $self = $_[OBJECT];
my ($request, $response, $entry) = @{$_[ARG1]};
my $jobId = ""; # got to figure out how to get this from the request, cuz the response may die
my $jobId = $request->header("X-JobId"); # got to figure out how to get this from the request, cuz the response may die
if ($response->is_success) {
my $state = ""; # get the response
if ($response->header("Cookie") ne "") {
my $cookie = $response->header("Set-Cookie");
$cookie =~ s/wgSession=([a-zA-Z0-9\_\-]{22})/$1/;
$self->{_cookies}{$self->{_jobs}{$jobId}{sitename}} = $cookie;
}
my $cipher = Crypt::Blowfish->new($self->{_config}->get("cryptoKey"));
my $payload = jsonToObj($cipher->decrypt($response->content));
my $state = $payload->{state};
if ($state eq "continue") {
$self->suspendJob($jobId);
} elsif ($state eq "done") {