60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
;;
(define (rmt:send-receive cmd rid params)
;; clean out old connections
(let ((expire-time (- (current-seconds) 60)))
(for-each
(lambda (run-id)
(let ((connection (hash-table-ref *runremote* run-id)))
(if (> (http-transport:server-dat-get-last-access connection) expire-time)
(begin
(debug:print-info 0 "Discarding connection to server for run-id " run-id ", too long between accesses")
(hash-table-delete! *runremote* run-id)))))
(hash-table-keys *runremote*)))
(let* ((run-id (if rid rid 0))
(connection-info (let ((cinfo (hash-table-ref/default *runremote* run-id #f)))
(if cinfo
|
|
|
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
;;
(define (rmt:send-receive cmd rid params)
;; clean out old connections
(let ((expire-time (- (current-seconds) 60)))
(for-each
(lambda (run-id)
(let ((connection (hash-table-ref *runremote* run-id)))
(if (< (http-transport:server-dat-get-last-access connection) expire-time)
(begin
(debug:print-info 0 "Discarding connection to server for run-id " run-id ", too long between accesses")
(hash-table-delete! *runremote* run-id)))))
(hash-table-keys *runremote*)))
(let* ((run-id (if rid rid 0))
(connection-info (let ((cinfo (hash-table-ref/default *runremote* run-id #f)))
(if cinfo
|