Statistics
| Branch: | Tag: | Revision:

root / src / hconfd.hs @ 557f5dad

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 42834645 Iustin Pop
  [ oNoDaemonize
37 3c899290 Iustin Pop
  , oNoUserChecks
38 3c899290 Iustin Pop
  , oDebug
39 3c899290 Iustin Pop
  , oPort C.defaultConfdPort
40 19cff311 Iustin Pop
  , oBindAddress
41 b714ff89 Iustin Pop
  , oSyslogUsage
42 3c899290 Iustin Pop
  ]
43 3c899290 Iustin Pop
44 3c899290 Iustin Pop
-- | Main function.
45 3c899290 Iustin Pop
main :: IO ()
46 2eef8750 Michele Tartara
main =
47 2eef8750 Michele Tartara
  genericMain GanetiConfd options
48 2eef8750 Michele Tartara
    Ganeti.Confd.Server.checkMain
49 2eef8750 Michele Tartara
    Ganeti.Confd.Server.prepMain
50 2eef8750 Michele Tartara
    Ganeti.Confd.Server.main