Overview
| Comment: | Added retries back into the http request call |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
ad116f636070980547c87196702f52fa |
| User & Date: | mrwellan on 2014-02-28 10:21:43 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-02-28
| ||
| 16:38 | Remove process id from debug print output. Change send-receive to operate on text url. Move set running to earlier. Update test run time in central db, not test db check-in: 305a49c1be user: mrwellan tags: v1.60 | |
| 10:21 | Added retries back into the http request call check-in: ad116f6360 user: mrwellan tags: v1.60 | |
| 09:21 | server:check-if-running should use external ping check-in: f673524251 user: mrwellan tags: v1.60 | |
Changes
Modified http-transport.scm from [a8ea540d36] to [8b5799fea8].
| ︙ | ︙ | |||
227 228 229 230 231 232 233 |
(cadddr serverdat) ;; this is the uri for /api
(begin
(debug:print 0 "FATAL ERROR: http-transport:client-api-send-receive called with no server info")
(exit 1))))
(res #f))
(handle-exceptions
exn
| > > > > > | | 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 |
(cadddr serverdat) ;; this is the uri for /api
(begin
(debug:print 0 "FATAL ERROR: http-transport:client-api-send-receive called with no server info")
(exit 1))))
(res #f))
(handle-exceptions
exn
(if (> numretries 0)
(begin
(mutex-unlock! *http-mutex*)
(thread-sleep! 10)
(http-transport:client-api-send-receive run-id serverdat cmd params (- numretries 1)))
#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)
#t))
|
| ︙ | ︙ |