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

Implement listing list members for mailman3.

Browse source
This commit is contained in:
Dominik Pantůček 2023-09-15 17:38:15 +02:00
parent 6af6349a1e
commit d802cf13c8
2 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/mailman3.scm
View file

@ -29,10 +29,12 @@
mailman3
(
list-mailman3-lists
list-mailman3-list-members
)
(import scheme
(chicken string)
(chicken sort)
configuration
util-io)
@ -51,4 +53,10 @@
(define (list-mailman3-lists)
(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" lst "-e")
string-ci<?))
)