Overview
| Comment: | Added delay that *may* help server starts |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-side2 |
| Files: | files | file ages | folders |
| SHA1: |
06179e8f43e9e928baabf00d0535e26d |
| User & Date: | mrwellan on 2020-10-13 22:17:00 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-10-17
| ||
| 23:06 | Merged in side2 check-in: a33d7eb0be user: matt tags: v1.65 | |
|
2020-10-13
| ||
| 22:17 | Added delay that *may* help server starts Leaf check-in: 06179e8f43 user: mrwellan tags: v1.65-side2 | |
| 15:52 | Added info on post-hook for runs. check-in: 5deb96c7f7 user: mrwellan tags: v1.65-side2 | |
Changes
Modified server.scm from [7b2af2dc7e] to [3f245d9ff9].
| ︙ | ︙ | |||
324 325 326 327 328 329 330 331 332 333 334 335 336 337 |
;; wait for server=start-last to be three seconds old
;;
(define (server:wait-for-server-start-last-flag areapath)
(let* ((start-flag (conc areapath "/logs/server-start-last"))
;;; THIS INTERACTS WITH [server] timeout. Suggest using 0.1 or above for timeout (6 seconds)
(reftime (configf:lookup-number *configdat* "server" "idletime" default: 4))
(server-key (conc (get-host-name) "-" (current-process-id))))
(if (file-exists? start-flag)
(let* ((fmodtime (file-modification-time start-flag))
(delta (- (current-seconds) fmodtime))
(all-go (> delta reftime)))
(if (and all-go
(begin
(with-output-to-file start-flag
| > | 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 |
;; wait for server=start-last to be three seconds old
;;
(define (server:wait-for-server-start-last-flag areapath)
(let* ((start-flag (conc areapath "/logs/server-start-last"))
;;; THIS INTERACTS WITH [server] timeout. Suggest using 0.1 or above for timeout (6 seconds)
(reftime (configf:lookup-number *configdat* "server" "idletime" default: 4))
(server-key (conc (get-host-name) "-" (current-process-id))))
(thread-sleep! (/ (random 500) 1000))
(if (file-exists? start-flag)
(let* ((fmodtime (file-modification-time start-flag))
(delta (- (current-seconds) fmodtime))
(all-go (> delta reftime)))
(if (and all-go
(begin
(with-output-to-file start-flag
|
| ︙ | ︙ |