Prepare sending infrastructure.

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

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