Statistics
| Branch: | Tag: | Revision:

root / htools / hail.hs @ 00152519

History | View | Annotate | Download (1.9 kB)

1
{-| IAllocator plugin for Ganeti.
2

    
3
-}
4

    
5
{-
6

    
7
Copyright (C) 2009, 2010, 2011 Google Inc.
8

    
9
This program is free software; you can redistribute it and/or modify
10
it under the terms of the GNU General Public License as published by
11
the Free Software Foundation; either version 2 of the License, or
12
(at your option) any later version.
13

    
14
This program is distributed in the hope that it will be useful, but
15
WITHOUT ANY WARRANTY; without even the implied warranty of
16
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
17
General Public License for more details.
18

    
19
You should have received a copy of the GNU General Public License
20
along with this program; if not, write to the Free Software
21
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
22
02110-1301, USA.
23

    
24
-}
25

    
26
module Main (main) where
27

    
28
import Control.Monad
29
import Data.Maybe (isJust, fromJust)
30
import System.IO
31
import qualified System
32

    
33
import qualified Ganeti.HTools.Cluster as Cluster
34

    
35
import Ganeti.HTools.CLI
36
import Ganeti.HTools.IAlloc
37
import Ganeti.HTools.Loader (Request(..), ClusterData(..))
38

    
39
-- | Options list and functions
40
options :: [OptType]
41
options =
42
    [ oPrintNodes
43
    , oDataFile
44
    , oNodeSim
45
    , oVerbose
46
    , oShowVer
47
    , oShowHelp
48
    ]
49

    
50
-- | Main function.
51
main :: IO ()
52
main = do
53
  cmd_args <- System.getArgs
54
  (opts, args) <- parseOpts cmd_args "hail" options
55

    
56
  let shownodes = optShowNodes opts
57
      verbose = optVerbose opts
58

    
59
  request <- readRequest opts args
60

    
61
  let Request rq cdata = request
62

    
63
  when (verbose > 1) $
64
       hPutStrLn stderr $ "Received request: " ++ show rq
65

    
66
  when (verbose > 2) $
67
       hPutStrLn stderr $ "Received cluster data: " ++ show cdata
68

    
69
  when (isJust shownodes) $ do
70
         hPutStrLn stderr "Initial cluster status:"
71
         hPutStrLn stderr $ Cluster.printNodes (cdNodes cdata)
72
                       (fromJust shownodes)
73

    
74
  let resp = runIAllocator request
75
  putStrLn resp