Synnefo » snf-ganeti » ganeti-local

.B "[-C]"

.B "[-p]"

.B "[-o]"

.BI "[-l" limit "]"

.BI "[-O" name... "]"

.BI "[-e" score "]"

.B -v, --verbose

Increase the output verbosity. Each usage of this option will increase

the verbosity (currently more than 2 doesn't make sense) from the

.TP

.B -V, --version

 , optInstSet   = False

 , optMaxLength = -1

 , optMaster    = ""

 , optOffline   = []

 , optMinScore  = 1e-9

 , optShowVer   = False

    , Option ['v']     ["verbose"]

      (NoArg (\ opts -> opts { optVerbose = (optVerbose opts) + 1 }))

      "increase the verbosity level"

    , Option ['O']     ["offline"]

      (ReqArg (\ n opts -> opts { optOffline = n:optOffline opts }) "NODE")

      " set node as offline"

  (loaded_nl, il, csf, ktn, kti) <- liftM2 Cluster.loadData node_data inst_data

  let (fix_msgs, fixed_nl) = Cluster.checkData loaded_nl il ktn kti

         putStrLn "Warning: cluster has inconsistent data:"

         putStrLn . unlines . map (\s -> printf "  - %s" s) $ fix_msgs

             (Container.size nl)

             (Container.size il)

         printf "Note: Stripping common suffix of '%s' from names\n" csf

  let (bad_nodes, bad_instances) = Cluster.computeBadItems nl il

                      ini_cv min_cv)

         exitWith ExitSuccess

                      printf "Initial coefficients: overall %.8f, %s\n"

                      ini_cv (Cluster.printStats nl)

                  else

      ord_plc = reverse fin_plc

      sol_msg = if null fin_plc

                then printf "No solution found\n"

                      then printf "Final coefficients:   overall %.8f, %s\n"

                           fin_cv (Cluster.printStats fin_nl)

                      else printf "Cluster score improved from %.8f to %.8f\n"

         putStrLn ""

         putStrLn "Final cluster status:"

         putStrLn $ Cluster.printNodes ktn fin_nl

              do

                printf "Original: mem=%d disk=%d\n" orig_mem orig_disk

                printf "Final:    mem=%d disk=%d\n" final_mem final_disk