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

Use basic mailman output.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-06 15:52:49 +02:00
parent 10174a81a2
commit 693324d65d
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/mailman.scm
View file

@ -45,12 +45,15 @@
(make-pathname (*mailman-bin*) bin)) (make-pathname (*mailman-bin*) bin))
;; Mailman-specific process output lines capture ;; Mailman-specific process output lines capture
(define (get-mailman-output-lines bin) (define (get-mailman-output-lines bin . args)
(get-process-output-lines (get-process-output-lines
(mailman-bin bin))) (string-intersperse
(cons (mailman-bin bin)
args)
" ")))
;; Returns the list of available lists ;; Returns the list of available lists
(define (list-mailman-lists) (define (list-mailman-lists)
(get-mailman-output-lines "list_lists")) (get-mailman-output-lines "list_lists" "-b"))
) )