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

Add configuration of mailman version to configuration module.

Browse source
This commit is contained in:
Dominik Pantůček 2023-09-15 16:58:45 +02:00
parent 08483773f0
commit b612f5d942
3 changed files with 17 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/configuration.scm
View file

@ -38,6 +38,7 @@
*summary-mailto*
*doku-base*
*mailman2-bin*
*mailman-version*
load-configuration!
)
@ -93,6 +94,10 @@
(define *mailman2-bin* (make-parameter #f))
(define =mailman2-bin= "/usr/lib/mailman/bin")
;; Which version of mailman to use
(define *mailman-version* (make-parameter #f))
(define =mailman-version= 2)
(define (load-single-configuration! fname)
(when (file-exists? fname)
(let loop ((lines (read-lines (open-input-file fname))))
@ -128,6 +133,9 @@
((mailman2)
(when (not (*mailman2-bin*))
(*mailman2-bin* v)))
((mailman-version)
(when (not (*mailman-version*))
(*mailman-version* (string->number v))))
)))
(loop (cdr lines)))))))
@ -155,6 +163,8 @@
(when (not (*doku-base*))
(*doku-base* =doku-base=))
(when (not (*mailman2-bin*))
(*mailman2-bin* =mailman2-bin=)))
(*mailman2-bin* =mailman2-bin=))
(when (not (*mailman-version*))
(*mailman-version* =mailman-version=)))
)