From: Aleš Křenek <ljocha@ics.muni.cz>
Date: Wed, 26 Mar 2008 16:43:58 +0000 (+0000)
Subject: comments
X-Git-Tag: merge_313_4~16
X-Git-Url: http://scientific.zcu.cz/git/?a=commitdiff_plain;h=7fc3f99dae23741c1209c91b5e62e9622d88cda3;p=jra1mw.git

comments
---

diff --git a/org.glite.lb.client/examples/job-status.pl b/org.glite.lb.client/examples/job-status.pl
index e3ea58b..c5c654a 100755
--- a/org.glite.lb.client/examples/job-status.pl
+++ b/org.glite.lb.client/examples/job-status.pl
@@ -3,6 +3,8 @@
 use SOAP::Lite;
 use Data::Dumper;
 
+# see user-jobs.pl for comments on this magic
+
 $ENV{HTTPS_CA_DIR}='/etc/grid-security/certificates';
 $ENV{HTTPS_VERSION}='3';
 
@@ -15,24 +17,31 @@ $host = $1; $port = $2;
 $server = $host . ':' . ($port + 3);
 
 $c = SOAP::Lite
-	-> proxy($server) -> uri('http://glite.org/wsdl/services/lb');
+	-> 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';
+
+# we need another namespace explicitely here
 $c->serializer->register_ns('http://glite.org/wsdl/types/lb','lbtype');
 
 on_fault $c sub { print Dumper($_[1]->fault); $fault = 1; };
 
+# construct the request, see SOAP::Data docs for details
 $req = SOAP::Data->value(
 		SOAP::Data->name(jobid=>$job),
+# here the other namespace is used
 		SOAP::Data->name(flags=>'')->type('lbtype:jobFlags')
 	);
 
+# call the WS op
 $resp = JobStatus $c $req;
 $body = $resp->body();
 
 # print Dumper $resp->body();
 
+# pick something reasonable from the response to print
 unless ($fault) {
 	@fields = qw/state jobtype owner networkServer doneCode exitCode childrenNum/;
 	$stat = $resp->body()->{JobStatusResponse}->{stat};
diff --git a/org.glite.lb.client/examples/user-jobs.pl b/org.glite.lb.client/examples/user-jobs.pl
index 63295a7..2ad5d08 100755
--- a/org.glite.lb.client/examples/user-jobs.pl
+++ b/org.glite.lb.client/examples/user-jobs.pl
@@ -4,26 +4,36 @@ use SOAP::Lite;
 use Data::Dumper;
 
 $ENV{HTTPS_CA_DIR}='/etc/grid-security/certificates';
+
+# necessary to get compatible SSL handshake with the Globus server implementation
 $ENV{HTTPS_VERSION}='3';
 
+# a trick to make proxy credentials work
 $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";
 
+# initialize the server handle, wsdl, and namespace
 $c = SOAP::Lite
-	-> proxy($server) -> uri('http://glite.org/wsdl/services/lb');
+	-> 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';
 
+# setup trivial fault handler
 on_fault $c sub { print Dumper($_[1]->fault); $fault = 1; };
 
+# call the actual WS operation
 $resp = UserJobs $c;
+
 $body = $resp->body();
 
-# print Dumper $resp->body();
+# too much rubbish
+# print Dumper $body;
 
+# follow the response structure and pick just jobids and states to print
 unless ($fault) {
 	$njobs = $#{$body->{UserJobsResponse}->{jobs}};
 	for ($i = 0; $i < $njobs; $i++) {