Synnefo » snf-ganeti » ganeti-local

      snode = (if sidx == Node.noSecondary

                 then ""

                 else Container.nameOf nl sidx)

       iname (Instance.mem inst) (Instance.dsk inst)

       (Instance.vcpus inst) (instanceStatusToRaw (Instance.runSt inst))

       (if Instance.autoBalance inst then "Y" else "N")

       pnode snode (diskTemplateToRaw (Instance.diskTemplate inst))

       (intercalate "," (Instance.allTags inst)) (Instance.spindleUse inst)

-- | Generate instance file data from instance objects.

serializeInstances :: Node.List -> Instance.List -> String

                                               -- instance name and

                                               -- the instance object

loadInst ktn [ name, mem, dsk, vcpus, status, auto_bal, pnode, snode

  pidx <- lookupNode ktn name pnode

  sidx <- if null snode

            then return Node.noSecondary

            else lookupNode ktn name snode

  vmem <- tryRead name mem

  vvcpus <- tryRead name vcpus

  vstatus <- instanceStatusFromRaw status

  auto_balance <- case auto_bal of

  disk_template <- annotateResult ("Instance " ++ name)

                   (diskTemplateFromRaw dt)

  spindle_use <- tryRead name su

  let vtags = commaSplit tags

                auto_balance pidx sidx disk_template spindle_use []

  when (Instance.hasSecondary newinst && sidx == pidx) . fail $

    "Instance " ++ name ++ " has same primary and secondary node - " ++ pnode

             , dt, tags ] = loadInst ktn [ name, mem, dsk, vcpus, status,

                                           auto_bal, pnode, snode, dt, tags,

                                           "1" ]

loadInst _ s = fail $ "Invalid/incomplete instance data: '" ++ show s ++ "'"

-- | Loads a spec from a field list.