Create mailman3 binary wrapper.

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)

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))))
 
  )