sg-run-job: Provide new recipe-flag facility

Individual recipes can now honour modifications requested by setting
runvars like recipe_<flag>.

No callers yet so no functional change.

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>

diff --git a/sg-run-job b/sg-run-job
index 0a3f6886ffb2f84168c5fed6caa192b8013df3f5..1355876fe3fcaa0cf0014f375adbe95df956144e 100755 (executable)
--- a/sg-run-job
+++ b/sg-run-job
@@ -160,6 +160,13 @@ proc testid_matches_globs {testid globs} {
     return 0
 }
 
+proc recipe-flag {flagname {def 0}} {
+    global flight jobinfo
+    set name "recipe_$flagname"
+    set val [jobdb::read-runvar $flight $jobinfo(job) $name $def]
+    return [regexp {true|y|1} $val]
+}
+
 #---------- test script handling ----------
 
 #   spwan-ts    IFFAIL TESTID SCRIPT-ARGS...