Overview
| Comment: | fixed bug with kind-run call |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.63-server-fix |
| Files: | files | file ages | folders |
| SHA1: |
214861525624c944234254fe6de2c782 |
| User & Date: | bjbarcla on 2016-12-29 15:16:17 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-01-03
| ||
| 14:08 | wip check-in: e617679e45 user: bjbarcla tags: v1.63-tdb-dotserver-refactor | |
| 13:55 | Merged in v1.63-server-fix branch to v1.63 check-in: 3e16b59518 user: mrwellan tags: v1.63 | |
|
2016-12-29
| ||
| 15:16 | fixed bug with kind-run call Closed-Leaf check-in: 2148615256 user: bjbarcla tags: v1.63-server-fix | |
| 00:14 | added script manyservers.sh which will be basis for a test of server start & collision resilency check-in: 3d418034bd user: bjbarcla tags: v1.63-server-fix | |
Changes
Modified tasks.scm from [f1c7a9fde2] to [a0c6ff1ee2].
| ︙ | ︙ | |||
400 401 402 403 404 405 406 |
(delay-time 0))
(if (and (not server-dat)
(< delay-time delay-max-tries))
(begin
(if (common:low-noise-print 60 "tasks:start-and-wait-for-server" run-id)
(debug:print 0 *default-log-port* "Try starting server for run-id " run-id))
(thread-sleep! (/ (random 2000) 1000))
| | | 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 |
(delay-time 0))
(if (and (not server-dat)
(< delay-time delay-max-tries))
(begin
(if (common:low-noise-print 60 "tasks:start-and-wait-for-server" run-id)
(debug:print 0 *default-log-port* "Try starting server for run-id " run-id))
(thread-sleep! (/ (random 2000) 1000))
(server:kind-run *toppath*)
(thread-sleep! (min delay-time 1))
(if (not (or (server:start-attempted? *toppath*)
(server:read-dotserver *toppath*))) ;; no point in trying
(loop (tasks:get-server (db:delay-if-busy tdbdat) run-id)(+ delay-time 1))
#f))
#f)))
|
| ︙ | ︙ |