Add KVM daemon daemonize

Add KVM daemon entry point, command-line options, backgrounding, etc
Signed-off-by: Jose A. Lopes <jabolopes@google.com>
Reviewed-by: Michele Tartara <mtartara@google.com>

.gitignore

@@ -138,6 +138,7 @@
 /src/hs2py
 /src/hs2py-constants
 /src/ganeti-confd
+/src/ganeti-kvmd
 /src/ganeti-luxid
 /src/ganeti-mond
 /src/rpc-test

Makefile.am

@@ -591,6 +591,7 @@ endif
 
 # Haskell programs to be compiled by "make really-all"
 HS_COMPILE_PROGS= \
+	src/ganeti-kvmd \
 	src/ganeti-mond \
 	src/hconfd \
 	src/hluxid \
@@ -1064,6 +1065,7 @@ src/ganeti-luxid: src/hluxid
 
 nodist_sbin_SCRIPTS += src/ganeti-confd
 nodist_sbin_SCRIPTS += src/ganeti-luxid
+nodist_sbin_SCRIPTS += src/ganeti-kvmd
 endif
 
 if ENABLE_MOND

src/ganeti-kvmd.hs

+{-| KVM daemon main
+
+-}
+
+{-
+
+Copyright (C) 2013 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.
+
+-}
+
+import Ganeti.Daemon (OptType)
+import qualified Ganeti.Daemon as Daemon
+import qualified Ganeti.Kvmd as Kvmd (start)
+import Ganeti.Runtime (GanetiDaemon(..))
+
+-- | Options list and functions.
+options :: [OptType]
+options =
+  [ Daemon.oNoDaemonize
+  , Daemon.oNoUserChecks
+  , Daemon.oDebug
+  , Daemon.oSyslogUsage
+  ]
+
+-- | Main function.
+main :: IO ()
+main =
+  Daemon.genericMain GanetiKvmd options
+    (\_ -> return . Right $ ())
+    (\_ _ -> return ())
+    (\_ _ _ -> Kvmd.start)