Megatest

Diff
Login

Differences From Artifact [b4b6c484fd]:

To Artifact [f1965d6123]:


903
904
905
906
907
908
909
910
911




912
913
914
915
916
917
918
903
904
905
906
907
908
909


910
911
912
913
914
915
916
917
918
919
920







-
-
+
+
+
+







			    "unlocked"
			    "locked")))) ;; semi-failsafe
    (sqlite3:execute db "UPDATE runs SET state=? WHERE id=?;" newlockval run-id)
    (sqlite3:execute db "INSERT INTO access_log (user,accessed,args) VALUES(?,strftime('%s','now'),?);"
		     user (conc newlockval " " run-id))
    (debug:print-info 1 "" newlockval " run number " run-id)))

(define (db:set-run-status db run-id status)
  (sqlite3:execute db "UPDATE runs SET status=? WHERE id=?;" status run-id))
(define (db:set-run-status db run-id status #!key (msg #f))
  (if msg
      (sqlite3:execute db "UPDATE runs SET status=?,comment=? WHERE id=?;" status msg run-id)
      (sqlite3:execute db "UPDATE runs SET status=? WHERE id=?;" status run-id)))

(define (db:get-run-status db run-id)
  (let ((res "n/a"))
    (sqlite3:for-each-row 
     (lambda (status)
       (set! res status))
     db