Overview
| Comment: | Uncommented (remote-conndat runremote) to fix crash when dashboard left idle |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
610857aa281b2e8613de9f0bcf6c4b4a |
| User & Date: | mmgraham on 2023-01-22 16:58:51 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-01-22
| ||
| 17:48 | cherrypicked change to fix args to db:caution-open-database check-in: 458bd9aea8 user: mmgraham tags: v1.80, v1.8006 | |
| 16:58 | Uncommented (remote-conndat runremote) to fix crash when dashboard left idle check-in: 610857aa28 user: mmgraham tags: v1.80 | |
|
2023-01-20
| ||
| 07:35 | Added artifacts.scm check-in: 5a12983c80 user: matt tags: v1.80 | |
Changes
Modified rmt.scm from [ef90d475fb] to [a0fac94067].
| ︙ | ︙ | |||
167 168 169 170 171 172 173 |
;; also, the expire-time calculation might not be correct. We want, time-since-last-server-access > (server:get-timeout)
;;
;;DOT CASE4 [label="reset\nconnection"];
;;DOT MUTEXLOCK -> CASE4 [label="have connection,\nlast_access > expire_time"]; {rank=same "case 4" CASE4}
;;DOT CASE4 -> "rmt:send-receive";
;; reset the connection if it has been unused too long
((and runremote
| | | | 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 |
;; also, the expire-time calculation might not be correct. We want, time-since-last-server-access > (server:get-timeout)
;;
;;DOT CASE4 [label="reset\nconnection"];
;;DOT MUTEXLOCK -> CASE4 [label="have connection,\nlast_access > expire_time"]; {rank=same "case 4" CASE4}
;;DOT CASE4 -> "rmt:send-receive";
;; reset the connection if it has been unused too long
((and runremote
(remote-conndat runremote)
(> (current-seconds) ;; if it has been more than server-timeout seconds since last contact, close this connection and start a new on
(+ (remote-last-access runremote)
(remote-server-timeout runremote))))
(debug:print-info 0 *default-log-port* "Connection to " (remote-server-url runremote) " expired due to no accesses in " (remote-server-timeout runremote) " seconds, forcing new connection.")
(http-transport:close-connections runremote)
;; moving this setting of runremote conndat to #f to inside the http-transport:close-connections
;; (remote-conndat-set! runremote #f) ;; invalidate the connection, thus forcing a new connection.
(mutex-unlock! *rmt-mutex*)
(rmt:send-receive cmd rid params attemptnum: attemptnum))
;;DOT CASE5 [label="local\nread"];
|
| ︙ | ︙ |