Synnefo » snf-ganeti » ganeti-local

              -> Node.Node  -- ^ The node to be serialised

              -> String

serializeNode gl node =

           (Node.tMem node) (Node.nMem node) (Node.fMem node)

           (Node.tDsk node) (Node.fDsk node) (Node.tCpu node)

           (if Node.offline node then 'Y' else

              if Node.isMaster node then 'M' else 'N')

           (Group.uuid grp)

           (intercalate "," (Node.nTags node))

           (if Node.exclStorage node then "Y" else "N")

    where grp = Container.find (Node.group node) gl

-- | Generate node file data from node objects.

         -> m (String, Node.Node) -- ^ The result, a tuple o node name

                                  -- and node object

loadNode ktg [name, tm, nm, fm, td, fd, tc, fo, gu, spindles, tags,

  gdx <- lookupGroup ktg name gu

  new_node <-

      if "?" `elem` [tm,nm,fm,td,fd,tc] || fo == "Y" then

      else do

        let vtags = commaSplit tags

        vtm <- tryRead name tm

        vfd <- tryRead name fd

        vtc <- tryRead name tc

        vspindles <- tryRead name spindles

        vexcl_stor <- case excl_stor of

                        "Y" -> return True

                        "N" -> return False

                             "Invalid exclusive_storage value for node '" ++

                             name ++ "': " ++ excl_stor

        return . flip Node.setMaster (fo == "M") . flip Node.setNodeTags vtags $

  return (name, new_node)

loadNode ktg [name, tm, nm, fm, td, fd, tc, fo, gu] =

loadNode ktg [name, tm, nm, fm, td, fd, tc, fo, gu, spindles, tags] =

  loadNode ktg [name, tm, nm, fm, td, fd, tc, fo, gu, spindles, tags, "N"]

loadNode _ s = fail $ "Invalid/incomplete node data: '" ++ show s ++ "'"

-- | Load an instance from a field list.