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

Add configuration option for notifications CC.

Browse source
This commit is contained in:
Dominik Pantůček 2023-09-19 20:32:01 +02:00
parent d691b549ee
commit a8d27165cc
2 changed files with 15 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
doc/etc-hackerbase
View file

@ -29,3 +29,6 @@ mailman3-sql 1
# The path to SQLite3 DB file
mailman3-sql-path /var/lib/mailman3/data/mailman.db
# Default notifications CC
notifications-cc rada@brmlab.cz

13
src/configuration.scm
View file

@ -42,6 +42,7 @@
*mailman3-bin*
*mailman3-sql*
*mailman3-sql-path*
*notifications-cc*
load-configuration!
)
@ -116,6 +117,10 @@
(define *mailman3-sql-path* (make-parameter #f))
(define =mailman3-sql-path= "mailman.db")
;; CC for notifications
(define *notifications-cc* (make-parameter #f))
(define =notifications-cc= "rada@brmlab.cz")
(define (load-single-configuration! fname)
(when (file-exists? fname)
(let loop ((lines (read-lines (open-input-file fname))))
@ -165,6 +170,9 @@
((mailman3-sql-path)
(when (not (*mailman3-sql-path*))
(*mailman3-sql-path* v)))
((notifications-cc)
(when (not (*notifications-cc*))
(*notifications-cc* v)))
)))
(loop (cdr lines)))))))
@ -201,6 +209,9 @@
(*mailman3-sql* =mailman3-sql=))
(*mailman3-sql* (not (equal? (*mailman3-sql*) "0")))
(when (not (*mailman3-sql-path*))
(*mailman3-sql-path* =mailman3-sql-path=)))
(*mailman3-sql-path* =mailman3-sql-path=))
(when (not (*notifications-cc*))
(*notifications-cc* =notifications-cc=))
)
)