130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
|
(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
;;======================================================================
|
|
|
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
|
(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 DESC;")
res))
;;======================================================================
;; Tasks and Task monitors
;;======================================================================
|