Tcl

EC2 Stop Instances

See more Amazon EC2 Examples

Demonstrates how to send a request to stop Amazon EC2 instances. Tcl

load ./chilkat.dll

set success 0

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

set rest [new_CkRest]

# Connect to the Amazon AWS server.
# such as https://ec2.amazonaws.com/
set bTls 1
set port 443
set bAutoReconnect 1
set success [CkRest_Connect $rest "ec2.us-west-2.amazonaws.com" $port $bTls $bAutoReconnect]

# Provide AWS credentials for the REST call.
set authAws [new_CkAuthAws]

CkAuthAws_put_AccessKey $authAws "AWS_ACCESS_KEY"
CkAuthAws_put_SecretKey $authAws "AWS_SECRET_KEY"
# the region should match the region part of the domain passed to the REST connect method (above).
CkAuthAws_put_Region $authAws "us-west-2"
CkAuthAws_put_ServiceName $authAws "ec2"

CkRest_SetAuthAws $rest $authAws

CkRest_AddQueryParam $rest "Action" "StopInstances"
CkRest_AddQueryParam $rest "Version" "2016-11-15"
# If DryRun is true then checks whether you have the required permissions for the action, 
# without actually making the request, and provides an error response. If you have the required permissions, 
# the error response is DryRunOperation. Otherwise, it is UnauthorizedOperation.
# Omit the DryRun query parameter to actually start the instance.  (Or set DryRun equal to "false")
CkRest_AddQueryParam $rest "DryRun" "true"
CkRest_AddQueryParam $rest "InstanceId.1" "i-999719995399c9999"

# See EC2 Stop Instances Reference Documentation
# for more information about the Force and Hibernate query params, which are optional and true/false just like DryRun.

set responseXml [CkRest_fullRequestNoBody $rest "GET" "/"]
if {[CkRest_get_LastMethodSuccess $rest] != 1} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    delete_CkAuthAws $authAws
    exit
}

# A successful response will have a status code equal to 200.
if {[CkRest_get_ResponseStatusCode $rest] != 200} then {
    puts "response status code = [CkRest_get_ResponseStatusCode $rest]"
    puts "response status text = [CkRest_responseStatusText $rest]"
    puts "response header: [CkRest_responseHeader $rest]"
    puts "response body: $responseXml"
    delete_CkRest $rest
    delete_CkAuthAws $authAws
    exit
}

# Examine the successful XML response.
set xml [new_CkXml]

CkXml_LoadXml $xml $responseXml
puts [CkXml_getXml $xml]

delete_CkRest $rest
delete_CkAuthAws $authAws
delete_CkXml $xml