From 5c30666672f438680469a53f1f17843968b3ce22 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Franti=C5=A1ek=20Dvo=C5=99=C3=A1k?= <valtri@civ.zcu.cz>
Date: Fri, 22 Jun 2007 15:25:26 +0000
Subject: [PATCH] Variable params.

---
 org.glite.jp.index/examples/pch06/query4.pl | 7 +++++--
 org.glite.jp.index/examples/pch06/query6.pl | 5 ++++-
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/org.glite.jp.index/examples/pch06/query4.pl b/org.glite.jp.index/examples/pch06/query4.pl
index a8de934..2d68178 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 [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
--- 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
-- 
1.8.2.3