From fbbabe121e5a39dc6c2db3e64012a6cb2610be65 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Mon, 22 Dec 2014 16:29:10 +0100
Subject: [PATCH] forgot files

---
 Handler/AdminComments.hs | 57 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)
 create mode 100644 Handler/AdminComments.hs

diff --git a/Handler/AdminComments.hs b/Handler/AdminComments.hs
new file mode 100644
index 0000000..cc034e3
--- /dev/null
+++ b/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