Revision 19e310cc htools/Ganeti/HTools/Program/Hinfo.hs
b/htools/Ganeti/HTools/Program/Hinfo.hs | ||
---|---|---|
35 | 35 |
import qualified Ganeti.HTools.Container as Container |
36 | 36 |
import qualified Ganeti.HTools.Cluster as Cluster |
37 | 37 |
import qualified Ganeti.HTools.Node as Node |
38 |
import qualified Ganeti.HTools.Group as Group |
|
38 | 39 |
import qualified Ganeti.HTools.Instance as Instance |
39 | 40 |
|
41 |
import Ganeti.HTools.Utils |
|
40 | 42 |
import Ganeti.HTools.CLI |
41 | 43 |
import Ganeti.HTools.ExtLoader |
42 | 44 |
import Ganeti.HTools.Loader |
... | ... | |
56 | 58 |
, oShowHelp |
57 | 59 |
] |
58 | 60 |
|
59 |
-- | Do a few checks on the cluster data. |
|
60 |
checkCluster :: Int -> Node.List -> Instance.List -> IO () |
|
61 |
checkCluster verbose nl il = do |
|
62 |
-- nothing to do on an empty cluster |
|
63 |
when (Container.null il) $ do |
|
64 |
printf "Cluster is empty, exiting.\n"::IO () |
|
65 |
exitWith ExitSuccess |
|
66 |
|
|
67 |
-- hbal doesn't currently handle split clusters |
|
61 |
-- | Gather and print split instances |
|
62 |
splitInstancesInfo :: Int -> Node.List -> Instance.List -> IO () |
|
63 |
splitInstancesInfo verbose nl il = do |
|
68 | 64 |
let split_insts = Cluster.findSplitInstances nl il |
69 |
unless (null split_insts) $ do |
|
70 |
hPutStrLn stderr "Found instances belonging to multiple node groups:" |
|
71 |
mapM_ (\i -> hPutStrLn stderr $ " " ++ Instance.name i) split_insts |
|
72 |
hPutStrLn stderr "Aborting." |
|
73 |
exitWith $ ExitFailure 1 |
|
74 |
|
|
75 |
printf "Loaded %d nodes, %d instances\n" |
|
76 |
(Container.size nl) |
|
77 |
(Container.size il)::IO () |
|
65 |
if (null split_insts) |
|
66 |
then |
|
67 |
when (verbose > 1) $ do |
|
68 |
putStrLn "No split instances found"::IO () |
|
69 |
else do |
|
70 |
putStrLn "Found instances belonging to multiple node groups:" |
|
71 |
mapM_ (\i -> hPutStrLn stderr $ " " ++ Instance.name i) split_insts |
|
72 |
|
|
73 |
-- | Print common (interesting) information |
|
74 |
commonInfo :: Int -> Group.List -> Node.List -> Instance.List -> IO () |
|
75 |
commonInfo verbose gl nl il = do |
|
76 |
when (Container.null il && verbose > 1) $ do |
|
77 |
printf "Cluster is empty.\n"::IO () |
|
78 |
|
|
79 |
let nl_size = (Container.size nl) |
|
80 |
il_size = (Container.size il) |
|
81 |
gl_size = (Container.size gl) |
|
82 |
printf "Loaded %d %s, %d %s, %d %s\n" |
|
83 |
nl_size (plural nl_size "node" "nodes") |
|
84 |
il_size (plural il_size "instance" "instances") |
|
85 |
gl_size (plural gl_size "node group" "node groups")::IO () |
|
78 | 86 |
|
79 | 87 |
let csf = commonSuffix nl il |
80 | 88 |
when (not (null csf) && verbose > 1) $ |
... | ... | |
99 | 107 |
putStrLn $ "Loaded node groups: " ++ show gl |
100 | 108 |
|
101 | 109 |
nlf <- setNodeStatus opts fixed_nl |
102 |
checkCluster verbose nlf ilf |
|
103 | 110 |
|
104 |
printf "Cluster has %d node group(s)\n" (Container.size gl)::IO () |
|
111 |
commonInfo verbose gl nlf ilf |
|
112 |
|
|
113 |
splitInstancesInfo verbose nlf ilf |
|
105 | 114 |
|
106 | 115 |
maybePrintInsts showinsts "Instances" (Cluster.printInsts nlf ilf) |
107 | 116 |
|
Also available in: Unified diff