Megatest

Check-in [39bcd74b8e]
Login
Overview
Comment:Switched to simple system of server on autostart as there is no need for it and it can try excessively if there are other server versions running
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.54 | v1.5426
Files: files | file ages | folders
SHA1: 39bcd74b8ed729f941ec52a32a7493f0abf09d59
User & Date: matt on 2013-05-09 07:39:46
Other Links: branch diff | manifest | tags
Context
2013-05-09
09:07
Corrected the server autolaunch in client start check-in: 9ee5fe37f2 user: mrwellan tags: v1.54, v1.5426
07:39
Switched to simple system of server on autostart as there is no need for it and it can try excessively if there are other server versions running check-in: 39bcd74b8e user: matt tags: v1.54, v1.5426
07:19
Give up trying to autostart the server after some time. check-in: eb78b9cf63 user: matt tags: v1.54, v1.5426
Changes

Modified megatest.scm from [1503b1f527] to [36ac208c1b].

310
311
312
313
314
315
316




317
318

319
320
321
322
323
324
325
326
327
328
329
310
311
312
313
314
315
316
317
318
319
320
321

322
323
324
325

326
327
328
329
330
331
332







+
+
+
+

-
+



-







	      (if (or (not servers)
		      (null? servers))
		  (begin
		    (if (even? trycount) ;; just do the server start every other time through this loop (every 8 seconds)
			(begin
			  (debug:print 0 "INFO: Starting server as none running ...")
			  ;; (server:launch (string->symbol (args:get-arg "-transport" "http"))))
			  ;; no need to use fork, no need to do the list-servers trick. Just start the damn server, it will exit on it's own
			  ;; if there is an existing server
			  (system "megatest -server - -daemonize")
			  (thread-sleep! 3)
			  ;; (process-run (car (argv)) (list "-server" "-" "-daemonize" "-transport" (args:get-arg "-transport" "http")))
			  (system "megatest -list-servers | grep alive || megatest -server - -daemonize && sleep 3")
			  ;; (system (conc "megatest -list-servers | egrep '" megatest-version ".*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")
			  (thread-sleep! 4)))
		    (if (< trycount 10)
			(loop (open-run-close tasks:get-best-server tasks:open-db) 
			      (+ trycount 1))