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

List mailman list members.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-06 15:56:08 +02:00
parent 88087f672f
commit 37775c99c7
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/bbstool.scm
View file

@ -48,7 +48,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
members-payments members-payments
web-static web-static
environment environment
bank-account) bank-account
mailman)
;; Print banner ;; Print banner
(print "bbstool 0.9.1 (c) 2023 Brmlab, z.s.") (print "bbstool 0.9.1 (c) 2023 Brmlab, z.s.")

5
src/mailman.scm
View file

@ -30,6 +30,7 @@
( (
*mailman-bin* *mailman-bin*
list-mailman-lists list-mailman-lists
list-mailman-list-members
) )
(import scheme (import scheme
@ -57,4 +58,8 @@
(define (list-mailman-lists) (define (list-mailman-lists)
(get-mailman-output-lines "list_lists" "-b")) (get-mailman-output-lines "list_lists" "-b"))
;; Returns the list of members of given list
(define (list-mailman-list-members lst)
(get-mailman-output-lines "list_members" lst))
) )