Prepare sending infrastructure.
This commit is contained in:
parent
97e31d5a81
commit
bb416724db
2 changed files with 12 additions and 1 deletions
|
@ -55,6 +55,7 @@
|
||||||
(define -ml-all- (make-parameter #f))
|
(define -ml-all- (make-parameter #f))
|
||||||
(define -show-destroyed- (make-parameter #f))
|
(define -show-destroyed- (make-parameter #f))
|
||||||
(define -notify-months- (make-parameter 1))
|
(define -notify-months- (make-parameter 1))
|
||||||
|
(define -send-emails- (make-parameter #f))
|
||||||
|
|
||||||
;; Configuration overrides
|
;; Configuration overrides
|
||||||
(define =members-directory= (make-parameter #f))
|
(define =members-directory= (make-parameter #f))
|
||||||
|
@ -97,6 +98,8 @@
|
||||||
(-ml-all- #t))
|
(-ml-all- #t))
|
||||||
(-destroyed () "Show destroyed members in -fees"
|
(-destroyed () "Show destroyed members in -fees"
|
||||||
(-show-destroyed- #t))
|
(-show-destroyed- #t))
|
||||||
|
(-sendmail () "Actually send emails"
|
||||||
|
(-send-emails- #t))
|
||||||
""
|
""
|
||||||
"Query options:"
|
"Query options:"
|
||||||
(-mi (id) "Specify member by id" (-member-id- (string->number id)))
|
(-mi (id) "Specify member by id" (-member-id- (string->number id)))
|
||||||
|
@ -310,7 +313,9 @@
|
||||||
(print "Notify" (-notify-months-))
|
(print "Notify" (-notify-months-))
|
||||||
(let loop ((lst nmembers))
|
(let loop ((lst nmembers))
|
||||||
(when (not (null? lst))
|
(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))))))))
|
(loop (cdr lst))))))))
|
||||||
(else
|
(else
|
||||||
(print "Nothing to do."))
|
(print "Nothing to do."))
|
||||||
|
|
|
@ -29,6 +29,7 @@
|
||||||
reminders
|
reminders
|
||||||
(
|
(
|
||||||
make+print-reminder-email
|
make+print-reminder-email
|
||||||
|
make+send-reminder-email
|
||||||
)
|
)
|
||||||
|
|
||||||
(import scheme
|
(import scheme
|
||||||
|
@ -90,4 +91,9 @@
|
||||||
(print-reminder-email
|
(print-reminder-email
|
||||||
(make-reminder-email mr)))
|
(make-reminder-email mr)))
|
||||||
|
|
||||||
|
;; Actually send emails
|
||||||
|
(define (make+send-reminder-email mr)
|
||||||
|
(print "SENDING")
|
||||||
|
(make+print-reminder-email mr))
|
||||||
|
|
||||||
)
|
)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue