From: František Dvořák <valtri@civ.zcu.cz>
Date: Fri, 22 Jun 2007 15:25:26 +0000 (+0000)
Subject: Variable params.
X-Git-Tag: glite-yaim-myproxy_R_3_1_1_3~3
X-Git-Url: http://scientific.zcu.cz/git/?a=commitdiff_plain;h=5c30666672f438680469a53f1f17843968b3ce22;p=jra1mw.git

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
--- 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