Overview
| Comment: | Add some time back to client restarts |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
a7747154c2a554cf664fde9a08374d52 |
| User & Date: | matt on 2014-03-12 00:43:27 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-03-13
| ||
| 22:41 | Fine tune/cleanup of server start and restart logic check-in: 268ec82674 user: matt tags: v1.60 | |
|
2014-03-12
| ||
| 00:43 | Add some time back to client restarts check-in: a7747154c2 user: matt tags: v1.60 | |
|
2014-03-11
| ||
| 22:20 | Merged v1.60-no-compile into v1.60 check-in: 47cf920bfd user: matt tags: v1.60 | |
Changes
Modified client.scm from [19438c49e1] to [9e7c8a3060].
| ︙ | ︙ | |||
82 83 84 85 86 87 88 | (open-run-close tasks:server-force-clean-run-record tasks:open-db run-id iface port " client:setup (host-info=#t)") (if (< remaining-tries 8) | | > | 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 | (open-run-close tasks:server-force-clean-run-record tasks:open-db run-id iface port " client:setup (host-info=#t)") (if (< remaining-tries 8) (thread-sleep! 5) (thread-sleep! 1)) (client:setup run-id remaining-tries: 10)) ;; (- remaining-tries 1))) (begin (debug:print 25 "INFO: client:setup failed to connect, start-res=" start-res ", run-id=" run-id ", host-info=" host-info) (thread-sleep! 5) (client:setup run-id remaining-tries: (- remaining-tries 1)))))) ;; YUK: rename server-dat here (let* ((server-dat (open-run-close tasks:get-server tasks:open-db run-id))) |
| ︙ | ︙ | |||
104 105 106 107 108 109 110 111 112 113 114 115 116 117 | (if start-res (begin (hash-table-set! *runremote* run-id start-res) start-res) (if (member remaining-tries '(2 5)) (begin ;; login failed (debug:print 25 "INFO: client:setup start-res=" start-res ", run-id=" run-id ", server-dat=" server-dat) (hash-table-delete! *runremote* run-id) (open-run-close tasks:server-force-clean-run-record tasks:open-db run-id (tasks:hostinfo-get-interface server-dat) (tasks:hostinfo-get-port server-dat) " client:setup (server-dat = #t)") | > | 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 | (if start-res (begin (hash-table-set! *runremote* run-id start-res) start-res) (if (member remaining-tries '(2 5)) (begin ;; login failed (debug:print 25 "INFO: client:setup start-res=" start-res ", run-id=" run-id ", server-dat=" server-dat) (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 (tasks:hostinfo-get-interface server-dat) (tasks:hostinfo-get-port server-dat) " client:setup (server-dat = #t)") |
| ︙ | ︙ |