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* *doku-base*
*mailman2-bin* *mailman2-bin*
*mailman-version* *mailman-version*
*mailman3-bin*
load-configuration! load-configuration!
) )
@ -98,6 +99,12 @@
(define *mailman-version* (make-parameter #f)) (define *mailman-version* (make-parameter #f))
(define =mailman-version= 2) (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) (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))))
@ -136,6 +143,9 @@
((mailman-version) ((mailman-version)
(when (not (*mailman-version*)) (when (not (*mailman-version*))
(*mailman-version* (string->number v)))) (*mailman-version* (string->number v))))
((mailman3)
(when (not (*mailman3-bin*))
(*mailman3-bin* v)))
))) )))
(loop (cdr lines))))))) (loop (cdr lines)))))))
@ -165,6 +175,8 @@
(when (not (*mailman2-bin*)) (when (not (*mailman2-bin*))
(*mailman2-bin* =mailman2-bin=)) (*mailman2-bin* =mailman2-bin=))
(when (not (*mailman-version*)) (when (not (*mailman-version*))
(*mailman-version* =mailman-version=))) (*mailman-version* =mailman-version=))
(when (not (*mailman3-bin*))
(*mailman3-bin* =mailman3-bin=)))
) )