Differences From Artifact [828a92199d]:
- File common.scm — part of check-in [40fcb78bd6] at 2011-08-02 23:27:07 on branch trunk — Added auto-rolling up of item status into an html file (user: matt, size: 5300) [annotate] [blame] [check-ins using]
To Artifact [bee4649484]:
- File common.scm — part of check-in [b2ba4571a3] at 2011-08-03 13:28:37 on branch trunk — Couple more tweaks to html output of the items rollup (user: mrwellan, size: 5610) [annotate] [blame] [check-ins using]
| ︙ | |||
154 155 156 157 158 159 160 | 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 | + + + + + + + + + + |
((CHECK) "255 100 50")
((REMOTEHOSTSTART) "50 130 195")
((RUNNING) "9 131 232")
((KILLREQ) "39 82 206")
((KILLED) "234 101 17")
((NOT_STARTED) "240 240 240")
(else "192 192 192")))
(define (common:get-color-from-status status)
(cond
((equal? status "PASS") "green")
((equal? status "FAIL") "red")
((equal? status "WARN") "orange")
((equal? status "KILLED") "orange")
((equal? status "KILLREQ") "purple")
((equal? status "RUNNING") "blue")
(else "black")))
|