Overview
| Comment: | Tweak dashboard updates |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60-broken-test1 |
| Files: | files | file ages | folders |
| SHA1: |
1b36724a57b8440792f74ea2ddd9a0fa |
| User & Date: | matt on 2014-12-09 23:00:51 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-12-09
| ||
| 23:43 | Fixed typo Closed-Leaf check-in: 62ccd43251 user: matt tags: v1.60-broken-test1 | |
| 23:00 | Tweak dashboard updates check-in: 1b36724a57 user: matt tags: v1.60-broken-test1 | |
| 22:56 | Added some defense to local queries check-in: f0a33deb29 user: matt tags: v1.60-broken-test1 | |
Changes
Modified dashboard.scm from [0a889b25e4] to [2960f85268].
| ︙ | ︙ | |||
1472 1473 1474 1475 1476 1477 1478 |
(monitor-modtime (if (file-exists? *monitor-db-path*)
(file-modification-time *monitor-db-path*)
-1))
(run-update-time (current-seconds))
(recalc (dashboard:recalc modtime *please-update-buttons* *last-db-update-time*)))
(if (and (eq? *current-tab-number* 0)
(or (> monitor-modtime *last-monitor-update-time*)
| | | 1472 1473 1474 1475 1476 1477 1478 1479 1480 1481 1482 1483 1484 1485 1486 |
(monitor-modtime (if (file-exists? *monitor-db-path*)
(file-modification-time *monitor-db-path*)
-1))
(run-update-time (current-seconds))
(recalc (dashboard:recalc modtime *please-update-buttons* *last-db-update-time*)))
(if (and (eq? *current-tab-number* 0)
(or (> monitor-modtime *last-monitor-update-time*)
(> (- run-update-time *last-monitor-update-time*) 5))) ;; update every 1/2 minute just in case
(begin
(set! *last-monitor-update-time* run-update-time) ;; monitor-modtime)
(if dashboard:update-servers-table (dashboard:update-servers-table))))
(if recalc
(begin
(case *current-tab-number*
((0)
|
| ︙ | ︙ |
Modified rmt.scm from [e8763f368b] to [bd51259062].
| ︙ | ︙ | |||
221 222 223 224 225 226 227 228 229 230 231 232 233 234 |
(success (vector-ref resdat 0))
(res (vector-ref resdat 1))
(duration (- (current-milliseconds) start)))
(if (not success)
(if (> remretries 0)
(begin
(debug:print 0 "ERROR: local query failed. Trying again.")
(rmt:open-qry-close-locally cmd run-id params remretries: (- remretries 1)))
(begin
(debug:print 0 "ERROR: too many retries in rmt:open-qry-close-locally, giving up")
#f))
(begin
(rmt:update-db-stats run-id cmd params duration)
;; mark this run as dirty if this was a write
| > | 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 |
(success (vector-ref resdat 0))
(res (vector-ref resdat 1))
(duration (- (current-milliseconds) start)))
(if (not success)
(if (> remretries 0)
(begin
(debug:print 0 "ERROR: local query failed. Trying again.")
(thread-sleep! (/ (random 5000) 1000)) ;; some random delay
(rmt:open-qry-close-locally cmd run-id params remretries: (- remretries 1)))
(begin
(debug:print 0 "ERROR: too many retries in rmt:open-qry-close-locally, giving up")
#f))
(begin
(rmt:update-db-stats run-id cmd params duration)
;; mark this run as dirty if this was a write
|
| ︙ | ︙ |