Statistics
| Branch: | Tag: | Revision:

root / src / Ganeti / Path.hs @ 11e90588

History | View | Annotate | Download (3 kB)

1 9eeb0aa5 Michael Hanselmann
{-| Path-related helper functions.
2 9eeb0aa5 Michael Hanselmann
3 9eeb0aa5 Michael Hanselmann
-}
4 9eeb0aa5 Michael Hanselmann
5 9eeb0aa5 Michael Hanselmann
{-
6 9eeb0aa5 Michael Hanselmann
7 9eeb0aa5 Michael Hanselmann
Copyright (C) 2012 Google Inc.
8 9eeb0aa5 Michael Hanselmann
9 9eeb0aa5 Michael Hanselmann
This program is free software; you can redistribute it and/or modify
10 9eeb0aa5 Michael Hanselmann
it under the terms of the GNU General Public License as published by
11 9eeb0aa5 Michael Hanselmann
the Free Software Foundation; either version 2 of the License, or
12 9eeb0aa5 Michael Hanselmann
(at your option) any later version.
13 9eeb0aa5 Michael Hanselmann
14 9eeb0aa5 Michael Hanselmann
This program is distributed in the hope that it will be useful, but
15 9eeb0aa5 Michael Hanselmann
WITHOUT ANY WARRANTY; without even the implied warranty of
16 9eeb0aa5 Michael Hanselmann
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
17 9eeb0aa5 Michael Hanselmann
General Public License for more details.
18 9eeb0aa5 Michael Hanselmann
19 9eeb0aa5 Michael Hanselmann
You should have received a copy of the GNU General Public License
20 9eeb0aa5 Michael Hanselmann
along with this program; if not, write to the Free Software
21 9eeb0aa5 Michael Hanselmann
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
22 9eeb0aa5 Michael Hanselmann
02110-1301, USA.
23 9eeb0aa5 Michael Hanselmann
24 9eeb0aa5 Michael Hanselmann
-}
25 9eeb0aa5 Michael Hanselmann
26 29a30533 Iustin Pop
module Ganeti.Path
27 29a30533 Iustin Pop
  ( dataDir
28 29a30533 Iustin Pop
  , runDir
29 29a30533 Iustin Pop
  , logDir
30 29a30533 Iustin Pop
  , socketDir
31 29a30533 Iustin Pop
  , defaultLuxiSocket
32 29a30533 Iustin Pop
  , defaultQuerySocket
33 29a30533 Iustin Pop
  , confdHmacKey
34 29a30533 Iustin Pop
  , clusterConfFile
35 29a30533 Iustin Pop
  , nodedCertFile
36 1db32048 Iustin Pop
  , queueDir
37 1db32048 Iustin Pop
  , jobQueueSerialFile
38 1db32048 Iustin Pop
  , jobQueueArchiveSubDir
39 29a30533 Iustin Pop
  ) where
40 9eeb0aa5 Michael Hanselmann
41 9eeb0aa5 Michael Hanselmann
import System.FilePath
42 2f441f72 Michael Hanselmann
import System.Posix.Env (getEnvDefault)
43 2f441f72 Michael Hanselmann
44 29a30533 Iustin Pop
import qualified Ganeti.Constants as C
45 9eeb0aa5 Michael Hanselmann
46 29a30533 Iustin Pop
-- | Simple helper to concat two paths.
47 29a30533 Iustin Pop
pjoin :: IO String -> String -> IO String
48 29a30533 Iustin Pop
pjoin a b = do
49 29a30533 Iustin Pop
  a' <- a
50 29a30533 Iustin Pop
  return $ a' </> b
51 29a30533 Iustin Pop
52 29a30533 Iustin Pop
-- | Returns the root directory, which can be either the real root or
53 29a30533 Iustin Pop
-- the virtual root.
54 29a30533 Iustin Pop
getRootDir :: IO FilePath
55 29a30533 Iustin Pop
getRootDir = getEnvDefault "GANETI_ROOTDIR" ""
56 29a30533 Iustin Pop
57 29a30533 Iustin Pop
-- | Prefixes a path with the current root directory.
58 29a30533 Iustin Pop
addNodePrefix :: FilePath -> IO FilePath
59 29a30533 Iustin Pop
addNodePrefix path = do
60 29a30533 Iustin Pop
  root <- getRootDir
61 29a30533 Iustin Pop
  return $ root ++ path
62 29a30533 Iustin Pop
63 29a30533 Iustin Pop
-- | Directory for data.
64 29a30533 Iustin Pop
dataDir :: IO FilePath
65 2f441f72 Michael Hanselmann
dataDir = addNodePrefix $ C.autoconfLocalstatedir </> "lib" </> "ganeti"
66 9eeb0aa5 Michael Hanselmann
67 1db32048 Iustin Pop
-- | Helper for building on top of dataDir (internal).
68 1db32048 Iustin Pop
dataDirP :: FilePath -> IO FilePath
69 1db32048 Iustin Pop
dataDirP = (dataDir `pjoin`)
70 1db32048 Iustin Pop
71 29a30533 Iustin Pop
-- | Directory for runtime files.
72 29a30533 Iustin Pop
runDir :: IO FilePath
73 2f441f72 Michael Hanselmann
runDir = addNodePrefix $ C.autoconfLocalstatedir </> "run" </> "ganeti"
74 9eeb0aa5 Michael Hanselmann
75 29a30533 Iustin Pop
-- | Directory for log files.
76 29a30533 Iustin Pop
logDir :: IO FilePath
77 2f441f72 Michael Hanselmann
logDir = addNodePrefix $ C.autoconfLocalstatedir </> "log" </> "ganeti"
78 9eeb0aa5 Michael Hanselmann
79 29a30533 Iustin Pop
-- | Directory for Unix sockets.
80 29a30533 Iustin Pop
socketDir :: IO FilePath
81 29a30533 Iustin Pop
socketDir = runDir `pjoin` "socket"
82 9eeb0aa5 Michael Hanselmann
83 9eeb0aa5 Michael Hanselmann
-- | The default LUXI socket path.
84 29a30533 Iustin Pop
defaultLuxiSocket :: IO FilePath
85 29a30533 Iustin Pop
defaultLuxiSocket = socketDir `pjoin` "ganeti-master"
86 9eeb0aa5 Michael Hanselmann
87 9eeb0aa5 Michael Hanselmann
-- | The default LUXI socket for queries.
88 29a30533 Iustin Pop
defaultQuerySocket :: IO FilePath
89 29a30533 Iustin Pop
defaultQuerySocket = socketDir `pjoin` "ganeti-query"
90 9eeb0aa5 Michael Hanselmann
91 29a30533 Iustin Pop
-- | Path to file containing confd's HMAC key.
92 29a30533 Iustin Pop
confdHmacKey :: IO FilePath
93 1db32048 Iustin Pop
confdHmacKey = dataDirP "hmac.key"
94 9eeb0aa5 Michael Hanselmann
95 29a30533 Iustin Pop
-- | Path to cluster configuration file.
96 29a30533 Iustin Pop
clusterConfFile :: IO FilePath
97 1db32048 Iustin Pop
clusterConfFile  = dataDirP "config.data"
98 7766de33 Agata Murawska
99 29a30533 Iustin Pop
-- | Path to the noded certificate.
100 1db32048 Iustin Pop
nodedCertFile :: IO FilePath
101 1db32048 Iustin Pop
nodedCertFile = dataDirP "server.pem"
102 1db32048 Iustin Pop
103 1db32048 Iustin Pop
-- | Job queue directory.
104 1db32048 Iustin Pop
queueDir :: IO FilePath
105 1db32048 Iustin Pop
queueDir = dataDirP "queue"
106 1db32048 Iustin Pop
107 1db32048 Iustin Pop
-- | Job queue serial file.
108 1db32048 Iustin Pop
jobQueueSerialFile :: IO FilePath
109 6fe0f9a6 Klaus Aehlig
jobQueueSerialFile = queueDir `pjoin` "serial"
110 1db32048 Iustin Pop
111 1db32048 Iustin Pop
-- | Job queue archive directory.
112 1db32048 Iustin Pop
jobQueueArchiveSubDir :: FilePath
113 1db32048 Iustin Pop
jobQueueArchiveSubDir = "archive"