From: Jan Pospíšil <honik@ntc.zcu.cz>
Date: Wed, 9 Dec 2009 12:56:26 +0000 (+0000)
Subject: use local WSDL and call proper function
X-Git-Tag: glite-lb-harvester_R_1_0_1_1~24
X-Git-Url: http://scientific.zcu.cz/git/?a=commitdiff_plain;h=c915ed4fd7c6ac751ab977eccc973e60bbaa9bb0;p=jra1mw.git

use local WSDL and call proper function
---

diff --git a/org.glite.lb.ws-test/examples/ws_lb4agu_GetActivityStatus.pl b/org.glite.lb.ws-test/examples/ws_lb4agu_GetActivityStatus.pl
index e3cdd36..516e2f4 100755
--- a/org.glite.lb.ws-test/examples/ws_lb4agu_GetActivityStatus.pl
+++ b/org.glite.lb.ws-test/examples/ws_lb4agu_GetActivityStatus.pl
@@ -1,7 +1,8 @@
 #!/usr/bin/perl
 
 # version known to support enough from document/literal to work
-use SOAP::Lite 0.69;
+#use SOAP::Lite 0.69;
+use SOAP::Lite;
 
 use Data::Dumper;
 
@@ -26,7 +27,7 @@ $c = SOAP::Lite
 
 
 # TODO: replace with $srv/lb/?wsdl once it works
-service $c 'LB.wsdl';
+service $c "file://$ENV{PWD}/LB.wsdl";
 
 $c->serializer->register_ns('http://glite.org/wsdl/services/lb4agu','lb4agu');
 # ns $c 'http://glite.org/wsdl/elements/lb';
@@ -37,7 +38,7 @@ $req = SOAP::Data->value(
 
 on_fault $c sub { print Dumper($_[1]->fault); $fault = 1; };
 
-$resp = $c -> JobStatus($req);
+$resp = $c -> GetActivityStatus($req);
 
 print Dumper($resp->result),"\n";