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

3
src/mailman.scm
View file

@ -71,7 +71,8 @@
(define-mailman-proc list-mailman-lists (define-mailman-proc list-mailman-lists
list-mailman2-lists list-mailman3-lists) list-mailman2-lists list-mailman3-lists)
(define-mailman-proc list-mailman-list-members list-mailman2-list-members) (define-mailman-proc list-mailman-list-members
list-mailman2-list-members list-mailman3-list-members)
(define-mailman-proc load-mailman-list load-mailman2-list) (define-mailman-proc load-mailman-list load-mailman2-list)
(define-mailman-proc load-mailman-lists load-mailman2-lists) (define-mailman-proc load-mailman-lists load-mailman2-lists)

8
src/mailman3.scm
View file

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