From edb76a2547a963c6c9e2f7e7e08adbc492f482ef Mon Sep 17 00:00:00 2001
From: =?utf8?q?Ale=C5=A1=20K=C5=99enek?= <ljocha@ics.muni.cz>
Date: Wed, 26 Mar 2008 16:04:06 +0000
Subject: [PATCH] working example

---
 org.glite.lb.client/examples/user-jobs.pl | 35 +++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100755 org.glite.lb.client/examples/user-jobs.pl

diff --git a/org.glite.lb.client/examples/user-jobs.pl b/org.glite.lb.client/examples/user-jobs.pl
new file mode 100755
index 0000000..63295a7
--- /dev/null
+++ b/org.glite.lb.client/examples/user-jobs.pl
@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+
+use SOAP::Lite;
+use Data::Dumper;
+
+$ENV{HTTPS_CA_DIR}='/etc/grid-security/certificates';
+$ENV{HTTPS_VERSION}='3';
+
+$proxy = $ENV{X509_USER_PROXY} ? $ENV{X509_USER_PROXY} : "/tmp/x509up_u$<";
+$ENV{HTTPS_CERT_FILE}= $ENV{HTTPS_KEY_FILE} = $ENV{HTTPS_CA_FILE} = $proxy;
+
+$server = shift or die "usage: $0 server\n";
+
+$c = SOAP::Lite
+	-> proxy($server) -> uri('http://glite.org/wsdl/services/lb');
+
+service $c 'http://egee.cesnet.cz/cms/export/sites/egee/en/WSDL/HEAD/LB.wsdl';
+ns $c 'http://glite.org/wsdl/elements/lb';
+
+on_fault $c sub { print Dumper($_[1]->fault); $fault = 1; };
+
+$resp = UserJobs $c;
+$body = $resp->body();
+
+# print Dumper $resp->body();
+
+unless ($fault) {
+	$njobs = $#{$body->{UserJobsResponse}->{jobs}};
+	for ($i = 0; $i < $njobs; $i++) {
+		print "$body->{UserJobsResponse}->{jobs}->[$i]\t",
+		      $body->{UserJobsResponse}->{states} ? $body->{UserJobsResponse}->{states}->[$i]->{state} : '',
+		      "\n";
+	}
+}
+
-- 
1.8.2.3