From d47d6a12618c95728e752f9b2807b9d969a727b8 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Ale=C5=A1=20K=C5=99enek?= Date: Thu, 18 Dec 2008 17:19:50 +0000 Subject: [PATCH] - check for required version of SOAP::Lite - print usage --- org.glite.lb.ws-test/examples/ws_getversion.pl | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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") ; -- 1.8.2.3