Perl

EC2 Stop Instances

See more Amazon EC2 Examples

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

use chilkat();

$success = 0;

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

$rest = chilkat::CkRest->new();

# Connect to the Amazon AWS server.
# such as https://ec2.amazonaws.com/
$bTls = 1;
$port = 443;
$bAutoReconnect = 1;
$success = $rest->Connect("ec2.us-west-2.amazonaws.com",$port,$bTls,$bAutoReconnect);

# Provide AWS credentials for the REST call.
$authAws = chilkat::CkAuthAws->new();
$authAws->put_AccessKey("AWS_ACCESS_KEY");
$authAws->put_SecretKey("AWS_SECRET_KEY");
# the region should match the region part of the domain passed to the REST connect method (above).
$authAws->put_Region("us-west-2");
$authAws->put_ServiceName("ec2");

$rest->SetAuthAws($authAws);

$rest->AddQueryParam("Action","StopInstances");
$rest->AddQueryParam("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")
$rest->AddQueryParam("DryRun","true");
$rest->AddQueryParam("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.

$responseXml = $rest->fullRequestNoBody("GET","/");
if ($rest->get_LastMethodSuccess() != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

# A successful response will have a status code equal to 200.
if ($rest->get_ResponseStatusCode() != 200) {
    print "response status code = " . $rest->get_ResponseStatusCode() . "\r\n";
    print "response status text = " . $rest->responseStatusText() . "\r\n";
    print "response header: " . $rest->responseHeader() . "\r\n";
    print "response body: " . $responseXml . "\r\n";
    exit;
}

# Examine the successful XML response.
$xml = chilkat::CkXml->new();
$xml->LoadXml($responseXml);
print $xml->getXml() . "\r\n";