Invitation e-mails

2019-04-23 00:03:41 +02:00 · 2019-04-23 00:03:41 +02:00 · 7f6d30c0d6
commit 7f6d30c0d6
parent 8591306b14
2 changed files with 25 additions and 1 deletions
--- a/src/Jobs/Handler/Invitation.hs
+++ b/src/Jobs/Handler/Invitation.hs
@ -3,6 +3,11 @@ module Jobs.Handler.Invitation
  ) where

 import Import
+import Utils.Lens
+import Handler.Utils.Mail
+
+import qualified Data.CaseInsensitive as CI
+import Text.Hamlet


 dispatchJobInvitation :: UserId
@ -11,4 +16,12 @@ dispatchJobInvitation :: UserId
                      -> Text
                      -> Html
                      -> Handler ()
-dispatchJobInvitation = error "dispatchJobInvitation"
+dispatchJobInvitation jInviter jInvitee jInvitationUrl jInvitationSubject jInvitationExplanation = do
+  mInviter <- runDB $ get jInviter
+
+  whenIsJust mInviter $ \jInviter' -> mailT def $ do
+    _mailTo .= [Address Nothing $ CI.original jInvitee]
+    replaceMailHeader "Reply-To" . Just . renderAddress $ userAddress jInviter'
+    replaceMailHeader "Auto-Submitted" $ Just "auto-generated"
+    replaceMailHeader "Subject" $ Just jInvitationSubject
+    addPart ($(ihamletFile "templates/mail/invitation.hamlet") :: HtmlUrlI18n UniWorXMessage (Route UniWorX))
--- a/templates/mail/invitation.hamlet
+++ b/templates/mail/invitation.hamlet
@ -0,0 +1,11 @@
+$newline never
+\<!doctype html>
+<html>
+  <head>
+    <meta charset="UTF-8">
+  <body>
+    <p>
+      #{jInvitationExplanation}
+    <p>
+      <a href=#{jInvitationUrl}>
+        _{MsgInvitationAcceptDecline}