Megatest

Changes On Branch side-fix
Login

Changes In Branch side-fix Excluding Merge-Ins

This is equivalent to a diff from 0faa89e84d to 370b2b9e31

2014-03-17
09:38
side fix Closed-Leaf check-in: 370b2b9e31 user: mrwellan tags: side-fix
2014-03-15
21:58
Fix server start to try harder to run on current host without using nbfake. Re-factored server:ping so can call it locally. check-in: 3a11c5512d user: matt tags: v1.60
2014-03-13
23:21
Tightened up run constraints until load management is more consistent check-in: 0faa89e84d user: matt tags: v1.60
22:41
Fine tune/cleanup of server start and restart logic check-in: 268ec82674 user: matt tags: v1.60

Modified client.scm from [933a52eee6] to [6c7b69e835].

73
74
75
76
77
78
79
80

81
82
83
84
85
86
87
73
74
75
76
77
78
79

80
81
82
83
84
85
86
87







-
+







		    ;; Why add the close-connections here?
		    ;; (http-transport:close-connections run-id)
		    (hash-table-set! *runremote* run-id start-res)
		    start-res)  ;; return the server info
		  (if (member remaining-tries '(9 6 4 2))
		      (begin    ;; login failed
			(debug:print-info 0 "client:setup, ping is bad for start-res=" start-res " and *runremote*=" host-info)
			(http-transport:close-connections run-id)
			;; (http-transport:close-connections run-id)
			(hash-table-delete! *runremote* run-id)
			(open-run-close tasks:server-force-clean-run-record
			 		tasks:open-db
			 		run-id 
			 		iface
			 		port
					" client:setup (host-info=#t)")

Modified http-transport.scm from [14ceeefe67] to [14c118ef13].

240
241
242
243
244
245
246
247

248
249

250

251
252
253
254
255
256
257
240
241
242
243
244
245
246

247
248
249
250

251
252
253
254
255
256
257
258







-
+


+
-
+







	   (http-transport:client-api-send-receive run-id serverdat cmd params numretries: (- numretries 1)))
	 (begin
	   (mutex-unlock! *http-mutex*)
	   #f))
     (begin
       (debug:print-info 11 "fullurl=" fullurl ", cmd=" cmd ", params=" params ", run-id=" run-id "\n")
       ;; set up the http-client here
       (max-retry-attempts 1)
       (max-retry-attempts 5)
       ;; consider all requests indempotent
       (retry-request? (lambda (request)
			 (thread-sleep! 1)
			 #f))
			 #t))
       ;; send the data and get the response
       ;; extract the needed info from the http data and 
       ;; process and return it.
       (let* ((send-recieve (lambda ()
			      (mutex-lock! *http-mutex*)
			      (set! res (with-input-from-request ;; was dat
					 fullurl