From: Aleš Křenek <ljocha@ics.muni.cz>
Date: Tue, 18 Mar 2008 11:09:18 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: merge_313_4_dst~4
X-Git-Url: http://scientific.zcu.cz/git/?a=commitdiff_plain;h=d76f4c972b85974b3250ed045fcaa108b505b281;p=jra1mw.git

*** empty log message ***
---

diff --git a/org.glite.lb.ws-interface/examples/userjobs.pl b/org.glite.lb.ws-interface/examples/userjobs.pl
new file mode 100755
index 0000000..7ce9a7a
--- /dev/null
+++ b/org.glite.lb.ws-interface/examples/userjobs.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+
+use SOAP::Lite;
+use Data::Dumper;
+use XML::LibXML;
+use XML::LibXML::XPathContext;
+
+$ENV{HTTPS_CA_DIR}='/etc/grid-security/certificates';
+$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$<";
+
+$proxy = shift or die "usage: $0 https://server.to.query:port/\n";
+
+$c = SOAP::Lite -> proxy($proxy) -> uri('http://glite.org/wsdl/services/lb');
+
+$c->service('http://egee.cesnet.cz/en/WSDL/3.1/LB.wsdl');
+$c->ns('http://glite.org/wsdl/elements/lb');
+
+$c->on_fault(sub { print Dumper($_[1]->fault); $fault = 1; });
+
+$resp = $c->UserJobs();
+
+print Dumper $resp;
+