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