axtro-aws-ses 0.4.4

data/lib/aws/ses/expirable_memoize.rb

@@ -0,0 +1,45 @@
+#:stopdoc:
+module AWS
+  module SES
+    module ExpirableMemoize
+      module InstanceMethods
+        def __method__(depth = 0)
+          caller[depth][/`([^']+)'/, 1]
+        end if RUBY_VERSION <= '1.8.7'
+        
+        def __called_from__
+          caller[1][/`([^']+)'/, 1]
+        end if RUBY_VERSION > '1.8.7'
+        
+        def expirable_memoize(reload = false, storage = nil)
+          current_method = RUBY_VERSION > '1.8.7' ? __called_from__ : __method__(1)
+          storage = "@#{storage || current_method}"
+          if reload 
+            instance_variable_set(storage, nil)
+          else
+            if cache = instance_variable_get(storage)
+              return cache
+            end
+          end
+          instance_variable_set(storage, yield)
+        end
+      end
+
+      module ClassMethods
+        def memoized(method_name)
+          original_method = "unmemoized_#{method_name}_#{Time.now.to_i}"
+          alias_method original_method, method_name
+          module_eval(<<-EVAL, __FILE__, __LINE__)
+            def #{method_name}(reload = false, *args, &block)
+              expirable_memoize(reload) do
+                send(:#{original_method}, *args, &block)
+              end
+            end
+          EVAL
+        end
+      end
+    end
+  end
+end
+
+#:startdoc:

data/lib/aws/ses/info.rb

@@ -0,0 +1,103 @@
+module AWS
+  module SES
+    # Adds functionality for the statistics and info send quota data that Amazon SES makes available
+    #
+    # You can access these methods as follows:
+    #
+    #   ses = AWS::SES::Base.new( ... connection info ... )
+    #
+    # == Get the quota information
+    #   response = ses.quota
+    #   # How many e-mails you've sent in the last 24 hours
+    #   response.sent_last_24_hours
+    #   # How many e-mails you're allowed to send in 24 hours
+    #   response.max_24_hour_send
+    #   # How many e-mails you can send per second
+    #   response.max_send_rate
+    #
+    # == Get detailed send statistics 
+    # The result is a list of data points, representing the last two weeks of sending activity.
+    # Each data point in the list contains statistics for a 15-minute interval.
+    # GetSendStatisticsResponse#data_points is an array where each element is a hash with give string keys:
+    #
+    # * +Bounces+
+    # * +DeliveryAttempts+
+    # * +Rejects+
+    # * +Complaints+
+    # * +Timestamp+
+    #
+    #   response = ses.statistics
+    #   response.data_points # =>
+    #       [{"Bounces"=>"0",
+    #         "Timestamp"=>"2011-01-26T16:30:00Z",
+    #         "DeliveryAttempts"=>"1",
+    #         "Rejects"=>"0",
+    #         "Complaints"=>"0"},
+    #        {"Bounces"=>"0",
+    #         "Timestamp"=>"2011-02-09T14:45:00Z",
+    #         "DeliveryAttempts"=>"3",
+    #         "Rejects"=>"0",
+    #         "Complaints"=>"0"},
+    #        {"Bounces"=>"0",
+    #         "Timestamp"=>"2011-01-31T15:30:00Z",
+    #         "DeliveryAttempts"=>"3",
+    #         "Rejects"=>"0",
+    #         "Complaints"=>"0"},
+    #        {"Bounces"=>"0",
+    #         "Timestamp"=>"2011-01-31T16:00:00Z",
+    #         "DeliveryAttempts"=>"3",
+    #         "Rejects"=>"0",
+    #         "Complaints"=>"0"}]
+    
+    module Info
+      include AWS::SES::ExpirableMemoize::InstanceMethods
+      extend AWS::SES::ExpirableMemoize::ClassMethods
+
+      # Returns quota information provided by SES
+      # 
+      # The return format inside the response result will look like:
+      #   {"SentLast24Hours"=>"0.0", "MaxSendRate"=>"1.0", "Max24HourSend"=>"200.0"}
+      def quota
+        request('GetSendQuota')
+      end
+      
+      def statistics
+        request('GetSendStatistics')
+      end
+    end
+    
+    class GetSendQuotaResponse < AWS::SES::Response
+      def result
+        parsed['GetSendQuotaResult']
+      end
+      
+      def sent_last_24_hours
+        result['SentLast24Hours']
+      end
+      
+      def max_24_hour_send
+        result['Max24HourSend']
+      end
+      
+      def max_send_rate
+        result['MaxSendRate']
+      end
+    end
+    
+    class GetSendStatisticsResponse < AWS::SES::Response
+      def result
+        if members = parsed['GetSendStatisticsResult']['SendDataPoints']
+          [members['member']].flatten
+        else
+          []
+        end
+      end
+      
+      memoized :result
+      
+      def data_points
+        result
+      end
+    end
+  end
+end

data/lib/aws/ses/response.rb

@@ -0,0 +1,113 @@
+module AWS
+  module SES
+    class Response < String  
+      include AWS::SES::ExpirableMemoize::InstanceMethods
+      extend AWS::SES::ExpirableMemoize::ClassMethods
+
+      attr_reader :response, :body, :parsed, :action
+      
+      def initialize(action, response)
+        @action   = action
+        @response = response
+        @body     = response.body.to_s
+        super(body)
+      end
+
+      def headers
+        headers = {}
+        response.each do |header, value|
+          headers[header] = value
+        end
+        headers
+      end
+      memoized :headers
+
+      def [](header)
+        headers[header]
+      end
+
+      def each(&block)
+        headers.each(&block)
+      end
+
+      def code
+        response.code.to_i
+      end
+
+      {:success      => 200..299, :redirect     => 300..399,
+       :client_error => 400..499, :server_error => 500..599}.each do |result, code_range|
+        class_eval(<<-EVAL, __FILE__, __LINE__)
+          def #{result}? 
+            return false unless response
+            (#{code_range}).include? code
+          end
+        EVAL
+      end
+
+      def error?
+        !success? && (response['content-type'] == 'application/xml' || response['content-type'] == 'text/xml')
+      end
+
+      def error
+        parsed['Error']
+      end
+      memoized :error
+
+      def parsed
+        parse_options = { 'forcearray' => ['item', 'member'], 'suppressempty' => nil, 'keeproot' => false }
+#        parse_options = { 'suppressempty' => nil, 'keeproot' => false }
+
+        XmlSimple.xml_in(body, parse_options)
+      end
+      memoized :parsed
+      
+      # It's expected that each subclass of Response will override this method with what part of response is relevant
+      def result
+        parsed
+      end
+      
+      def request_id
+        error? ? parsed['RequestId'] : parsed['ResponseMetadata']['RequestId']
+      end
+
+      def inspect
+        "#<%s:0x%s %s %s %s>" % [self.class, object_id, request_id, response.code, response.message]
+      end
+    end  # class Response
+    
+    # Requests whose response code is between 300 and 599 and contain an <Error></Error> in their body
+    # are wrapped in an Error::Response. This Error::Response contains an Error object which raises an exception
+    # that corresponds to the error in the response body. The exception object contains the ErrorResponse, so
+    # in all cases where a request happens, you can rescue ResponseError and have access to the ErrorResponse and
+    # its Error object which contains information about the ResponseError.
+    #
+    #   begin
+    #     Bucket.create(..)
+    #   rescue ResponseError => exception
+    #    exception.response
+    #    # => <Error::Response>
+    #    exception.response.error
+    #    # => <Error>
+    #   end
+    class ResponseError < StandardError
+      attr_reader :response
+      def initialize(response)
+        @response = response
+        super("AWS::SES Response Error: #{message}")
+      end
+      
+      def code
+        @response.code
+      end
+      
+      def message
+        "#{@response.error['Code']} - #{@response.error['Message']}"
+      end
+    
+      def inspect
+        "#<%s:0x%s %s %s '%s'>" % [self.class.name, object_id, @response.request_id, code, message]
+      end
+    end
+  end # module SES
+end  # module AWS
+

data/lib/aws/ses/send_email.rb

@@ -0,0 +1,156 @@
+module AWS
+  module SES
+    # Adds functionality for send_email and send_raw_email
+    # Use the following to send an e-mail:
+    #
+    #   ses = AWS::SES::Base.new( ... connection info ... )
+    #   ses.send_email :to        => ['jon@example.com', 'dave@example.com'],
+    #                :source    => '"Steve Smith" <steve@example.com>',
+    #                :subject   => 'Subject Line'
+    #                :text_body => 'Internal text body'
+    #
+    # By default, the email "from" display address is whatever is before the @. 
+    # To change the display from, use the format: 
+    #
+    #   "Steve Smith" <steve@example.com>
+    #
+    # You can also send Mail objects using send_raw_email:
+    # 
+    #   m = Mail.new( :to => ..., :from => ... )
+    #   ses.send_raw_email(m)
+    #
+    # send_raw_email will also take a hash and pass it through Mail.new automatically as well.
+    #
+    module SendEmail
+      
+      # Sends an email through SES
+      # 
+      # the destination parameters can be:
+      # 
+      # [A single e-mail string]  "jon@example.com"
+      # [A array of e-mail addresses]  ['jon@example.com', 'dave@example.com']
+      #
+      # ---
+      # = "Email address is not verified.MessageRejected (AWS::Error)"
+      # If you are receiving this message and you HAVE verified the [source] please <b>check to be sure you are not in sandbox mode!</b>
+      # If you have not been granted production access, you will have to <b>verify all recipients</b> as well.
+      # http://docs.amazonwebservices.com/ses/2010-12-01/DeveloperGuide/index.html?InitialSetup.Customer.html
+      # ---
+      #
+      # @option options [String] :source Source e-mail (from)
+      # @option options [String] :from alias for :source
+      # @option options [String] :to Destination e-mails
+      # @option options [String] :cc Destination e-mails
+      # @option options [String] :bcc Destination e-mails
+      # @option options [String] :subject
+      # @option options [String] :html_body
+      # @option options [String] :text_body
+      # @option options [String] :return_path The email address to which bounce notifications are to be forwarded. If the message cannot be delivered to the recipient, then an error message will be returned from the recipient's ISP; this message will then be forwarded to the email address specified by the ReturnPath parameter.
+      # @option options [String] :reply_to The reploy-to email address(es) for the message.  If the recipient replies to the message, each reply-to address will receive the reply.
+      # @option options
+      # @return [Response] the response to sending this e-mail
+      def send_email(options = {})
+        package     = {}
+        
+        package['Source'] = options[:source] || options[:from]
+        
+        add_array_to_hash!(package, 'Destination.ToAddresses', options[:to]) if options[:to]
+        add_array_to_hash!(package, 'Destination.CcAddresses', options[:cc]) if options[:cc]
+        add_array_to_hash!(package, 'Destination.BccAddresses', options[:bcc]) if options[:bcc]
+        
+        package['Message.Subject.Data'] = options[:subject]
+        
+        package['Message.Body.Html.Data'] = options[:html_body] if options[:html_body]
+        package['Message.Body.Text.Data'] = options[:text_body] || options[:body] if options[:text_body] || options[:body]
+        
+        package['ReturnPath'] = options[:return_path] if options[:return_path]
+        
+        add_array_to_hash!(package, 'ReplyToAddresses', options[:reply_to]) if options[:reply_to]
+        
+        request('SendEmail', package)
+      end
+      
+      # Sends using the SendRawEmail method
+      # This gives the most control and flexibility
+      #
+      # This uses the underlying Mail object from the mail gem
+      # You can pass in a Mail object, a Hash of params that will be parsed by Mail.new, or just a string
+      # 
+      # Note that the params are different from send_email
+      # Specifically, the following fields from send_email will NOT work:
+      #
+      # * :source
+      # * :html_body
+      # * :text_body
+      #
+      # send_email accepts the aliases of :from & :body in order to be more compatible with the Mail gem
+      #
+      # This method is aliased as deliver and deliver! for compatibility (especially with Rails)
+      #
+      # @option mail [String] A raw string that is a properly formatted e-mail message
+      # @option mail [Hash] A hash that will be parsed by Mail.new
+      # @option mail [Mail] A mail object, ready to be encoded
+      # @option args [String] :source The sender's email address
+      # @option args [String] :destinations A list of destinations for the message.
+      # @option args [String] :from alias for :source
+      # @option args [String] :to alias for :destinations
+      # @return [Response]
+      def send_raw_email(mail, args = {})
+        message = mail_to_raw_message(mail)
+        package = { 'RawMessage.Data' => Base64::encode64(message) }
+        package['Source'] = args[:from] if args[:from]
+        package['Source'] = args[:source] if args[:source]
+        if args[:destinations]
+            add_array_to_hash!(package, 'Destinations', args[:destinations])
+        else
+            add_array_to_hash!(package, 'Destinations', args[:to]) if args[:to]
+        end
+        request('SendRawEmail', package)
+      end
+
+      alias :deliver! :send_raw_email
+      alias :deliver  :send_raw_email
+      
+      private
+
+      def mail_to_raw_message(mail)
+        if mail.is_a?(Hash)
+          if defined?(::Mail)
+            Mail.new(mail).to_s
+          else
+            raise "To use #send_raw_email with a hash, please install the Mail gem"
+          end
+        else
+          mail.to_s
+        end
+      end
+      
+      # Adds all elements of the ary with the appropriate member elements
+      def add_array_to_hash!(hash, key, ary)
+        cnt = 1
+        [*ary].each do |o|
+          hash["#{key}.member.#{cnt}"] = o
+          cnt += 1
+        end
+      end
+    end
+    
+    class EmailResponse < AWS::SES::Response
+      def result
+        super["#{action}Result"]
+      end
+      
+      def message_id
+        result['MessageId']
+      end
+    end
+    
+    class SendEmailResponse < EmailResponse
+    
+    end
+    
+    class SendRawEmailResponse < EmailResponse
+    
+    end
+  end
+end

data/lib/aws/ses/version.rb

@@ -0,0 +1,12 @@
+module AWS
+  module SES
+    module VERSION #:nodoc:
+      MAJOR    = '0'
+      MINOR    = '4'
+      TINY     = '2' 
+      BETA     = Time.now.to_i.to_s
+    end
+    
+    Version = [VERSION::MAJOR, VERSION::MINOR, VERSION::TINY, VERSION::BETA].compact * '.'
+  end
+end

data/test/address_test.rb

@@ -0,0 +1,72 @@
+require File.expand_path('../helper', __FILE__)
+
+class AddressTest < Test::Unit::TestCase
+  context 'verifying an address' do
+    setup do
+      @base = generate_base
+    end
+
+    should 'return the correct response on success' do
+      mock_connection(@base, :body => %{
+        <VerifyEmailAddressResponse xmlns="http://ses.amazonaws.com/doc/2010-12-01/">
+          <ResponseMetadata>
+            <RequestId>abc-123</RequestId>
+          </ResponseMetadata>
+        </VerifyEmailAddressResponse>
+      })
+      
+      result = @base.addresses.verify('user1@example.com')
+      assert result.success?
+      assert_equal 'abc-123', result.request_id
+    end  
+  end
+
+  context 'listing verified addressess' do 
+    setup do
+      @base = generate_base
+    end
+    
+    should 'return the correct response on success' do   
+      mock_connection(@base, :body => %{
+        <ListVerifiedEmailAddressesResponse xmlns="http://ses.amazonaws.com/doc/2010-12-01/">
+          <ListVerifiedEmailAddressesResult>
+            <VerifiedEmailAddresses>
+              <member>user1@example.com</member>
+            </VerifiedEmailAddresses>
+          </ListVerifiedEmailAddressesResult>
+          <ResponseMetadata>
+            <RequestId>abc-123</RequestId>
+          </ResponseMetadata>
+        </ListVerifiedEmailAddressesResponse>
+      })
+      
+      result = @base.addresses.list
+
+      assert result.success?
+      assert_equal 'abc-123', result.request_id
+      assert_equal %w{user1@example.com}, result.result
+    end
+  end
+
+
+  context 'deleting a verified addressess' do 
+    setup do
+      @base = generate_base
+    end
+    
+    should 'return the correct response on success' do   
+      mock_connection(@base, :body => %{
+        <DeleteVerifiedEmailAddressResponse xmlns="http://ses.amazonaws.com/doc/2010-12-01/">
+          <ResponseMetadata>
+            <RequestId>abc-123</RequestId>
+          </ResponseMetadata>
+        </DeleteVerifiedEmailAddressResponse>
+      })
+      
+      result = @base.addresses.delete('user1@example.com')
+
+      assert result.success?
+      assert_equal 'abc-123', result.request_id
+    end
+  end
+end