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

Add mailman3 binary configuration.

Browse source
This commit is contained in:
Dominik Pantůček 2023-09-15 17:13:52 +02:00
parent b612f5d942
commit 8a5164d0d1
1 changed files with 13 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/configuration.scm
View file

@ -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=)))
)