Synnefo » snf-ganeti

              -> 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

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

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

           (Node.fSpindles node)

    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

        vtd <- tryRead name td

        vfd <- tryRead name fd

        vtc <- tryRead name tc

        vspindles <- tryRead name spindles

        vfree_spindles <- tryRead name free_spindles

        vexcl_stor <- case excl_stor of

                             "Invalid exclusive_storage value for node '" ++

                             name ++ "': " ++ excl_stor

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

          vfree_spindles gdx vexcl_stor

  return (name, new_node)

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

                excl_stor, "0"]

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

-- | Load an instance from a field list.