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: |
f971fe9c6cc41b45ddf28a79a65809a2 |
| 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 | (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) | | | 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 (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) |
| ︙ | ︙ |