funkce getClientInfo presunuta do WardenClient.pm

src/warden-client/lib/WardenClientCommon.pm

@@ -132,39 +132,6 @@ sub c2s
 }
 
 
-#-------------------------------------------------------------------------------
-# getClientInfo - retrieve information about other clients from Warden server
-#-------------------------------------------------------------------------------
-sub getClientInfo
-{
-  # obtain information about clients on Warden server
-  my $response = c2s("getClientInfo");
-  defined $response or return; # receive data or return undef     
-
-  # parse server response (SOAP data object)
-  my @clients;
-  my @response_list = $response->valueof('/Envelope/Body/getClientInfoResponse/client/');
-
-  while (scalar @response_list) {
-    my $response_data = shift(@response_list);
-    my %client;
-    $client{'client_id'}		= $response_data->{'CLIENT_ID'} ;
-    $client{'hostname'}			= $response_data->{'HOSTNAME'};
-    $client{'registered'}		= $response_data->{'REGISTERED'};
-    $client{'requestor'}		= $response_data->{'REQUESTOR'};
-    $client{'service'}	 		= $response_data->{'SERVICE'};
-    $client{'client_type'}		= $response_data->{'CLIENT_TYPE'};
-    $client{'type'}			= $response_data->{'TYPE'};
-    $client{'receive_own_events'}	= $response_data->{'RECEIVE_OWN_EVENTS'};
-    $client{'description_tags'}		= $response_data->{'DESCRIPTION_TAGS'};
-    $client{'ip_net_client'}		= $response_data->{'IP_NET_CLIENT'};
-    push (@clients,\%client);
-  }
-
-  return @clients;
-}  # End of getClientInfo
-
-
 #-------------------------------------------------------------------------------
 # loadConf - load configuration file
 #-------------------------------------------------------------------------------