- 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 (executable)
--- 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") ;