Overview
| Comment: | Moved 2 messages debug level 0 -> 2 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
8bad485da4876a4e3cbba2516d251563 |
| User & Date: | mmgraham on 2021-07-14 12:01:34 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-07-14
| ||
| 12:02 | changed version to 1.6587 check-in: c9265361eb user: mmgraham tags: v1.65 | |
| 12:01 | Moved 2 messages debug level 0 -> 2 check-in: 8bad485da4 user: mmgraham tags: v1.65 | |
|
2021-07-13
| ||
| 14:56 | Added propagate-exit-code option. check-in: 34272c5a2d user: mmgraham tags: v1.65 | |
Changes
Modified server.scm from [d261c5be21] to [99d72bd3eb].
| ︙ | ︙ | |||
387 388 389 390 391 392 393 |
(new-server-key "")
)
;; write start-flag file, wait 0.25s, then if previously the start-flag file was older than <idletime> seconds, and the new file still has the same server key as you just wrote, return #t.
;; the intention is to make sure nfs can read the file we just wrote, and make sure it was written by us, and not another process.
(if (and old-enough
(begin
| | | 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 |
(new-server-key "")
)
;; write start-flag file, wait 0.25s, then if previously the start-flag file was older than <idletime> seconds, and the new file still has the same server key as you just wrote, return #t.
;; the intention is to make sure nfs can read the file we just wrote, and make sure it was written by us, and not another process.
(if (and old-enough
(begin
(debug:print-info 2 *default-log-port* "Writing " start-flag)
(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
|
| ︙ | ︙ | |||
417 418 419 420 421 422 423 |
;; and wait for it to be at least <server idletime> seconds old
(server:wait-for-server-start-last-flag areapath)
(if (not (server:check-if-running areapath)) ;; why try if there is already a server running?
(let* (
(lock-file (conc areapath "/logs/server-start.lock")))
(let* ((start-flag (conc areapath "/logs/server-start-last")))
(common:simple-file-lock-and-wait lock-file expire-time: 25)
| | | 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 |
;; and wait for it to be at least <server idletime> seconds old
(server:wait-for-server-start-last-flag areapath)
(if (not (server:check-if-running areapath)) ;; why try if there is already a server running?
(let* (
(lock-file (conc areapath "/logs/server-start.lock")))
(let* ((start-flag (conc areapath "/logs/server-start-last")))
(common:simple-file-lock-and-wait lock-file expire-time: 25)
(debug:print-info 2 *default-log-port* "server:kind-run: touching " start-flag)
(system (conc "touch " start-flag)) ;; lazy but safe
(server:run areapath)
(thread-sleep! 20) ;; don't release the lock for at least a few seconds. And allow time for the server startup to get to "SERVER STARTED".
(common:simple-file-release-lock lock-file)))
(debug:print-info 0 *default-log-port* "Found server already running. NOT trying to start another.")
)
|
| ︙ | ︙ |