diff --git a/src/warden-client/lib/WardenClientCommon.pm b/src/warden-client/lib/WardenClientCommon.pm index 9094b5f5df6f2b481400706068c3661380a33c1e..dc55349a6f1a37911ba51a23d3061d36560e7b83 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)