Megatest

Check-in [9b7a0e6fb7]
Login
Overview
Comment:Guarded against \*runremote*\ being \#f
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.70
Files: files | file ages | folders
SHA1: 9b7a0e6fb7265aaa350199d6eae59ed876ba3a57
User & Date: mmgraham on 2022-06-08 18:36:09
Other Links: branch diff | manifest | tags
Context
2022-06-08
20:09
Turn off runremote reset of 180 sec check-in: 27718f7cf5 user: matt tags: v1.70, v1.7002
18:36
Guarded against \*runremote*\ being \#f check-in: 9b7a0e6fb7 user: mmgraham tags: v1.70
2022-06-07
18:41
merged changes from 024073632a and 9a5898a74e. Fixes for db locking, syncing and dashboard startup check-in: 20a2d7904d user: mmgraham tags: v1.70
Changes

Modified client.scm from [b582d33d7d] to [3f204dd646].

122
123
124
125
126
127
128

129


130
131
132
133
134
135
136
122
123
124
125
126
127
128
129

130
131
132
133
134
135
136
137
138







+
-
+
+







				(debug:print-info 2 *default-log-port* "connected to " (http-transport:server-dat-make-url start-res))
				start-res)
			      (client:setup-http-baby areapath remaining-tries: (- remaining-tries 1))))
			(begin    ;; login failed but have a server record, clean out the record and try again
			  (debug:print-info 0 *default-log-port* "client:setup, login unsuccessful, will attempt to start server ... start-res=" start-res ", server-dat=" server-dat) ;; had runid.  Fixes part of Randy;s ticket 1405717332
			  (case *transport-type* 
			    ((http)(http-transport:close-connections)))
                          (if *runremote* 
			  (remote-conndat-set! runremote #f)  ;; (hash-table-delete! runremote run-id)
			    (remote-conndat-set! runremote #f)  ;; (hash-table-delete! runremote run-id)
                          )
			  (thread-sleep! 1)
			  (client:setup-http-baby areapath remaining-tries: (- remaining-tries 1))
			  )))
		  (begin    ;; no server registered
		    ;; (server:kind-run areapath)
		    (server:start-and-wait areapath)
		    (debug:print-info 0 *default-log-port* "client:setup, no server registered, remaining-tries=" remaining-tries)