Mailto override.

src/hackerbase.scm

@@ -37,7 +37,8 @@
 	mailman
 	texts
 	tests
-	reminders)
+	reminders
+	util-mail)
 
 ;; Print banner
 (print "HackerBase 0.9.4 (c) 2023 Brmlab, z.s.")
@@ -100,6 +101,8 @@
 	     (-show-destroyed- #t))
  (-sendmail () "Actually send emails"
 	    (-send-emails- #t))
+ (-mailto (email) "Override all outgoing emails destination"
+	  (*mailto-override* email))
  ""
  "Query options:"
  (-mi (id) "Specify member by id" (-member-id- (string->number id)))

src/util-mail.scm

@@ -28,6 +28,7 @@
 (module
  util-mail
  (
+  *mailto-override*
   send-mail
   )
 
@@ -36,6 +37,9 @@
 	 (chicken keyword)
 	 util-io)
 
+ ;; All emails go to this override
+ (define *mailto-override* (make-parameter "dominik.pantucek@trustica.cz"))
+
  ;; Sends an email using the UNIX mail(1) utility.
  (define (send-mail body-lines . args)
    (let ((from (get-keyword #:from args))
@@ -45,16 +49,19 @@
        (error 'send-mail "requires #:to argument"))
      (when (not subject)
        (error 'send-mail "requires #:subject argument"))
-     (let ((tos (if (list? to)
+     (let* ((tos (if (list? to)
 		     to
-		    (list to))))
+		     (list to)))
+	    (real-tos (if (*mailto-override*)
+			  (list (*mailto-override*))
+			  tos)))
        (apply process-send/recv
 	      "mail"
 	      (append (if from
 			  (list "-r" from)
 			  '())
 		      (list "-s" subject)
-		      tos)
+		      real-tos)
 	      body-lines))))
 
  )