Overview
| Comment: | removed periodic reverse sync |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
483f258c25d5d8c33e7efe4ceb171ad0 |
| User & Date: | mmgraham on 2023-01-11 22:05:20 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-01-11
| ||
| 22:06 | Changed version to 1.8005 check-in: 3bce3576ea user: mmgraham tags: v1.80 | |
| 22:05 | removed periodic reverse sync check-in: 483f258c25 user: mmgraham tags: v1.80 | |
| 16:11 | Fix to sync, incorrect files (I think) were being compared check-in: dd0f572ca9 user: mrwellan tags: v1.80 | |
Changes
Modified http-transport.scm from [e5186c35f3] to [1e765c1e25].
| ︙ | ︙ | |||
492 493 494 495 496 497 498 |
(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 (and no-sync-db
(common:low-noise-print 10 "sync-all")) ;; cheesy way to reduce frequency of running sync :)
(begin
(if (common:low-noise-print 120 "sync-all-print")
(debug:print 0 *default-log-port* "keep-running calling db:all-db-sync at " (time->string (seconds->local-time) "%H:%M:%S")))
(db:all-db-sync *dbstruct-dbs*)
| < < < < < < < < < < < | 492 493 494 495 496 497 498 499 500 501 502 503 504 505 |
(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 (and no-sync-db
(common:low-noise-print 10 "sync-all")) ;; cheesy way to reduce frequency of running sync :)
(begin
(if (common:low-noise-print 120 "sync-all-print")
(debug:print 0 *default-log-port* "keep-running calling db:all-db-sync at " (time->string (seconds->local-time) "%H:%M:%S")))
(db:all-db-sync *dbstruct-dbs*)
)))
;; 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)
|
| ︙ | ︙ |