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

Make SQL access to mailman3 configurable.

Browse source
This commit is contained in:
Dominik Pantůček 2023-09-17 15:59:27 +02:00
parent c7088e3f5d
commit fde185ff6f
3 changed files with 51 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

30
src/mailman3.scm
View file

@ -71,22 +71,26 @@
;; Returns the list of available lists
(define (list-mailman3-lists)
(filter
identity
(map (lambda (line)
(let ((sline (string-split line "@")))
(if (null? sline)
#f
(car sline))))
(get-mailman3-output-lines "lists" "-q"))))
(if (*mailman3-sql*)
(list-mailman3-sql-lists)
(filter
identity
(map (lambda (line)
(let ((sline (string-split line "@")))
(if (null? sline)
#f
(car sline))))
(get-mailman3-output-lines "lists" "-q")))))
;; Returns the list of members of given list
(define (list-mailman3-list-members lst)
(sort
(get-mailman3-output-lines "members"
(format "~A@brmlab.cz" lst)
"-e")
string-ci<?))
(if (*mailman3-sql*)
(list-mailman3-sql-list-members lst)
(sort
(get-mailman3-output-lines "members"
(format "~A@brmlab.cz" lst)
"-e")
string-ci<?)))
;; Adds given email
(define (add-email-to-mailman3-list lst email)