Megatest

Diff
Login

Differences From Artifact [46074af0df]:

To Artifact [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"))