|
|
|
@ -63,7 +63,7 @@ sendUserNotification recipient subject message =
|
|
|
|
|
, mailTo = |
|
|
|
|
[ Address |
|
|
|
|
(Just $ userDetailsIdent recipient) |
|
|
|
|
(email) |
|
|
|
|
email |
|
|
|
|
] |
|
|
|
|
, mailCc = [] |
|
|
|
|
, mailBcc = [] |
|
|
|
@ -90,12 +90,14 @@ sendAdminNotification subject message =
|
|
|
|
|
-- TODO: Grab administrators from settings and actually send the mails to them |
|
|
|
|
return () |
|
|
|
|
|
|
|
|
|
sendNotification :: Mail -> MateHandler () |
|
|
|
|
sendNotification mail = do |
|
|
|
|
sendmail <- asks rsSendmailPath |
|
|
|
|
sendmailPath <- asks rsSendmailPath |
|
|
|
|
liftIO $ do |
|
|
|
|
existence <- doesFileExist sendmail |
|
|
|
|
existence <- doesFileExist sendmailPath |
|
|
|
|
if existence |
|
|
|
|
then |
|
|
|
|
renderSendMailCustom sendmail [] mail |
|
|
|
|
renderSendMailCustom sendmailPath [] mail |
|
|
|
|
else |
|
|
|
|
print "Warning: sending notification failed: Sendmail not present!" |
|
|
|
|
print ("Warning: sending notification failed: Sendmail not present!" |
|
|
|
|
:: String) |
|
|
|
|