{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric      #-}
{-# LANGUAGE OverloadedStrings  #-}
{-# LANGUAGE RecordWildCards    #-}
{-# LANGUAGE TypeFamilies       #-}

{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds   #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Network.AWS.OpsWorksCM.CreateServer
-- Copyright   : (c) 2013-2016 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Creates and immedately starts a new Server. The server can be used once it has reached the @HEALTHY@ state.
--
--
-- This operation is asnychronous.
--
-- A @LimitExceededException@ is thrown then the maximum number of server backup is reached. A @ResourceAlreadyExistsException@ is raise when a server with the same name already exists in the account. A @ResourceNotFoundException@ is thrown when a backupId is passed, but the backup does not exist. A @ValidationException@ is thrown when parameters of the request are not valid.
--
-- By default 10 servers can be created. A @LimitExceededException@ is raised when the limit is exceeded.
--
-- When no security groups are provided by using @SecurityGroupIds@ , AWS OpsWorks creates a new security group. This security group opens the Chef server to the world on TCP port 443. If a KeyName is present, SSH access is enabled. SSH is also open to the world on TCP port 22.
--
-- By default, the Chef Server is accessible from any IP address. We recommend that you update your security group rules to allow access from known IP addresses and address ranges only. To edit security group rules, open Security Groups in the navigation pane of the EC2 management console.
--
module Network.AWS.OpsWorksCM.CreateServer
    (
    -- * Creating a Request
      createServer
    , CreateServer
    -- * Request Lenses
    , csEngineVersion
    , csDisableAutomatedBackup
    , csSecurityGroupIds
    , csSubnetIds
    , csKeyPair
    , csBackupId
    , csEngine
    , csInstanceType
    , csEngineModel
    , csEngineAttributes
    , csPreferredMaintenanceWindow
    , csPreferredBackupWindow
    , csBackupRetentionCount
    , csServerName
    , csInstanceProfileARN
    , csServiceRoleARN

    -- * Destructuring the Response
    , createServerResponse
    , CreateServerResponse
    -- * Response Lenses
    , csrsServer
    , csrsResponseStatus
    ) where

import           Network.AWS.Lens
import           Network.AWS.OpsWorksCM.Types
import           Network.AWS.OpsWorksCM.Types.Product
import           Network.AWS.Prelude
import           Network.AWS.Request
import           Network.AWS.Response

-- | /See:/ 'createServer' smart constructor.
data CreateServer = CreateServer'
    { _csEngineVersion              :: !(Maybe Text)
    , _csDisableAutomatedBackup     :: !(Maybe Bool)
    , _csSecurityGroupIds           :: !(Maybe [Text])
    , _csSubnetIds                  :: !(Maybe [Text])
    , _csKeyPair                    :: !(Maybe Text)
    , _csBackupId                   :: !(Maybe Text)
    , _csEngine                     :: !(Maybe Text)
    , _csInstanceType               :: !(Maybe Text)
    , _csEngineModel                :: !(Maybe Text)
    , _csEngineAttributes           :: !(Maybe [EngineAttribute])
    , _csPreferredMaintenanceWindow :: !(Maybe Text)
    , _csPreferredBackupWindow      :: !(Maybe Text)
    , _csBackupRetentionCount       :: !(Maybe Nat)
    , _csServerName                 :: !Text
    , _csInstanceProfileARN         :: !Text
    , _csServiceRoleARN             :: !Text
    } deriving (Eq,Read,Show,Data,Typeable,Generic)

-- | Creates a value of 'CreateServer' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'csEngineVersion' - The major release version of the engine that you want to use. Values depend on the engine that you choose.
--
-- * 'csDisableAutomatedBackup' - Enable or disable scheduled backups. Valid values are @true@ or @false@ . The default value is @true@ .
--
-- * 'csSecurityGroupIds' - A list of security group IDs to attach to the Amazon EC2 instance. If you add this parameter, the specified security groups must be within the VPC that is specified by @SubnetIds@ .  If you do not specify this parameter, AWS OpsWorks for Chef Automate creates one new security group that uses TCP ports 22 and 443, open to 0.0.0.0/0 (everyone).
--
-- * 'csSubnetIds' - The IDs of subnets in which to launch the server EC2 instance.  Amazon EC2-Classic customers: This field is required. All servers must run within a VPC. The VPC must have "Auto Assign Public IP" enabled.  EC2-VPC customers: This field is optional. If you do not specify subnet IDs, your EC2 instances are created in a default subnet that is selected by Amazon EC2. If you specify subnet IDs, the VPC must have "Auto Assign Public IP" enabled.  For more information about supported Amazon EC2 platforms, see <http://docs.aws.amazon.com/https:/docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-supported-platforms.html Supported Platforms> .
--
-- * 'csKeyPair' - The Amazon EC2 key pair to set for the instance. You may specify this parameter to connect to your instances by using SSH.
--
-- * 'csBackupId' - If you specify this field, AWS OpsWorks for Chef Automate creates the server by using the backup represented by BackupId.
--
-- * 'csEngine' - The configuration management engine to use. Valid values include @Chef@ .
--
-- * 'csInstanceType' - The Amazon EC2 instance type to use. Valid values must be specified in the following format: @^([cm][34]|t2).*@ For example, @c3.large@ .
--
-- * 'csEngineModel' - The engine model, or option. Valid values include @Single@ .
--
-- * 'csEngineAttributes' - Engine attributes on a specified server.  __Attributes accepted in a createServer request:__      * @CHEF_PIVOTAL_KEY@ : A base64-encoded RSA private key that is not stored by AWS OpsWorks for Chef Automate. This private key is required to access the Chef API.
--
-- * 'csPreferredMaintenanceWindow' - The start time for a one-hour period each week during which AWS OpsWorks for Chef Automate performs maintenance on the instance. Valid values must be specified in the following format: @DDD:HH:MM@ . The specified time is in coordinated universal time (UTC). The default value is a random one-hour period on Tuesday, Wednesday, or Friday. See @TimeWindowDefinition@ for more information.  __Example:__ @Mon:08:00@ , which represents a start time of every Monday at 08:00 UTC. (8:00 a.m.)
--
-- * 'csPreferredBackupWindow' - The start time for a one-hour period during which AWS OpsWorks for Chef Automate backs up application-level data on your server if backups are enabled. Valid values must be specified in one of the following formats:      * @HH:MM@ for daily backups     * @DDD:HH:MM@ for weekly backups The specified time is in coordinated universal time (UTC). The default value is a random, daily start time. __Example:__ @08:00@ , which represents a daily start time of 08:00 UTC. __Example:__ @Mon:08:00@ , which represents a start time of every Monday at 08:00 UTC. (8:00 a.m.)
--
-- * 'csBackupRetentionCount' - The number of automated backups that you want to keep. Whenever a new backup is created, AWS OpsWorks for Chef Automate deletes the oldest backups if this number is exceeded. The default value is @1@ .
--
-- * 'csServerName' - The name of the server. The server name must be unique within your AWS account, within each region. Server names must start with a letter; then letters, numbers, or hyphens (-) are allowed, up to a maximum of 32 characters.
--
-- * 'csInstanceProfileARN' - The ARN of the instance profile that your Amazon EC2 instances use. Although the AWS OpsWorks console typically creates the instance profile for you, in this release of AWS OpsWorks for Chef Automate, run the service-role-creation.yaml AWS CloudFormation template, located at https://s3.amazonaws.com/opsworks-stuff/latest/service-role-creation.yaml. This template creates a stack that includes the instance profile you need.
--
-- * 'csServiceRoleARN' - The service role that the AWS OpsWorks for Chef Automate service backend uses to work with your account. Although the AWS OpsWorks console typically creates the service role for you, in this release of AWS OpsWorks for Chef Automate, run the service-role-creation.yaml AWS CloudFormation template, located at https://s3.amazonaws.com/opsworks-stuff/latest/service-role-creation.yaml. This template creates a stack that includes the service role that you need.
createServer
    :: Text -- ^ 'csServerName'
    -> Text -- ^ 'csInstanceProfileARN'
    -> Text -- ^ 'csServiceRoleARN'
    -> CreateServer
createServer pServerName_ pInstanceProfileARN_ pServiceRoleARN_ =
    CreateServer'
    { _csEngineVersion = Nothing
    , _csDisableAutomatedBackup = Nothing
    , _csSecurityGroupIds = Nothing
    , _csSubnetIds = Nothing
    , _csKeyPair = Nothing
    , _csBackupId = Nothing
    , _csEngine = Nothing
    , _csInstanceType = Nothing
    , _csEngineModel = Nothing
    , _csEngineAttributes = Nothing
    , _csPreferredMaintenanceWindow = Nothing
    , _csPreferredBackupWindow = Nothing
    , _csBackupRetentionCount = Nothing
    , _csServerName = pServerName_
    , _csInstanceProfileARN = pInstanceProfileARN_
    , _csServiceRoleARN = pServiceRoleARN_
    }

-- | The major release version of the engine that you want to use. Values depend on the engine that you choose.
csEngineVersion :: Lens' CreateServer (Maybe Text)
csEngineVersion = lens _csEngineVersion (\ s a -> s{_csEngineVersion = a});

-- | Enable or disable scheduled backups. Valid values are @true@ or @false@ . The default value is @true@ .
csDisableAutomatedBackup :: Lens' CreateServer (Maybe Bool)
csDisableAutomatedBackup = lens _csDisableAutomatedBackup (\ s a -> s{_csDisableAutomatedBackup = a});

-- | A list of security group IDs to attach to the Amazon EC2 instance. If you add this parameter, the specified security groups must be within the VPC that is specified by @SubnetIds@ .  If you do not specify this parameter, AWS OpsWorks for Chef Automate creates one new security group that uses TCP ports 22 and 443, open to 0.0.0.0/0 (everyone).
csSecurityGroupIds :: Lens' CreateServer [Text]
csSecurityGroupIds = lens _csSecurityGroupIds (\ s a -> s{_csSecurityGroupIds = a}) . _Default . _Coerce;

-- | The IDs of subnets in which to launch the server EC2 instance.  Amazon EC2-Classic customers: This field is required. All servers must run within a VPC. The VPC must have "Auto Assign Public IP" enabled.  EC2-VPC customers: This field is optional. If you do not specify subnet IDs, your EC2 instances are created in a default subnet that is selected by Amazon EC2. If you specify subnet IDs, the VPC must have "Auto Assign Public IP" enabled.  For more information about supported Amazon EC2 platforms, see <http://docs.aws.amazon.com/https:/docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-supported-platforms.html Supported Platforms> .
csSubnetIds :: Lens' CreateServer [Text]
csSubnetIds = lens _csSubnetIds (\ s a -> s{_csSubnetIds = a}) . _Default . _Coerce;

-- | The Amazon EC2 key pair to set for the instance. You may specify this parameter to connect to your instances by using SSH.
csKeyPair :: Lens' CreateServer (Maybe Text)
csKeyPair = lens _csKeyPair (\ s a -> s{_csKeyPair = a});

-- | If you specify this field, AWS OpsWorks for Chef Automate creates the server by using the backup represented by BackupId.
csBackupId :: Lens' CreateServer (Maybe Text)
csBackupId = lens _csBackupId (\ s a -> s{_csBackupId = a});

-- | The configuration management engine to use. Valid values include @Chef@ .
csEngine :: Lens' CreateServer (Maybe Text)
csEngine = lens _csEngine (\ s a -> s{_csEngine = a});

-- | The Amazon EC2 instance type to use. Valid values must be specified in the following format: @^([cm][34]|t2).*@ For example, @c3.large@ .
csInstanceType :: Lens' CreateServer (Maybe Text)
csInstanceType = lens _csInstanceType (\ s a -> s{_csInstanceType = a});

-- | The engine model, or option. Valid values include @Single@ .
csEngineModel :: Lens' CreateServer (Maybe Text)
csEngineModel = lens _csEngineModel (\ s a -> s{_csEngineModel = a});

-- | Engine attributes on a specified server.  __Attributes accepted in a createServer request:__      * @CHEF_PIVOTAL_KEY@ : A base64-encoded RSA private key that is not stored by AWS OpsWorks for Chef Automate. This private key is required to access the Chef API.
csEngineAttributes :: Lens' CreateServer [EngineAttribute]
csEngineAttributes = lens _csEngineAttributes (\ s a -> s{_csEngineAttributes = a}) . _Default . _Coerce;

-- | The start time for a one-hour period each week during which AWS OpsWorks for Chef Automate performs maintenance on the instance. Valid values must be specified in the following format: @DDD:HH:MM@ . The specified time is in coordinated universal time (UTC). The default value is a random one-hour period on Tuesday, Wednesday, or Friday. See @TimeWindowDefinition@ for more information.  __Example:__ @Mon:08:00@ , which represents a start time of every Monday at 08:00 UTC. (8:00 a.m.)
csPreferredMaintenanceWindow :: Lens' CreateServer (Maybe Text)
csPreferredMaintenanceWindow = lens _csPreferredMaintenanceWindow (\ s a -> s{_csPreferredMaintenanceWindow = a});

-- | The start time for a one-hour period during which AWS OpsWorks for Chef Automate backs up application-level data on your server if backups are enabled. Valid values must be specified in one of the following formats:      * @HH:MM@ for daily backups     * @DDD:HH:MM@ for weekly backups The specified time is in coordinated universal time (UTC). The default value is a random, daily start time. __Example:__ @08:00@ , which represents a daily start time of 08:00 UTC. __Example:__ @Mon:08:00@ , which represents a start time of every Monday at 08:00 UTC. (8:00 a.m.)
csPreferredBackupWindow :: Lens' CreateServer (Maybe Text)
csPreferredBackupWindow = lens _csPreferredBackupWindow (\ s a -> s{_csPreferredBackupWindow = a});

-- | The number of automated backups that you want to keep. Whenever a new backup is created, AWS OpsWorks for Chef Automate deletes the oldest backups if this number is exceeded. The default value is @1@ .
csBackupRetentionCount :: Lens' CreateServer (Maybe Natural)
csBackupRetentionCount = lens _csBackupRetentionCount (\ s a -> s{_csBackupRetentionCount = a}) . mapping _Nat;

-- | The name of the server. The server name must be unique within your AWS account, within each region. Server names must start with a letter; then letters, numbers, or hyphens (-) are allowed, up to a maximum of 32 characters.
csServerName :: Lens' CreateServer Text
csServerName = lens _csServerName (\ s a -> s{_csServerName = a});

-- | The ARN of the instance profile that your Amazon EC2 instances use. Although the AWS OpsWorks console typically creates the instance profile for you, in this release of AWS OpsWorks for Chef Automate, run the service-role-creation.yaml AWS CloudFormation template, located at https://s3.amazonaws.com/opsworks-stuff/latest/service-role-creation.yaml. This template creates a stack that includes the instance profile you need.
csInstanceProfileARN :: Lens' CreateServer Text
csInstanceProfileARN = lens _csInstanceProfileARN (\ s a -> s{_csInstanceProfileARN = a});

-- | The service role that the AWS OpsWorks for Chef Automate service backend uses to work with your account. Although the AWS OpsWorks console typically creates the service role for you, in this release of AWS OpsWorks for Chef Automate, run the service-role-creation.yaml AWS CloudFormation template, located at https://s3.amazonaws.com/opsworks-stuff/latest/service-role-creation.yaml. This template creates a stack that includes the service role that you need.
csServiceRoleARN :: Lens' CreateServer Text
csServiceRoleARN = lens _csServiceRoleARN (\ s a -> s{_csServiceRoleARN = a});

instance AWSRequest CreateServer where
        type Rs CreateServer = CreateServerResponse
        request = postJSON opsWorksCM
        response
          = receiveJSON
              (\ s h x ->
                 CreateServerResponse' <$>
                   (x .?> "Server") <*> (pure (fromEnum s)))

instance Hashable CreateServer

instance NFData CreateServer

instance ToHeaders CreateServer where
        toHeaders
          = const
              (mconcat
                 ["X-Amz-Target" =#
                    ("OpsWorksCM_V2016_11_01.CreateServer" ::
                       ByteString),
                  "Content-Type" =#
                    ("application/x-amz-json-1.1" :: ByteString)])

instance ToJSON CreateServer where
        toJSON CreateServer'{..}
          = object
              (catMaybes
                 [("EngineVersion" .=) <$> _csEngineVersion,
                  ("DisableAutomatedBackup" .=) <$>
                    _csDisableAutomatedBackup,
                  ("SecurityGroupIds" .=) <$> _csSecurityGroupIds,
                  ("SubnetIds" .=) <$> _csSubnetIds,
                  ("KeyPair" .=) <$> _csKeyPair,
                  ("BackupId" .=) <$> _csBackupId,
                  ("Engine" .=) <$> _csEngine,
                  ("InstanceType" .=) <$> _csInstanceType,
                  ("EngineModel" .=) <$> _csEngineModel,
                  ("EngineAttributes" .=) <$> _csEngineAttributes,
                  ("PreferredMaintenanceWindow" .=) <$>
                    _csPreferredMaintenanceWindow,
                  ("PreferredBackupWindow" .=) <$>
                    _csPreferredBackupWindow,
                  ("BackupRetentionCount" .=) <$>
                    _csBackupRetentionCount,
                  Just ("ServerName" .= _csServerName),
                  Just ("InstanceProfileArn" .= _csInstanceProfileARN),
                  Just ("ServiceRoleArn" .= _csServiceRoleARN)])

instance ToPath CreateServer where
        toPath = const "/"

instance ToQuery CreateServer where
        toQuery = const mempty

-- | /See:/ 'createServerResponse' smart constructor.
data CreateServerResponse = CreateServerResponse'
    { _csrsServer         :: !(Maybe Server)
    , _csrsResponseStatus :: !Int
    } deriving (Eq,Read,Show,Data,Typeable,Generic)

-- | Creates a value of 'CreateServerResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'csrsServer' - The server that is created by the request.
--
-- * 'csrsResponseStatus' - -- | The response status code.
createServerResponse
    :: Int -- ^ 'csrsResponseStatus'
    -> CreateServerResponse
createServerResponse pResponseStatus_ =
    CreateServerResponse'
    { _csrsServer = Nothing
    , _csrsResponseStatus = pResponseStatus_
    }

-- | The server that is created by the request.
csrsServer :: Lens' CreateServerResponse (Maybe Server)
csrsServer = lens _csrsServer (\ s a -> s{_csrsServer = a});

-- | -- | The response status code.
csrsResponseStatus :: Lens' CreateServerResponse Int
csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a});

instance NFData CreateServerResponse