{-# 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-2018 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Creates and immedately starts a new server. The server is ready to use when it is in the @HEALTHY@ state. By default, you can create a maximum of 10 servers.
--
--
-- This operation is asynchronous.
--
-- A @LimitExceededException@ is thrown when you have created the maximum number of servers (10). A @ResourceAlreadyExistsException@ is thrown when a server with the same name already exists in the account. A @ResourceNotFoundException@ is thrown when you specify a backup ID that is not valid or is for a backup that does not exist. A @ValidationException@ is thrown when parameters of the request are not valid.
--
-- If you do not specify a security group by adding the @SecurityGroupIds@ parameter, AWS OpsWorks creates a new security group.
--
-- /Chef Automate:/ The default security group opens the Chef server to the world on TCP port 443. If a KeyName is present, AWS OpsWorks enables SSH access. SSH is also open to the world on TCP port 22.
--
-- /Puppet Enterprise:/ The default security group opens TCP ports 22, 443, 4433, 8140, 8142, 8143, and 8170. If a KeyName is present, AWS OpsWorks enables SSH access. SSH is also open to the world on TCP port 22.
--
-- By default, your 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
    , csAssociatePublicIPAddress
    , csSubnetIds
    , csKeyPair
    , csBackupId
    , csEngine
    , csEngineModel
    , csEngineAttributes
    , csPreferredMaintenanceWindow
    , csPreferredBackupWindow
    , csBackupRetentionCount
    , csServerName
    , csInstanceProfileARN
    , csInstanceType
    , 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])
  , _csAssociatePublicIPAddress   :: !(Maybe Bool)
  , _csSubnetIds                  :: !(Maybe [Text])
  , _csKeyPair                    :: !(Maybe Text)
  , _csBackupId                   :: !(Maybe Text)
  , _csEngine                     :: !(Maybe Text)
  , _csEngineModel                :: !(Maybe Text)
  , _csEngineAttributes           :: !(Maybe [EngineAttribute])
  , _csPreferredMaintenanceWindow :: !(Maybe Text)
  , _csPreferredBackupWindow      :: !(Maybe Text)
  , _csBackupRetentionCount       :: !(Maybe Nat)
  , _csServerName                 :: !Text
  , _csInstanceProfileARN         :: !Text
  , _csInstanceType               :: !Text
  , _csServiceRoleARN             :: !Text
  } deriving (Eq, 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. For a Chef server, the valid value for EngineVersion is currently @12@ . For a Puppet server, the valid value is @2017@ .
--
-- * '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 CM creates one new security group that uses TCP ports 22 and 443, open to 0.0.0.0/0 (everyone).
--
-- * 'csAssociatePublicIPAddress' - Associate a public IP address with a server that you are launching. Valid values are @true@ or @false@ . The default value is @true@ .
--
-- * '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/AWSEC2/latest/UserGuide/ec2-supported-platforms.html Supported Platforms> .
--
-- * 'csKeyPair' - The Amazon EC2 key pair to set for the instance. This parameter is optional; if desired, you may specify this parameter to connect to your instances by using SSH.
--
-- * 'csBackupId' - If you specify this field, AWS OpsWorks CM creates the server by using the backup represented by BackupId.
--
-- * 'csEngine' - The configuration management engine to use. Valid values include @Chef@ and @Puppet@ .
--
-- * 'csEngineModel' - The engine model of the server. Valid values in this release include @Monolithic@ for Puppet and @Single@ for Chef.
--
-- * 'csEngineAttributes' - Optional engine attributes on a specified server.  __Attributes accepted in a Chef 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. When no CHEF_PIVOTAL_KEY is set, one is generated and returned in the response.      * @CHEF_DELIVERY_ADMIN_PASSWORD@ : The password for the administrative user in the Chef Automate GUI. The password length is a minimum of eight characters, and a maximum of 32. The password can contain letters, numbers, and special characters (!/@#$%^&+=_). The password must contain at least one lower case letter, one upper case letter, one number, and one special character. When no CHEF_DELIVERY_ADMIN_PASSWORD is set, one is generated and returned in the response. __Attributes accepted in a Puppet createServer request:__      * @PUPPET_ADMIN_PASSWORD@ : To work with the Puppet Enterprise console, a password must use ASCII characters.
--
-- * 'csPreferredMaintenanceWindow' - The start time for a one-hour period each week during which AWS OpsWorks CM 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 CM backs up application-level data on your server if automated 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 CM 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 40 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, if you are using API commands instead, run the service-role-creation.yaml AWS CloudFormation template, located at https://s3.amazonaws.com/opsworks-cm-us-east-1-prod-default-assets/misc/opsworks-cm-roles.yaml. This template creates a CloudFormation stack that includes the instance profile you need.
--
-- * 'csInstanceType' - The Amazon EC2 instance type to use. For example, @m4.large@ . Recommended instance types include @t2.medium@ and greater, @m4.*@ , or @c4.xlarge@ and greater.
--
-- * 'csServiceRoleARN' - The service role that the AWS OpsWorks CM service backend uses to work with your account. Although the AWS OpsWorks management console typically creates the service role for you, if you are using the AWS CLI or API commands, run the service-role-creation.yaml AWS CloudFormation template, located at https://s3.amazonaws.com/opsworks-cm-us-east-1-prod-default-assets/misc/opsworks-cm-roles.yaml. This template creates a CloudFormation stack that includes the service role and instance profile that you need.
createServer
    :: Text -- ^ 'csServerName'
    -> Text -- ^ 'csInstanceProfileARN'
    -> Text -- ^ 'csInstanceType'
    -> Text -- ^ 'csServiceRoleARN'
    -> CreateServer
createServer pServerName_ pInstanceProfileARN_ pInstanceType_ pServiceRoleARN_ =
  CreateServer'
    { _csEngineVersion = Nothing
    , _csDisableAutomatedBackup = Nothing
    , _csSecurityGroupIds = Nothing
    , _csAssociatePublicIPAddress = Nothing
    , _csSubnetIds = Nothing
    , _csKeyPair = Nothing
    , _csBackupId = Nothing
    , _csEngine = Nothing
    , _csEngineModel = Nothing
    , _csEngineAttributes = Nothing
    , _csPreferredMaintenanceWindow = Nothing
    , _csPreferredBackupWindow = Nothing
    , _csBackupRetentionCount = Nothing
    , _csServerName = pServerName_
    , _csInstanceProfileARN = pInstanceProfileARN_
    , _csInstanceType = pInstanceType_
    , _csServiceRoleARN = pServiceRoleARN_
    }


-- | The major release version of the engine that you want to use. For a Chef server, the valid value for EngineVersion is currently @12@ . For a Puppet server, the valid value is @2017@ .
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 CM 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

-- | Associate a public IP address with a server that you are launching. Valid values are @true@ or @false@ . The default value is @true@ .
csAssociatePublicIPAddress :: Lens' CreateServer (Maybe Bool)
csAssociatePublicIPAddress = lens _csAssociatePublicIPAddress (\ s a -> s{_csAssociatePublicIPAddress = a})

-- | 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/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. This parameter is optional; if desired, 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 CM 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@ and @Puppet@ .
csEngine :: Lens' CreateServer (Maybe Text)
csEngine = lens _csEngine (\ s a -> s{_csEngine = a})

-- | The engine model of the server. Valid values in this release include @Monolithic@ for Puppet and @Single@ for Chef.
csEngineModel :: Lens' CreateServer (Maybe Text)
csEngineModel = lens _csEngineModel (\ s a -> s{_csEngineModel = a})

-- | Optional engine attributes on a specified server.  __Attributes accepted in a Chef 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. When no CHEF_PIVOTAL_KEY is set, one is generated and returned in the response.      * @CHEF_DELIVERY_ADMIN_PASSWORD@ : The password for the administrative user in the Chef Automate GUI. The password length is a minimum of eight characters, and a maximum of 32. The password can contain letters, numbers, and special characters (!/@#$%^&+=_). The password must contain at least one lower case letter, one upper case letter, one number, and one special character. When no CHEF_DELIVERY_ADMIN_PASSWORD is set, one is generated and returned in the response. __Attributes accepted in a Puppet createServer request:__      * @PUPPET_ADMIN_PASSWORD@ : To work with the Puppet Enterprise console, a password must use ASCII characters.
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 CM 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 CM backs up application-level data on your server if automated 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 CM 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 40 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, if you are using API commands instead, run the service-role-creation.yaml AWS CloudFormation template, located at https://s3.amazonaws.com/opsworks-cm-us-east-1-prod-default-assets/misc/opsworks-cm-roles.yaml. This template creates a CloudFormation stack that includes the instance profile you need.
csInstanceProfileARN :: Lens' CreateServer Text
csInstanceProfileARN = lens _csInstanceProfileARN (\ s a -> s{_csInstanceProfileARN = a})

-- | The Amazon EC2 instance type to use. For example, @m4.large@ . Recommended instance types include @t2.medium@ and greater, @m4.*@ , or @c4.xlarge@ and greater.
csInstanceType :: Lens' CreateServer Text
csInstanceType = lens _csInstanceType (\ s a -> s{_csInstanceType = a})

-- | The service role that the AWS OpsWorks CM service backend uses to work with your account. Although the AWS OpsWorks management console typically creates the service role for you, if you are using the AWS CLI or API commands, run the service-role-creation.yaml AWS CloudFormation template, located at https://s3.amazonaws.com/opsworks-cm-us-east-1-prod-default-assets/misc/opsworks-cm-roles.yaml. This template creates a CloudFormation stack that includes the service role and instance profile 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 where

instance NFData CreateServer where

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,
                  ("AssociatePublicIpAddress" .=) <$>
                    _csAssociatePublicIPAddress,
                  ("SubnetIds" .=) <$> _csSubnetIds,
                  ("KeyPair" .=) <$> _csKeyPair,
                  ("BackupId" .=) <$> _csBackupId,
                  ("Engine" .=) <$> _csEngine,
                  ("EngineModel" .=) <$> _csEngineModel,
                  ("EngineAttributes" .=) <$> _csEngineAttributes,
                  ("PreferredMaintenanceWindow" .=) <$>
                    _csPreferredMaintenanceWindow,
                  ("PreferredBackupWindow" .=) <$>
                    _csPreferredBackupWindow,
                  ("BackupRetentionCount" .=) <$>
                    _csBackupRetentionCount,
                  Just ("ServerName" .= _csServerName),
                  Just ("InstanceProfileArn" .= _csInstanceProfileARN),
                  Just ("InstanceType" .= _csInstanceType),
                  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, 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 where