[Pkg-ganeti-devel] [ganeti] 21/165: Add an option --first-job-group

[Apollon Oikonomopoulos]

This is an automated email from the git hooks/post-receive script.

apoikos pushed a commit to branch master
in repository ganeti.

commit b602fbe099eada5a33baea977a4bcedd3a092435
Author: Klaus Aehlig <aehlig at google.com>
Date:   Fri Feb 6 16:47:23 2015 +0100

    Add an option --first-job-group
    
    ...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 <aehlig at google.com>
    Reviewed-by: Hrvoje Ribicic <riba at 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 30cfd9c..3516f80 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
@@ -153,6 +154,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
@@ -218,6 +220,7 @@ defaultOptions  = Options
   , optExInst      = []
   , optExTags      = Nothing
   , optExecJobs    = False
+  , optFirstJobGroup = False
   , optForce       = False
   , optFullEvacuation = False
   , optGroup       = Nothing
@@ -451,6 +454,13 @@ oReason =
    "The reason to pass to the submitted jobs",
    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"]

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-ganeti/ganeti.git