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

Create mailman3 binary wrapper.

Browse source
This commit is contained in:
Dominik Pantůček 2023-09-15 17:25:23 +02:00
parent 03eefc8a90
commit f5291607af
2 changed files with 17 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/Makefile
View file

@ -542,7 +542,8 @@ MAILMAN-COMMON-SOURCES: mailman-common.scm
mailman-common.o: mailman-common.import.scm mailman-common.o: mailman-common.import.scm
mailman-common.import.scm: $(MAILMAN-COMMON-SOURCES) mailman-common.import.scm: $(MAILMAN-COMMON-SOURCES)
MAILMAN3-SOURCES=mailman3.scm MAILMAN3-SOURCES=mailman3.scm configuration.import.scm \
util-io.import.scm
mailman3.o: mailman3.import.scm mailman3.o: mailman3.import.scm
mailman3.import.scm: $(MAILMAN3-SOURCES) mailman3.import.scm: $(MAILMAN3-SOURCES)

16
src/mailman3.scm
View file

@ -30,6 +30,20 @@
( (
) )
(import scheme) (import scheme
(chicken string)
configuration
util-io)
;; Runs the mailman3 binary with any arguments and returns the lines
;; produced on stdout
(define (get-mailman3-output-lines . args1)
(let* ((cmd+args0 (string-split (*mailman3-bin*) " "))
(cmd (car cmd+args0))
(args0 (cdr cmd+args0)))
(apply
get-process-output-lines
cmd
(append args0 args1))))
) )