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 (file)
--- 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 (file)
--- 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 (file)
--- 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;