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

- fix: spectre

Browse source 
- fix: Spectre tries to delete the same workflow instance twice
 - Fixed part of the Spectre memory leak. See gotcha.txt for details.
This commit is contained in:
JT Smith 2006-07-20 00:55:05 +00:00
parent ac953d2043
commit 35e0a63262
10 changed files with 93 additions and 50 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lib/WebGUI/Workflow/Spectre.pm
View file

@ -69,21 +69,23 @@ A scalar, array reference, or hash reference of data to pass to Spectre.
sub notify {
my $self = shift;
my $module = shift;
my $params = shift;;
my $params = shift;
my ($config, $error) = $self->session->quick("config", "errorHandler");
my $remote = create_ikc_client(
port=>$self->session->config->get("spectrePort"),
ip=>$self->session->config->get("spectreIp"),
port=>$config->get("spectrePort"),
ip=>$config->get("spectreIp"),
name=>rand(100000),
timeout=>10
);
if (defined $remote) {
my $result = $remote->post($module, $params);
unless (defined $result) {
$self->session->errorHandler->warn("Couldn't send command to Spectre because ".$POE::Component::IKC::ClientLite::error);
$error->warn("Couldn't send command to Spectre because ".$POE::Component::IKC::ClientLite::error);
}
$remote->disconnect;
undef $remote;
} else {
$self->session->errorHandler->warn("Couldn't connect to Spectre because ".$POE::Component::IKC::ClientLite::error);
$error->warn("Couldn't connect to Spectre because ".$POE::Component::IKC::ClientLite::error);
}
}