Megatest

Check-in [e29bdd1210]
Login
Overview
Comment:Server bypass options increased. Now should bypass the server unless in 'running' or 'dbprep' mode
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.60
Files: files | file ages | folders
SHA1: e29bdd12103ecbdd371988583b49f60120763ffa
User & Date: mrwellan on 2014-09-10 13:40:24
Other Links: branch diff | manifest | tags
Context
2014-09-10
22:51
Fixed missing launch: in call to setup-for-run check-in: 3222769b73 user: matt tags: v1.60
13:40
Server bypass options increased. Now should bypass the server unless in 'running' or 'dbprep' mode check-in: e29bdd1210 user: mrwellan tags: v1.60
2014-09-09
23:06
Tentative improvements to server starting - separate out server start from db start (dbprep). check-in: f8c63429f7 user: matt tags: v1.60
Changes

Modified rmt.scm from [124a9a8be5] to [866cbec87f].

67
68
69
70
71
72
73
74
75
76
77



78
79
80
81
82
83
84
85
86

87
88
89
90
91
92
93
67
68
69
70
71
72
73




74
75
76









77
78
79
80
81
82
83
84







-
-
-
-
+
+
+
-
-
-
-
-
-
-
-
-
+







				;; bypass starting the server. 
				;;
				;; NB// can cache the answer for server running for 10 seconds ...
				;;
				(if (and (not (rmt:write-frequency-over-limit? cmd run-id))
					 (not (open-run-close tasks:server-running-or-starting? tasks:open-db run-id)))
				    #f
				    (let loop ((numtries 2))
				      (let ((res (client:setup run-id)))
					(if res 
					    (hash-table-ref/default *runremote* run-id #f) ;; client:setup filled this in (hopefully)
				    (let ((res (client:setup run-id)))
				      (if res 
					  (hash-table-ref/default *runremote* run-id #f) ;; client:setup filled this in (hopefully)
					    (if (> numtries 0)
						(begin
						  ;; junk records can cause stuckness here. use this time to
						  ;; clean out
						  (open-run-close tasks:server-clean-out-old-records-for-run-id tasks:open-db run-id "auto-start-clean-up")
						  (thread-sleep! 1)
						  (loop (- numtries 1)))
						#f) ;; try couple times to start server - give up and do local queries
					    )))))))
					  #f))))))
	 (jparams         (db:obj->string params)))
    (if connection-info
	(let ((res             (http-transport:client-api-send-receive run-id connection-info cmd jparams)))
	  (if res
	      (db:string->obj res)
	      (let ((new-connection-info (client:setup run-id)))
		(debug:print 0 "WARNING: Communication failed, trying call to http-transport:client-api-send-receive again.")

tests/installall/config/megatest.config.dat became a symlink with target [736a5da885].

tests/installall/config/runconfigs.config.dat became a symlink with target [3b8f260acb].