tcl/JobDB: Provide jobdb::read-runvar

Provide this in both variants.  No caller yet so no functional change.

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

diff --git a/tcl/JobDB-Executive.tcl b/tcl/JobDB-Executive.tcl
index 7dba49720879b0b0adf720f1788915beaf2a6a07..6775f8560f6dcd821396b3b3ee60b34c9914253d 100644 (file)
--- a/tcl/JobDB-Executive.tcl
+++ b/tcl/JobDB-Executive.tcl
@@ -66,6 +66,20 @@ proc job-set-status {flight job st} {
     }
 }
 
+proc read-runvar {flight job name {val {}}} {
+    transaction {} {
+       db-execute-array runvarinfo "
+           SELECT val FROM runvars
+            WHERE flight = [pg_quote $flight]
+              AND job = [pg_quote $job]
+              AND name = [pg_quote $name]
+        " {
+           set val $runvarinfo(val)
+       }
+    }
+    return $val
+}
+
 proc set-flight {} {
     global flight argv env
 

diff --git a/tcl/JobDB-Standalone.tcl b/tcl/JobDB-Standalone.tcl
index d7d842294ecfd218f249e211f48b568cb2ce46eb..2d8b319c6fc0e891cde4818c28d4f93297e72e30 100644 (file)
--- a/tcl/JobDB-Standalone.tcl
+++ b/tcl/JobDB-Standalone.tcl
@@ -44,6 +44,19 @@ proc job-set-status {flight job st} {
     }
 }
 
+proc read-runvar {flight job name {val {}}} {
+    ensure-db-open
+    osstestdb eval {
+       SELECT val FROM runvars
+         WHERE flight = $flight
+           AND job = $job
+           AND name = $name
+    } runvarinfo {
+       set val $runvarinfo($val)
+    }
+    return $val
+}
+
 proc ensure-db-open {} {
     global c
     if {![catch { osstestdb version }]} { return }