From bb416724dbf4ab60f65a3a6dc8b25ccf6b218b26 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Tue, 11 Apr 2023 09:10:04 +0200
Subject: [PATCH] Prepare sending infrastructure.

---
 src/hackerbase.scm | 7 ++++++-
 src/reminders.scm  | 6 ++++++
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/src/hackerbase.scm b/src/hackerbase.scm
index 15e2e4e..348c277 100644
--- a/src/hackerbase.scm
+++ b/src/hackerbase.scm
@@ -55,6 +55,7 @@
 (define -ml-all- (make-parameter #f))
 (define -show-destroyed- (make-parameter #f))
 (define -notify-months- (make-parameter 1))
+(define -send-emails- (make-parameter #f))
 
 ;; Configuration overrides
 (define =members-directory= (make-parameter #f))
@@ -97,6 +98,8 @@
 	  (-ml-all- #t))
  (-destroyed () "Show destroyed members in -fees"
 	     (-show-destroyed- #t))
+ (-sendmail () "Actually send emails"
+	    (-send-emails- #t))
  ""
  "Query options:"
  (-mi (id) "Specify member by id" (-member-id- (string->number id)))
@@ -310,7 +313,9 @@
 	   (print "Notify" (-notify-months-))
 	   (let loop ((lst nmembers))
 	     (when (not (null? lst))
-	       (make+print-reminder-email (car lst))
+	       (if (-send-emails-)
+		   (make+send-reminder-email (car lst))
+		   (make+print-reminder-email (car lst)))
 	       (loop (cdr lst))))))))
   (else
    (print "Nothing to do."))
diff --git a/src/reminders.scm b/src/reminders.scm
index 620be14..41dde10 100644
--- a/src/reminders.scm
+++ b/src/reminders.scm
@@ -29,6 +29,7 @@
  reminders
  (
   make+print-reminder-email
+  make+send-reminder-email
   )
 
  (import scheme
@@ -90,4 +91,9 @@
    (print-reminder-email
     (make-reminder-email mr)))
 
+ ;; Actually send emails
+ (define (make+send-reminder-email mr)
+   (print "SENDING")
+   (make+print-reminder-email mr))
+
  )