From a69354e4636bc9db82ccb72efa2b55e10ff65b3f Mon Sep 17 00:00:00 2001
From: Tomas Plesnik <plesnik@ics.muni.cz>
Date: Wed, 21 Mar 2012 16:55:21 +0100
Subject: [PATCH] odstraneni prebytecneho modulu
---
src/warden-server/lib/WardenStatus.pm | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/src/warden-server/lib/WardenStatus.pm b/src/warden-server/lib/WardenStatus.pm
index bf21970..e7840c2 100755
--- a/src/warden-server/lib/WardenStatus.pm
+++ b/src/warden-server/lib/WardenStatus.pm
@@ -37,7 +37,6 @@ use strict;
use SOAP::Lite;
use IO::Socket::SSL qw(debug1);
use SOAP::Transport::TCP;
-use Data::Dumper;
our $VERSION = "0.2";
@@ -116,7 +115,7 @@ sub getClients
# parse returned SOAP data object
my @clients;
my ($client_id, $hostname, $registered, $requestor, $service, $client_type, $type, $receive_own_events, $description_tags, $ip_net_client);
- my @response_list = $response->valueof('/Envelope/Body/getClientsResponse/client');
+ my @response_list = $response->valueof('/Envelope/Body/getClientsResponse/client/');
while (scalar @response_list) {
my $response_data = shift(@response_list);
my @client;
@@ -161,7 +160,7 @@ sub getStatus
#-----------------------------------------------------------------------------
# parse server status
- my @response_list = $response->valueof('/Envelope/Body/getStatusResponse/server_status');
+ my @response_list = $response->valueof('/Envelope/Body/getStatusResponse/server_status/');
my $response_data = shift(@response_list);
my $version = $response_data->{'VERSION'};
@@ -188,7 +187,7 @@ sub getStatus
#-----------------------------------------------------------------------------
# parse client status
my ($client_id, $hostname, $service, $count, $timestamp);
- @response_list = $response->valueof('/Envelope/Body/getStatusResponse/client_status');
+ @response_list = $response->valueof('/Envelope/Body/getStatusResponse/client_status/');
while (scalar @response_list) {
my $response_data = shift(@response_list);
my @client_status;
--
GitLab