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.Render
import Rakka.Resource.Search
import Rakka.Resource.SystemConfig
-import Rakka.Resource.TrackBack
+-- import Rakka.Resource.TrackBack
+import Rakka.Resource.Users
import Rakka.Storage
import Subversion
import System.Console.GetOpt
, Option [] ["disable-stderr-log"]
(NoArg OptDisableStderrLog)
- ("Disable logging to stderr.")
+ "Disable logging to stderr."
, Option [] ["rebuild-index"]
(NoArg OptRebuildIndex)
- ("Rebuild the index database.")
+ "Rebuild the index database."
, Option ['h'] ["help"]
(NoArg OptHelp)
withSubversion $
do (opts, nonOpts, errors) <- return . getOpt Permute options =<< getArgs
- when (not $ null errors)
+ unless (null errors)
$ do mapM_ putStr errors
exitWith $ ExitFailure 1
$ do printUsage
exitWith ExitSuccess
- when (not $ null nonOpts)
+ unless (null nonOpts)
$ do printUsage
exitWith $ ExitFailure 1
resTree env
= mkResTree [ ([] , resIndex env)
, (["checkAuth" ], resCheckAuth env)
+ , (["dumpRepos" ], resDumpRepos env)
, (["js" ], javaScript )
, (["object" ], resObject env)
, (["render" ], resRender env)
, (["search.html" ], resSearch env)
, (["search.xml" ], resSearch env)
, (["systemConfig"], resSystemConfig env)
- , (["trackback" ], resTrackBack 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)