Overview
Comment: | added adaptive dashboard poll interval |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.64 |
Files: | files | file ages | folders |
SHA1: |
2c254ec7e0c3d23d66ad20cf5a1fe4ab |
User & Date: | bjbarcla on 2017-07-24 16:48:46 |
Other Links: | branch diff | manifest | tags |
Context
2017-07-25
| ||
10:48 | Added last_update to the fields to copy spec. This enables the optimization for copying only changed data check-in: 853bcee759 user: mrwellan tags: v1.64 | |
2017-07-24
| ||
16:48 | added adaptive dashboard poll interval check-in: 2c254ec7e0 user: bjbarcla tags: v1.64 | |
2017-07-21
| ||
16:25 | Fixed missing condition where exit on no start needed for server was happening. check-in: 18835703e2 user: mrwellan tags: v1.64 | |
Changes
Modified dashboard.scm from [4d0fad4ff2] to [8d9f9f9eab].
︙ | |||
800 801 802 803 804 805 806 | 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 | + - + + + + + + + + | (elapsed-time (- (current-seconds) start-time))) (if (null? all-test-ids) (hash-table-delete! (dboard:tabdat-allruns-by-id tabdat) run-id) (hash-table-set! (dboard:tabdat-allruns-by-id tabdat) run-id run-struct)) (if (or (null? tal) (> elapsed-time 2)) ;; stop loading data after 5 seconds, on the next call more data *should* be loaded since get-tests-for-run uses last update (begin (when (> elapsed-time 2) |
︙ |
Modified server.scm from [af3a7f7873] to [d21d7ab2e0].
︙ | |||
474 475 476 477 478 479 480 481 | 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 | + - + | (debug:print-info 0 *default-log-port* "Server running, periodic sync started.") (let loop () ;; sync for filesystem local db writes ;; (mutex-lock! *db-multi-sync-mutex*) (let* ((need-sync (>= *db-last-access* *db-last-sync*)) ;; no sync since last write (sync-in-progress *db-sync-in-progress*) (min-intersync-delay (configf:lookup-number *configdat* "server" "minimum-intersync-delay" default: 5)) (should-sync (and (not *time-to-exit*) |
︙ |