Variable params.

diff --git a/org.glite.jp.index/examples/pch06/query4.pl b/org.glite.jp.index/examples/pch06/query4.pl
index a8de934..2d68178 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 [PROGRAMS] 2>/dev/null
+#   ./query4.pl [PROGRAMS [PARAMS]] 2>/dev/null
 #
 
 use strict;
@@ -19,7 +19,7 @@ my $ps=$pch::ps;
 my $is=$pch::is;
 my %program_names=(align_warp => 1);
 my $program_params='-m 12';
-my $runday=1;
+my $runday=3;
 #my $runday=4;
 my @attributes = ("$pch::jpsys:jobId", @pch::view_attributes);
 
@@ -37,6 +37,9 @@ if ($#ARGV + 1 >= 1) {
                $program_names{$_} = 1;
        }
 }
+if ($#ARGV + 1 >= 2) {
+       $program_params=$ARGV[1];
+}
 
 
 #

diff --git a/org.glite.jp.index/examples/pch06/query6.pl b/org.glite.jp.index/examples/pch06/query6.pl
index 705375b..d1dd195 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 [PROGRAMS] [END_PROGRAMS] 2>/dev/null
+#   ./query6.pl [PROGRAMS [END_PROGRAMS] [PARAM] ]2>/dev/null
 #
 
 use strict;
@@ -47,6 +47,9 @@ if ($#ARGV + 1 >= 2) {
                $end_program_names{$_} = 1;
        }
 }
+if ($#ARGV + 1 >= 3) {
+       $program_param=$ARGV[2];
+}
 
 #
 # find out processes with given name and parameters