Overview
| Comment: | Print info on closing connections always |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | v1.80-toomanyfiles |
| Files: | files | file ages | folders |
| SHA1: |
f5f9bc5c6c2b9ac48e4f9523994f2e75 |
| User & Date: | matt on 2023-01-19 04:32:04 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-01-19
| ||
| 04:32 | Print info on closing connections always Leaf check-in: f5f9bc5c6c user: matt tags: v1.80-toomanyfiles | |
| 04:14 | Removed added attempt to save server info in runremote. check-in: b290688bbb user: matt tags: v1.80-toomanyfiles | |
Changes
Modified client.scm from [1284519df6] to [eb684293be].
| ︙ | ︙ | |||
103 104 105 106 107 108 109 |
((host port start-time server-id pid)
(debug:print-info 4 *default-log-port* "client:setup server-dat=" server-dat ", remaining-tries=" remaining-tries)
(if (or (not runremote)
(not (remote-conndat runremote)))
(begin
;; Here we are creating a runremote where there was none or it was clobbered with #f
;;
| > | > | 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 |
((host port start-time server-id pid)
(debug:print-info 4 *default-log-port* "client:setup server-dat=" server-dat ", remaining-tries=" remaining-tries)
(if (or (not runremote)
(not (remote-conndat runremote)))
(begin
;; Here we are creating a runremote where there was none or it was clobbered with #f
;;
(if (not runremote)
(set! runremote (make-remote))
(http-transport:close-connections runremote))
(let* ((server-info (server:check-if-running areapath)))
(remote-server-info-set! runremote server-info)
(if server-info
(begin
(remote-server-url-set! runremote (server:record->url server-info))
(remote-server-id-set! runremote (server:record->id server-info)))))))
;; at this point we have a runremote
|
| ︙ | ︙ |
Modified http-transport.scm from [c450806bbf] to [e034754503].
| ︙ | ︙ | |||
335 336 337 338 339 340 341 |
(if (remote? runremote)
(let ((api-dat (remote-api-uri runremote)))
(handle-exceptions
exn
(begin
(print-call-chain *default-log-port*)
(debug:print-error 0 *default-log-port* " closing connection failed with error: " ((condition-property-accessor 'exn 'message) exn) ", exn=" exn))
| < | | 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 |
(if (remote? runremote)
(let ((api-dat (remote-api-uri runremote)))
(handle-exceptions
exn
(begin
(print-call-chain *default-log-port*)
(debug:print-error 0 *default-log-port* " closing connection failed with error: " ((condition-property-accessor 'exn 'message) exn) ", exn=" exn))
(debug:print-info 0 *default-log-port* "Closing connections to "api-dat)
(if api-dat (close-connection! api-dat))
(remote-conndat-set! runremote #f)
#t))
#f))
;; run http-transport:keep-running in a parallel thread to monitor that the db is being
;; used and to shutdown after sometime if it is not.
|
| ︙ | ︙ |