Overview
| Comment: | moved a message to level 2 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.71 |
| Files: | files | file ages | folders |
| SHA1: |
1bc5f2dab33b3df0b1c90df9f0dea669 |
| User & Date: | mmgraham on 2024-04-10 11:39:54 |
| Other Links: | branch diff | manifest | tags |
Context
|
2024-04-10
| ||
| 11:41 | changed version to v1.7103 check-in: 6ff0464c65 user: mmgraham tags: v1.71 | |
| 11:39 | moved a message to level 2 check-in: 1bc5f2dab3 user: mmgraham tags: v1.71 | |
|
2024-04-09
| ||
| 18:13 | Cherry picked fixes from 1.70 and 1.80 check-in: 99a884c695 user: mmgraham tags: v1.71 | |
Changes
Modified server.scm from [89a8625f42] to [d1a731db91].
| ︙ | ︙ | |||
410 411 412 413 414 415 416 |
(with-output-to-file start-flag (lambda () (print server-key)))
(thread-sleep! 0.25)
(set! new-server-key (with-input-from-file start-flag (lambda () (read-line))))
(equal? server-key new-server-key)))
#t
;; If either of the above conditions is not true, print a "Gating server start" message, wait <idle-time> + 1, then call this function recursively.
(begin
| | | 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 |
(with-output-to-file start-flag (lambda () (print server-key)))
(thread-sleep! 0.25)
(set! new-server-key (with-input-from-file start-flag (lambda () (read-line))))
(equal? server-key new-server-key)))
#t
;; If either of the above conditions is not true, print a "Gating server start" message, wait <idle-time> + 1, then call this function recursively.
(begin
(debug:print-info 2 *default-log-port* "Gating server start, last start: "
(seconds->time-string fmodtime) ", time since last start: " delta ", required idletime: " idletime ", gating reason:" (if old-enough "another job started a server" "too soon to start another server"))
(thread-sleep! ( + 1 idletime))
(server:wait-for-server-start-last-flag areapath)))))))
|
| ︙ | ︙ |