revans_right_aws 2.0.1

data/lib/ec2/right_ec2_spot_instances.rb

@@ -0,0 +1,399 @@
+#
+# Copyright (c) 2009 RightScale Inc
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+#
+
+module RightAws
+
+  class Ec2
+
+    #-----------------------------------------------------------------
+    #      Spot Instances
+    #-----------------------------------------------------------------
+
+    # Describe Spot Price history.
+    # Options: :start_time, :end_time, instance_types, product_description
+    #
+    #  ec2.describe_spot_price_history #=>
+    #    [{:spot_price=>0.054,
+    #      :timestamp=>"2009-12-07T12:12:58.000Z",
+    #      :product_description=>"Windows",
+    #      :instance_type=>"m1.small"},
+    #     {:spot_price=>0.06,
+    #      :timestamp=>"2009-12-07T12:18:32.000Z",
+    #      :product_description=>"Linux/UNIX",
+    #      :instance_type=>"c1.medium"},
+    #     {:spot_price=>0.198,
+    #      :timestamp=>"2009-12-07T12:58:00.000Z",
+    #      :product_description=>"Windows",
+    #      :instance_type=>"m1.large"},
+    #     {:spot_price=>0.028,
+    #      :timestamp=>"2009-12-07T13:48:50.000Z",
+    #      :product_description=>"Linux/UNIX",
+    #      :instance_type=>"m1.small"}, ... ]
+    #
+    #  ec2.describe_spot_price_history(:start_time => 1.day.ago,
+    #                                  :end_time => 10.minutes.ago,
+    #                                  :instance_types => ["c1.medium", "m1.small"],
+    #                                  :product_description => "Linux/UNIX" ) #=>
+    #    [{:product_description=>"Linux/UNIX",
+    #      :timestamp=>"2010-02-04T05:44:36.000Z",
+    #      :spot_price=>0.031,
+    #      :instance_type=>"m1.small"},
+    #     {:product_description=>"Linux/UNIX",
+    #      :timestamp=>"2010-02-04T17:56:25.000Z",
+    #      :spot_price=>0.058,
+    #      :instance_type=>"c1.medium"}, ... ]
+    #
+    def describe_spot_price_history(options={})
+      options = options.dup
+      request_hash = {}
+      request_hash['StartTime']          = AwsUtils::utc_iso8601(options[:start_time])     unless options[:start_time].blank?
+      request_hash['EndTime']            = AwsUtils::utc_iso8601(options[:end_time])       unless options[:end_time].blank?
+      request_hash['ProductDescription'] = options[:product_description]                   unless options[:product_description].blank?
+      request_hash.merge!(amazonize_list('InstanceType', Array(options[:instance_types]))) unless options[:instance_types].blank?
+      link = generate_request("DescribeSpotPriceHistory", request_hash)
+      request_info(link, QEc2DescribeSpotPriceHistoryParser.new)
+    rescue Exception
+      on_exception
+    end
+
+    # Describe Spot Instance requests.
+    #
+    #  ec2.describe_spot_instance_requests #=>
+    #    [{:type=>"one-time",
+    #      :create_time=>"2010-03-10T10:30:32.000Z",
+    #      :instance_type=>"c1.medium",
+    #      :state=>"cancelled",
+    #      :groups=>["default"],
+    #      :product_description=>"Linux/UNIX",
+    #      :spot_instance_request_id=>"sir-bfa06804",
+    #      :image_id=>"ami-08f41161",
+    #      :spot_price=>0.01,
+    #      :monitoring_enabled=>false},
+    #     {:type=>"one-time",
+    #      :create_time=>"2010-03-10T10:33:29.000Z",
+    #      :instance_type=>"c1.medium",
+    #      :state=>"open",
+    #      :groups=>["default", "33"],
+    #      :product_description=>"Linux/UNIX",
+    #      :spot_instance_request_id=>"sir-b1713a03",
+    #      :image_id=>"ami-08f41161",
+    #      :spot_price=>0.01,
+    #      :monitoring_enabled=>false,
+    #      :key_name=>"tim"},
+    #     {:type=>"one-time",
+    #      :instance_id=>"i-c516ceae",
+    #      :create_time=>"2010-03-10T10:43:48.000Z",
+    #      :instance_type=>"c1.medium",
+    #      :state=>"active",
+    #      :groups=>["default", "33"],
+    #      :product_description=>"Linux/UNIX",
+    #      :spot_instance_request_id=>"sir-5eb6c604",
+    #      :image_id=>"ami-08f41161",
+    #      :spot_price=>0.2,
+    #      :monitoring_enabled=>false,
+    #      :key_name=>"tim"}]
+    #
+    def describe_spot_instance_requests(*spot_instance_request_ids)
+      link = generate_request("DescribeSpotInstanceRequests", amazonize_list('SpotInstanceRequestId', spot_instance_request_ids.flatten))
+      request_info(link, QEc2DescribeSpotInstanceParser.new(:logger => @logger))
+    end
+
+    # Create a Spot Instance request.
+    #
+    # Mandatory params: :image_id, :spot_price, :instance_type
+    # Optional params: :valid_from, :valid_until, :instance_count, :type, :launch_group,
+    # :availability_zone_group, :key_name, :user_data, :addressing_type, :kernel_id,
+    # :ramdisk_id, :subnet_id, :availability_zone, :monitoring_enabled, :groups,
+    # :block_device_mappings
+    #
+    #  ec2.request_spot_instances(
+    #    :image_id => 'ami-08f41161',
+    #    :spot_price => 0.01,
+    #    :key_name => 'tim',
+    #    :instance_count => 2,
+    #    :groups => ['33','default'],
+    #    :instance_type => 'c1.medium') #=>
+    #    
+    #    [{:product_description=>"Linux/UNIX",
+    #      :type=>"one-time",
+    #      :spot_instance_requestId=>"sir-7a893003",
+    #      :monitoring_enabled=>false,
+    #      :image_id=>"ami-08f41161",
+    #      :state=>"open",
+    #      :spot_price=>0.01,
+    #      :groups=>["default", "33"],
+    #      :key_name=>"tim",
+    #      :create_time=>"2010-03-10T10:33:09.000Z",
+    #      :instance_type=>"c1.medium"},
+    #     {:product_description=>"Linux/UNIX",
+    #      :type=>"one-time",
+    #      :spot_instance_requestId=>"sir-13dc9a03",
+    #      :monitoring_enabled=>false,
+    #      :image_id=>"ami-08f41161",
+    #      :state=>"open",
+    #      :spot_price=>0.01,
+    #      :groups=>["default", "33"],
+    #      :key_name=>"tim",
+    #      :create_time=>"2010-03-10T10:33:09.000Z",
+    #      :instance_type=>"c1.medium"}]
+    #
+    #  ec2.request_spot_instances(
+    #    :image_id => 'ami-08f41161',
+    #    :spot_price => 0.01,
+    #    :instance_type => 'm1.small',
+    #    :valid_from => 10.minutes.since,
+    #    :valid_until => 1.hour.since,
+    #    :instance_count => 1,
+    #    :key_name => 'tim',
+    #    :groups => ['33','default'],
+    #    :availability_zone => 'us-east-1a',
+    #    :monitoring_enabled => true,
+    #    :launch_group => 'lg1',
+    #    :availability_zone_group => 'azg1',
+    #    :block_device_mappings => [ { :device_name => '/dev/sdk',
+    #                                  :ebs_snapshot_id => 'snap-145cbc7d',
+    #                                  :ebs_delete_on_termination => true,
+    #                                  :ebs_volume_size => 3,
+    #                                  :virtual_name => 'ephemeral2'
+    #                                 } ] ) #=>
+    #
+    #    [{:monitoring_enabled=>true,
+    #      :type=>"one-time",
+    #      :image_id=>"ami-08f41161",
+    #      :launch_group=>"lg1",
+    #      :state=>"open",
+    #      :valid_until=>"2010-02-05T19:13:44.000Z",
+    #      :create_time=>"2010-02-05T18:13:46.000Z",
+    #      :availability_zone_group=>"azg1",
+    #      :spot_price=>0.01,
+    #      :block_device_mappings=>
+    #       [{:ebs_delete_on_termination=>true,
+    #         :ebs_volume_size=>3,
+    #         :virtual_name=>"ephemeral2",
+    #         :device_name=>"/dev/sdk",
+    #         :ebs_snapshot_id=>"snap-145cbc7d"}],
+    #      :instance_type=>"m1.small",
+    #      :groups=>["default", "33"],
+    #      :product_description=>"Linux/UNIX",
+    #      :key_name=>"tim",
+    #      :valid_from=>"2010-02-05T18:23:44.000Z",
+    #      :availability_zone=>"us-east-1a",
+    #      :spot_instance_request_id=>"sir-32da8a03"}]
+    #
+    def request_spot_instances(options)
+      options = options.dup
+      request_hash = { 'SpotPrice'                        => options[:spot_price],
+                       'LaunchSpecification.ImageId'      => options[:image_id],
+                       'LaunchSpecification.InstanceType' => options[:instance_type]}
+      request_hash['ValidFrom']                      = AwsUtils::utc_iso8601(options[:valid_from])  unless options[:valid_from].blank?
+      request_hash['ValidUntil']                     = AwsUtils::utc_iso8601(options[:valid_until]) unless options[:valid_until].blank?
+      request_hash['InstanceCount']                      = options[:instance_count]                 unless options[:instance_count].blank?
+      request_hash['Type']                               = options[:type]                           unless options[:type].blank?
+      request_hash['LaunchGroup']                        = options[:launch_group]                   unless options[:launch_group].blank?
+      request_hash['AvailabilityZoneGroup']              = options[:availability_zone_group]        unless options[:availability_zone_group].blank?
+      request_hash['LaunchSpecification.KeyName']        = options[:key_name]                       unless options[:key_name].blank?
+      request_hash['LaunchSpecification.AddressingType'] = options[:addressing_type]                unless options[:addressing_type].blank?
+      request_hash['LaunchSpecification.KernelId']       = options[:kernel_id]                      unless options[:kernel_id].blank?
+      request_hash['LaunchSpecification.RamdiskId']      = options[:ramdisk_id]                     unless options[:ramdisk_id].blank?
+      request_hash['LaunchSpecification.SubnetId']       = options[:subnet_id]                      unless options[:subnet_id].blank?
+      request_hash['LaunchSpecification.Placement.AvailabilityZone'] = options[:availability_zone]  unless options[:availability_zone].blank?
+      request_hash['LaunchSpecification.Monitoring.Enabled']         = options[:monitoring_enabled] unless options[:monitoring_enabled].blank?
+      request_hash.merge!(amazonize_list('LaunchSpecification.SecurityGroup', options[:groups]))    unless options[:groups].blank?
+      request_hash.merge!(amazonize_block_device_mappings(options[:block_device_mappings], 'LaunchSpecification.BlockDeviceMapping'))
+      unless options[:user_data].blank?
+        # See RightAws::Ec2#run_instances
+        options[:user_data].strip!
+        request_hash['LaunchSpecification.UserData'] = Base64.encode64(options[:user_data]).delete("\n") unless options[:user_data].blank?
+      end
+      link = generate_request("RequestSpotInstances", request_hash)
+      request_info(link, QEc2DescribeSpotInstanceParser.new(:logger => @logger))
+    end
+
+    # Cancel one or more Spot Instance requests.
+    #
+    #  ec2.cancel_spot_instance_requests('sir-60662c03',"sir-d3c96e04", "sir-4fa8d804","sir-6992ce04") #=>
+    #    [{:state=>"cancelled", :spot_instance_request_id=>"sir-60662c03"},
+    #     {:state=>"cancelled", :spot_instance_request_id=>"sir-6992ce04"},
+    #     {:state=>"cancelled", :spot_instance_request_id=>"sir-4fa8d804"},
+    #     {:state=>"cancelled", :spot_instance_request_id=>"sir-d3c96e04"}]
+    #
+    def cancel_spot_instance_requests(*spot_instance_request_ids)
+      link = generate_request("CancelSpotInstanceRequests", amazonize_list('SpotInstanceRequestId', spot_instance_request_ids.flatten))
+      request_info(link, QEc2CancelSpotInstanceParser.new(:logger => @logger))
+    end
+
+    # Create the data feed for Spot Instances
+    # (Enables to view Spot Instance usage logs)
+    #
+    #  ec2.create_spot_datafeed_subscription('bucket-for-konstantin-eu', 'splogs/') #=>
+    #    { :owner_id=>"826693181925",
+    #      :bucket=>"bucket-for-konstantin-eu",
+    #      :prefix=>"splogs/",
+    #      :state=>"Active"}
+    #
+    def create_spot_datafeed_subscription(bucket, prefix=nil)
+      request_hash = { 'Bucket' => bucket }
+      request_hash['Prefix'] = prefix unless prefix.blank?
+      link = generate_request("CreateSpotDatafeedSubscription", request_hash)
+      request_info(link, QEc2DescribeSpotDatafeedSubscriptionParser.new(:logger => @logger))
+    end
+
+    # Describe the data feed for Spot Instances.
+    #
+    #  ec2.describe_spot_datafeed_subscription #=>
+    #    { :owner_id=>"826693181925",
+    #      :bucket=>"bucket-for-konstantin-eu",
+    #      :prefix=>"splogs/",
+    #      :state=>"Active"}
+    #
+    def describe_spot_datafeed_subscription
+      link = generate_request("DescribeSpotDatafeedSubscription")
+      request_info(link, QEc2DescribeSpotDatafeedSubscriptionParser.new(:logger => @logger))
+    end
+
+    # Delete the data feed for Spot Instances.
+    #
+    #  ec2.delete_spot_datafeed_subscription #=> true
+    #
+    def delete_spot_datafeed_subscription()
+      link = generate_request("DeleteSpotDatafeedSubscription")
+      request_info(link, RightBoolResponseParser.new(:logger => @logger))
+    end
+
+    #-----------------------------------------------------------------
+    #      PARSERS: Spot Instances
+    #-----------------------------------------------------------------
+
+    class QEc2DescribeSpotPriceHistoryParser < RightAWSParser #:nodoc:
+      def tagstart(name, attributes)
+        @item = {} if name == 'item'
+      end
+      def tagend(name)
+        case name
+        when 'instanceType'       then @item[:instance_type]       = @text
+        when 'productDescription' then @item[:product_description] = @text
+        when 'spotPrice'          then @item[:spot_price]          = @text.to_f
+        when 'timestamp'          then @item[:timestamp]           = @text
+        when 'item'               then @result                    << @item
+        end
+      end
+      def reset
+        @result = []
+      end
+    end
+
+    class QEc2DescribeSpotInstanceParser < RightAWSParser #:nodoc:
+      def tagstart(name, attributes)
+        case full_tag_name
+        when %r{spotInstanceRequestSet/item$}
+          @item = {}
+        when %r{/blockDeviceMapping/item$}
+          @item[:block_device_mappings] ||= []
+          @block_device_mapping = {}
+        end
+      end
+      def tagend(name)
+        case name
+        when 'spotInstanceRequestId' then @item[:spot_instance_request_id]= @text
+        when 'spotPrice'             then @item[:spot_price]              = @text.to_f
+        when 'type'                  then @item[:type]                    = @text
+        when 'state'                 then @item[:state]                   = @text
+        when 'code'                  then @item[:fault_code]              = @text
+        when 'message'               then @item[:fault_message]           = @text
+        when 'validFrom'             then @item[:valid_from]              = @text
+        when 'validUntil'            then @item[:valid_until]             = @text
+        when 'launchGroup'           then @item[:launch_group]            = @text
+        when 'availabilityZoneGroup' then @item[:availability_zone_group] = @text
+        when 'imageId'               then @item[:image_id]                = @text
+        when 'keyName'               then @item[:key_name]                = @text
+        when 'userData'              then @item[:userData]                = @text
+        when 'data'                  then @item[:data]                    = @text
+        when 'addressingType'        then @item[:addressing_type]         = @text
+        when 'instanceType'          then @item[:instance_type]           = @text
+        when 'availabilityZone'      then @item[:availability_zone]       = @text
+        when 'kernelId'              then @item[:kernel_id]               = @text
+        when 'ramdiskId'             then @item[:ramdisk_id]              = @text
+        when 'subnetId'              then @item[:subnet_id]               = @text
+        when 'instanceId'            then @item[:instance_id]             = @text
+        when 'createTime'            then @item[:create_time]             = @text
+        when 'productDescription'    then @item[:product_description]     = @text
+        when 'groupId'               then (@item[:groups] ||= [])        << @text
+        else
+          case full_tag_name
+          when %r{monitoring/enabled$}
+            @item[:monitoring_enabled] = @text == 'true'
+          when %r{/blockDeviceMapping/item} # no trailing $
+            case name
+            when 'deviceName'          then @block_device_mapping[:device_name]                = @text
+            when 'virtualName'         then @block_device_mapping[:virtual_name]               = @text
+            when 'volumeSize'          then @block_device_mapping[:ebs_volume_size]            = @text.to_i
+            when 'snapshotId'          then @block_device_mapping[:ebs_snapshot_id]            = @text
+            when 'deleteOnTermination' then @block_device_mapping[:ebs_delete_on_termination]  = @text == 'true' ? true : false
+            when 'item'                then @item[:block_device_mappings]                     << @block_device_mapping
+            end
+          when %r{spotInstanceRequestSet/item$}
+            @result << @item
+          end
+        end
+      end
+      def reset
+        @result = []
+      end
+    end
+
+    class QEc2CancelSpotInstanceParser < RightAWSParser #:nodoc:
+      def tagstart(name, attributes)
+        @item = {} if name == 'item'
+      end
+      def tagend(name)
+        case name
+        when 'spotInstanceRequestId' then @item[:spot_instance_request_id] = @text
+        when 'state'                 then @item[:state]                    = @text
+        when 'item'                  then @result                         << @item
+        end
+      end
+      def reset
+        @result = []
+      end
+    end
+
+    class QEc2DescribeSpotDatafeedSubscriptionParser < RightAWSParser #:nodoc:
+      def tagend(name)
+        case name
+        when 'ownerId' then @result[:owner_id] = @text
+        when 'bucket'  then @result[:bucket]   = @text
+        when 'prefix'  then @result[:prefix]   = @text
+        when 'state'   then @result[:state]    = @text
+        when 'fault'   then @result[:fault]    = @text
+        when 'code'    then @result[:code]     = @text
+        when 'message' then @result[:message]  = @text
+        end
+      end
+      def reset
+        @result = {}
+      end
+    end
+    
+  end
+
+end

data/lib/ec2/right_ec2_vpc.rb

@@ -0,0 +1,571 @@
+#
+# Copyright (c) 2009 RightScale Inc
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+#
+
+module RightAws
+
+  class Ec2
+
+  private
+
+    def vpc__split_list_and_filters(*params) # :nodoc:
+      params = params.flatten
+      filters = params.last.is_a?(Hash) ? params.pop : {}
+      # Make values to be arrays.
+      filters.each{|key, values| filters[key] = Array(values) }
+      [params, filters]
+    end
+
+  public
+
+    #-----------------
+    # VPC
+    #-----------------
+
+    # Describe VPCs
+    #
+    #  ec2.describe_vpcs #=>
+    #    [{:vpc_id=>"vpc-890ce2e0",
+    #      :dhcp_options_id=>"default",
+    #      :cidr_block=>"10.0.0.0/23",
+    #      :state=>"available"}]
+    #
+    #  ec2.describe_vpcs("vpc-890ce2e0")
+    #
+    def describe_vpcs(*list_and_filters)
+      list, filters = vpc__split_list_and_filters(list_and_filters)
+      cache_for = (list.empty? && filters.empty?) ? :describe_vpcs : nil
+      request_hash = {}
+      request_hash.merge!(amazonize_list('VpcId', list))
+      request_hash.merge!(amazonize_list(['Filter.?.Key','Filter.?.Value.?'], filters))
+      link = generate_request("DescribeVpcs", request_hash)
+      request_cache_or_info cache_for, link,  QEc2DescribeVpcsParser, @@bench, cache_for
+    rescue Exception
+      on_exception
+    end
+
+    # Create VPC.
+    #
+    #  ec2.create_vpc('10.0.0.0/23') #=>
+    #    {:vpc_id=>"vpc-890ce2e0",
+    #     :dhcp_options_id=>"default",
+    #     :cidr_block=>"10.0.0.0/23",
+    #     :state=>"pending"}
+    #
+    def create_vpc(cidr_block)
+      link = generate_request("CreateVpc",'CidrBlock' => cidr_block )
+      request_info(link, QEc2DescribeVpcsParser.new(:logger => @logger)).first
+    rescue Exception
+      on_exception
+    end
+
+    # Delete VPC.
+    #
+    #  ec2.delete_vpc("vpc-890ce2e0") #=> true
+    #
+    def delete_vpc(vpc_id)
+      link = generate_request("DeleteVpc", 'VpcId' => vpc_id )
+      request_info(link, RightHttp2xxParser.new(:logger => @logger))
+    rescue Exception
+      on_exception
+    end
+
+    #-----------------
+    # Subnets
+    #-----------------
+
+    # Describe Subnet.
+    #
+    #  ec2.describe_subnets #=>
+    #    [{:available_ip_address_count=>"251",
+    #      :vpc_id=>"vpc-890ce2e0",
+    #      :availability_zone=>"us-east-1a",
+    #      :subnet_id=>"subnet-770de31e",
+    #      :cidr_block=>"10.0.1.0/24",
+    #      :state=>"available"}]
+    #
+    def describe_subnets(*list_and_filters)
+      list, filters = vpc__split_list_and_filters(list_and_filters)
+      cache_for = (list.empty? && filters.empty?) ? :describe_subnets : nil
+      request_hash = {}
+      request_hash.merge!(amazonize_list('SubnetId', list))
+      request_hash.merge!(amazonize_list(['Filter.?.Key','Filter.?.Value.?'], filters))
+      link = generate_request("DescribeSubnets", request_hash)
+      request_cache_or_info cache_for, link,  QEc2DescribeSubnetsParser, @@bench, cache_for
+    rescue Exception
+      on_exception
+    end
+
+    # Create Subnet.
+    #
+    #  ec2.create_subnet("vpc-890ce2e0",'10.0.1.0/24') #=>
+    #    {:available_ip_address_count=>"251",
+    #     :vpc_id=>"vpc-890ce2e0",
+    #     :availability_zone=>"us-east-1a",
+    #     :subnet_id=>"subnet-770de31e",
+    #     :cidr_block=>"10.0.1.0/24",
+    #     :state=>"pending"}
+    #
+    def create_subnet(vpc_id, cidr_block, availability_zone = nil)
+      request_hash = { 'VpcId'     => vpc_id,
+                       'CidrBlock' => cidr_block }
+      request_hash['AvailabilityZone'] = availability_zone unless availability_zone.blank?
+      link = generate_request("CreateSubnet", request_hash)
+      request_info(link, QEc2DescribeSubnetsParser.new(:logger => @logger)).first
+    rescue Exception
+      on_exception
+    end
+
+    # Delete Subnet.
+    #
+    #  ec2.delete_subnet("subnet-770de31e") #=> true
+    #
+    def delete_subnet(subnet_id)
+      link = generate_request("DeleteSubnet", 'SubnetId' => subnet_id )
+      request_info(link, RightHttp2xxParser.new(:logger => @logger))
+    rescue Exception
+      on_exception
+    end
+
+    #-----------------
+    # DHCP Options
+    #-----------------
+
+    # Describe DHCP options.
+    # 
+    # ec2.describe_dhcp_options #=>
+    #    [{:dhcp_options_id=>"dopt-cb0de3a2",
+    #    :dhcp_configuration_set=>
+    #     {"netbios-node-type"=>["1"], "domain-name"=>["my.awesomesite.ru"]}}]
+    #
+    def describe_dhcp_options(*list)
+      list = list.flatten
+      cache_for = list.empty? ? :describe_dhcp_options : nil
+      request_hash = amazonize_list('DhcpOptionsId', list)
+      link = generate_request("DescribeDhcpOptions", request_hash)
+      request_cache_or_info cache_for, link,  QEc2DescribeDhcpOptionsParser, @@bench, cache_for
+    rescue Exception
+      on_exception
+    end
+
+    # Create DHCP options.
+    #
+    #  ec2.create_dhcp_options('domain-name' => 'my.awesomesite.ru',
+    #                          'netbios-node-type' => 1) #=>
+    #    {:dhcp_options_id=>"dopt-cb0de3a2",
+    #     :dhcp_configuration_set=>
+    #      {"netbios-node-type"=>["1"], "domain-name"=>["my.awesomesite.ru"]}}
+    #
+    def create_dhcp_options(dhcp_configuration)
+      dhcp_configuration.each{ |key, values| dhcp_configuration[key] = Array(values) }
+      request_hash = amazonize_list(['DhcpConfiguration.?.Key','DhcpConfiguration.?.Value.?'], dhcp_configuration)
+      link = generate_request("CreateDhcpOptions", request_hash)
+      request_info(link, QEc2DescribeDhcpOptionsParser.new(:logger => @logger)).first
+    rescue Exception
+      on_exception
+    end
+
+    # Associate DHCP options
+    #
+    # ec2.associate_dhcp_options("dopt-cb0de3a2", "vpc-890ce2e0" ) #=> true
+    # ec2.describe_vpcs #=>
+    #    [{:vpc_id=>"vpc-890ce2e0",
+    #      :dhcp_options_id=>"dopt-cb0de3a2",
+    #      :cidr_block=>"10.0.0.0/23",
+    #      :state=>"available"}]
+    #
+    def associate_dhcp_options(dhcp_options_id, vpc_id)
+      link = generate_request("AssociateDhcpOptions", 'DhcpOptionsId' => dhcp_options_id,
+                                                      'VpcId'         => vpc_id)
+      request_info(link, RightHttp2xxParser.new(:logger => @logger))
+    rescue Exception
+      on_exception
+    end
+
+    # Delete DHCP Options.
+    #
+    #  ec2.delete_dhcp_options("dopt-cb0de3a2") #=> true
+    #
+    def delete_dhcp_options(dhcp_options_id)
+      link = generate_request("DeleteDhcpOptions", 'DhcpOptionsId' => dhcp_options_id )
+      request_info(link, RightHttp2xxParser.new(:logger => @logger))
+    rescue Exception
+      on_exception
+    end
+
+    #-----------------
+    # Customer Gateways
+    #-----------------
+
+    # Describe customer gateways.
+    #
+    #  ec2.describe_customer_gateways
+    #
+    #    [{:type=>"ipsec.1",
+    #      :ip_address=>"12.1.2.3",
+    #      :bgp_asn=>"65534",
+    #      :state=>"available",
+    #      :customer_gateway_id=>"cgw-d5a643bc"}]
+    #
+    def describe_customer_gateways(*list_and_filters)
+      list, filters = vpc__split_list_and_filters(list_and_filters)
+      cache_for = (list.empty? && filters.empty?) ? :describe_customer_gateways : nil
+      request_hash = {}
+      request_hash.merge!(amazonize_list('CustomerGatewayId', list))
+      request_hash.merge!(amazonize_list(['Filter.?.Key','Filter.?.Value.?'], filters))
+      link = generate_request("DescribeCustomerGateways", request_hash)
+      request_cache_or_info cache_for, link,  QEc2DescribeCustomerGatewaysParser, @@bench, cache_for
+    rescue Exception
+      on_exception
+    end
+
+    # Create customer gateway.
+    # 
+    #  ec2.create_customer_gateway('ipsec.1', '12.1.2.3', 65534) #=>
+    #    {:type=>"ipsec.1",
+    #     :bgp_asn=>"65534",
+    #     :ip_address=>"12.1.2.3",
+    #     :state=>"pending",
+    #     :customer_gateway_id=>"cgw-d5a643bc"}
+    #
+    def create_customer_gateway(type, ip_address, bgp_asn)
+      link = generate_request("CreateCustomerGateway", 'Type'      => type,
+                                                       'IpAddress' => ip_address,
+                                                       'BgpAsn'    => bgp_asn )
+      request_info(link, QEc2DescribeCustomerGatewaysParser.new(:logger => @logger)).first
+    rescue Exception
+      on_exception
+    end
+
+    # Delete customer gateway.
+    #
+    #  ec2.delete_customer_gateway("cgw-d5a643bc") #=> true
+    #
+    def delete_customer_gateway(customer_gateway_id)
+      link = generate_request("DeleteCustomerGateway", 'CustomerGatewayId' => customer_gateway_id )
+      request_info(link, RightHttp2xxParser.new(:logger => @logger))
+    rescue Exception
+      on_exception
+    end
+
+    #-----------------
+    # VPN Gateways
+    #-----------------
+
+    # Describe VPN gateways.
+    #
+    #  ec2.describe_vpn_gateways #=>
+    #    [{:type=>"ipsec.1",
+    #      :availability_zone=>"us-east-1a",
+    #      :attachments=>[{:vpc_id=>"vpc-890ce2e0", :state=>"attached"}],
+    #      :vpn_gateway_id=>"vgw-dfa144b6"}]
+    #
+    def describe_vpn_gateways(*list_and_filters)
+      list, filters = vpc__split_list_and_filters(list_and_filters)
+      cache_for = (list.empty? && filters.empty?) ? :describe_vpn_gateways : nil
+      request_hash = {}
+      request_hash.merge!(amazonize_list('VpnGatewayId', list))
+      request_hash.merge!(amazonize_list(['Filter.?.Key','Filter.?.Value.?'], filters))
+      link = generate_request("DescribeVpnGateways", request_hash)
+      request_cache_or_info cache_for, link,  QEc2DescribeVpnGatewaysParser, @@bench, cache_for
+    rescue Exception
+      on_exception
+    end
+
+    # Create VPN gateway.
+    #
+    #  ec2.create_vpn_gateway('ipsec.1') #=>
+    #    {:type=>"ipsec.1",
+    #     :availability_zone=>"us-east-1a",
+    #     :attachments=>[nil],
+    #     :vpn_gateway_id=>"vgw-dfa144b6"}
+    #
+    def create_vpn_gateway(type, availability_zone=nil)
+      request_hash = { 'Type' => type }
+      request_hash['AvailabilityZone'] = availability_zone unless availability_zone.blank?
+      link = generate_request("CreateVpnGateway", request_hash )
+      request_info(link, QEc2DescribeVpnGatewaysParser.new(:logger => @logger)).first
+    rescue Exception
+      on_exception
+    end
+
+    # Attach VPN gateway.
+    #
+    #  ec2.attach_vpn_gateway('vgw-dfa144b6','vpc-890ce2e0') #=>
+    #     {:vpc_id=>"vpc-890ce2e0", :state=>"attaching"}
+    #
+    def attach_vpn_gateway(vpn_gateway_id, vpc_id)
+      link = generate_request("AttachVpnGateway", 'VpnGatewayId' => vpn_gateway_id,
+                                                  'VpcId'        => vpc_id )
+      request_info(link, QEc2AttachVpnGatewayParser.new(:logger => @logger))
+    rescue Exception
+      on_exception
+    end
+
+    # Detach VPN gateway.
+    #
+    #  ec2.detach_vpn_gateway('vgw-dfa144b6','vpc-890ce2e0') #=> true
+    #
+    def detach_vpn_gateway(vpn_gateway_id, vpc_id)
+      link = generate_request("DetachVpnGateway", 'VpnGatewayId' => vpn_gateway_id,
+                                                  'VpcId'        => vpc_id )
+      request_info(link, RightHttp2xxParser.new(:logger => @logger))
+    rescue Exception
+      on_exception
+    end
+
+    # Delete vpn gateway.
+    #
+    #  ec2.delete_vpn_gateway("vgw-dfa144b6") #=> true
+    #
+    def delete_vpn_gateway(vpn_gateway_id)
+      link = generate_request("DeleteVpnGateway", 'VpnGatewayId' => vpn_gateway_id )
+      request_info(link, RightHttp2xxParser.new(:logger => @logger))
+    rescue Exception
+      on_exception
+    end
+
+    #-----------------
+    # VPN Connections
+    #-----------------
+
+    # Describe VPN connections.
+    #
+    #  ec2.describe_vpn_connections #=>
+    #    [{:type=>"ipsec.1",
+    #      :vpn_connection_id=>"vpn-a9a643c0",
+    #      :customer_gateway_configuration=>
+    #       "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<vpn_connection id=\"vpn-a9a643c0\">\n...</vpn_connection>\n",
+    #      :state=>"available",
+    #      :vpn_gateway_id=>"vgw-dfa144b6",
+    #      :customer_gateway_id=>"cgw-81a643e8"}]
+    #
+    def describe_vpn_connections(*list_and_filters)
+      list, filters = vpc__split_list_and_filters(list_and_filters)
+      cache_for = (list.empty? && filters.empty?) ? :describe_vpn_connections : nil
+      request_hash = {}
+      request_hash.merge!(amazonize_list('VpnConnectionId', list))
+      request_hash.merge!(amazonize_list(['Filter.?.Key','Filter.?.Value.?'], filters))
+      link = generate_request("DescribeVpnConnections", request_hash)
+      request_cache_or_info cache_for, link,  QEc2DescribeVpnConnectionsParser, @@bench, cache_for
+    rescue Exception
+      on_exception
+    end
+
+    # Create VPN connection.
+    #
+    #  ec2.create_vpn_connection('ipsec.1', 'cgw-81a643e8' ,'vgw-dfa144b6')
+    #    {:customer_gateway_id=>"cgw-81a643e8",
+    #     :vpn_connection_id=>"vpn-a9a643c0",
+    #     :customer_gateway_configuration=>
+    #      "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<vpn_connection id=\"vpn-a9a643c0\">\n...</vpn_connection>\n",
+    #     :state=>"pending",
+    #     :vpn_gateway_id=>"vgw-dfa144b6"}
+    #
+    def create_vpn_connection(type, customer_gateway_id, vpn_gateway_id)
+      link = generate_request("CreateVpnConnection", 'Type'              => type,
+                                                     'CustomerGatewayId' => customer_gateway_id,
+                                                     'VpnGatewayId'      => vpn_gateway_id )
+      request_info(link, QEc2DescribeVpnConnectionsParser.new(:logger => @logger)).first
+    rescue Exception
+      on_exception
+    end
+
+    # Delete VPN connection.
+    #
+    #  ec2.delete_vpn_connection("vpn-a9a643c0") #=> true
+    #
+    def delete_vpn_connection(vpn_connection_id)
+      link = generate_request("DeleteVpnConnection", 'VpnConnectionId' => vpn_connection_id )
+      request_info(link, RightHttp2xxParser.new(:logger => @logger))
+    rescue Exception
+      on_exception
+    end
+
+    #-----------------
+    # Parsers
+    #-----------------
+
+    class QEc2DescribeVpcsParser < RightAWSParser #:nodoc:
+      def tagstart(name, attributes)
+        case name
+        when 'item', 'vpc' then @item = {}
+        end
+      end
+      def tagend(name)
+        case name
+          when 'vpcId'         then @item[:vpc_id] = @text
+          when 'state'         then @item[:state] = @text
+          when 'dhcpOptionsId' then @item[:dhcp_options_id] = @text
+          when 'cidrBlock'     then @item[:cidr_block] = @text
+          when 'item', 'vpc'   then @result << @item
+        end
+      end
+      def reset
+        @result = []
+      end
+    end
+
+    class QEc2DescribeSubnetsParser < RightAWSParser #:nodoc:
+      def tagstart(name, attributes)
+        case name
+        when 'item', 'subnet' then @item = {}
+        end
+      end
+      def tagend(name)
+        case name
+          when 'subnetId'                then @item[:subnet_id] = @text
+          when 'state'                   then @item[:state] = @text
+          when 'vpcId'                   then @item[:vpc_id] = @text
+          when 'cidrBlock'               then @item[:cidr_block] = @text
+          when 'availabilityZone'        then @item[:availability_zone] = @text
+          when 'availableIpAddressCount' then @item[:available_ip_address_count] = @text
+          when 'item', 'subnet'          then @result << @item
+        end
+      end
+      def reset
+        @result = []
+      end
+    end
+
+    class QEc2DescribeDhcpOptionsParser < RightAWSParser #:nodoc:
+      def tagstart(name, attributes)
+        case full_tag_name
+        when @p1, @p2
+          @item = { :dhcp_configuration_set => {} }
+        end
+      end
+      def tagend(name)
+        case name
+        when 'dhcpOptionsId' then @item[:dhcp_options_id] = @text
+        when 'key'           then @conf_item_key = @text
+        when 'value'         then (@item[:dhcp_configuration_set][@conf_item_key] ||= []) << @text
+        end
+        case full_tag_name
+        when @p1, @p2
+          @result << @item
+        end
+      end
+      def reset
+        @p1 = 'DescribeDhcpOptionsResponse/dhcpOptionsSet/item'
+        @p2 = 'CreateDhcpOptionsResponse/dhcpOptions'
+        @result = []
+      end
+    end
+
+    class QEc2DescribeCustomerGatewaysParser < RightAWSParser #:nodoc:
+      def tagstart(name, attributes)
+        case name
+        when 'item', 'customerGateway'
+          @item = {}
+        end
+      end
+      def tagend(name)
+        case name
+        when 'customerGatewayId' then @item[:customer_gateway_id] = @text
+        when 'state'             then @item[:state] = @text
+        when 'type'              then @item[:type] = @text
+        when 'ipAddress'         then @item[:ip_address] = @text
+        when 'bgpAsn'            then @item[:bgp_asn] = @text
+        when 'item', 'customerGateway' then @result << @item
+        end
+      end
+      def reset
+        @result = []
+      end
+    end
+
+    class QEc2DescribeVpnGatewaysParser < RightAWSParser #:nodoc:
+      def tagstart(name, attributes)
+        case full_tag_name
+        when @p1, @p2
+          @item = { :attachments => [] }
+        when "#{@p1}/attachments/item",
+             "#{@p2}/attachments/item"
+          @attachment = {}
+        end
+      end
+      def tagend(name)
+        case name
+        when 'vpnGatewayId'     then @item[:vpn_gateway_id] = @text
+        when 'availabilityZone' then @item[:availability_zone] = @text
+        when 'type'             then @item[:type] = @text
+        when 'vpcId'            then @attachment[:vpc_id] = @text
+        end
+        case full_tag_name
+        when "#{@p1}/state",
+             "#{@p2}/state"
+          @item[:state] = @text
+        when "#{@p1}/attachments/item/state",
+             "#{@p2}/attachments/item/state"
+          @attachment[:state] = @text
+        when "#{@p1}/attachments/item",
+             "#{@p2}/attachments/item"
+          @item[:attachments] << @attachment unless @attachment.blank?
+        when @p1, @p2
+          @result << @item
+        end
+      end
+      def reset
+        @p1 = 'DescribeVpnGatewaysResponse/vpnGatewaySet/item'
+        @p2 = 'CreateVpnGatewayResponse/vpnGateway'
+        @result = []
+      end
+    end
+
+    class QEc2AttachVpnGatewayParser < RightAWSParser #:nodoc:
+      def tagend(name)
+        case name
+        when 'vpcId' then @result[:vpc_id] = @text
+        when 'state' then @result[:state]  = @text
+        end
+      end
+      def reset
+        @result = {}
+      end
+    end
+
+
+    class QEc2DescribeVpnConnectionsParser < RightAWSParser #:nodoc:
+      def tagstart(name, attributes)
+        case name
+        when 'item', 'vpnConnection' then @item = {}
+        end
+      end
+      def tagend(name)
+        case name
+        when 'vpnConnectionId'   then @item[:vpn_connection_id] = @text
+        when 'state'             then @item[:state] = @text
+        when 'type'              then @item[:type] = @text
+        when 'vpnGatewayId'      then @item[:vpn_gateway_id] = @text
+        when 'customerGatewayId' then @item[:customer_gateway_id] = @text
+        when 'customerGatewayConfiguration' then @item[:customer_gateway_configuration] = @text
+        when 'item','vpnConnection'         then @result << @item
+        end
+      end
+      def reset
+        @result = []
+      end
+    end
+
+  end
+end