Overview
| Comment: | Added instrumentation for server start throttle. ==/3.18/0.6/PASS/1201/orion/== |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-cleanup |
| Files: | files | file ages | folders |
| SHA1: |
56b3986bbba2c2d5f426ad7aa8a15466 |
| User & Date: | mrwellan on 2020-08-26 21:14:47 |
| Original Comment: | Added instrumentation for server start throttle. |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-10-04
| ||
| 18:05 | Trial 1. Merge all good stuff with minor changes back to last working node. Closed-Leaf check-in: ddd390fb9a user: matt tags: v1.65-cleanup-try-1 | |
|
2020-08-26
| ||
| 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 | |
| 21:14 | Added instrumentation for server start throttle. ==/3.18/0.6/PASS/1201/orion/== check-in: 56b3986bbb user: mrwellan tags: v1.65-cleanup | |
| 19:36 | Changing genexample simple-get-runs argument to #f for consistency in style check-in: 658ed21c84 user: jmoon18 tags: v1.65-cleanup | |
Changes
Modified server.scm from [ffdb74becc] to [1606531507].
| ︙ | ︙ | |||
326 327 328 329 330 331 332 |
(let* ((start-flag (conc areapath "/logs/server-start-last")))
(if (file-exists? start-flag)
(let* ((fmodtime (file-modification-time start-flag))
(reftime (+ 3 (random 5)))
(delta (- (current-seconds) fmodtime)))
(if (> delta reftime) ;; good enough
(begin
| | > | 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 |
(let* ((start-flag (conc areapath "/logs/server-start-last")))
(if (file-exists? start-flag)
(let* ((fmodtime (file-modification-time start-flag))
(reftime (+ 3 (random 5)))
(delta (- (current-seconds) fmodtime)))
(if (> delta reftime) ;; good enough
(begin
(debug:print-info 0 *default-log-port* "Ready to start server, last start: "
fmodtime ", delta: " delta ", reftime: " reftime)
(system (conc "touch " start-flag))) ;; lazy but safe
(begin
(thread-sleep! 5)
(server:wait-for-server-start-last-flag areapath))))
(system (conc "touch " start-flag)))))
|
| ︙ | ︙ |