Megatest

Check-in [f971fe9c6c]
Login
Overview
Comment:guarded against non-initialized tt-servinf-file
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.80
Files: files | file ages | folders
SHA1: f971fe9c6cc41b45ddf28a79a65809a23ea4e76b
User & Date: mmgraham on 2023-04-12 18:17:33
Other Links: branch diff | manifest | tags
Context
2023-04-13
07:01
Turn back on update on db touched. check-in: 5cad598e0e user: matt tags: v1.80
2023-04-12
20:44
Reverted dashboard to v1.65 code and made only necessary changes Leaf check-in: eb37de4dab user: matt tags: v1.80-v1.65-dashboard
18:17
guarded against non-initialized tt-servinf-file check-in: f971fe9c6c user: mmgraham tags: v1.80
12:50
moved mtargs before debugprint check-in: a8323ba69f user: pjhatwal tags: v1.80
Changes

Modified tcp-transportmod.scm from [1211c35eaf] to [4c27f44d34].

242
243
244
245
246
247
248
249

250
251
252
253
254
255
256
242
243
244
245
246
247
248

249
250
251
252
253
254
255
256







-
+







	     (if (not res) ;; tt:handler is telling us that communication failed
		 (let* ((host    (tt-conn-host conn))
			(port    (tt-conn-port conn))
			;; (dbfname (tt-conn-port conn)) ;; 192.168.0.127:4242-726924:4.db
			(pid     (tt-conn-pid  conn))
			(servinf (tt-servinf-file ttdat))) ;; (conc areapath"/.servinfo/"host":"port"-"pid":"dbfname))) ;; TODO, use (server:get-servinfo-dir areapath)
		   (hash-table-set! (tt-conns ttdat) dbfname #f)
		   (if (file-exists? servinf)
		   (if (and servinf (file-exists? servinf))
		       (begin
			 (if (< attemptnum 3)
			     (begin
			       (thread-sleep! 0.25)
			       (tt:handler ttdat cmd run-id params (+ attemptnum 1) area-dat areapath readonly-mode dbfname testsuite mtexe))
			     (begin
			       (debug:print 0 *default-log-port* "INFO: no response from server "host":"port" for "dbfname)