Overview
| Comment: | Add a condition such that,the polling stops when it crosses 5000. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
97716c5057503600ac267505e910b7b6 |
| User & Date: | raghavki on 2018-07-10 13:47:51 |
| Other Links: | branch diff | manifest | tags |
Context
|
2018-07-12
| ||
| 11:41 | Added localhost as fallback when checking for cpu load check-in: 10d6c50ecd user: mrwellan tags: v1.65 | |
|
2018-07-10
| ||
| 13:47 | Add a condition such that,the polling stops when it crosses 5000. check-in: 97716c5057 user: raghavki tags: v1.65 | |
|
2018-07-02
| ||
| 11:44 | Updated megatest version file check-in: fb7e6638f8 user: jmoon18 tags: v1.65, v1.6512 | |
Changes
Modified dashboard.scm from [f209c82e35] to [5534187cbe].
| ︙ | |||
835 836 837 838 839 840 841 | 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 | + - - + + |
(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)
(debug:print 0 *default-log-port* "NOTE: updates are taking a long time, " elapsed-time "s elapsed.")
(let* ((old-val (iup:attribute *tim* "TIME"))
(new-val (number->string (inexact->exact (floor (* 2 (string->number old-val)))))))
(if (< (string->number new-val) 5000)
|
| ︙ | |||
858 859 860 861 862 863 864 | 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 | - + |
(let* ((btn (vector-ref (dboard:uidat-get-lftcol uidat) lnum))
(fulltestname (iup:attribute btn "TITLE"))
(parts (string-split fulltestname "("))
(basetestname (if (null? parts) "" (car parts))))
;(print "Toggling " basetestname " currently " (hash-table-ref/default *collapsed* basetestname #f))
(if (hash-table-ref/default *collapsed* basetestname #f)
(begin
|
| ︙ |