List mailman list members.
This commit is contained in:
parent
88087f672f
commit
37775c99c7
2 changed files with 7 additions and 1 deletions
|
@ -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.")
|
||||||
|
|
|
@ -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))
|
||||||
|
|
||||||
)
|
)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue