From 0713dd212b9a9e1a537c6a4974e3bbe42f7526f1 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:32:01 +0000
Subject: [PATCH] another working example

---
 org.glite.lb.client/examples/job-status.pl | 44 ++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100755 org.glite.lb.client/examples/job-status.pl

diff --git a/org.glite.lb.client/examples/job-status.pl b/org.glite.lb.client/examples/job-status.pl
new file mode 100755
index 0000000..e3ea58b
--- /dev/null
+++ b/org.glite.lb.client/examples/job-status.pl
@@ -0,0 +1,44 @@
+#!/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;
+
+$job = shift or die "usage: $0 jobid\n";
+$job =~ /(https:\/\/.*):([0-9]+)\/.*/ or die "$job: invalid jobid\n";
+$host = $1; $port = $2;
+$server = $host . ':' . ($port + 3);
+
+$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';
+$c->serializer->register_ns('http://glite.org/wsdl/types/lb','lbtype');
+
+on_fault $c sub { print Dumper($_[1]->fault); $fault = 1; };
+
+$req = SOAP::Data->value(
+		SOAP::Data->name(jobid=>$job),
+		SOAP::Data->name(flags=>'')->type('lbtype:jobFlags')
+	);
+
+$resp = JobStatus $c $req;
+$body = $resp->body();
+
+# print Dumper $resp->body();
+
+unless ($fault) {
+	@fields = qw/state jobtype owner networkServer doneCode exitCode childrenNum/;
+	$stat = $resp->body()->{JobStatusResponse}->{stat};
+
+	for (@fields) {
+		print "$_: $stat->{$_}\n";
+	}
+}
+
-- 
1.8.2.3