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

Move mailman2-bin parameter to configuration.

Browse source
This commit is contained in:
Dominik Pantůček 2023-09-15 10:49:29 +02:00
parent 1f9f2503ab
commit 08483773f0
3 changed files with 15 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/configuration.scm
View file

@ -37,6 +37,7 @@
*email-from*
*summary-mailto*
*doku-base*
*mailman2-bin*
load-configuration!
)
@ -88,6 +89,10 @@
(define *doku-base* (make-parameter #f))
(define =doku-base= "/var/www")
;; Where does the mailman binaries reside
(define *mailman2-bin* (make-parameter #f))
(define =mailman2-bin= "/usr/lib/mailman/bin")
(define (load-single-configuration! fname)
(when (file-exists? fname)
(let loop ((lines (read-lines (open-input-file fname))))
@ -120,6 +125,9 @@
((dokuwiki)
(when (not (*doku-base*))
(*doku-base* v)))
((mailman2)
(when (not (*mailman2-bin*))
(*mailman2-bin* v)))
)))
(loop (cdr lines)))))))
@ -145,6 +153,8 @@
(when (not (*summary-mailto*))
(*summary-mailto* =summary-mailto=))
(when (not (*doku-base*))
(*doku-base* =doku-base=)))
(*doku-base* =doku-base=))
(when (not (*mailman2-bin*))
(*mailman2-bin* =mailman2-bin=)))
)