Synnefo » snf-ganeti

{-| Implementation of DataCollectors CLI functions.

This module holds the common command-line related functions for the

collector binaries.

-}

{-

Copyright (C) 2009, 2010, 2011, 2012 Google Inc.

This program is free software; you can redistribute it and/or modify

it under the terms of the GNU General Public License as published by

the Free Software Foundation; either version 2 of the License, or

(at your option) any later version.

This program is distributed in the hope that it will be useful, but

WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

General Public License for more details.

You should have received a copy of the GNU General Public License

along with this program; if not, write to the Free Software

Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA

02110-1301, USA.

-}

module Ganeti.DataCollectors.CLI

  ( Options(..)

  , OptType

  , defaultOptions

  -- * The options

  , oShowHelp

  , oShowVer

  , oShowComp

  , oDrbdPairing

  , oDrbdStatus

  , genericOptions

  ) where

import System.Console.GetOpt

import Ganeti.BasicTypes

import Ganeti.Common as Common

-- * Data types

-- | Command line options structure.

data Options = Options

  { optShowHelp    :: Bool           -- ^ Just show the help

  , optShowComp    :: Bool           -- ^ Just show the completion info

  , optShowVer     :: Bool           -- ^ Just show the program version

  , optDrbdStatus  :: Maybe FilePath -- ^ Path to the file containing DRBD

                                     -- status information

  , optDrbdPairing :: Maybe FilePath -- ^ Path to the file containing pairings

                                     -- between instances and DRBD minors

  } deriving Show

-- | Default values for the command line options.

defaultOptions :: Options

defaultOptions  = Options

  { optShowHelp    = False

  , optShowComp    = False

  , optShowVer     = False

  , optDrbdStatus  = Nothing

  , optDrbdPairing = Nothing

  }

-- | Abbreviation for the option type.

type OptType = GenericOptType Options

instance StandardOptions Options where

  helpRequested = optShowHelp

  verRequested  = optShowVer

  compRequested = optShowComp

  requestHelp o = o { optShowHelp = True }

  requestVer  o = o { optShowVer  = True }

  requestComp o = o { optShowComp = True }

-- * Command line options

oDrbdPairing :: OptType

oDrbdPairing =

  ( Option "p" ["drbd-pairing"]

      (ReqArg (\ f o -> Ok o { optDrbdPairing = Just f}) "FILE")

      "the FILE containing pairings between instances and DRBD minors",

    OptComplFile)

oDrbdStatus :: OptType

oDrbdStatus =

  ( Option "s" ["drbd-status"]

      (ReqArg (\ f o -> Ok o { optDrbdStatus = Just f }) "FILE")

      "the DRBD status FILE",

    OptComplFile)

-- | Generic options.

genericOptions :: [GenericOptType Options]

genericOptions =  [ oShowVer

                  , oShowHelp

                  , oShowComp

                  ]