Overview
| Comment: | cleaned up debug message |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.63-readonly |
| Files: | files | file ages | folders |
| SHA1: |
5d0de7eba566d8dab5c43e1da43d0a41 |
| User & Date: | bjbarcla on 2017-02-22 11:45:10 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-02-22
| ||
| 12:35 | merged v1.63 Closed-Leaf check-in: a0e40d2621 user: bjbarcla tags: v1.63-readonly | |
| 11:45 | cleaned up debug message check-in: 5d0de7eba5 user: bjbarcla tags: v1.63-readonly | |
| 11:37 | fixed bug with write-access syncing; cleaned up debug messages check-in: 7883dcdd0f user: bjbarcla tags: v1.63-readonly | |
Changes
Modified common.scm from [5fa3b62810] to [bbb1140396].
| ︙ | ︙ | |||
621 622 623 624 625 626 627 |
(< duration-since-last-sync sync-cool-off-duration))
(thread-sleep! (- sync-cool-off-duration duration-since-last-sync)))
(if (not *time-to-exit*)
(let ((golden-mtdb-mtime (file-modification-time golden-mtpath))
(tmp-mtdb-mtime (file-modification-time tmp-mtpath)))
(if (> golden-mtdb-mtime tmp-mtdb-mtime)
(let ((res (db:multi-db-sync dbstruct 'old2new)))
| | | 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 |
(< duration-since-last-sync sync-cool-off-duration))
(thread-sleep! (- sync-cool-off-duration duration-since-last-sync)))
(if (not *time-to-exit*)
(let ((golden-mtdb-mtime (file-modification-time golden-mtpath))
(tmp-mtdb-mtime (file-modification-time tmp-mtpath)))
(if (> golden-mtdb-mtime tmp-mtdb-mtime)
(let ((res (db:multi-db-sync dbstruct 'old2new)))
(debug:print-info 13 *default-log-port* "rosync called, " res " records transferred.")))
(loop (current-seconds)))
#t)))
(debug:print-info 0 *default-log-port* "Exiting readonly-watchdog timer, *time-to-exit* = " *time-to-exit*" pid="(current-process-id)" mtpath="golden-mtpath)))
(define (common:writable-watchdog dbstruct)
|
| ︙ | ︙ |