forgot files

Handler/AdminComments.hs

@@ -0,0 +1,57 @@
+module Handler.AdminComments where
+
+import Import
+import Data.Maybe
+import Data.Time
+import System.Locale
+
+getAdminCommentR :: Handler Html
+getAdminCommentR = do
+  msu <- lookupSession "userId"
+  case msu of
+    Just tempUserId -> do
+      userId <- return $ getUserIdFromText tempUserId
+      user <- runDB $ getJust userId
+      case userAdmin user of
+        True -> do
+          media <- runDB $ selectList [] [Desc MediumTime]
+          comments <- runDB $ selectList [CommentParent ==. Nothing] [Desc CommentTime]
+          replies <- runDB $ selectList [CommentParent !=. Nothing] [Desc CommentTime]
+          defaultLayout $ do
+            setTitle "Administration: Comments"
+            $(widgetFile "adminComments")
+        False -> do
+          setMessage "You have no admin rights"
+          redirect $ HomeR
+    Nothing -> do
+      setMessage "You are not logged in"
+      redirect $ LoginR
+
+getAdminCommentDeleteR :: CommentId -> Handler Html
+getAdminCommentDeleteR commentId = do
+  msu <- lookupSession "userId"
+  case msu of
+    Just tempUserId -> do
+      userId <- return $ getUserIdFromText tempUserId
+      user <- runDB $ getJust userId
+      case userAdmin user of
+        True -> do
+          tempComment <- runDB $ get commentId
+          case tempComment of
+            Just comment -> do
+              -- delete comment children
+              children <- runDB $ selectList [CommentParent ==. (Just commentId)] []
+              mapM (\ent -> runDB $ delete $ entityKey ent) children
+              -- delete comment itself
+              runDB $ delete commentId
+              setMessage "Comment deleted succesfully"
+              redirect $ AdminR
+            Nothing -> do
+              setMessage "This comment does not exist"
+              redirect $ AdminR
+        False -> do
+          setMessage "You are no admin"
+          redirect $ HomeR
+    Nothing -> do
+      setMessage "You must be logged in"
+      redirect $ LoginR