diff --git a/src/warden-client/lib/WardenClientCommon.pm b/src/warden-client/lib/WardenClientCommon.pm index 9dcfa645ddd6622736e5c2c735dfa617bdc07626..26688a0366bb201559c29b5107409d1abbcd336d 100755 --- a/src/warden-client/lib/WardenClientCommon.pm +++ b/src/warden-client/lib/WardenClientCommon.pm @@ -140,14 +140,14 @@ sub getClientsInfo WardenClientConf::loadConf($conf_file); # c2s() returns undef on fail - my $response = c2s($WardenClientConf::URI, $WardenClientConf::SSL_KEY_FILE, $WardenClientConf::SSL_CERT_FILE, $WardenClientConf::SSL_CA_FILE, "getClients"); + my $response = c2s($WardenClientConf::URI, $WardenClientConf::SSL_KEY_FILE, $WardenClientConf::SSL_CERT_FILE, $WardenClientConf::SSL_CA_FILE, "getClientInfo"); defined $response or return; # receive data or return undef # parse returned SOAP data object with clients 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/getClientInfoResponse/client/'); while (scalar @response_list) { my $response_data = shift(@response_list);