Synnefo » snf-ganeti

      echo "@GNTMASTERUSER@:@GNTMASTERDGROUP@"

      ;;

    confd)

      ;;

    luxid)

      echo "@GNTLUXIDUSER@:@GNTLUXIDGROUP@"

import Ganeti.JSON

import Ganeti.OpParams (pTagsObject)

import Ganeti.OpCodes

import qualified Ganeti.Query.Language as Qlang

import Ganeti.THH

import Ganeti.Types

-- * Utility functions

  return Client { socket=h, rbuf=rf }

-- | Creates and returns a server endpoint.

  s <- S.socket S.AF_UNIX S.Stream S.defaultProtocol

  S.bindSocket s (S.SockAddrUnix path)

  S.listen s 5 -- 5 is the max backlog

  return s

  socket_path <- Path.defaultQuerySocket

  cleanupSocket socket_path

  s <- describeError "binding to the Luxi socket"

  cref <- newIORef (Bad "Configuration not yet loaded")

  return (socket_path, s, cref)

  -- we need to create the server first, otherwise (if we do it in the

  -- forked thread) the client could try to connect to it before it's

  -- ready

  -- fork the server responder

  _ <- run . forkIO $

    bracket