#!/usr/bin/perl

#

# Copyright 2007-2010 Timothy Kay

# http://timkay.com/aws/

#

# 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 3 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, see <http://www.gnu.org/licenses/>.

#

require v5.10;

$ec2_version = "2013-10-15";

$sqs_version = "2012-11-05";

$elb_version = "2011-11-15";

$sdb_version = "2009-04-15";

$iam_version = "2010-05-08";

$sts_version = "2011-06-15";

$pa_version = "2009-01-06";

$r53_version = "2012-02-29";

$ebn_version = "2010-12-01";

$cloudformation_version = "2010-05-15";

$rds_version = "2013-09-09";

use Digest::SHA qw(hmac_sha1_base64 sha256_hex hmac_sha256 hmac_sha256_hex hmac_sha256_base64);

use MIME::Base64 qw(encode_base64);

#

# Need to implement:

#

# ConfirmProductInstance - not tested

# DescribeImageAttribute - not working "An internal error has occurred"

# ModifyImageAttribute

# ResetImageAttribute

#

# Windows support:

# BundleInstance

# DescribeBundleTasks

# CancelBundleTasks

#

@cmd = (

["aws", "xml-version", XMLVERSION, [

["", Service],

]],

["ec2", "add-group addgrp", CreateSecurityGroup, [

["", GroupName],

["d", GroupDescription],

["vpc c", VpcId],

]],

["ec2", "add-keypair addkey", CreateKeyPair, [["", KeyName]]],

["ec2", "add-placement-group", CreatePlacementGroup, [

["", GroupName],

["s", Strategy],

]],

["ec2", "allocate-address allad", AllocateAddress],

["ec2", "associate-address aad", AssociateAddress, [

["", PublicIp],

["a", AllocationId],

["i", InstanceId],

]],

["ec2", "attach-volume attvol", AttachVolume, [

["", VolumeId],

["i", InstanceId],

["d", Device],

]],

["ec2", "authorize auth", AuthorizeSecurityGroupIngress, [

["" => GroupName],

["egress e" => "__action__", undef, AuthorizeSecurityGroupEgress],

["groupId i" => "GroupId"],

["protocol P" => "IpPermissions.1.IpProtocol"],

[p => undef, undef, sub {

my($min, $max) = split(/-/, "$_[0]-$_[0]");

# parse 22-22, 0-65535, 20-21, -1--1 Yikes!

($min, $max) = (-1, -1) if $_[0] == -1;

["IpPermissions.1.FromPort" => $min, "IpPermissions.1.ToPort" => $max];

}],

[q => "IpPermissions.1.ToPort"],

#["t", icmp type code],

["source-group-user u" => "IpPermissions.1.Groups.N.UserId"],

["source-group o" => "IpPermissions.1.Groups.N.GroupName"],

["source-group-id oi" => "IpPermissions.1.Groups.N.GroupId"],

["s" => "IpPermissions.1.IpRanges.N.CidrIp"],

]],

["ec2", "cancel-spot-instance-requests cancel csir", CancelSpotInstanceRequests, [

["", SpotInstanceRequestIdN],

]],

["ec2", "confirm-product-instance", ConfirmProductInstance, [

["", ProductCode],

["i", InstanceId],

]],

["ec2", "create-image cimg", CreateImage, [

["", InstanceId],

["n", Name],

["d", Description, ""],

["no-reboot", NoReboot, false],

]],

["ec2", "create-snapshot csnap", CreateSnapshot, [

["", VolumeId],

["description", Description],

]],

["ec2", "create-spot-datafeed-subscription addsds", CreateSpotDatafeedSubscription, [

["", Bucket],

["b", Bucket],

["p", Prefix, "spot/datafeed"],

]],

["ec2", "delete-spot-datafeed-subscription delsds", DeleteSpotDatafeedSubscription, []],

["ec2", "describe-spot-datafeed-subscription dsds", DescribeSpotDatafeedSubscription, []],

["ec2", "describe-spot-instance-requests dsir", DescribeSpotInstanceRequests, [

["", SpotInstanceRequestIdN],

]],

["ec2", "describe-spot-price-history dsph", DescribeSpotPriceHistory, [

["start", StartTime],

["end", EndTime],

["instance-type", InstanceType, "m1.small"],

["description", ProductDescription, "Linux/UNIX"],

]],

["ec2", "create-volume cvol", CreateVolume, [

["size", Size],

["zone", AvailabilityZone],

["snapshot", SnapshotId],

]],

["ec2", "delete-group delgrp", DeleteSecurityGroup, [["", GroupName]]],

["ec2", "delete-placement-group", DeletePlacementGroup, [["", GroupName]]],

["ec2", "delete-keypair delkey", DeleteKeyPair, [["", KeyName]]],

["ec2", "delete-snapshot delsnap", DeleteSnapshot, [["", SnapshotId]]],

["ec2", "delete-volume delvol", DeleteVolume, [["", VolumeId]]],

["ec2", "deregister", DeregisterImage, [["", ImageId]]],

["ec2", "describe-addresses dad", DescribeAddresses, [["", PublicIpN]]],

["ec2", "describe-availability-zones daz", DescribeAvailabilityZones, [["", ZoneNameN]]],

["ec2", "describe-security-groups describe-group describe-groups dgrp", DescribeSecurityGroups, [

["", GroupNameN],

["GroupName g" => "GroupNameN"],

["GroupId i" => "GroupIdN"],

["filter F", undef, undef, \&parse_tags_describe],

]],

["ec2", "describe-image-attribute", DescribeImageAttribute, [

["", ImageId],

["l", launchPermission],

["p", productCodes],

["kernel", "kernel"],

["ramdisk", "ramdisk"],

["B", "blockDeviceMapping"],

]],

["ec2", "describe-images dim", DescribeImages, [

["", ImageIdN],

["o", OwnerN],

["x", ExecutableByN],

]],

["ec2", "describe-instances din", DescribeInstances, [["", InstanceIdN]]],

["ec2", "describe-instance-attributes dinatt", DescribeInstanceAttribute, [

["", InstanceId],

["attribute a" => "Attribute"],

]],

["ec2", "describe-instance-status dins", DescribeInstanceStatus, [

["", InstanceIdN],

["a", IncludeAllInstances],

]],

["ec2", "describe-keypairs dkey", DescribeKeyPairs, [["", KeyNameN]]],

["ec2", "describe-placement-groups", DescribePlacementGroups, [["", GroupNameN]]],

["ec2", "describe-regions dreg", DescribeRegions],

["ec2", "describe-reserved-instances", DescribeReservedInstances, [

["", ReservedInstanceIdN],

]],

["ec2", "describe-reserved-instances-offerings", DescribeReservedInstancesOfferings, [

["offering", ReservedInstancesOfferingIdN],

["instance-type", InstanceType],

["availability-zone", AvailabilityZone],

["z", AvailabilityZone],

["description", ProductDescription],

]],

["ec2", "describe-snapshot-attribute dsa", DescribeSnapshotAttribute, [

["", SnapshotIdN],

["attribute", Attribute],

]],

["ec2", "reset-snapshot-attribute rsa", ResetSnapshotAttribute, [

["", SnapshotIdN],

["attribute", Attribute],

]],

["ec2", "modify-snapshot-attribute msa", ModifySnapshotAttribute, [

["", SnapshotId],

["user", UserId],

["group", UserGroup],

["attribute", Attribute],

["type", OperationType],

]],

["ec2", "describe-snapshots dsnap", DescribeSnapshots, [

["", SnapshotIdN],

["owner", Owner, "self"],

["restorableby", RestorableBy],

]],

["ec2", "describe-volumes dvol", DescribeVolumes, [["", VolumeIdN]]],

["ec2", "describe-volume-status dvs", DescribeVolumeStatus, [

["", VolumeIdN],

["filter f", undef, undef, \&parse_filter],

]],

["ec2", "detach-volume detvol", DetachVolume, [["", VolumeId]]],

["ec2", "disassociate-address disad", DisassociateAddress, [["", PublicIp]]],

["ec2", "get-console-output gco", GetConsoleOutput, [["", InstanceId]]],

["ec2", "purchase-reserved-instance-offering", PurchaseReservedInstancesOffering, [

["offering-id", ReservedInstancesOfferingId],

["instance-count", InstanceCount],

]],

["ec2", "reboot-instances reboot", RebootInstances, [["", InstanceIdN]]],

["ec2", "release-address rad", ReleaseAddress, [["", PublicIp]]],

["ec2", "register-image register", RegisterImage, [

["", ImageLocation],

["name n" => Name],

["description d" => Description],

["architecture a" => Architecture],

[kernel => KernelId],

[ramdisk => RamdiskId],

["root-device-name" => RootDeviceName, "/dev/sda1"],

["block-device-mapping b", undef, undef, \&parse_block_device_mapping],

["device-name" => "BlockDeviceMapping.N.DeviceName"],

["no-device" => "BlockDeviceMapping.N.Ebs.NoDevice"],

["virtual-name" => "BlockDeviceMapping.N.VirtualName"],

[snapshot => "BlockDeviceMapping.N.Ebs.SnapshotId"],

["volume-size" => "BlockDeviceMapping.N.Ebs.VolumeSize"],

["delete-on-termination" => "BlockDeviceMapping.N.Ebs.DeleteOnTermination"],

]],

["ec2", "request-spot-instances req-spot rsi", RequestSpotInstances, [

["" => "LaunchSpecification.ImageId", "ami-4a0df923"],

["price p" => SpotPrice],

["instance-count n" => InstanceCount, 1],

["type r" => Type, "one-time"],

["valid-from-date" => ValidFrom],

["valid-until-date" => ValidUntil],

["launch-group" => LaunchGroup],

["availability-zone-group" => AvailabilityZoneGroup],

["user-data d" => "LaunchSpecification.UserData", undef,

sub {encode_base64($_[0], "")}],

["user-data-file f" => "LaunchSpecification.UserData", undef,

sub {encode_base64(load_file($_[0]))}],

["group g" => "LaunchSpecification.SecurityGroupN"],

["a", "LaunchSpecification.AddressingType"],

["key k" => "LaunchSpecification.KeyName"],

["instance-type t" => "LaunchSpecification.InstanceType", "t1.micro"],

["availability-zone z" => "LaunchSpecification.Placement.AvailabilityZone"],

[kernel => "LaunchSpecification.KernelId"],

[ramdisk => "LaunchSpecification.RamdiskId"],

[subnet => "LaunchSpecification.SubnetId"],

["block-device-mapping b", undef, undef, \&parse_block_device_mapping_with_launch_specification],

["device-name" => "LaunchSpecification.BlockDeviceMapping.N.DeviceName"],

["no-device" => "LaunchSpecification.BlockDeviceMapping.N.Ebs.NoDevice"],

["virtual-name" => "LaunchSpecification.BlockDeviceMapping.N.VirtualName"],

[snapshot => "LaunchSpecification.BlockDeviceMapping.N.Ebs.SnapshotId"],

["volume-size" => "LaunchSpecification.BlockDeviceMapping.N.Ebs.VolumeSize"],

["volume-type" => "LaunchSpecification.BlockDeviceMapping.N.Ebs.VolumeType"], # standard or io1

["volume-iops" => "LaunchSpecification.BlockDeviceMapping.N.Ebs.Iops"], # number

["profile-arn" => "LaunchSpecification.IamInstanceProfile.Arn"],

["profile-name" => "LaunchSpecification.IamInstanceProfile.Name"],

["delete-on-termination" => "LaunchSpecification.BlockDeviceMapping.N.Ebs.DeleteOnTermination"],

[monitor => "LaunchSpecification.Monitoring.Enabled"],

]],

["ec2", "revoke", RevokeSecurityGroupIngress, [

["" => GroupName],

["egress e" => "__action__", undef, RevokeSecurityGroupEgress],

["groupId i" => "GroupId"],

["protocol P" => "IpPermissions.1.IpProtocol"],

["p" => undef, undef, sub

{

my($min, $max) = split(/-/, "$_[0]-$_[0]");

($min, $max) = (-1, -1) if $_[0] eq "-1";

["IpPermissions.1.FromPort" => $min, "IpPermissions.1.ToPort" => $max];

}],

["q", "IpPermissions.1.ToPort"],

#["t", icmp type code],

["source-group-user u" => "IpPermissions.1.Groups.N.UserId"],

["source-group o" => "IpPermissions.1.Groups.N.GroupName"],

["source-group-id oi" => "IpPermissions.1.Groups.N.GroupId"],

["s" => "IpPermissions.1.IpRanges.N.CidrIp"],

]],

["ec2", "run-instances run-instance run", RunInstances, [

["", ImageId],

["instance-count n", undef, 1, sub

{

my($min, $max) = split(/-/, "$_[0]-$_[0]");

[MinCount => $min, MaxCount => $max];

}],

["group g", SecurityGroupN],

["group-id gi", SecurityGroupIdN],

["key k", KeyName],

["user-data d", UserData, undef, sub {encode_base64($_[0], "")}],

["user-data-file f", UserData, undef, sub {encode_base64(load_file($_[0]))}],

["a", AddressingType],

["instance-type type t i", InstanceType],

["availability-zone z", "Placement.AvailabilityZone"],

["kernel", KernelId],

["ramdisk", RamdiskId],

["block-device-mapping b", undef, undef, \&parse_block_device_mapping],

["device-name" => "BlockDeviceMapping.N.DeviceName"],

["no-device" => "BlockDeviceMapping.N.Ebs.NoDevice"],

["virtual-name" => "BlockDeviceMapping.N.VirtualName"],

["snapshot s" => "BlockDeviceMapping.N.Ebs.SnapshotId"],

["volume-size" => "BlockDeviceMapping.N.Ebs.VolumeSize"],

["profile-arn" => "IamInstanceProfile.Arn"],

["profile-name role" => "IamInstanceProfile.Name"],

["delete-on-termination" => "BlockDeviceMapping.N.Ebs.DeleteOnTermination"],

["monitor m" => "Monitoring.Enabled"],

["disable-api-termination" => DisableApiTermination],

["instance-initiated-shutdown-behavior" => InstanceInitiatedShutdownBehavior],

["placement-group" => "Placement.GroupName"],

["subnet s" => SubnetId],

["net-device-index" => "NetworkInterface.N.DeviceIndex"],

["net-security-group" => "NetworkInterface.N.SecurityGroupId.1"],

["net-subnet" => "NetworkInterface.N.SubnetId"],

["net-private-ip-address" => "NetworkInterface.N.PrivateIpAddress"],

["net-associate-public-ip-address" => "NetworkInterface.N.AssociatePublicIpAddress"],

["private-ip-address" => PrivateIpAddress],

["client-token" => ClientToken],

]],

["ec2", "start-instances start", StartInstances, [["", InstanceIdN]]],

["ec2", "stop-instances stop", StopInstances, [["", InstanceIdN]]],

["ec2", "modify-instance-attribute minatt", ModifyInstanceAttribute, [["", InstanceId],

["block-device-mapping b", undef, undef, \&parse_block_device_mapping],

["disable-api-termination", "DisableApiTermination.Value"],

["ebs-optimized", EbsOptimized],

["group-id g", "GroupIdN"],

["instance-initiated-shutdown-behavior", "InstanceInitiatedShutdownBehavior.Value"],

["instance-type t", "InstanceType.Value"],

["kernel", "Kernel.Value"],

["ramdisk", "Ramdisk.Value"],

["source-dest-check", "SourceDestCheck.Value"],

["user-data d", "UserData.Value", undef, sub {encode_base64($_[0], "")}],

["user-data-file f", "UserData.Value", undef, sub {encode_base64(load_file($_[0]))}],

]],

["ec2", "terminate-instances tin", TerminateInstances, [["", InstanceIdN]]],

["ec2", "create-tags ctags", CreateTags, [

["" => "ResourceIdN"],

["tag", undef, undef, \&parse_tags],

]],

["ec2", "describe-tags dtags", DescribeTags, [

["filter", undef, undef, \&parse_tags_describe],

]],

["ec2", "delete-tags deltags", DeleteTags, [

["" => ResourceIdN],

["tag", undef, undef, \&parse_tags_delete],

]],

####################################

### Relational Database Service ###

####################################

# Short command names are based on ec2 names with 'db' inserted

# Parameter names are the same as RDS CLI documentation, with some additions.

### Database Instances ###

# http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/API_ModifyDBInstance.html

# http://docs.aws.amazon.com/AmazonRDS/latest/CommandLineReference/CLIReference-cmd-ModifyDBInstance.html

["rds", "modify-db-instance mdb", ModifyDBInstance, [

["", DBInstanceIdentifier],

["allocated-storage s", AllocatedStorage],

["allow-major-version-upgrade", AllowMajorVersionUpgrade],

["apply-immediately", ApplyImmediately],

["auto-minor-version-upgrade au", AutoMinorVersionUpgrade],

["backup-retention-period r", BackupRetentionPeriod],

["db-instance-class c", DBInstanceClass],

["db-parameter-group-name g", DBParameterGroupName],

["db-security-groups a", "DBSecurityGroups.memberN"],

["engine-version v", EngineVersion],

["iops", Iops],

["master-user-password p", MasterUserPassword],

["multi-az m", MultiAZ],

["new-db-instance-identifier n", NewDBInstanceIdentifier],

["option-group og", OptionGroupName],

["preferred-backup-window b", PreferredBackupWindow],

["preferred-maintenance-window w", PreferredMaintenanceWindow],

["vpc-security-group-ids sg", "VpcSecurityGroupIds.memberN"]

]],

# http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/API_DeleteDBInstance.html

# http://docs.aws.amazon.com/AmazonRDS/latest/CommandLineReference/CLIReference-cmd-DeleteDBInstance.html

["rds", "delete-db-instance deldb", DeleteDBInstance, [

["", DBInstanceIdentifier],

["final-db-snapshot-identifier final", FinalDBSnapshotIdentifier],

["skip-final-snapshot s", SkipFinalSnapshot]

]],

# http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/API_AddTagsToResource.html

["rds", "add-tags-to-resource cdbtags", AddTagsToResource, [

["", ResourceName],

["tag", undef, undef, \&parse_tags_member]

]],

# http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/API_DescribeDBInstances.html

# http://docs.aws.amazon.com/AmazonRDS/latest/CommandLineReference/CLIReference-cmd-DescribeDBInstances.html

["rds", "describe-db-instances ddb", DescribeDBInstances, [

["", DBInstanceIdentifier],

["marker", Marker],

["max-records m", MaxRecords]

]],

### Database Snapshots and Point-In-Time Recovery ###

# http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/API_CreateDBSnapshot.html

# http://docs.aws.amazon.com/AmazonRDS/latest/CommandLineReference/CLIReference-cmd-CreateDBSnapshot.html

["rds", "create-db-snapshot cdbsnap", CreateDBSnapshot, [

["", DBInstanceIdentifier],

["db-snapshot-identifier s snapshot", DBSnapshotIdentifier],

["tag", undef, undef, \&parse_tags_member]

]],

# http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/API_DescribeDBSnapshots.html

# http://docs.aws.amazon.com/AmazonRDS/latest/CommandLineReference/CLIReference-cmd-DescribeDBSnapshots.html

["rds", "describe-db-snapshots ddbsnap", DescribeDBSnapshots, [

["db-instance-identifier i", DBInstanceIdentifier],

["db-snapshot-identifier s snapshot", DBSnapshotIdentifier],

["marker", Marker],

["max-records m", MaxRecords],

["snapshot-type t", SnapshotType]

]],

# http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/API_CopyDBSnapshot.html

# http://docs.aws.amazon.com/AmazonRDS/latest/CommandLineReference/CLIReference-cmd-CopyDBSnapshot.html

["rds", "copy-db-snapshot cpdbsnap", CopyDBSnapshot, [

["", SourceDBSnapshotIdentifier],

["target-db-snapshot-identifier t", TargetDBSnapshotIdentifier],

["tag", undef, undef, \&parse_tags_member]

]],

# http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/API_RestoreDBInstanceFromDBSnapshot.html

# http://docs.aws.amazon.com/AmazonRDS/latest/CommandLineReference/CLIReference-cmd-RestoreDBInstanceFromDBSnapshot.html

["rds", "restore-db-instance-from-db-snapshot rdb", RestoreDBInstanceFromDBSnapshot, [

["", DBInstanceIdentifier],

["db-snapshot-identifier s snapshot", DBSnapshotIdentifier],

["auto-minor-version-upgrade au", AutoMinorVersionUpgrade],

["availability-zone z", AvailabilityZone],

["db-instance-class c", DBInstanceClass],

["db-name n", DBName],

["db-subnet-group sn", DBSubnetGroupName],

["engine e", Engine],

["iops", Iops],

["license-model lm", LicenseModel],

["multi-az m", MultiAZ],

["option-group og", OptionGroupName],

["port", Port],

["publicly-accessible pub", PubliclyAccessible],

["tag", undef, undef, \&parse_tags_member]

]],

# http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/API_DeleteDBSnapshot.html

# http://docs.aws.amazon.com/AmazonRDS/latest/CommandLineReference/CLIReference-cmd-DeleteDBSnapshot.html

["rds", "delete-db-snapshot deldbsnap", DeleteDBSnapshot, [

["", DBSnapshotIdentifier]

]],

# http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/API_DownloadDBLogFilePortion.html

# http://docs.aws.amazon.com/AmazonRDS/latest/CommandLineReference/CLIReference-cmd-DownloadCompleteDBLogFile.html

["rds", "download-db-log-file-portion downdblog", DownloadDBLogFilePortion, [

["", DBInstanceIdentifier],

["log-file-name l", LogFileName],

["marker m", Marker],

["number-of-lines n", NumberOfLines]

]],

# http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/API_DescribeDBLogFiles.html

# http://docs.aws.amazon.com/AmazonRDS/latest/CommandLineReference/CLIReference-cmd-DescribeDBLogFiles.html

["rds", "describe-db-log-files ddlf", DescribeDBLogFiles, [

["", DBInstanceIdentifier],

["filename-contains c", FilenameContains],

["file-last-written l", FileLastWritten],

["file-size s", FileSize],

["marker m", Marker],

["max-records x", MaxRecords]

]],

###########################

### Elastic BeaNstalk ###

###########################

# http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_CheckDNSAvailability.html

["ebn", "check-dns-vailability", CheckDNSAvailability, [

["", CNAMEPrefix],

]],

# http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_CreateApplication.html

["ebn", "create-application", CreateApplication, [

["", ApplicationName],

["description", ApplicationDescription]

]],

# http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_CreateApplicationVersion.html

["ebn", "create-application-version", CreateApplicationVersion, [

["", ApplicationName],

["autocreate", AutoCreateApplication],

["description", Description],

["sourcebucket", 'SourceBundle.S3Bucket'],

["sourcekey", 'SourceBundle.S3Key'],

["versionlabel", VersionLabel]

]],

# http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_CreateConfigurationTemplate.html

["ebn", "create-configuration-template", CreateConfigurationTemplate, [

["", ApplicationName],

["description", Description],

["environmentid", EnvironmentId],

["solutionstackname", SolutionStackName],

["sourceconfiguration", SourceConfiguration],

["templatename", TemplateName]

]],

# http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_CreateEnvironment.html

["ebn", "create-environment", CreateEnvironment, [

["", ApplicationName],

["cnameprefix", CNAMEPrefix],

["description", Description],

["environmentname", EnvironmentName],

["solutionstackname", SolutionStackName],

["versionlabel", VersionLabel],

["templatename", TemplateName]

]],

# http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_CreateStorageLocation.html

["ebn", "create-storage-location", CreateStorageLocation, [

["", S3Bucket]

]],

# http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_DeleteApplication.html

["ebn", "delete-application", DeleteApplication, [

["", ApplicationName],

["forceterminate", TerminateEnvByForce]

]],

# http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_DeleteApplicationVersion.html

["ebn", "delete-application-version", DeleteApplicationVersion, [

["", ApplicationName],

["deletesourcebundle", DeleteSourceBundle],

["versionlabel", VersionLabel]

]],

# http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_DeleteConfigurationTemplate.html

["ebn", "delete-configuration-template", DeleteConfigurationTemplate, [

["", ApplicationName],

["templatename", TemplateName]

]],

# http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_DeleteEnvironmentConfiguration.html

["ebn", "delete-environment-configuration", DeleteEnvironmentConfiguration, [

["", ApplicationName],

["environmentname", EnvironmentName]

]],

# http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_DescribeApplicationVersions.html

["ebn", "describe-application-versions", DescribeApplicationVersions, [

["", ApplicationName],

]],

# http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_DescribeApplications.html

["ebn", "describe-applications", DescribeApplications, []],

# http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_DescribeConfigurationOptions.html

["ebn", "describe-configuration-options", DescribeConfigurationOptions, [

["", ApplicationName],

["environmentname", EnvironmentName],

["solutionstackname", SolutionStackName],

["templatename", TemplateName]

]],

# http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_DescribeConfigurationSettings.html

["ebn", "describe-configuration-settings", DescribeConfigurationSettings, [

["", ApplicationName],

["environmentname", EnvironmentName],

["templatename", TemplateName]

]],

# http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_DescribeEnvironmentResources.html

["ebn", "describe-configuration-options", DescribeEnvironmentResources, [

["environmentid", EnvironmentId],

["environmentname", EnvironmentName]

]],

# http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_DescribeEnvironmentResources.html

["ebn", "describe-environment-resources", DescribeEnvironmentResources, [

["environmentid", EnvironmentId],

["environmentname", EnvironmentName]

]],

# http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_DescribeEnvironments.html

["ebn", "describe-environments", DescribeEnvironments, [

["", ApplicationName],

["environmentid", EnvironmentId],

["environmentname", EnvironmentName],

["includedeleted", IncludeDeleted],

["includedeletedbackto", IncludeDeletedBackTo],

["versionlabel", VersionLabel]

]],

###

### NOT Implemented: http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_DescribeEvents.html

###

# http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_ListAvailableSolutionStacks.html

["ebn", "list-solution-stacks", ListAvailableSolutionStacks, []],

# http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_RebuildEnvironment.html

["ebn", "rebuild-environment", RebuildEnvironment, [

["environmentid", EnvironmentId],

["environmentname", EnvironmentName]

]],

# http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_RequestEnvironmentInfo.html

["ebn", "request-environment-info", RequestEnvironmentInfo, [

["environmentid", EnvironmentId],

["environmentname", EnvironmentName],

["infotype", InfoType]

]],

# http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_RestartAppServer.html

["ebn", "restart-app-server", RestartAppServer, [

["environmentid", EnvironmentId],

["environmentname", EnvironmentName]

]],

# http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_RetrieveEnvironmentInfo.html

["ebn", "retrieve-environment-info", RetrieveEnvironmentInfo, [

["environmentid", EnvironmentId],

["environmentname", EnvironmentName],

["infotype", InfoType],

]],

# http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_SwapEnvironmentCNAMEs.html

["ebn", "swap-environment-cnames", SwapEnvironmentCNAMEs, [

["destinationenvironmentid", DestinationEnvironmentId],

["destinationenvironmentname", DestinationEnvironmentName],

["sourceenvironmentid", SourceEnvironmentId],

["sourceenvironmentname", SourceEnvironmentName],

]],

# http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_TerminateEnvironment.html

["ebn", "terminate-environment", TerminateEnvironment, [

["environmentid", EnvironmentId],

["environmentname", EnvironmentName]

]],

# http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_UpdateApplication.html

["ebn", "update-application", UpdateApplication, [

["", ApplicationName],

["description", ApplicationDescription]

]],

# http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_UpdateApplicationVersion.html

["ebn", "update-application-version", UpdateApplicationVersion, [

["", ApplicationName],

["description", Description],

["versionlabel", VersionLabel]

]],

###

### NOT Implemented: http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_UpdateConfigurationTemplate.html

###

# http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_UpdateEnvironment.html

["ebn", "update-environment", UpdateEnvironment, [

["description", Description],

["environmentid", EnvironmentId],

["environmentname", EnvironmentName],

["templatename", TemplateName],

["versionlabel", VersionLabel]

]],

###

### NOT Implemented: http://docs.aws.amazon.com/elasticbeanstalk/latest/APIReference/API_ValidateConfigurationSettings.html

###

#############

### ELB ###

#############

["elb", "configure-healthcheck ch", ConfigureHealthCheck, [

["", LoadBalancerName],

["target", "HealthCheck.Target"],

["healthy-threshold", "HealthCheck.HealthyThreshold"],

["unhealthy-threshold", "HealthCheck.UnhealthyThreshold"],

["interval", "HealthCheck.Interval"],

["timeout", "HealthCheck.Timeout"],

]],

["elb", "create-app-cookie-stickiness-policy cacsp", CreateAppCookieStickinessPolicy, [

["", LoadBalancerName],

["policy-name", PolicyName],

["cookie-name", CookieName],

]],

["elb", "create-lb-cookie-stickiness-policy clbcsp", CreateLBCookieStickinessPolicy, [

["", LoadBalancerName],

["policy-name", PolicyName],

["expiration-period", "policy-name", PolicyName],

]],

["elb", "create-lb clb", CreateLoadBalancer, [

["", LoadBalancerName],

["availability-zone", "AvailabilityZones.memberN"],

["protocol", "Listeners.member.1.Protocol"],

["loadbalancerport", "Listeners.member.1.LoadBalancerPort"],

["instanceport", "Listeners.member.1.InstancePort"],

["sslcertificateid", "Listeners.member.1.SSLCertificateId"],

]],

["elb", "create-lb-listeners clbl", CreateLoadBalancerListeners, [

["", LoadBalancerName],

["listener", "Listeners.memberN"],

]],

["elb", "delete-lb dellb", DeleteLoadBalancer, [

["", LoadBalancerName],

]],

["elb", "delete-lb-listeners dlbl", DeleteLoadBalancerListeners, [

["", LoadBalancerName],

["loadbalancerport", "LoadBalancerPorts.member.1"],

]],

["elb", "delete-lb-policy dlbp", DeleteLoadBalancerPolicy, [

["", LoadBalancerName],

["policy-name", PolicyName],

]],

["elb", "describe-instance-health dih", DescribeInstanceHealth, [

["", LoadBalancerName],

["listener", "Listeners.memberN"],

]],

["elb", "describe-lbs dlb", DescribeLoadBalancers, [

["", LoadBalancerNameN],

]],

["elb", "disable-zones-for-lb dlbz", DisableAvailabilityZonesForLoadBalancer, [

["", LoadBalancerName],

["availability-zone", "AvailabilityZones.memberN"],

]],

["elb", "enable-zones-for-lb elbz", EnableAvailabilityZonesForLoadBalancer, [

["", LoadBalancerName],

["availability-zone", "AvailabilityZones.memberN"],

]],

["elb", "register-instances-with-lb rlbi", RegisterInstancesWithLoadBalancer, [

["", LoadBalancerName],

["instance", "Instances.member.N.InstanceId"],

]],

["elb", "deregister-instances-from-lb dlbi", DeregisterInstancesFromLoadBalancer, [

["", LoadBalancerName],

["instance", "Instances.member.N.InstanceId"],

]],

["elb", "set-lb-listener-ssl-cert slblsc", SetLoadBalancerListenerSSLCertificate, [

["", LoadBalancerName],

["lb-port", LoadBalancerPort],

["cert-id", SSLCertificateId],

]],

["elb", "set-lb-policies-of-listener slbpol", SetLoadBalancerPoliciesOfListener, [

["", LoadBalancerName],

["policy-name", "PolicyNames.memberN"],

]],

#############

### IAM ###

#############

["iam", "groupaddpolicy pgp", PutGroupPolicy, [

[" g" => GroupName],

[p => PolicyName],

[e, undef, undef, \&parse_addpolicy_effect],

[a, undef, undef, \&parse_addpolicy_action],

[r, undef, undef, \&parse_addpolicy_resource],

[o, undef, undef, \&parse_addpolicy_output],

]],

["iam", "groupadduser", AddUserToGroup, [

[" g" => GroupName],

[u => UserName],

]],

["iam", "groupcreate cg", CreateGroup, [

[" g" => GroupName],

[p => Path],

]],

["iam", "groupdel", DeleteGroup, [

[" g" => GroupName],

]],

["iam", "groupdelpolicy", DeleteGroupPolicy, [

[" g" => GroupName],

[p => PolicyName],

]],

["iam", "grouplistbypath lg", ListGroups],

["iam", "grouplistpolicies lgp", ListGroupPolicies, [

[" g" => GroupName],

[p => PolicyName],

]],

# GetGroupPolicy is automatically invoked when grouplistpolicies has a -p PolicyName

["iam", "groupgetpolicy", GetGroupPolicy, [

[" g" => GroupName],

[p => PolicyName],

]],

["iam", "grouplistusers gg", GetGroup, [

[" g" => GroupName],

]],

["iam", "groupmod", UpdateGroup, [

[" g" => GroupName],

[n => NewGroupName],

[p => NewPath],

]],

["iam", "groupremoveuser", RemoveUserFromGroup, [

[" g" => GroupName],

[u => UserName],

]],

["iam", "groupuploadpolicy", PutGroupPolicy, [

[" g" => GroupName],

[p => PolicyName],

[o => PolicyDocument],

[f => PolicyDocument, undef, sub {load_file($_[0])}],

]],

["iam", "useraddcert", UploadSigningCertificate, [

[" u" => UserName],

[c => CertificateBody],

[f => CertificateBody, undef, sub {load_file($_[0])}],

]],

["iam", "useraddkey cak", CreateAccessKey, [

[" u" => UserName],

]],

["iam", "useraddloginprofile clp", CreateLoginProfile, [

[" u" => UserName],

[p => Password],

]],

["iam", "useraddpolicy pup", PutUserPolicy, [

[" u" => UserName],

[p => PolicyName],

[e, undef, undef, \&parse_addpolicy_effect],

[a, undef, undef, \&parse_addpolicy_action],

[r, undef, undef, \&parse_addpolicy_resource],

[o, undef, undef, \&parse_addpolicy_output],

]],

["iam", "usercreate cu", CreateUser, [

[" u" => UserName],

[p => Path],

]],

["iam", "userdeactivatemfadevice", DeactivateMFADevice, [

[" u" => UserName],

[s => SerialNumber],

]],

["iam", "userdel", DeleteUser, [

[" u" => UserName],

[s => XXX],

]],

["iam", "userdelcert", DeleteSigningCertificate, [

[" u" => UserName],

[c => CertificateId],

]],

["iam", "userdelkey", DeleteAccessKey, [

[" u" => UserName],

[k => AccessKeyId],

]],

["iam", "userdelloginprofile dlp", DeleteLoginProfile, [

[" u" => UserName],

]],

["iam", "userdelpolicy", DeleteUserPolicy, [

[" u" => UserName],

[p => PolicyName],

]],

["iam", "userenablemfadevice", EnableMFADevice, [

[" u" => UserName],

[s => SerialNumber],

[c1 => AuthenticationCode1],

[c2 => AuthenticationCode2],

]],

["iam", "usergetattributes gu", GetUser, [

[" u" => UserName],

]],

["iam", "usergetloginprofile glp", GetLoginProfile, [

[" u" => UserName],

]],

["iam", "userlistbypath lu", ListUsers, [

[" p" => PathPrefix],

]],

["iam", "userlistcerts", ListSigningCertificates, [

[" u" => UserName],

]],

["iam", "userlistgroups", ListGroupsForUser, [

[" u" => Username],

]],

["iam", "userlistkeys", ListAccessKeys, [

[" u" => UserName],

]],

["iam", "userlistmfadevices", ListMFADevices, [

[" u" => UserName],

]],

["iam", "userlistpolicies lup", ListUserPolicies, [

[" u" => UserName],

[p => PolicyName],

]],

# GetUserPolicy is automatically invoked when userlistpolicies has a -p PolicyName

["iam", "usergetpolicy", GetUserPolicy, [

[" u" => UserName],

[p => PolicyName],

]],

["iam", "usermod", UpdateUser, [

[" u" => UserName],

[n => NewUserName],

[p => NewPath],

]],

["iam", "usermodcert", UpdateSigningCertificate, [

[" u" => UserName],

[c => CertificateId],

[s => Status],

]],

["iam", "usermodkey", UpdateAccessKey, [

[" u" => UserName],

[a => AccessKeyId],

[s => Status],

]],

["iam", "usermodloginprofile ulp", UpdateLoginProfile, [

[" u" => UserName],

[p => Password],

]],

["iam", "userresyncmfadevice", ResyncMFADevice, [

[" u" => UserName],

[s => SerialNumber],

[c1 => AuthenticationCode1],

[c2 => AuthenticationCode2],

]],

["iam", "useruploadpolicy", PutUserPolicy, [

[" u" => UserName],

[p => PolicyName],

[o => PolicyDocument],

[f => PolicyDocument, undef, sub {load_file($_[0])}],

]],

["iam", "servercertdel", DeleteServerCertificate, [

[" s" => ServerCertificateName],

]],

["iam", "servercertgetattributes", GetServerCertificate, [

[" s" => ServerCertificate],

]],

["iam", "servercertlistbypath", ListServerCertificates, [

[" p" => PathPrefix],

]],

["iam", "servercertmod", UpdateServerCertificate, [

[" p" => NewPath],

[s => ServerCertificateName],

[n => NewServerCertificateName],

]],

["iam", "servercertupload", UploadServerCertificate, [

[" s" => ServerCertificateName],

[p => Path],

[b => CertificateBody, undef, sub {load_file($_[0])}],

[k => PrivateKey, undef, sub {load_file($_[0])}],

[c => CertificateChain, undef, sub {load_file($_[0])}],

]],

["iam", "accountaliascreate caa", CreateAccountAlias,[

["" => AccountAlias],

]],

["iam", "accountaliasdelete daa", DeleteAccountAlias,[

["" => AccountAlias],

]],

["iam", "accountaliaslist laa", ListAccountAliases],

["iam", "listroles lr", ListRoles, [

[" p" => "PathPrefix", "/"],

["marker m" => "Marker"],

["maxitems i" => "MaxItems"],

]],

["cloudformation", "describestacks", DescribeStacks,[

["" => StackName],

]],

["cloudformation", "describestackresources", DescribeStackResources,[

["" => StackName],

["l" => LogicalResourceId],

["p" => PhysicalResourceId],

]],

["cloudformation", "describestackresource", DescribeStackResource,[

["" => StackName],

["l" => LogicalResourceId],

]],

["s3", "ls", LS],

["s3", "get cat", GET],

["s3", "head", HEAD],

["s3", "mkdir", MKDIR],

["s3", "put", PUT],

["s3", "delete rmdir rm", DELETE],

["s3", "copy cp", COPY],

["s3", "dmo", DMO],

["s3", "post", POST],

["sqs", "add-permission addperm", AddPermission, [

["" => QueueUri],

[label => Label],

[account => AWSAccountIdN],

[action => ActionNameN],

]],

["sqs", "change-message-visibility cmv", ChangeMessageVisibility, [

["" => QueueUri],

[handle => ReceiptHandle],

[timeout => VisibilityTimeout],

]],

["sqs", "create-queue cq", CreateQueue, [

["" => QueueName],

[timeout => DefaultVisibilityTimeout],

]],

["sqs", "delete-message dm", DeleteMessage, [

["" => QueueUri],

[handle => ReceiptHandle],

]],

["sqs", "delete-queue dq", DeleteQueue, [

["" => QueueUri],

]],

["sqs", "get-queue-attributes gqa", GetQueueAttributes, [

["" => QueueUri],

[attribute => AttributeNameN],

]],

["sqs", "list-queues lq", ListQueues, [

["" => QueueNamePrefix],

]],

["sqs", "receive-message recv", ReceiveMessage, [

["" => QueueUri],

[attribute => AttributeNameN],

[n => MaxNumberOfMessages],

[timeout => VisibilityTimeout],

[wait => WaitTimeSeconds],

]],

["sqs", "remove-permission remperm", RemovePermission, [

["" => QueueUri],

[label => Label],

]],

["sqs", "send-message send", SendMessage, [

["" => QueueUri],