Overview
| Comment: | Should be one server candidate (I think) |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.63 |
| Files: | files | file ages | folders |
| SHA1: |
81b0d79d6dab386a7269817f01f5acd0 |
| User & Date: | matt on 2017-02-02 21:53:36 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-02-03
| ||
| 14:20 | Bump version to v1.6306 check-in: f51e2586ed user: mrwellan tags: v1.63 | |
|
2017-02-02
| ||
| 22:10 | Automated merge of v1.63/81b0d79d6d/integ into integ-home check-in: caa6fe7473 user: matt tags: integ-home | |
| 21:53 | Should be one server candidate (I think) check-in: 81b0d79d6d user: matt tags: v1.63 | |
| 17:41 | Merged server-log-handshaking to v1.63 check-in: 9d4d98bcd5 user: mrwellan tags: v1.63 | |
Changes
Modified server.scm from [80b125d400] to [7d7e4242db].
| ︙ | ︙ | |||
269 270 271 272 273 274 275 |
(server:run areapath))
(hash-table-set! *server-kind-run* areapath (list (+ call-num 1)(current-seconds)))))
(define (server:start-and-wait areapath #!key (timeout 60))
(let ((give-up-time (+ (current-seconds) timeout)))
(let loop ((server-url (server:check-if-running areapath)))
(if (or server-url
| | | | 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 |
(server:run areapath))
(hash-table-set! *server-kind-run* areapath (list (+ call-num 1)(current-seconds)))))
(define (server:start-and-wait areapath #!key (timeout 60))
(let ((give-up-time (+ (current-seconds) timeout)))
(let loop ((server-url (server:check-if-running areapath)))
(if (or server-url
(> (current-seconds) give-up-time)) ;; server-url will be #f if no server available.
server-url
(let ((num-ok (length (server:get-best (server:get-list areapath)))))
(if (< num-ok 1) ;; if there are no decent candidates for servers then try starting a new one
(server:kind-run areapath))
(thread-sleep! 5)
(loop (server:check-if-running areapath)))))))
(define server:try-running server:run) ;; there is no more per-run servers ;; REMOVE ME. BUG.
(define (server:dotserver-age-seconds areapath)
|
| ︙ | ︙ |