Overview
| Comment: | Bumped delay for sync to 6 seconds |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 |
| Files: | files | file ages | folders |
| SHA1: |
139076d39fadfd958bb3edbce2947d40 |
| User & Date: | matt on 2017-06-02 00:58:19 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-06-02
| ||
| 07:22 | Sync should not be called if some other process has called it recently check-in: f0c7e06411 user: matt tags: v1.64 | |
| 00:58 | Bumped delay for sync to 6 seconds check-in: 139076d39f user: matt tags: v1.64 | |
|
2017-06-01
| ||
| 22:08 | Fixed sync to megatest.db, it was not respecting last_update and thus syncing everything. Added hard storage of last update in a no-sync db on /tmp check-in: b665288f56 user: matt tags: v1.64 | |
Changes
Modified server.scm from [f8280a94d4] to [f2f4573370].
| ︙ | ︙ | |||
510 511 512 513 514 515 516 |
;; keep going unless time to exit
;;
(if (not *time-to-exit*)
(let delay-loop ((count 0))
;;(debug:print-info 13 *default-log-port* "delay-loop top; count="count" pid="(current-process-id)" this-wd-num="this-wd-num" *time-to-exit*="*time-to-exit*)
(if (and (not *time-to-exit*)
| | | 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 |
;; keep going unless time to exit
;;
(if (not *time-to-exit*)
(let delay-loop ((count 0))
;;(debug:print-info 13 *default-log-port* "delay-loop top; count="count" pid="(current-process-id)" this-wd-num="this-wd-num" *time-to-exit*="*time-to-exit*)
(if (and (not *time-to-exit*)
(< count 6)) ;; was 11, changing to 4.
(begin
(thread-sleep! 1)
(delay-loop (+ count 1))))
(if (not *time-to-exit*) (loop))))
;; time to exit, close the no-sync db here
(db:no-sync-close-db no-sync-db)
(if (common:low-noise-print 30)
|
| ︙ | ︙ |