From 8a5164d0d18a69116dbbf2c8e1dd1bbb0b3d8a48 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Fri, 15 Sep 2023 17:13:52 +0200 Subject: [PATCH] Add mailman3 binary configuration. --- src/configuration.scm | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/src/configuration.scm b/src/configuration.scm index 1badd3b..5550305 100644 --- a/src/configuration.scm +++ b/src/configuration.scm @@ -39,6 +39,7 @@ *doku-base* *mailman2-bin* *mailman-version* + *mailman3-bin* load-configuration! ) @@ -98,6 +99,12 @@ (define *mailman-version* (make-parameter #f)) (define =mailman-version= 2) + ;; What is the mailman 3 command + (define *mailman3-bin* (make-parameter #f)) + ;; The default value requires the following sudoers line: + ;; %hackerbase ALL=(list) NOPASSWD:/usr/lib/mailman3/bin/mailman + (define =mailman3-bin= "sudo -u list /usr/lib/mailman3/bin/mailman") + (define (load-single-configuration! fname) (when (file-exists? fname) (let loop ((lines (read-lines (open-input-file fname)))) @@ -136,6 +143,9 @@ ((mailman-version) (when (not (*mailman-version*)) (*mailman-version* (string->number v)))) + ((mailman3) + (when (not (*mailman3-bin*)) + (*mailman3-bin* v))) ))) (loop (cdr lines))))))) @@ -165,6 +175,8 @@ (when (not (*mailman2-bin*)) (*mailman2-bin* =mailman2-bin=)) (when (not (*mailman-version*)) - (*mailman-version* =mailman-version=))) + (*mailman-version* =mailman-version=)) + (when (not (*mailman3-bin*)) + (*mailman3-bin* =mailman3-bin=))) )