Statistics
| Branch: | Tag: | Revision:

root / htools / hconfd.hs @ 0c28bee1

History | View | Annotate | Download (1.2 kB)

1 3c899290 Iustin Pop
{-| Ganeti configuration query daemon
2 3c899290 Iustin Pop
3 3c899290 Iustin Pop
-}
4 3c899290 Iustin Pop
5 3c899290 Iustin Pop
{-
6 3c899290 Iustin Pop
7 19cff311 Iustin Pop
Copyright (C) 2009, 2011, 2012 Google Inc.
8 3c899290 Iustin Pop
9 3c899290 Iustin Pop
This program is free software; you can redistribute it and/or modify
10 3c899290 Iustin Pop
it under the terms of the GNU General Public License as published by
11 3c899290 Iustin Pop
the Free Software Foundation; either version 2 of the License, or
12 3c899290 Iustin Pop
(at your option) any later version.
13 3c899290 Iustin Pop
14 3c899290 Iustin Pop
This program is distributed in the hope that it will be useful, but
15 3c899290 Iustin Pop
WITHOUT ANY WARRANTY; without even the implied warranty of
16 3c899290 Iustin Pop
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
17 3c899290 Iustin Pop
General Public License for more details.
18 3c899290 Iustin Pop
19 3c899290 Iustin Pop
You should have received a copy of the GNU General Public License
20 3c899290 Iustin Pop
along with this program; if not, write to the Free Software
21 3c899290 Iustin Pop
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
22 3c899290 Iustin Pop
02110-1301, USA.
23 3c899290 Iustin Pop
24 3c899290 Iustin Pop
-}
25 3c899290 Iustin Pop
26 3c899290 Iustin Pop
module Main (main) where
27 3c899290 Iustin Pop
28 3c899290 Iustin Pop
import qualified Ganeti.Confd.Server
29 3c899290 Iustin Pop
import Ganeti.Daemon
30 3c899290 Iustin Pop
import Ganeti.Runtime
31 3c899290 Iustin Pop
import qualified Ganeti.Constants as C
32 3c899290 Iustin Pop
33 3c899290 Iustin Pop
-- | Options list and functions.
34 3c899290 Iustin Pop
options :: [OptType]
35 3c899290 Iustin Pop
options =
36 3c899290 Iustin Pop
  [ oShowHelp
37 3c899290 Iustin Pop
  , oShowVer
38 3c899290 Iustin Pop
  , oNoDaemonize
39 3c899290 Iustin Pop
  , oNoUserChecks
40 3c899290 Iustin Pop
  , oDebug
41 3c899290 Iustin Pop
  , oPort C.defaultConfdPort
42 19cff311 Iustin Pop
  , oBindAddress
43 b714ff89 Iustin Pop
  , oSyslogUsage
44 3c899290 Iustin Pop
  ]
45 3c899290 Iustin Pop
46 3c899290 Iustin Pop
-- | Main function.
47 3c899290 Iustin Pop
main :: IO ()
48 3c899290 Iustin Pop
main = genericMain GanetiConfd options Ganeti.Confd.Server.main