Megatest

Check-in [218ab3d565]
Login
Overview
Comment:Turn busy throttle back on but with fixed 15 second delay.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.80
Files: files | file ages | folders
SHA1: 218ab3d565648ff41b3a2455fd09a16e6677d52b
User & Date: matt on 2023-05-20 21:49:48
Other Links: branch diff | manifest | tags
Context
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
2023-05-14
20:36
Formalize /tmp directory creation for consistent usage and ultimately to accomodate second sync to dashboard on readonly check-in: 9a780869ba user: matt tags: v1.80
Changes

Modified api.scm from [2b9d1ebcdc] to [2aad8ed286].

250
251
252
253
254
255
256
257

258
259
260
261
262
263
264
265

266
267
268
269
270
271
272
250
251
252
253
254
255
256

257
258
259
260
261
262
263
264

265
266
267
268
269
270
271
272







-
+







-
+







			    ((ping) #t) ;; we are fine
			    (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 10) 'busy)
			  ((> 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)  (- newcount 29)) ;; call back in as many seconds
			   ((busy)  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