Login
Check-in [610857aa28]
Login
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: 610857aa281b2e8613de9f0bcf6c4b4a41aadfb2
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
174

175
176
177
178

179
180
181
182
183
184
185
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)
           (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, forcing new connection.")
      (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"];