From: František Dvořák <valtri@civ.zcu.cz>
Date: Wed, 20 Jun 2007 16:10:55 +0000 (+0000)
Subject: Bugfix (no of arguments), better comments.
X-Git-Tag: glite-yaim-myproxy_R_3_1_1_3~6
X-Git-Url: http://scientific.zcu.cz/git/?a=commitdiff_plain;h=4a29c248a7cde6f827654a23454965775aca4392;p=jra1mw.git

Bugfix (no of arguments), better comments.
---

diff --git a/org.glite.jp.index/examples/pch06/query4.pl b/org.glite.jp.index/examples/pch06/query4.pl
index 3520875..a8de934 100644
--- a/org.glite.jp.index/examples/pch06/query4.pl
+++ b/org.glite.jp.index/examples/pch06/query4.pl
@@ -8,7 +8,7 @@
 # "-m 12" of align_warp) that ran on a Monday.
 #
 # call:
-#   ./query4.pl 2>/dev/null
+#   ./query4.pl [PROGRAMS] 2>/dev/null
 #
 
 use strict;
@@ -31,9 +31,9 @@ my $according_count = 0;
 $pch::debug = 0;
 my $debug = 0;
 
-if ($#ARGV + 1 > 1) {
+if ($#ARGV + 1 >= 1) {
 	%program_names = ();
-	foreach (split(/  */, $ARGV[1])) {
+	foreach (split(/  */, $ARGV[0])) {
 		$program_names{$_} = 1;
 	}
 }
diff --git a/org.glite.jp.index/examples/pch06/query5.pl b/org.glite.jp.index/examples/pch06/query5.pl
index 4394c7d..ea56063 100644
--- a/org.glite.jp.index/examples/pch06/query5.pl
+++ b/org.glite.jp.index/examples/pch06/query5.pl
@@ -8,7 +8,7 @@
 # a header file can be extracted as text using the scanheader AIR utility.
 #
 # call:
-#   ./query5.pl 2>/dev/null
+#   ./query5.pl [PROGRAMS] [END_PROGRAMS] 2>/dev/null
 #
 
 use strict;
diff --git a/org.glite.jp.index/examples/pch06/query6.pl b/org.glite.jp.index/examples/pch06/query6.pl
index 16b93ad..705375b 100644
--- a/org.glite.jp.index/examples/pch06/query6.pl
+++ b/org.glite.jp.index/examples/pch06/query6.pl
@@ -10,7 +10,7 @@
 # -m 12. 
 #
 # call:
-#   ./query6.pl 2>/dev/null
+#   ./query6.pl [PROGRAMS] [END_PROGRAMS] 2>/dev/null
 #
 
 use strict;