Megatest

Check-in [d7c55019d9]
Login
Overview
Comment:Change expire time in dbfile:cautious-open-database to 5 seconds (was 300). This was way too long.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.80-revolution
Files: files | file ages | folders
SHA1: d7c55019d912aff64a671b594be9664d7f6d17ea
User & Date: mrwellan on 2024-01-18 14:56:17
Other Links: branch diff | manifest | tags
Context
2024-01-19
08:51
To deal with bash vs csh stupidity use current-directory instead of PWD since the logical path is lost in most cases causing issues in finding db files. check-in: f9d63f34c4 user: mrwellan tags: v1.80-revolution
2024-01-18
23:05
changed the number of seconds for recently-done from 3 to 1 to fix a dashboard update problem. check-in: 222a5bcc89 user: mmgraham tags: v1.80-revolution
14:56
Change expire time in dbfile:cautious-open-database to 5 seconds (was 300). This was way too long. check-in: d7c55019d9 user: mrwellan tags: v1.80-revolution
2024-01-09
10:57
set version to 1.8028 check-in: 0b2981e9bf user: mmgraham tags: v1.80-revolution, v1.8028
Changes

Modified dbfile.scm from [4de6dac223] to [324e06c438].

491
492
493
494
495
496
497
498

499
500
501
502
503
504
505
				 (if sync-mode
				     (sqlite3:execute db (conc "PRAGMA synchronous = "sync-mode";")))
				 (if journal-mode
				     (sqlite3:execute db (conc "PRAGMA journal_mode = "journal-mode";")))
				 (if (and init-proc (or force-init
							(not db-exists)))
				     (init-proc db))
				 db)))

                            (begin
			      (if (file-exists? fname )
                                  (let ((db (sqlite3:open-database fname)))
				    ;; pragmas synchronous not needed because this db is used read-only
				    ;; (sqlite3:execute db (conc "PRAGMA synchronous = "mode";")
				    (sqlite3:set-busy-handler! db (sqlite3:make-busy-timeout 30000)) ;; read-only but still need timeout
				    db )







|
>







491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
				 (if sync-mode
				     (sqlite3:execute db (conc "PRAGMA synchronous = "sync-mode";")))
				 (if journal-mode
				     (sqlite3:execute db (conc "PRAGMA journal_mode = "journal-mode";")))
				 (if (and init-proc (or force-init
							(not db-exists)))
				     (init-proc db))
				 db))
			     expire-time: 5)
                            (begin
			      (if (file-exists? fname )
                                  (let ((db (sqlite3:open-database fname)))
				    ;; pragmas synchronous not needed because this db is used read-only
				    ;; (sqlite3:execute db (conc "PRAGMA synchronous = "mode";")
				    (sqlite3:set-busy-handler! db (sqlite3:make-busy-timeout 30000)) ;; read-only but still need timeout
				    db )