nacteni promennych z konfiguracniho souboru klienta presunuto primo do funkce c2s

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)