Overview
| Comment: | Quiet the watchdog message |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.63 |
| Files: | files | file ages | folders |
| SHA1: |
376e1e93e3783a2ec3dc8fb21506b5a7 |
| User & Date: | mrwellan on 2017-02-08 08:50:49 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-02-08
| ||
| 10:28 | Bumped version to v1.6307 check-in: fb5d3c7ae9 user: mrwellan tags: v1.63, v1.6307 | |
| 08:50 | Quiet the watchdog message check-in: 376e1e93e3 user: mrwellan tags: v1.63 | |
|
2017-02-06
| ||
| 22:57 | Merging in the multi-area support in rmt.scm check-in: bd4e28b609 user: matt tags: v1.63 | |
Changes
Modified common.scm from [1694e7ccde] to [fb7f04018e].
| ︙ | ︙ | |||
588 589 590 591 592 593 594 |
;;
(define (common:watchdog)
(thread-sleep! 0.05) ;; delay for startup
(let ((legacy-sync (common:run-sync?))
(debug-mode (debug:debug-mode 1))
(last-time (current-seconds))
(this-wd-num (begin (mutex-lock! *wdnum*mutex) (let ((x *wdnum*)) (set! *wdnum* (add1 *wdnum*)) (mutex-unlock! *wdnum*mutex) x))))
| | | 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 |
;;
(define (common:watchdog)
(thread-sleep! 0.05) ;; delay for startup
(let ((legacy-sync (common:run-sync?))
(debug-mode (debug:debug-mode 1))
(last-time (current-seconds))
(this-wd-num (begin (mutex-lock! *wdnum*mutex) (let ((x *wdnum*)) (set! *wdnum* (add1 *wdnum*)) (mutex-unlock! *wdnum*mutex) x))))
(debug:print-info 3 *default-log-port* "watchdog starting. legacy-sync is " legacy-sync" pid="(current-process-id)" this-wd-num="this-wd-num)
(if (and legacy-sync (not *time-to-exit*))
(let* ((dbstruct (db:setup))
(mtdb (dbr:dbstruct-mtdb dbstruct))
(mtpath (db:dbdat-get-path mtdb)))
(debug:print-info 0 *default-log-port* "Server running, periodic sync started.")
(let loop ()
;; sync for filesystem local db writes
|
| ︙ | ︙ |