Overview
| Comment: | Corrected the glob for db files in dashboard:get-youngest-run-db-modtime, causing less runconfig reading, and speeding up dashboard |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
cdccb0982f61dbf5204ace1b3de6dc98 |
| User & Date: | mmgraham on 2023-10-26 18:40:55 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-10-31
| ||
| 12:22 | Delete .servinfo files for servers that are no longer running check-in: 1993359947 user: mmgraham tags: v1.80 | |
|
2023-10-26
| ||
| 18:40 | Corrected the glob for db files in dashboard:get-youngest-run-db-modtime, causing less runconfig reading, and speeding up dashboard check-in: cdccb0982f user: mmgraham tags: v1.80 | |
|
2023-10-24
| ||
| 12:56 | Changed megatest version to v1.8018 check-in: 431016c344 user: mmgraham tags: v1.80, v1.8018 | |
Changes
Modified dashboard.scm from [92015a98e3] to [2fba186660].
| ︙ | ︙ | |||
3110 3111 3112 3113 3114 3115 3116 |
exn
(begin
(debug:print 2 *default-log-port* "WARNING: error in accessing databases in get-youngest-run-db-mod-time: "
((condition-property-accessor 'exn 'message) exn) " db-dir="dbdir ", exn=" exn)
(current-seconds)) ;; something went wrong - just print an error and return current-seconds
(common:max (map (lambda (filen)
(file-modification-time filen))
| | | 3110 3111 3112 3113 3114 3115 3116 3117 3118 3119 3120 3121 3122 3123 3124 |
exn
(begin
(debug:print 2 *default-log-port* "WARNING: error in accessing databases in get-youngest-run-db-mod-time: "
((condition-property-accessor 'exn 'message) exn) " db-dir="dbdir ", exn=" exn)
(current-seconds)) ;; something went wrong - just print an error and return current-seconds
(common:max (map (lambda (filen)
(file-modification-time filen))
(cons (conc dbdir "/main.db") (glob (conc dbdir "/?.db")))))))
(define (dashboard:monitor-changed? commondat tabdat)
(let* ((run-update-time (current-seconds))
(monitor-db-path (dboard:tabdat-monitor-db-path tabdat))
(monitor-modtime (if (and monitor-db-path (common:file-exists? monitor-db-path))
(file-modification-time monitor-db-path)
-1)))
|
| ︙ | ︙ |