Overview
| Comment: | Unset 'all for sync if set. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | matt-db-sync-2 | v1.62-side |
| Files: | files | file ages | folders |
| SHA1: |
3b2f4ea9170ccf36bc0581454685a806 |
| User & Date: | mrwellan on 2016-10-31 21:13:36 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-10-31
| ||
| 21:13 | Unset 'all for sync if set. Closed-Leaf check-in: 3b2f4ea917 user: mrwellan tags: matt-db-sync-2, v1.62-side | |
| 17:18 | Watchdog enabled. Duplicate overlapping runs of sync-to prevented. check-in: 95a867e2e7 user: mrwellan tags: matt-db-sync-2, v1.62-side | |
Changes
Modified common.scm from [4237262277] to [39443cebf0].
| ︙ | ︙ | |||
416 417 418 419 420 421 422 |
(db:multi-db-sync (list run-id) 'new2old)
(let ((sync-time (- (current-seconds) start-time)))
(debug:print-info 3 *default-log-port* "Sync of newdb to olddb for run-id " run-id " completed in " sync-time " seconds")
(if (common:low-noise-print 30 "sync new to old")
(debug:print-info 0 *default-log-port* "Sync of newdb to olddb for run-id " run-id " completed in " sync-time " seconds")))
(hash-table-delete! *db-local-sync* run-id)))
(mutex-unlock! *db-multi-sync-mutex*))
| | > > | 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 |
(db:multi-db-sync (list run-id) 'new2old)
(let ((sync-time (- (current-seconds) start-time)))
(debug:print-info 3 *default-log-port* "Sync of newdb to olddb for run-id " run-id " completed in " sync-time " seconds")
(if (common:low-noise-print 30 "sync new to old")
(debug:print-info 0 *default-log-port* "Sync of newdb to olddb for run-id " run-id " completed in " sync-time " seconds")))
(hash-table-delete! *db-local-sync* run-id)))
(mutex-unlock! *db-multi-sync-mutex*))
run-ids-to-process)
(hash-table-delete! *db-local-sync* 'all) ;; just in case it was set
))
(define (common:watchdog)
(thread-sleep! 0.05) ;; delay for startup
(let ((legacy-sync (common:legacy-sync-required))
(debug-mode (debug:debug-mode 1))
(last-time (current-seconds)))
(if (or (common:legacy-sync-recommended)
|
| ︙ | ︙ |