Overview
Comment: | Migrated dashboard.scm to zmq |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | monitor-cleanup |
Files: | files | file ages | folders |
SHA1: |
86c3f03821381e806adfa0da3e6f46b7 |
User & Date: | mrwellan on 2012-10-30 12:37:30 |
Other Links: | branch diff | manifest | tags |
Context
2012-10-30
| ||
18:48 | partial migration ofdashboard-tests.scm to zmq check-in: 05bb10596e user: mrwellan tags: monitor-cleanup | |
12:37 | Migrated dashboard.scm to zmq check-in: 86c3f03821 user: mrwellan tags: monitor-cleanup | |
12:20 | Corrected couple calls to cdb: routines check-in: ee1cd53670 user: mrwellan tags: monitor-cleanup | |
Changes
Modified dashboard.scm from [86466a3427] to [df3295788f].
︙ | |||
74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 | 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 | + - + - + | (if (not (setup-for-run)) (begin (print "Failed to find megatest.config, exiting") (exit 1))) (define *db* #f) ;; (open-db)) (server:client-launch) ;; HACK ALERT: this is a hack, please fix. (define *read-only* (not (file-read-access? (conc *toppath* "/megatest.db")))) ;; (server:client-setup *db*) (define toplevel #f) (define dlg #f) (define max-test-num 0) |
︙ | |||
160 161 162 163 164 165 166 | 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 | - + - + - + | (> (current-seconds)(+ *last-db-update-time* 5))) (> *delayed-update* 0)) (begin (debug:print-info 4 "update-rundat runnamepatt: " runnamepatt " numruns: " numruns " testnamepatt: " testnamepatt " keypatts: " keypatts) (set! *please-update-buttons* #t) (set! *last-db-update-time* modtime) (set! *delayed-update* (- *delayed-update* 1)) |
︙ |