repopulate thumbnails function

Foundation.hs

@@ -167,6 +167,7 @@ instance Yesod App where
     authRoute _ = Just $ AuthR LoginR
 
     isAuthorized AdminR                    _ = getAdminAuth
+    isAuthorized AdminRepopThumbsR         _ = getAdminAuth
     isAuthorized AdminProfilesR            _ = getAdminAuth
     isAuthorized (AdminProfileSettingsR _) _ = getAdminAuth
     isAuthorized (AdminUserAlbumsR _)      _ = getAdminAuth

Handler/Admin.hs

@@ -17,6 +17,7 @@
 module Handler.Admin where
 
 import Import
+import Data.List (tail)
 import Handler.Commons
 -- import Database.Bloodhound
 
@@ -31,3 +32,21 @@ getAdminR = do
     Left (errorMsg, route) -> do
       setMessage errorMsg
       redirect route
+
+getAdminRepopThumbsR :: Handler Html
+getAdminRepopThumbsR = do
+  adminCheck <- loginIsAdmin
+  case adminCheck of
+    Right _ -> do
+      media <- runDB $ selectList [] [Asc MediumId]
+      mapM_ (\(Entity _ m) -> generateThumbs
+        (tail $ mediumPath m)
+        (mediumOwner m)
+        (mediumAlbum m)
+        (mediumMime m)
+        ) media
+      setMessage "Repopulation successfull"
+      redirect AdminR
+    Left (emsg, route) -> do
+      setMessage emsg
+      redirect route

config/routes

@@ -48,6 +48,7 @@
 /profile/#UserId/delete		ProfileDeleteR		GET POST
 
 /admin				AdminR			GET
+/admin/repop			AdminRepopThumbsR	GET
 /admin/profile			AdminProfilesR		GET
 /admin/profile/#UserId		AdminProfileSettingsR	GET POST
 /admin/profile/#UserId/albums	AdminUserAlbumsR	GET

templates/adminBase.hamlet

@@ -21,6 +21,10 @@ $newline always
   <p>
     <a href=@{AdminCommentR}>Comments
 
+<div .item>
+  <p>
+    <a href=@{AdminRepopThumbsR}>Repopulate Thumbnails
+
 <!--<div .item>
   <p>
     <a href=@{AdminSearchReloadR}>Repopulate search index-->