235
236
237
238
239
240
241
242
243
244
245
246
247
248
|
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
|
+
+
+
+
+
+
|
(rpc:publish-procedure!
'rtests:test-set-status!
(lambda (test-id state status comment dat)
(set! *last-db-access* (current-seconds))
(test-set-status! db test-id state status comment dat)))
(rpc:publish-procedure!
'rtests:test-set-toplog!
(lambda (run-id test-name logf)
(set! *last-db-access* (current-seconds))
(test-set-toplog! db run-id test-name logf)))
;;======================================================================
;; end of publish-procedure section
;;======================================================================
(set! *rpc:listener* rpc:listener)
(on-exit (lambda ()
(sqlite3:execute db "DELETE FROM metadat WHERE var='SERVER' and val=?;" host:port)
|