Megatest

Check-in [dd2cea12eb]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
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: dd2cea12eb18aa032e792f4c480787f034086975
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified server.scm from [6d2db21290] to [33c77942b5].

︙
408
409
410
411
412
413
414

415


416
417
418
419
420
421
422

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)
			      (random 5)))   ;; add a small random number just in case a lot of jobs hit the work hosts simultaneously
                              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)
︙

This page was generated in about 0.102s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00