197
198
199
200
201
202
203
204
205
206
207
208
209
210
|
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
|
+
+
+
|
(if port
(open-run-close tasks:server-deregister tasks:open-db host port: port)
(open-run-close tasks:server-deregister tasks:open-db host pid: pid))
(if (null? tal)
#f
(loop (car tal)(cdr tal))))))))))
(define (tasks:remove-server-records mdb)
(sqlite3:exec mdb "DELETE FROM servers;"))
(define (tasks:mark-server hostname port pid state)
(if port
(open-run-close tasks:server-deregister tasks:open-db hostname port: port)
(open-run-close tasks:server-deregister tasks:open-db hostname pid: pid)))
(define (tasks:kill-server status hostname port pid)
|