Overview
| Comment: | Improved dashboard for working in readonly areas |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 | v1.5519 |
| Files: | files | file ages | folders |
| SHA1: |
402ee8e93417ffa418590b8017aff985 |
| User & Date: | mrwellan on 2014-05-22 12:08:41 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-05-29
| ||
| 08:39 | Added override ability in remove-runs to optionally not remove the record check-in: 3168e11fa8 user: matt tags: v1.55 | |
|
2014-05-22
| ||
| 12:08 | Improved dashboard for working in readonly areas check-in: 402ee8e934 user: mrwellan tags: v1.55, v1.5519 | |
|
2014-05-20
| ||
| 23:54 | Properly deal with roll up vs. setting to INCOMPLETE in old tests stuck in LAUNCHED check-in: b54fa13558 user: matt tags: v1.55 | |
Changes
Modified dashboard.scm from [10caa23320] to [216d0fa0d4].
| ︙ | ︙ | |||
1447 1448 1449 1450 1451 1452 1453 | ;; Force creation of the db in case it isn't already there. (let ((db (tasks:open-db))) (sqlite3:finalize! db)) (define (dashboard:run-update x) (let* ((modtime (file-modification-time *db-file-path*)) | > | > | 1447 1448 1449 1450 1451 1452 1453 1454 1455 1456 1457 1458 1459 1460 1461 1462 1463 |
;; Force creation of the db in case it isn't already there.
(let ((db (tasks:open-db)))
(sqlite3:finalize! db))
(define (dashboard:run-update x)
(let* ((modtime (file-modification-time *db-file-path*))
(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)
(> monitor-modtime *last-monitor-update-time*))
(begin
(set! *last-monitor-update-time* monitor-modtime)
(if dashboard:update-servers-table (dashboard:update-servers-table))))
|
| ︙ | ︙ |
Modified tasks.scm from [4666e559d1] to [ce6e1d604e].
| ︙ | ︙ | |||
22 23 24 25 26 27 28 | ;; Tasks db ;;====================================================================== (define (tasks:open-db) (let* ((dbpath (conc *toppath* "/monitor.db")) (exists (file-exists? dbpath)) (write-access (file-write-access? dbpath)) | > | > | 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 |
;; Tasks db
;;======================================================================
(define (tasks:open-db)
(let* ((dbpath (conc *toppath* "/monitor.db"))
(exists (file-exists? dbpath))
(write-access (file-write-access? dbpath))
(mdb (if (file-write-access? *toppath*)
(sqlite3:open-database dbpath)
(sqlite3:open-database ":memory:"))) ;; (never-give-up-open-db dbpath))
(handler (make-busy-timeout 36000)))
(if (and exists
(not write-access))
(set! *db-write-access* write-access)) ;; only unset so other db's also can use this control
(sqlite3:set-busy-handler! mdb handler)
(sqlite3:execute mdb (conc "PRAGMA synchronous = 0;"))
(if (not exists)
|
| ︙ | ︙ |