import Data.Maybe
import Network
import Network.HTTP.Lucu
+import OpenSSL
import Rakka.Environment
import Rakka.Resource.CheckAuth
+import Rakka.Resource.DumpRepos
import Rakka.Resource.Index
import Rakka.Resource.JavaScript
import Rakka.Resource.PageEntity
import Rakka.Resource.Object
import Rakka.Resource.Render
-import Rakka.Resource.TrackBack
+import Rakka.Resource.Search
+import Rakka.Resource.SystemConfig
+-- import Rakka.Resource.TrackBack
+import Rakka.Resource.Users
import Rakka.Storage
import Subversion
import System.Console.GetOpt
main :: IO ()
-main = withSubversion $
+main = withOpenSSL $
+ withSubversion $
do (opts, nonOpts, errors) <- return . getOpt Permute options =<< getArgs
when (not $ null errors)
resTree :: Environment -> ResTree
resTree env
- = mkResTree [ ([] , resIndex env)
- , (["checkAuth"], resCheckAuth env)
- , (["js" ], javaScript )
- , (["object" ], resObject env)
- , (["render" ], resRender env)
- , (["trackback"], resTrackBack env)
+ = mkResTree [ ([] , resIndex env)
+ , (["checkAuth" ], resCheckAuth env)
+ , (["dumpRepos" ], resDumpRepos env)
+ , (["js" ], javaScript )
+ , (["object" ], resObject env)
+ , (["render" ], resRender env)
+ , (["search" ], resSearch env)
+ , (["search.html" ], resSearch env)
+ , (["search.xml" ], resSearch env)
+ , (["systemConfig"], resSystemConfig env)
+ -- , (["trackback" ], resTrackBack env)
+ , (["users" ], resUsers env)
]
OptRebuildIndex -> True
_ -> False) opts
when rebuild
- $ rebuildIndex (envStorage env)
\ No newline at end of file
+ $ rebuildIndex (envStorage env)