Megatest

Check-in [402ee8e934]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
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: 402ee8e93417ffa418590b8017aff98511962b68
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified dashboard.scm from [10caa23320] to [216d0fa0d4].

︙
1447
1448
1449
1450
1451
1452
1453

1454


1455
1456
1457
1458
1459
1460
1461

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*)
	 (monitor-modtime (file-modification-time *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

29


30
31
32
33
34
35
36

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*)
	 (mdb          (sqlite3:open-database dbpath)) ;; (never-give-up-open-db dbpath))
			   (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)
︙

This page was generated in about 0.117s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00