Differences From Artifact [7539e23e31]:
- File
http-transport.scm
— part of check-in
[67b18cc991]
at
2023-01-16 10:00:35
on branch v1.80-refactor
— Major refactor/clean up of client connection stuff. Removed old crufty approach of having both client and server side calls in http-transport. Plan would be to eventually get rid of http-transport.
Open files slowly grows. bad argument type in http-transport. Line 285 (close-connection! fullurl) is wrong. (user: matt, size: 30306) [annotate] [blame] [check-ins using]
To Artifact [5e153aef1a]:
- File http-transport.scm — part of check-in [22f2c33711] at 2023-01-16 12:17:40 on branch v1.80-refactor — last of overt connection issues addressed. TCP connections growing very slowly. However now the db issues are manifesting. (user: matt, size: 30396) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
278 279 280 281 282 283 284 |
(debug:print 0 *default-log-port* "WARNING: failure in with-input-from-request to " fullurl ".")
(debug:print 0 *default-log-port* " message: " msg ", exn=" exn)
(debug:print 0 *default-log-port* " cmd: " cmd " params: " params " key:" (or server-id "thekey"))
(debug:print 0 *default-log-port* " call-chain: " call-chain)))
;; what if another thread is communicating ok? Can't happen due to mutex
(http-transport:close-connections runremote)
(mutex-unlock! *http-mutex*)
| | | 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 |
(debug:print 0 *default-log-port* "WARNING: failure in with-input-from-request to " fullurl ".")
(debug:print 0 *default-log-port* " message: " msg ", exn=" exn)
(debug:print 0 *default-log-port* " cmd: " cmd " params: " params " key:" (or server-id "thekey"))
(debug:print 0 *default-log-port* " call-chain: " call-chain)))
;; what if another thread is communicating ok? Can't happen due to mutex
(http-transport:close-connections runremote)
(mutex-unlock! *http-mutex*)
;; (close-connection! fullurl)
(db:obj->string #f))
(with-input-from-request ;; was dat
fullurl
(list (cons 'key (or server-id "thekey"))
(cons 'cmd cmd)
(cons 'params sparams))
read-string))
|
| ︙ | ︙ | |||
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 350 351 352 353 |
(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))
(if (and (args:any-defined? "-server" "-execute" "-run")
api-dat)
(begin ;; NOTE: Verify this actually ever gets hit. Jan 16, 2023.
(debug:print-info 0 *default-log-port* "Closing connections to "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.
;;
|
| ︙ | ︙ |