Overview
| Comment: | side fix |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | side-fix |
| Files: | files | file ages | folders |
| SHA1: |
370b2b9e3186bbc8ed7b10a3a7cb2ef9 |
| User & Date: | mrwellan on 2014-03-17 09:38:07 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-03-17
| ||
| 09:38 | side fix Closed-Leaf check-in: 370b2b9e31 user: mrwellan tags: side-fix | |
|
2014-03-13
| ||
| 23:21 | Tightened up run constraints until load management is more consistent check-in: 0faa89e84d user: matt tags: v1.60 | |
Changes
Modified client.scm from [933a52eee6] to [6c7b69e835].
| ︙ | ︙ | |||
73 74 75 76 77 78 79 | ;; Why add the close-connections here? ;; (http-transport:close-connections run-id) (hash-table-set! *runremote* run-id start-res) start-res) ;; return the server info (if (member remaining-tries '(9 6 4 2)) (begin ;; login failed (debug:print-info 0 "client:setup, ping is bad for start-res=" start-res " and *runremote*=" host-info) | | | 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 | ;; Why add the close-connections here? ;; (http-transport:close-connections run-id) (hash-table-set! *runremote* run-id start-res) start-res) ;; return the server info (if (member remaining-tries '(9 6 4 2)) (begin ;; login failed (debug:print-info 0 "client:setup, ping is bad for start-res=" start-res " and *runremote*=" host-info) ;; (http-transport:close-connections run-id) (hash-table-delete! *runremote* run-id) (open-run-close tasks:server-force-clean-run-record tasks:open-db run-id iface port " client:setup (host-info=#t)") |
| ︙ | ︙ |
Modified http-transport.scm from [14ceeefe67] to [14c118ef13].
| ︙ | ︙ | |||
240 241 242 243 244 245 246 |
(http-transport:client-api-send-receive run-id serverdat cmd params numretries: (- numretries 1)))
(begin
(mutex-unlock! *http-mutex*)
#f))
(begin
(debug:print-info 11 "fullurl=" fullurl ", cmd=" cmd ", params=" params ", run-id=" run-id "\n")
;; set up the http-client here
| | > | | 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 |
(http-transport:client-api-send-receive run-id serverdat cmd params numretries: (- numretries 1)))
(begin
(mutex-unlock! *http-mutex*)
#f))
(begin
(debug:print-info 11 "fullurl=" fullurl ", cmd=" cmd ", params=" params ", run-id=" run-id "\n")
;; set up the http-client here
(max-retry-attempts 5)
;; consider all requests indempotent
(retry-request? (lambda (request)
(thread-sleep! 1)
#t))
;; send the data and get the response
;; extract the needed info from the http data and
;; process and return it.
(let* ((send-recieve (lambda ()
(mutex-lock! *http-mutex*)
(set! res (with-input-from-request ;; was dat
fullurl
|
| ︙ | ︙ |