X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Rakka.git;a=blobdiff_plain;f=Main.hs;h=df2cccb5a17ccfd5e37835adb22eeba0c3f709d3;hp=942787c025443fd4a8daee4f88ee9cf0c4478222;hb=790089d18791029ad268b3306ca71f8d5ae44ce1;hpb=03d4363a24998cd670061fde1ea4b8db8cbc5b32

diff --git a/Main.hs b/Main.hs
index 942787c..df2cccb 100644
--- a/Main.hs
+++ b/Main.hs
@@ -2,9 +2,16 @@
 import           Control.Monad
 import           Data.Maybe
 import           Network
+import           Network.HTTP.Lucu
+import           Rakka.Environment
+import           Rakka.Resource.Index
+import           Rakka.Resource.Object
+import           Rakka.Resource.Page
 import           System.Console.GetOpt
+import           System.Directory
 import           System.Environment
 import           System.Exit
+import           System.Posix.Files
 import           System.Posix.Types
 import           System.Posix.User
 
@@ -20,6 +27,9 @@ data CmdOpt
 defaultPort :: PortNumber
 defaultPort = fromIntegral 8080
 
+defaultLocalStateDir :: FilePath
+defaultLocalStateDir = LOCALSTATEDIR -- replaced by CPP
+
 defaultUserName :: String
 defaultUserName = "daemon"
 
@@ -34,7 +44,7 @@ options = [ Option ['p'] ["port"]
 
           , Option ['d'] ["localstatedir"]
                    (ReqArg OptLSDir "DIR")
-                   ("Path to the database directory. (default: " ++ LOCALSTATEDIR ++ ")")
+                   ("Path to the database directory. (default: " ++ defaultLocalStateDir ++ ")")
 
           , Option ['u'] ["user"]
                    (ReqArg OptUserName "USER")
@@ -73,10 +83,24 @@ main = do (opts, nonOpts, errors) <- return . getOpt Permute options =<< getArgs
                         exitWith $ ExitFailure 1
 
           portNum <- getPortNum opts
-          uid     <- getUserID opts
+          uid     <- getUserID  opts
+          gid     <- getGroupID opts
+          lsdir   <- getLocalStateDir opts
+
+          createLocalStateDir lsdir uid gid
+
+          setGroupID gid
+          setUserID  uid
+
+          env     <- setupEnv lsdir portNum
+          runHttpd (envLucuConf env) (resTree env) [fallbackPage env]
 
-          print portNum
-          print uid
+          
+resTree :: Environment -> ResTree
+resTree env
+    = mkResTree [ ([]        , resIndex  env)
+                , (["object"], resObject env)
+                ]
 
 
 getPortNum :: [CmdOpt] -> IO PortNumber
@@ -102,4 +126,36 @@ getUserID opts
 
          userEnt <- getUserEntryForName name
          return $ userID userEnt
-           
\ No newline at end of file
+
+
+getGroupID :: [CmdOpt] -> IO GroupID
+getGroupID opts
+    = do let xs   = mapMaybe (\ x -> case x of
+                                       OptGroupName n -> Just n
+                                       _              -> Nothing) opts
+             name = case xs of
+                      []     -> defaultGroupName
+                      (x:[]) -> x
+                      _      -> error "too many --group options."
+
+         groupEnt <- getGroupEntryForName name
+         return $ groupID groupEnt
+
+
+getLocalStateDir :: [CmdOpt] -> IO FilePath
+getLocalStateDir opts
+    = do let xs   = mapMaybe (\ x -> case x of
+                                       OptLSDir n -> Just n
+                                       _          -> Nothing) opts
+             path = case xs of
+                      []     -> defaultLocalStateDir
+                      (x:[]) -> x
+                      _      -> error "too many --localstatedir options."
+         
+         return path
+
+
+createLocalStateDir :: FilePath -> UserID -> GroupID -> IO ()
+createLocalStateDir path uid gid
+    = do createDirectoryIfMissing True path
+         setOwnerAndGroup path uid gid