odstraneni prebytecneho modulu

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;