From afc5a3c6f92a98a885bc0572dd67c3491e6b13ef Mon Sep 17 00:00:00 2001
From: Tomas Plesnik <plesnik@ics.muni.cz>
Date: Tue, 13 Jan 2015 14:21:12 +0100
Subject: [PATCH] nacteni promennych z konfiguracniho souboru klienta presunuto
primo do funkce c2s
---
src/warden-client/lib/WardenClientCommon.pm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/warden-client/lib/WardenClientCommon.pm b/src/warden-client/lib/WardenClientCommon.pm
index 9094b5f..dc55349 100755
--- a/src/warden-client/lib/WardenClientCommon.pm
+++ b/src/warden-client/lib/WardenClientCommon.pm
@@ -69,6 +69,7 @@ sub c2s
my $data = shift;
my $client;
+ # parse service URI
my ($server, $port, $service) = $WardenClientCommon::URI =~ /https:\/\/(.+)\:(\d+)\/(.+)/;
# create SOAP::Transport::HTTP:Client object
@@ -137,7 +138,7 @@ sub c2s
sub getClientInfo
{
# obtain information about clients on Warden server
- my $response = c2s($WardenClientCommon::URI, $WardenClientCommon::SSL_KEY, $WardenClientCommon::SSL_CERT, $WardenClientCommon::SSL_CA_CERT, "getClientInfo");
+ my $response = c2s("getClientInfo");
defined $response or return; # receive data or return undef
# parse server response (SOAP data object)
--
GitLab