Synnefo » snf-ganeti

	src/Ganeti/HTools/Nic.hs \

import qualified Ganeti.HTools.Nic as Nic

-- | Parse a NIC within an instance (in a creation request)

parseNic :: String -> JSRecord -> Result Nic.Nic

parseNic n a = do

  mac     <- maybeFromObj a "mac"

  ip      <- maybeFromObj a "ip"

  mode    <- maybeFromObj a "mode" >>= \m -> case m of

               Just "bridged" -> Ok $ Just Nic.Bridged

               Just "routed" -> Ok $ Just Nic.Routed

               Just "openvswitch" -> Ok $ Just Nic.OpenVSwitch

               Nothing -> Ok Nothing

               _ -> Bad $ "invalid NIC mode in instance " ++ n

  link    <- maybeFromObj a "link"

  bridge  <- maybeFromObj a "bridge"

  network <- maybeFromObj a "network"

  return (Nic.create mac ip mode link bridge network)

  nics  <- extract "nics" >>= toArray >>= asObjectList >>=

           mapM (parseNic n . fromJSObject)

  return

    (n,

     Instance.create n mem disk disks vcpus Running tags True 0 0 dt su nics)

             xrunning xtags xauto_balance xpnode snode xdt xsu []

             auto_balance pnode snode dt su []

  (tags, ipolicy, master) <-

                auto_balance pidx sidx disk_template spindle_use []

import Ganeti.HTools.Nic (Nic)

  , nics         :: [Nic]     -- ^ NICs of the instance

       -> [Nic] -> Instance

       auto_balance_init pn sn dt su nics_init =

           , nics = nics_init

{-| Module describing an NIC.

The NIC data type only holds data about a NIC, but does not provide any

logic.

-}

{-

Copyright (C) 2009, 2010, 2011, 2012, 2013 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.HTools.Nic

  ( Nic(..)

  , Mode(..)

  , List

  , create

  ) where

import qualified Ganeti.HTools.Container as Container

import qualified Ganeti.HTools.Types as T

-- * Type declarations

data Mode = Bridged | Routed | OpenVSwitch deriving (Show, Eq)

-- | The NIC type.

--

-- It holds the data for a NIC as it is provided via the IAllocator protocol

-- for an instance creation request. All data in those request is optional,

-- that's why all fields are Maybe's.

--

-- TODO: Another name might be more appropriate for this type, as for example

-- RequestedNic. But this type is used as a field in the Instance type, which

-- is not named RequestedInstance, so such a name would be weird. PartialNic

-- already exists in Objects, but doesn't fit the bill here, as it contains

-- a required field (mac). Objects and the types therein are subject to being

-- reworked, so until then this type is left as is.

data Nic = Nic

  { mac          :: Maybe String -- ^ MAC address of the NIC

  , ip           :: Maybe String -- ^ IP address of the NIC

  , mode         :: Maybe Mode   -- ^ the mode the NIC operates in

  , link         :: Maybe String -- ^ the link of the NIC

  , bridge       :: Maybe String -- ^ the bridge this NIC is connected to if

                                 --   the mode is Bridged

  , network      :: Maybe T.NetworkID -- ^ network UUID if this NIC is connected

                                 --   to a network

  } deriving (Show, Eq)

-- | A simple name for an instance map.

type List = Container.Container Nic

-- * Initialization

-- | Create a NIC.

--

create :: Maybe String

       -> Maybe String

       -> Maybe Mode

       -> Maybe String

       -> Maybe String

       -> Maybe T.NetworkID

       -> Nic

create mac_init ip_init mode_init link_init bridge_init network_init =

  Nic { mac = mac_init

      , ip = ip_init

      , mode = mode_init

      , link = link_init

      , bridge = bridge_init

      , network = network_init

      }

instFromSpec spx dt su =

    (rspecCpu spx) Running [] True (-1) (-1) dt su []

    "vcpus": 1,

    "nics": []

    "vcpus": 1,

    "nics": []

  return $ Instance.create name mem dsk [dsk] vcpus run_st [] True pn sn dt 1 []

    (-1) Types.DTDrbd8 1 []