Overview
| Comment: | If busy respond to ping as per normal. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
1b2c38a5ef4d8a288f3e4f31b2ba29b9 |
| User & Date: | matt on 2023-05-20 22:03:24 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-05-21
| ||
| 07:20 | Use busy more aggressively and turn off loaded in tcp-transport. check-in: 78c69ec26e user: matt tags: v1.80 | |
|
2023-05-20
| ||
| 22:03 | If busy respond to ping as per normal. check-in: 1b2c38a5ef user: matt tags: v1.80 | |
| 21:49 | Turn busy throttle back on but with fixed 15 second delay. check-in: 218ab3d565 user: matt tags: v1.80 | |
Changes
Modified api.scm from [2aad8ed286] to [ee972c1fef].
| ︙ | ︙ | |||
258 259 260 261 262 263 264 | ((> newcount 5) 'loaded) ;; this gets transmitted to the client which calls tt:backoff-incr to slow stuff down. (else 'ok))) (errmsg (case status ((busy) (conc "Server overloaded, "newcount" threads in flight")) ((loaded) (conc "Server loaded, "newcount" threads in flight")) (else #f))) (result (case status | > > > | | 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 | ((> newcount 5) 'loaded) ;; this gets transmitted to the client which calls tt:backoff-incr to slow stuff down. (else 'ok))) (errmsg (case status ((busy) (conc "Server overloaded, "newcount" threads in flight")) ((loaded) (conc "Server loaded, "newcount" threads in flight")) (else #f))) (result (case status ((busy) (if (eq? cmd 'ping) (normal-proc cmd run-id params) 15)) ;; (- newcount 29)) ;; call back in as many seconds ((loaded) ;; (if (eq? (rmt:transport-mode) 'tcp) ;; (thread-sleep! 0.5)) (normal-proc cmd run-id params)) (else (normal-proc cmd run-id params)))) (meta (case cmd |
| ︙ | ︙ |