Overview
| Comment: | added checks on starting watchdog that it is a not started thread |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.6584-ck5 |
| Files: | files | file ages | folders |
| SHA1: |
31cd96b3b893a1a2740ab5dbe798523b |
| User & Date: | matt on 2021-04-20 08:56:25 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-04-21
| ||
| 00:01 | wip check-in: 8357e84ed0 user: matt tags: v1.6584-ck5 | |
|
2021-04-20
| ||
| 08:56 | added checks on starting watchdog that it is a not started thread check-in: 31cd96b3b8 user: matt tags: v1.6584-ck5 | |
| 06:15 | wip check-in: 0b376e3ac3 user: matt tags: v1.6584-ck5 | |
Changes
Modified http-transportmod.scm from [81c29f8e98] to [c8ea6cc265].
| ︙ | ︙ | |||
524 525 526 527 528 529 530 |
(if (not server-going) ;; *dbstruct-db*
(let ((watchdog (bdat-watchdog *bdat*)))
(debug:print 0 *default-log-port* "SERVER: dbprep")
(set! *dbstruct-db* (db:setup #t)) ;; run-id))
(set! server-going #t)
(debug:print 0 *default-log-port* "SERVER: running, megatest version: " (common:get-full-version)) ;; NOTE: the server is NOT yet marked as running in the log. We do that in the keep-running routine.
(if watchdog
| > | | 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 |
(if (not server-going) ;; *dbstruct-db*
(let ((watchdog (bdat-watchdog *bdat*)))
(debug:print 0 *default-log-port* "SERVER: dbprep")
(set! *dbstruct-db* (db:setup #t)) ;; run-id))
(set! server-going #t)
(debug:print 0 *default-log-port* "SERVER: running, megatest version: " (common:get-full-version)) ;; NOTE: the server is NOT yet marked as running in the log. We do that in the keep-running routine.
(if watchdog
(if (not (member (thread-state watchdog) '(ready running blocked sleeping)))
(thread-start! watchdog))
(debug:print 0 *default-log-port* "ERROR: *watchdog* not setup, cannot start it."))))
;; when things go wrong we don't want to be doing the various queries too often
;; so we strive to run this stuff only every four seconds or so.
(let* ((sync-time (- (current-milliseconds) start-time))
(rem-time (quotient (- 4000 sync-time) 1000)))
(if (and (<= rem-time 4)
|
| ︙ | ︙ |
Modified megatest.scm from [85475b3d3d] to [9e5e8b387a].
| ︙ | ︙ | |||
52 53 54 55 56 57 58 | (declare (uses mtargs.import)) (declare (uses commonmod.import)) (declare (uses configfmod.import)) (declare (uses bigmod.import)) (declare (uses dbmod.import)) (declare (uses rmtmod.import)) (declare (uses servermod.import)) | | | 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | (declare (uses mtargs.import)) (declare (uses commonmod.import)) (declare (uses configfmod.import)) (declare (uses bigmod.import)) (declare (uses dbmod.import)) (declare (uses rmtmod.import)) (declare (uses servermod.import)) (declare (uses http-transportmod.import)) ;; (include "call-with-environment-variables/call-with-environment-variables.scm") (module megatest-main * (import scheme |
| ︙ | ︙ |