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 'N')

           (Group.uuid grp)

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

-- | Generate node file data from node objects.

         -> [String]              -- ^ Input data as a list of fields

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

                                  -- and node object

  gdx <- lookupGroup ktg name gu

  new_node <-

      if any (== "?") [tm,nm,fm,td,fd,tc] || fo == "Y" then

        vtd <- tryRead name td

        vfd <- tryRead name fd

        vtc <- tryRead name tc

  return (name, new_node)

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

-- | Load an instance from a field list.

  - node physical cores

  - offline field (as ``Y`` or ``N``)

  - group UUID

  The third section contains instance data, with the fields:

  - instance disk type (e.g. ``plain`` or ``drbd``)

  - instance tags

-m *cluster*

  Backend specification: collect data directly from the *cluster* given