brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Handle sqlite busy locking.

Browse source
This commit is contained in:
Dominik Pantůček 2023-12-06 20:56:17 +01:00
parent fb6e0868de
commit 5185567842
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/mailman3-sql.scm
View file

@ -45,7 +45,11 @@
;; Returns (possibly cached) SQLite3 DB handle ;; Returns (possibly cached) SQLite3 DB handle
(define (mailman3-db) (define (mailman3-db)
(when (not (*cached-mailman3-db*)) (when (not (*cached-mailman3-db*))
(*cached-mailman3-db* (open-database (*mailman3-sql-path*)))) (*cached-mailman3-db*
(let ((handler (make-busy-timeout 2000)))
(let ((db (open-database (*mailman3-sql-path*))))
(set-busy-handler! db handler)
db))))
(*cached-mailman3-db*)) (*cached-mailman3-db*))
;; Returns the list of mailman3 mailinglists by querying te ;; Returns the list of mailman3 mailinglists by querying te