Add configuration option for notifications CC.
This commit is contained in:
parent
d691b549ee
commit
a8d27165cc
2 changed files with 15 additions and 1 deletions
|
@ -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
|
||||||
|
|
|
@ -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=))
|
||||||
|
)
|
||||||
|
|
||||||
)
|
)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue