From d76f4c972b85974b3250ed045fcaa108b505b281 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Ale=C5=A1=20K=C5=99enek?= <ljocha@ics.muni.cz>
Date: Tue, 18 Mar 2008 11:09:18 +0000
Subject: [PATCH] *** empty log message ***

---
 org.glite.lb.ws-interface/examples/userjobs.pl | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100755 org.glite.lb.ws-interface/examples/userjobs.pl

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;
+
-- 
1.8.2.3