903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
|
"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:get-run-status db run-id)
(let ((res "n/a"))
(sqlite3:for-each-row
(lambda (status)
(set! res status))
db
|
|
>
>
|
|
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 #!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
|