From f5291607af1db126d14765ad07ae7498e734456a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Fri, 15 Sep 2023 17:25:23 +0200
Subject: [PATCH] Create mailman3 binary wrapper.

---
 src/Makefile     |  3 ++-
 src/mailman3.scm | 16 +++++++++++++++-
 2 files changed, 17 insertions(+), 2 deletions(-)

diff --git a/src/Makefile b/src/Makefile
index a71d1e7..ca04a66 100644
--- a/src/Makefile
+++ b/src/Makefile
@@ -542,7 +542,8 @@ MAILMAN-COMMON-SOURCES: mailman-common.scm
 mailman-common.o: mailman-common.import.scm
 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.import.scm: $(MAILMAN3-SOURCES)
diff --git a/src/mailman3.scm b/src/mailman3.scm
index 4664cf0..2761ad9 100644
--- a/src/mailman3.scm
+++ b/src/mailman3.scm
@@ -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))))
 
  )