Overview
| Comment: | Tweaked server gate - still not right :( ==/FAIL/orion/== |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-cleanup |
| Files: | files | file ages | folders |
| SHA1: |
7e26fb2f0cb71e82f6c6f0dcbbb0bb83 |
| User & Date: | mrwellan on 2020-08-26 23:04:39 |
| Original Comment: | Tweaked server gate - still not right :( |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-10-04
| ||
| 22:44 | Trial 4. Backout server control numbers. Closed-Leaf check-in: 287f620f89 user: matt tags: v1.65-cleanup-try-4 | |
|
2020-08-27
| ||
| 07:10 | trim some load control sleeps in runs.scm that are not needed as we have new load control ==/9.8/2.2/WARN/1203/mars== check-in: 8280550d67 user: matt tags: v1.65-cleanup | |
|
2020-08-26
| ||
| 23:04 | Tweaked server gate - still not right :( ==/FAIL/orion/== check-in: 7e26fb2f0c user: mrwellan tags: v1.65-cleanup | |
| 22:56 | fixed obscure bug when db is slightly malformed due to ^C. Tweak server gating, it is still not quite right... check-in: 58bd90c5bc user: mrwellan tags: v1.65-cleanup | |
Changes
Modified server.scm from [0ee248d5ed] to [985438be06].
| ︙ | ︙ | |||
322 323 324 325 326 327 328 |
;; 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")))
(if (file-exists? start-flag)
(let* ((fmodtime (file-modification-time start-flag))
| | | 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 |
;; 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")))
(if (file-exists? start-flag)
(let* ((fmodtime (file-modification-time start-flag))
(reftime 3) ;; (+ 2 (random 3)))
(delta (- (current-seconds) fmodtime))
(all-go (> delta reftime)))
(if all-go
#t ;; (system (conc "touch " start-flag)) ;; lazy but safe
(begin
(debug:print-info 0 *default-log-port* "Gating server start, last start: "
fmodtime ", delta: " delta ", reftime: " reftime ", all-go=" all-go)
|
| ︙ | ︙ |