Password reset feature

1 files changed, 5 insertions, 3 deletions

diff --git a/src/email.clj b/src/email.clj
index 1124f48..e2a5f1f 100644
--- a/src/email.clj
+++ b/src/email.clj
@@ -82,9 +82,11 @@
      (let [[s b] (parse-mail-template temp {"nick" nick})]
        (dump-mail [email] s b))))
 
-(defn send-reset-email [nick email key]
-  (let [[s b] (parse-mail-template "reset" {"nick" nick "key" key})]
-    (dump-mail [email] s b)))
+(defn send-reset-email
+  ([nick email link temp]
+     (let [[s b] (parse-mail-template temp {"nick" nick "link" link})]
+       (dump-mail [email] s b)))
+  ([nick email link] (send-reset-email nick email link "reset")))
 
 (defn send-mute-email [user-nick admin-nick reason duration]
   (let [subject (format "%s was muted by %s for %s"