Synnefo » snf-ganeti

{-| Path-related helper functions.

-}

{-

Copyright (C) 2012 Google Inc.

This program is free software; you can redistribute it and/or modify

it under the terms of the GNU General Public License as published by

the Free Software Foundation; either version 2 of the License, or

(at your option) any later version.

This program is distributed in the hope that it will be useful, but

WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

General Public License for more details.

You should have received a copy of the GNU General Public License

along with this program; if not, write to the Free Software

Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA

02110-1301, USA.

-}

module Ganeti.Path

  ( dataDir

  , runDir

  , logDir

  , socketDir

  , defaultLuxiSocket

  , defaultQuerySocket

  , confdHmacKey

  , clusterConfFile

  , nodedCertFile

  ) where

import System.FilePath

import System.Posix.Env (getEnvDefault)

import qualified Ganeti.Constants as C

-- | Simple helper to concat two paths.

pjoin :: IO String -> String -> IO String

pjoin a b = do

  a' <- a

  return $ a' </> b

-- | Returns the root directory, which can be either the real root or

-- the virtual root.

getRootDir :: IO FilePath

getRootDir = getEnvDefault "GANETI_ROOTDIR" ""

-- | Prefixes a path with the current root directory.

addNodePrefix :: FilePath -> IO FilePath

addNodePrefix path = do

  root <- getRootDir

  return $ root ++ path

-- | Directory for data.

dataDir :: IO FilePath

dataDir = addNodePrefix $ C.autoconfLocalstatedir </> "lib" </> "ganeti"

-- | Directory for runtime files.

runDir :: IO FilePath

runDir = addNodePrefix $ C.autoconfLocalstatedir </> "run" </> "ganeti"

-- | Directory for log files.

logDir :: IO FilePath

logDir = addNodePrefix $ C.autoconfLocalstatedir </> "log" </> "ganeti"

-- | Directory for Unix sockets.

socketDir :: IO FilePath

socketDir = runDir `pjoin` "socket"

-- | The default LUXI socket path.

defaultLuxiSocket :: IO FilePath

defaultLuxiSocket = socketDir `pjoin` "ganeti-master"

-- | The default LUXI socket for queries.

defaultQuerySocket :: IO FilePath

defaultQuerySocket = socketDir `pjoin` "ganeti-query"

-- | Path to file containing confd's HMAC key.

confdHmacKey :: IO FilePath

confdHmacKey = dataDir `pjoin` "hmac.key"

-- | Path to cluster configuration file.

clusterConfFile :: IO FilePath

clusterConfFile  = dataDir `pjoin` "config.data"

-- | Path to the noded certificate.

nodedCertFile  :: IO FilePath

nodedCertFile = dataDir `pjoin` "server.pem"