Overview
| Comment: | flag loaded at 50 threads. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
4c1e85ecfbc8b2be8fdfcde990ce80e4 |
| User & Date: | matt on 2023-04-09 22:14:41 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-04-10
| ||
| 06:09 | load control is working but servers are still getting wedged over time check-in: 9771b5d5a9 user: matt tags: v1.80 | |
|
2023-04-09
| ||
| 22:14 | flag loaded at 50 threads. check-in: 4c1e85ecfb user: matt tags: v1.80 | |
| 21:51 | Partial implementation of using the loaded flag to throttle on client side. Need to turn off all server side throttling check-in: b79f855fba user: matt tags: v1.80 | |
Changes
Modified api.scm from [69e219fc1f] to [98116370e9].
| ︙ | ︙ | |||
250 251 252 253 254 255 256 | (else (if (not ok)(debug:print 0 *default-log-port* "ERROR: "cmd", run-id "run-id", not correct for dbfname "(dbr:dbstruct-dbfname dbstruct))) (assert ok "FATAL: database file and run-id not aligned."))))) (ttdat *server-info*) (server-state (tt-state ttdat)) (status (cond ;; ((> newcount 600) 'busy) | | | 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 | (else (if (not ok)(debug:print 0 *default-log-port* "ERROR: "cmd", run-id "run-id", not correct for dbfname "(dbr:dbstruct-dbfname dbstruct))) (assert ok "FATAL: database file and run-id not aligned."))))) (ttdat *server-info*) (server-state (tt-state ttdat)) (status (cond ;; ((> newcount 600) 'busy) ((> newcount 50) '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) (- newcount 29)) ;; call back in as many seconds |
| ︙ | ︙ |