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

Improve output from mailman operations.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-19 18:50:56 +02:00
parent 9107d33eac
commit 6247ffbca5
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/mailman.scm
View file

@ -144,7 +144,10 @@
(get-mailman-output-lines (get-mailman-output-lines
"add_members" "-r" "-" listname "add_members" "-r" "-" listname
(sprintf "<<<\"~A\"" email)))) (sprintf "<<<\"~A\"" email))))
(print result))) (let loop ((lines result))
(when (not (null? lines))
(print " | " (car lines))
(loop (cdr lines))))))
;; Removes given email from given listname ;; Removes given email from given listname
(define (remove-email-from-mailman-list listname email) (define (remove-email-from-mailman-list listname email)
@ -153,7 +156,10 @@
(get-mailman-output-lines (get-mailman-output-lines
"remove_members" (car listname) "remove_members" (car listname)
(sprintf "\"~A\"" email)))) (sprintf "\"~A\"" email))))
(print result))) (let loop ((lines result))
(when (not (null? lines))
(print " | " (car lines))
(loop (cdr lines))))))
;; Ensures given email is in given ML ;; Ensures given email is in given ML
(define (mailman-ensure-member ml email) (define (mailman-ensure-member ml email)