From: Aleš Křenek <ljocha@ics.muni.cz>
Date: Thu, 18 Dec 2008 17:19:50 +0000 (+0000)
Subject: - check for required version of SOAP::Lite
X-Git-Tag: test_tag~14
X-Git-Url: http://scientific.zcu.cz/git/?a=commitdiff_plain;h=d47d6a12618c95728e752f9b2807b9d969a727b8;p=jra1mw.git

- check for required version of SOAP::Lite
- print usage
---

diff --git a/org.glite.lb.ws-test/examples/ws_getversion.pl b/org.glite.lb.ws-test/examples/ws_getversion.pl
index 551dd5a..8cd80c3 100755
--- a/org.glite.lb.ws-test/examples/ws_getversion.pl
+++ b/org.glite.lb.ws-test/examples/ws_getversion.pl
@@ -1,6 +1,8 @@
 #!/usr/bin/perl
 
-use SOAP::Lite; # +trace; 
+# version known to support enough from document/literal to work
+use SOAP::Lite 0.69;
+
 use Data::Dumper;
 
 $ENV{HTTPS_CA_DIR}='/etc/grid-security/certificates';
@@ -9,9 +11,11 @@ $ENV{HTTPS_VERSION}='3';
 $ENV{HTTPS_CA_FILE}= $ENV{HTTPS_CERT_FILE} = $ENV{HTTPS_KEY_FILE} =
 	$ENV{X509_USER_PROXY} ? $ENV{X509_USER_PROXY} : "/tmp/x509up_u$<";
 
+die "usage: $0 https://server:port\n" unless $#ARGV == 0;
 
 $srv = shift;
 
+
 $c = SOAP::Lite
 	-> uri('http://glite.org/wsdl/services/lb')
 	-> proxy("$srv/lb") ;