From 98b855563573e7cd0b3aa7b1ed9532eb5c8acf30 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Fri, 15 Jul 2016 15:53:38 +0100
Subject: [PATCH] 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>
---
 tcl/JobDB-Executive.tcl  | 14 ++++++++++++++
 tcl/JobDB-Standalone.tcl | 13 +++++++++++++
 2 files changed, 27 insertions(+)

diff --git a/tcl/JobDB-Executive.tcl b/tcl/JobDB-Executive.tcl
index 7dba497..6775f85 100644
--- 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 d7d8422..2d8b319 100644
--- 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 }
-- 
2.39.5