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

Finish mailman3 driver.

Browse source
This commit is contained in:
Dominik Pantůček 2023-09-16 08:03:30 +02:00
parent 38ab4cb5da
commit 54497b8bc8
2 changed files with 16 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/mailman.scm
View file

@ -113,7 +113,8 @@
(define-mailman-proc add-email-to-mailman-list
add-email-to-mailman2-list add-email-to-mailman3-list)
(define-mailman-proc remove-email-from-mailman-list remove-email-from-mailman2-list)
(define-mailman-proc remove-email-from-mailman-list
remove-email-from-mailman2-list remove-email-from-mailman3-list)
;; Ensures given email is in given ML
(define (mailman-ensure-member ml email)

14
src/mailman3.scm
View file

@ -32,6 +32,7 @@
list-mailman3-list-members
add-email-to-mailman3-list
remove-email-from-mailman3-list
)
(import scheme
@ -98,4 +99,17 @@
(print " | " (car lines))
(loop (cdr lines))))))
;; Removes given email from given listname
(define (remove-email-from-mailman3-list lst email)
(print "Remove " email " from " lst ".")
(let ((result
(get-mailman3-output-lines
"delmembers"
"-l" (format "~A@brmlab.cz" lst)
"-m" email)))
(let loop ((lines result))
(when (not (null? lines))
(print " | " (car lines))
(loop (cdr lines))))))
)