Megatest

Check-in [9d5c9d436b]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:Add delay to server start to reduce chance of contending for the throne
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.54
Files: files | file ages | folders
SHA1: 9d5c9d436b1e4ab23a3d85f57723def5a37bf932
User & Date: mrwellan on 2013-05-08 23:55:53
Other Links: branch diff | manifest | tags
Context
2013-05-09
07:19
Give up trying to autostart the server after some time. check-in: eb78b9cf63 user: matt tags: v1.54, v1.5426
2013-05-08
23:55
Add delay to server start to reduce chance of contending for the throne check-in: 9d5c9d436b user: mrwellan tags: v1.54
17:47
Bumped version check-in: 31af7a1995 user: icfadm tags: v1.54, v1.5425
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified megatest.scm from [46074af0df] to [a386854fed].

︙
317
318
319
320
321
322
323

324


325
326
327
328
329
330
331

317
318
319
320
321
322
323
324

325
326
327
328
329
330
331
332
333








+
-
+
+








			  ;; (process-run (car (argv)) (list "-server" "-" "-daemonize" "-transport" (args:get-arg "-transport" "http")))
			  (system "megatest -list-servers | grep alive || megatest -server - -daemonize && sleep 3")
			  ;; (process-fork (lambda ()
			  ;;       	  (daemon:ize)
			  ;;       	  (server:launch (string->symbol (args:get-arg "-transport" "http")))))
			  ;; (thread-sleep! 3)
			  )
			(begin
			(debug:print-info 0 "Waiting for server to start"))
			  (debug:print-info 0 "Waiting for server to start")
			  (thread-sleep! 1)))
		    (loop (open-run-close tasks:get-best-server tasks:open-db) 
			  (+ trycount 1)))
		  (debug:print 0 "INFO: Server(s) running " servers)
		  )))))

(if (or (args:get-arg "-list-servers")
	(args:get-arg "-stop-server"))
︙

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