diff --git a/src/warden-server/lib/WardenStatus.pm b/src/warden-server/lib/WardenStatus.pm index bf219703b5dfc2b54d16be3892ad24cc5e7240cd..e7840c2fdf882e94af122c1e2b3d94c5c60d4c88 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;