repopulate thumbnails function

This commit is contained in:
nek0 2017-08-13 23:03:48 +02:00
parent 2c17ed6797
commit cbd441860e
4 changed files with 25 additions and 0 deletions

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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-->