From 405692ab98a656249acbfe1ef2c27fb3d550ed0d Mon Sep 17 00:00:00 2001
From: Tomas Plesnik <plesnik@ics.muni.cz>
Date: Tue, 13 Jan 2015 14:40:04 +0100
Subject: [PATCH] funkce getClientInfo presunuta do WardenClient.pm
---
src/warden-client/lib/WardenClientCommon.pm | 33 ---------------------
1 file changed, 33 deletions(-)
diff --git a/src/warden-client/lib/WardenClientCommon.pm b/src/warden-client/lib/WardenClientCommon.pm
index dc55349..83d38e5 100755
--- a/src/warden-client/lib/WardenClientCommon.pm
+++ b/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
#-------------------------------------------------------------------------------
--
GitLab