Add configuration option for notifications CC.

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

View file

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

View file

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