module Main where

import Config

import Hope
import Hope.Module
import Hope.Module.Halbum2
import Hope.Item
import Hope.Util.File

import Control.Monad
import qualified Data.ByteString.Lazy as BS
import qualified Data.Map as Map
import System.Environment

import Network.CGI.Monad

importFile :: FilePath -> Hope ()
importFile f = addImage Nothing f (basename f) noTags

dummyCGIRequest :: CGIRequest 
dummyCGIRequest = CGIRequest {
                              cgiVars = Map.empty,
                              cgiInputs = [],
                              cgiRequestBody = BS.empty
                             }

dummyRunCGI :: Monad m => CGIT m a -> m a
dummyRunCGI cgi = liftM snd $ runCGIT cgi dummyCGIRequest

main :: IO ()
main = do args <- getArgs
          let f = mapM_ importFile args
          dummyRunCGI (dbConnect (\db -> runHopeWithSettings config db f))