Overview
| Comment: | updated delay to kind-run |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 | THIS-IS-REAL-1.65 |
| Files: | files | file ages | folders |
| SHA1: |
dd2cea12eb18aa032e792f4c480787f0 |
| User & Date: | pjhatwal on 2021-03-11 17:52:32 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-03-12
| ||
| 14:25 | Turn off waiting in kind-run, rely on gating from wait-for-server-start-last-flag check-in: 889e2e71ef user: matt tags: v1.65 | |
|
2021-03-11
| ||
| 17:52 | updated delay to kind-run check-in: dd2cea12eb user: pjhatwal tags: v1.65, THIS-IS-REAL-1.65 | |
|
2021-03-09
| ||
| 21:03 | Very odd, missing egg in server.scm, util. check-in: 57b5fb07d6 user: matt tags: v1.65-real | |
Changes
Modified server.scm from [6d2db21290] to [33c77942b5].
| ︙ | ︙ | |||
408 409 410 411 412 413 414 | (call-num (car last-run-dat)) (when-run (cadr last-run-dat)) (run-delay (+ (case call-num ((0) 0) ((1) 20) ((2) 300) (else 600)) | > | > | 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 |
(call-num (car last-run-dat))
(when-run (cadr last-run-dat))
(run-delay (+ (case call-num
((0) 0)
((1) 20)
((2) 300)
(else 600))
;(random 5)
0)) ;; add a small random number just in case a lot of jobs hit the work hosts simultaneously
(lock-file (conc areapath "/logs/server-start.lock")))
(if (> (- (current-seconds) when-run) run-delay)
(let* ((start-flag (conc areapath "/logs/server-start-last")))
(common:simple-file-lock-and-wait lock-file expire-time: 15)
(debug:print-info 0 *default-log-port* "server:kind-run: touching " start-flag)
(system (conc "touch " start-flag)) ;; lazy but safe
(server:run areapath)
|
| ︙ | ︙ |