Synnefo » snf-ganeti

      offline_indices = map Node.idx $

                        filter (\n -> elem (Node.name n) offline_names)

                               all_nodes

  when (length offline_wrong > 0) $ do

         printf "Error: Wrong node name(s) set as offline: %s\n"

                (commaJoin offline_wrong)

         exitWith $ ExitFailure 1

  let nl = Container.map (\n -> if elem (Node.idx n) offline_indices

                                then Node.setOffline n True

                                else n) fixed_nl

      newinst = Instance.create "new" (optIMem opts) (optIDsk opts)

                "ADMIN_down" (-1) (-1)

      allocs = length ixes

      fin_instances = num_instances + allocs

      fin_ixes = reverse ixes

  printf "Final instances: %d\n" (num_instances + allocs)

  printf "Final free RAM: %d\n" final_mem

  printf "Final free disk: %d\n" final_disk

                          (fromIntegral fin_instances))

  printf "Allocations: %d\n" allocs

  when (verbose > 1) $ do

         putStr . unlines . map (\i -> printf "Inst: %*s %-*s %-*s"

                     ix_namelen (Instance.name i)

                     nmlen (Container.nameOf fin_nl $ Instance.pnode i)

         $ fin_ixes

  when (optShowNodes opts) $