124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
+
+
+
+
+
+
+
+
+
|
(sqlite3:for-each-row
(lambda (id hostname port)
(set! res (list hostname port)))
mdb
"SELECT id,hostname,port FROM servers WHERE state='live' ORDER BY start_time DESC LIMIT 1;")
res))
(define (tasks:get-all-servers mdb)
(let ((res '()))
(sqlite3:for-each-row
(lambda (id pid hostname port start-time priority state)
(set! res (cons (vector id pid hostname port start-time priority state) res)))
mdb
"SELECT id,pid,hostname,port,start_time,priority,state FROM servers ORDER BY start_time ASC;")
res))
;;======================================================================
;; Tasks and Task monitors
;;======================================================================
;;======================================================================
|