From a8d27165ccfa1cee515c7e7d5a9796de2631e4d6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Tue, 19 Sep 2023 20:32:01 +0200 Subject: [PATCH] Add configuration option for notifications CC. --- doc/etc-hackerbase | 3 +++ src/configuration.scm | 13 ++++++++++++- 2 files changed, 15 insertions(+), 1 deletion(-) diff --git a/doc/etc-hackerbase b/doc/etc-hackerbase index 2ab2000..2d33056 100644 --- a/doc/etc-hackerbase +++ b/doc/etc-hackerbase @@ -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 diff --git a/src/configuration.scm b/src/configuration.scm index 65c9b33..7b9b7af 100644 --- a/src/configuration.scm +++ b/src/configuration.scm @@ -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=)) + ) )