Overview
| Comment: | Improved effiency of polling for data by dashboard |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
804e3438ad3a0499d1b48318610486c7 |
| User & Date: | matt on 2012-02-26 19:01:31 |
| Other Links: | manifest | tags |
Context
|
2012-02-26
| ||
| 19:44 | Updated tests to push on simultaneous running check-in: 82c92c7c77 user: matt tags: trunk | |
| 19:01 | Improved effiency of polling for data by dashboard check-in: 804e3438ad user: matt tags: trunk | |
| 16:44 | Put the cached update into a transaction to speed it up check-in: f6cfd4c688 user: matt tags: trunk | |
Changes
Modified dashboard.scm from [bb3dee1654] to [3650032959].
| ︙ | ︙ | |||
153 154 155 156 157 158 159 |
(c2 (map string->number (string-split color2)))
(delta (map (lambda (a b)(abs (- a b))) c1 c2)))
(null? (filter (lambda (x)(> x 3)) delta))))
;; keypatts: ( (KEY1 "abc%def")(KEY2 "%") )
(define (update-rundat runnamepatt numruns testnamepatt itemnamepatt keypatts)
(let ((modtime (file-modification-time *db-file-path*)))
| | > | 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 |
(c2 (map string->number (string-split color2)))
(delta (map (lambda (a b)(abs (- a b))) c1 c2)))
(null? (filter (lambda (x)(> x 3)) delta))))
;; keypatts: ( (KEY1 "abc%def")(KEY2 "%") )
(define (update-rundat runnamepatt numruns testnamepatt itemnamepatt keypatts)
(let ((modtime (file-modification-time *db-file-path*)))
(if (or (and (> modtime *last-db-update-time*)
(> (current-seconds)(+ *last-db-update-time* 5)))
(> *delayed-update* 0))
(begin
(set! *please-update-buttons* #t)
(set! *last-db-update-time* modtime)
(set! *delayed-update* (- *delayed-update* 1))
(let* ((allruns (rdb:get-runs *db* runnamepatt numruns ;; (+ numruns 1) ;; (/ numruns 2))
*start-run-offset* keypatts))
|
| ︙ | ︙ |