Megatest

Check-in [56b3986bbb]
Login
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: 56b3986bbba2c2d5f426ad7aa8a15466a1d4be8d
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
333


334
335
336
337
338
339
340
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)
		(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)))))