make admin notification

src/Control/User.hs

@@ -48,6 +48,17 @@ userGet (Just (uid, _)) = do
   conn <- asks rsConnection
   userDetailsSelect uid conn
 
+userGetAll
+  :: Maybe (Int, AuthMethod)
+  -> MateHandler [UserDetails]
+userGetAll Nothing =
+  throwError $ err401
+    { errBody = "No Authentication present."
+    }
+userGetAll (Just (_, _)) = do
+  conn <- asks rsConnection
+  userDetailsSelectAll conn
+
 userUpdate
   :: Maybe (Int, AuthMethod)
   -> UserDetailsSubmit

src/Model/User.hs

@@ -85,6 +85,18 @@ userSelect ref conn = do
       )
     users
 
+userDetailsSelectAll
+  :: PGS.Connection
+  -> MateHandler [UserDetails]
+userDetailsSelectAll conn = do
+  users <- liftIO (map fromDatabase <$> runSelect conn (selectTable userTable)) :: MateHandler [User]
+  return $ map
+    (\(User i1 i2 i3 _ i5 i6) ->
+      UserDetails i1 i2 i3 i5 i6
+      )
+    users
+
+
 userDetailsSelect
   :: Int
   -> PGS.Connection

src/Util.hs

@@ -1,5 +1,6 @@
 {-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
 module Util where
 
 import Opaleye
@@ -30,6 +31,9 @@ import Model
 
 import Types
 
+import Control.User
+import Types (UserDetails(userDetailsId))
+
 printSql :: Default Unpackspec a a => Select a -> IO ()
 printSql = putStrLn . fromMaybe "Empty query" . showSql
 
@@ -86,9 +90,36 @@ sendAdminNotification
   :: T.Text         -- The mail subject
   -> T.Text         -- The mail body
   -> MateHandler ()
-sendAdminNotification subject message =
-  -- TODO: Grab administrators from settings and actually send the mails to them
-  return ()
+sendAdminNotification subject message = do
+  allUsers <- userGetAll
+  admins <- mapM
+    (\uid -> checkCapability uid roleCanManageSettings. userDetailsId)
+    allUsers
+  mapM_
+    (\ UserDetails {..} ->
+      let mail = Mail
+            { mailFrom = Address Nothing "noreply"
+            , mailTo =
+              [ Address
+                (Just userDetailsIdent)
+                userDetailsEmail
+              ]
+            , mailCc = []
+            , mailBcc =[]
+            , mailHeaders =
+              [[ Part
+                { partType = "text/plain; charset=utf8"
+                , partEncoding = None
+                , partDisposition = DefaultDisposition
+                , partHeaders = []
+                , partContent = PartContent (fromString $ E.encodeUtf8 message)
+                }
+              ]]
+            }
+      in
+        sendNotification mail
+      )
+    allUsers
 
 sendNotification :: Mail -> MateHandler ()
 sendNotification mail = do