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

Allow bi-directional communication with mailman.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-19 19:29:59 +02:00
parent 6247ffbca5
commit 5d7e4a0117
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Makefile
View file

@ -214,7 +214,7 @@ UTIL-CSV-SOURCES=util-csv.scm testing.import.scm \
util-csv.o: util-csv.import.scm util-csv.o: util-csv.import.scm
util-csv.import.scm: $(UTIL-CSV-SOURCES) util-csv.import.scm: $(UTIL-CSV-SOURCES)
BANK-ACCOUNT-SOURCES=bank-account.scm BANK-ACCOUNT-SOURCES=bank-account.scm util-tag.import.scm
bank-account.o: bank-account.import.scm bank-account.o: bank-account.import.scm
bank-account.import.scm: $(BANK-ACCOUNT-SOURCES) bank-account.import.scm: $(BANK-ACCOUNT-SOURCES)

8
src/mailman.scm
View file

@ -78,6 +78,14 @@
(mailman-bin bin) (mailman-bin bin)
args)) args))
;; Sends all lines to the process
(define (mailman-send/recv bin args . lines)
(apply
process-send/recv
(mailman-bin bin)
args
lines))
;; Returns the list of available lists ;; Returns the list of available lists
(define (list-mailman-lists) (define (list-mailman-lists)
(get-mailman-output-lines "list_lists" "-b")) (get-mailman-output-lines "list_lists" "-b"))