Zmena volani z getClients na getClientInfo v ramci ukolu 609

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);