more bug fixes...default content commit works all the way through now

This commit is contained in:
JT Smith 2006-03-19 00:48:44 +00:00
parent 0cda78d536
commit 5ee17a673f
2 changed files with 4 additions and 5 deletions

View file

@ -66,22 +66,22 @@ The module/method pair you wish to communicate with in Spectre.
=head3 params
An array of the parameters to send.
A scalar, array reference, or hash reference of data to pass to Spectre.
=cut
sub notify {
my $self = shift;
my $module = shift;
my @params = @_;
my $params = shift;;
my $remote = create_ikc_client(
port=>$self->session->config->get("spectrePort"),
ip=>$self->session->config->get("spectreIp"),
name=>rand(100000),
timeout=>10
);
if ($remote) {
my $result = $remote->post(@params);
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);
}