We are going to make it wrong to use db-execute for SELECT statements.
Convert the two existing violation sites (providing a dummy arrayvar).
Signed-off-by: Ian Jackson <ian.jack...@eu.citrix.com>
---
sg-execute-flight | 2 +-
tcl/JobDB-Executive.tcl | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/sg-execute-flight b/sg-execute-flight
index 4e3fcf2..008e661 100755
--- a/sg-execute-flight
+++ b/sg-execute-flight
@@ -30,7 +30,7 @@ proc check {} {
jobdb::db-open
- set nqueued [jobdb::db-execute "
+ set nqueued [jobdb::db-execute-array dummy "
SELECT job FROM jobs j
WHERE j.flight = $flight
AND j.status = 'queued'
diff --git a/tcl/JobDB-Executive.tcl b/tcl/JobDB-Executive.tcl
index 239f22c..bbce6fc 100644
--- a/tcl/JobDB-Executive.tcl
+++ b/tcl/JobDB-Executive.tcl
@@ -275,7 +275,7 @@ proc become-task {comment} {
set username "[id user]@$hostname"
transaction resources {
- set nrows [db-execute "
+ set nrows [db-execute-array dummy "
UPDATE tasks
SET username = [pg_quote $username],
comment = [pg_quote $comment]
--
1.7.10.4
_______________________________________________
Xen-devel mailing list
Xen-devel@lists.xen.org
http://lists.xen.org/xen-devel
