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)

           (Node.spindleCount node)

    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 "?" `elem` [tm,nm,fm,td,fd,tc] || fo == "Y" then

          return $ Node.create name 0 0 0 0 0 0 True 0 gdx

      else do

        vtm <- tryRead name tm

        vnm <- tryRead name nm

        vfm <- tryRead name fm

        vfd <- tryRead name fd

        vtc <- tryRead name tc

        vspindles <- tryRead name spindles

          Node.create name vtm vnm vfm vtd vfd vtc False vspindles gdx

  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, "1"]

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

-- | Load an instance from a field list.

  {- group file: name uuid alloc_policy -}

  (ktg, gl) <- loadTabular glines loadGroup

  {- node file: name t_mem n_mem f_mem t_disk f_disk t_cpu offline grp_uuid

  (ktn, nl) <- loadTabular nlines (loadNode ktg)

  {- instance file: name mem disk vcpus status auto_bal pnode snode

                    disk_template tags spindle_use -}