Overview
| Comment: | Automated merge of v1.63/c16914fba9/integ into integ-home |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | integ-home |
| Files: | files | file ages | folders |
| SHA1: |
7afe215e9bdef062d1d2f5782bc783c7 |
| User & Date: | matt on 2016-12-15 12:40:28 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-12-16
| ||
| 13:22 | Automated merge of v1.63/473da90c19/integ into integ-home check-in: 69d0abc279 user: matt tags: integ-home | |
|
2016-12-15
| ||
| 12:40 | Automated merge of v1.63/c16914fba9/integ into integ-home check-in: 7afe215e9b user: matt tags: integ-home | |
| 12:01 | fixed bug where server start storm appears in envqa check-in: c16914fba9 user: bjbarcla tags: v1.63 | |
| 10:04 | Automated merge of v1.63/5f543006c5/integ into integ-home check-in: 30a74844eb user: matt tags: integ-home | |
Changes
Modified tasks.scm from [ae98efc45e] to [5534894005].
| ︙ | ︙ | |||
321 322 323 324 325 326 327 |
(let* ((header (list "id" "hostname" "pid" "interface" "port" "pubport" "state" "run_id" "priority" "start_time"))
(selstr (string-intersperse header ","))
(res '()))
(sqlite3:for-each-row
(lambda (a . b)
(set! res (cons (apply vector a b) res)))
mdb
| | < > | 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 |
(let* ((header (list "id" "hostname" "pid" "interface" "port" "pubport" "state" "run_id" "priority" "start_time"))
(selstr (string-intersperse header ","))
(res '()))
(sqlite3:for-each-row
(lambda (a . b)
(set! res (cons (apply vector a b) res)))
mdb
(conc "SELECT " selstr " FROM servers WHERE state in ('available','running','dbprep') ORDER BY start_time DESC;")
)
(vector header res)))
(define (tasks:get-server mdb run-id #!key (retries 10))
(let ((res #f)
(best #f))
(handle-exceptions
exn
|
| ︙ | ︙ |