....to indicate that only the first group of jobs is to be
executed. This is useful for utilization-based balancing,
to allow the situation to be reevaluated after the first
set of non-conflicting moves.
Signed-off-by: Klaus Aehlig <aeh...@google.com>
---
src/Ganeti/HTools/CLI.hs | 10 ++++++++++
1 file changed, 10 insertions(+)
diff --git a/src/Ganeti/HTools/CLI.hs b/src/Ganeti/HTools/CLI.hs
index d849252..3de015e 100644
--- a/src/Ganeti/HTools/CLI.hs
+++ b/src/Ganeti/HTools/CLI.hs
@@ -61,6 +61,7 @@ module Ganeti.HTools.CLI
, oMonD
, oMonDDataFile
, oEvacMode
+ , oFirstJobGroup
, oRestrictedMigrate
, oExInst
, oExTags
@@ -152,6 +153,7 @@ data Options = Options
, optExInst :: [String] -- ^ Instances to be excluded
, optExTags :: Maybe [String] -- ^ Tags to use for exclusion
, optExecJobs :: Bool -- ^ Execute the commands via Luxi
+ , optFirstJobGroup :: Bool -- ^ Only execute the first group of jobs
, optForce :: Bool -- ^ Force the execution
, optFullEvacuation :: Bool -- ^ Fully evacuate nodes to be rebooted
, optGroup :: Maybe GroupID -- ^ The UUID of the group to process
@@ -215,6 +217,7 @@ defaultOptions = Options
, optExInst = []
, optExTags = Nothing
, optExecJobs = False
+ , optFirstJobGroup = False
, optForce = False
, optFullEvacuation = False
, optGroup = Nothing
@@ -440,6 +443,13 @@ oExecJobs =
\ it for data gathering)",
OptComplNone)
+oFirstJobGroup :: OptType
+oFirstJobGroup =
+ (Option "" ["first-job-group"]
+ (NoArg (\ opts -> Ok opts {optFirstJobGroup = True}))
+ "only execute the first group of jobs",
+ OptComplNone)
+
oForce :: OptType
oForce =
(Option "f" ["force"]
--
2.2.0.rc0.207.ga3a616c
