From 1fc376ca986ea96dc9012ae383117ba8d75c2fc0 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Ale=C5=A1=20K=C5=99enek?= Date: Thu, 18 Dec 2008 17:13:19 +0000 Subject: [PATCH] working version --- org.glite.lb.ws-test/examples/ws_getversion.pl | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/org.glite.lb.ws-test/examples/ws_getversion.pl b/org.glite.lb.ws-test/examples/ws_getversion.pl index 7b8604f..551dd5a 100755 --- a/org.glite.lb.ws-test/examples/ws_getversion.pl +++ b/org.glite.lb.ws-test/examples/ws_getversion.pl @@ -13,16 +13,18 @@ $ENV{HTTPS_CA_FILE}= $ENV{HTTPS_CERT_FILE} = $ENV{HTTPS_KEY_FILE} = $srv = shift; $c = SOAP::Lite - -> proxy("$srv/lb") - -> uri('http://glite.org/wsdl/services/lb'); + -> uri('http://glite.org/wsdl/services/lb') + -> proxy("$srv/lb") ; + # TODO: replace with $srv/lb/?wsdl once it works service $c 'http://egee.cesnet.cz/en/WSDL/HEAD/LB.wsdl'; + ns $c 'http://glite.org/wsdl/elements/lb'; on_fault $c sub { print Dumper($_[1]->fault); $fault = 1; }; -$resp = uuGetVersion $c; +$resp = GetVersion $c; -print Dumper($resp); +print $resp->result,"\n"; -- 1.8.2.3