tangofoxtrot-tmail_bouncer 0.1.0 → 0.1.1

data/lib/bouncers/base.rb

@@ -1,21 +1,22 @@
 module TmailBouncer
   class Base
     attr_accessor :status_info, :original_message_id, :original_sender, :original_recipient, :original_subject, :handling_server, :status_part, :original_message
-
     
     def initialize(email)
-      @email = email
-      determine_status_part
-      determine_original_message_part
-      parse_status_part
-      parse_original_message_part    
-      parse_original_recipient
-      parse_original_sender 
-      parse_original_subject     
+      @email = email  
+    end
+
+    def self.valid_email    
+      /^[-^!$#%&\'*+\/=?`{|}~\w]                  # Valid starting character
+      [-^!$#%&\'*+\/=?`{|}~.\w]*                  # Valid succeeding characters
+      @
+      [a-zA-Z0-9]([-a-zA-Z0-9]*[a-zA-Z0-9])*      # Domain
+      (\.[a-zA-Z0-9]([-a-zA-Z0-9]*[a-zA-Z0-9]))*  # Subdomain
+      (\.[a-zA-Z]([-a-zA-Z]?[a-zA-Z]))+$/x        # TLD (.com, .co.uk)
     end
     
     def self.available_bouncers
-      @@bouncers ||= [TmailBouncer::StandardBouncer]
+      @@bouncers ||= [TmailBouncer::StandardBouncer, TmailBouncer::BoxFullBouncer]
     end 
 
 
@@ -30,9 +31,58 @@ module TmailBouncer
     def self.from_email(email)
       bounce = determine_bouncer(email)
       # lets start by trying to extract the message/delivery-status part
-      
       bounce
     end
+    
+    def determine_status_part
+      @status_part = @email.parts.detect { |part| part.content_type == "message/delivery-status" }
+      @status_part.nil? ? @email.header : parse_status_part
+    end
+
+    def parse_status_part
+      statuses = @status_part.body.gsub("\n ","").split(/\n/)
+      statuses.inject({}) do |hash,line|
+        key,value = line.split(/:/,2)
+        hash[key] = value.strip rescue nil
+        hash
+      end  
+    end
+
+    def determine_original_message_part
+      @original_untouched =  @email.parts.detect do |part|
+        part.content_type == "message/rfc822" || part.content_type == "text/rfc822-headers"
+      end
+      parse_original_message_part
+    end
+
+    def parse_original_message_part
+      @email.multipart? ? TMail::Mail.parse(@original_untouched.body) : @email  
+    end
+    
+    def original_message
+      @original_message ||= determine_original_message_part
+    end
+    
+    def original_message_id
+      @original_message_id ||= self.original_message.message_id 
+    end
+    
+    def original_subject
+      @original_subject ||= self.original_message.subject
+    end
+
+    def original_sender
+      @original_sender ||= @email.multipart? ? self.original_message.from.to_a.first : self.status_info['x-original-to'].body
+    end
+
+    def original_recipient
+      @original_recipient ||= self.status_info["Final-Recipient"].to_s.gsub(%r%Final-Recipient: %i,"").gsub(%r%rfc822;%i,"").strip
+    end
+
+    def status_info
+      @status_info ||= determine_status_part
+    end
+
 
     def status
       case status_info['Status']

data/lib/bouncers/box_full_bouncer.rb

@@ -0,0 +1,23 @@
+module TmailBouncer
+  class BoxFullBouncer < Base
+    
+    def self.recognize?(email)
+      if email.parts.size == 0
+        email.body =~ /quota/
+      end
+    end
+
+    def original_recipient
+      if @email.multipart?
+        @original_recipient ||= self.status_info["Final-Recipient"].to_s.gsub(%r%Final-Recipient: %i,"").gsub(%r%rfc822;%i,"").strip
+      else
+        @original_recipient ||= self.original_message.body.split(' ').detect {|word| word.match(self.class.valid_email)}.to_s
+      end
+    end
+    
+    def status
+      "Failure"
+    end
+    
+  end
+end

data/lib/bouncers/no_bouncer.rb

@@ -1,10 +1,6 @@
 module TmailBouncer
   class NoBouncer < Base
     
-    def initialize
-      
-    end
-    
     def status
       "Success"
     end

data/lib/bouncers/standard_bouncer.rb

@@ -7,42 +7,5 @@ module TmailBouncer
       end
     end
     
-    def determine_status_part
-      self.status_part = @email.parts.detect { |part| part.content_type == "message/delivery-status" }
-    end
-
-    def determine_original_message_part
-      self.original_message = @email.parts.detect do |part|
-        part.content_type == "message/rfc822"
-      end      
-    end
-
-
-    def parse_status_part
-      statuses = self.status_part.body.gsub("\n ","").split(/\n/)
-      self.status_info = statuses.inject({}) do |hash,line|
-        key,value = line.split(/:/,2)
-        hash[key] = value.strip rescue nil
-        hash
-      end  
-    end
-
-    def parse_original_message_part
-      self.original_message = TMail::Mail.parse(self.original_message.body)
-      self.original_message_id = self.original_message.message_id      
-    end
-    
-    def parse_original_recipient
-      self.original_recipient = self.status_info["Final-Recipient"].to_s.gsub("Final-Recipient: ","").gsub("rfc822;","").strip
-    end
-
-    def parse_original_sender
-      self.original_sender = self.original_message.from.to_a.first
-    end
-
-    def parse_original_subject
-      self.original_subject = self.original_message.subject
-    end
-    
   end
 end

data/lib/tmail_bouncer.rb

@@ -2,4 +2,5 @@ require 'tmail'
 require 'bouncers/base'
 require 'bouncers/standard_bouncer'
 require 'bouncers/no_bouncer'
+require 'bouncers/box_full_bouncer'
 TMail::Mail.send :include, TmailBouncer

data/test/fixtures/aol.eml

@@ -0,0 +1,96 @@
+Return-Path: <>
+X-Original-To: joe@example.com
+Delivered-To: postmaster_bounce@example.com
+Received: from omr-d25.mx.aol.com (mail.example.com [1.1.1.1])
+	by mail.example.com (Postfix) with ESMTP id D03081784B5
+	for <joe@example.com>; Thu, 28 May 2009 16:20:16 -0700 (PDT)
+Received: from omr-d25.mx.aol.com ([205.188.249.69] helo=omr-d25.mx.aol.com)
+	by ASSP.nospam; 28 May 2009 16:20:16 -0700
+Received: from rly-dg01.mx.aol.com (rly-dg01.mx.aol.com [205.188.155.81]) by omr-d25.mx.aol.com (v117.7) with ESMTP id MAILOMRD256-7d884a1f1c39a6; Thu, 28 May 2009 19:20:25 -0400
+Received: from localhost (localhost)
+	by rly-dg01.mx.aol.com (8.14.1/8.14.1) id n4SNKNdL013113;
+	Thu, 28 May 2009 19:20:25 -0400
+Date: Thu, 28 May 2009 19:20:25 -0400
+From: Mail Delivery Subsystem <MAILER-DAEMON@aol.com>
+Message-Id: <200905282320.n4SNKNdL013113@rly-dg01.mx.aol.com>
+To: <joe@example.com>
+MIME-Version: 1.0
+Content-Type: multipart/report; report-type=delivery-status;
+	boundary="n4SNKNdL013113.1243552825/rly-dg01.mx.aol.com"
+Subject: Returned mail: see transcript for details
+Auto-Submitted: auto-generated (failure)
+X-AOL-INRLY: mail.example.com [1.1.1.1] rly-dg01
+X-AOL-IP: 205.188.155.81
+X-Assp-Received-RBL: pass
+
+This is a MIME-encapsulated message
+
+--n4SNKNdL013113.1243552825/rly-dg01.mx.aol.com
+
+The original message was received at Thu, 28 May 2009 19:20:04 -0400
+from mail.example.com [1.1.1.1]
+
+
+*** ATTENTION ***
+
+Your e-mail is being returned to you because there was a problem with its
+delivery.  The address which was undeliverable is listed in the section
+labeled: "----- The following addresses had permanent fatal errors -----".
+
+The reason your mail is being returned to you is listed in the section
+labeled: "----- Transcript of Session Follows -----".
+
+The line beginning with "<<<" describes the specific reason your e-mail could
+not be delivered.  The next line contains a second error message which is a
+general translation for other e-mail servers.
+
+Please direct further questions regarding this message to your e-mail
+administrator.
+
+--AOL Postmaster
+
+
+
+   ----- The following addresses had permanent fatal errors -----
+<fred@aol.com>
+    (reason: 552 bigbassboris MAILBOX FULL)
+
+   ----- Transcript of session follows -----
+... while talking to air-dg06.mail.aol.com.:
+>>> RCPT To:<fred@aol.com>
+<<< 552 bigbassboris MAILBOX FULL
+554 5.0.0 Service unavailable
+
+--n4SNKNdL013113.1243552825/rly-dg01.mx.aol.com
+Content-Type: message/delivery-status
+
+Reporting-MTA: dns; rly-dg01.mx.aol.com
+Arrival-Date: Thu, 28 May 2009 19:20:04 -0400
+
+Final-Recipient: RFC822; fred@aol.com
+Action: failed
+Status: 5.2.2
+Remote-MTA: DNS; air-dg06.mail.aol.com
+Diagnostic-Code: SMTP; 552 bigbassboris MAILBOX FULL
+Last-Attempt-Date: Thu, 28 May 2009 19:20:25 -0400
+
+--n4SNKNdL013113.1243552825/rly-dg01.mx.aol.com
+Content-Type: text/rfc822-headers
+
+Received: from mail.example.com (mail.example.com [1.1.1.1]) by rly-dg01.mx.aol.com (v123.4) with ESMTP id MAILRELAYINDG013-59e4a1f1c241e7; Thu, 28 May 2009 19:20:04 -0400
+Received: from mail.example.com (example.com [1.1.1.1)
+	by mail.example.com (Postfix) with ESMTP id DF6A5178462
+	for <fred@aol.com>; Thu, 28 May 2009 16:19:53 -0700 (PDT)
+Date: Thu, 28 May 2009 16:18:36 -0700
+From: joe@example.com
+To: fred@aol.com
+Subject: I like turtles
+Mime-Version: 1.0
+Content-Type: text/html; charset=utf-8
+Message-Id: <1234.1212@example.com>
+X-AOL-IP: 1.1.1.1
+X-AOL-SCOLL-SCORE:1:2:371949056:93952408
+X-AOL-SCOLL-URL_COUNT:5
+
+--n4SNKNdL013113.1243552825/rly-dg01.mx.aol.com--
+

data/test/fixtures/box_full.eml

@@ -0,0 +1,24 @@
+Return-Path: <root@mail.example.com>
+X-Original-To: joe@example.com
+Delivered-To: postmaster_bounce@example.com
+Received: from mail.example.com (mail.example.com [8.12.160.195])
+	by mail.example.com (Postfix) with ESMTP id DE32317849E
+	for <joe@example.com>; Fri, 29 May 2009 14:33:03 -0700 (PDT)
+Received: from mail.example.com ([64.233.207.26] helo=mail.example.com)
+	by ASSP.nospam; 29 May 2009 14:33:03 -0700
+Received: from mail.example.com (localhost.localdomain [127.0.0.1])
+	by mail.example.com (8.12.8/8.12.8) with ESMTP id n4TLXDTH003035
+	for <joe@example.com>; Fri, 29 May 2009 16:33:13 -0500
+Received: (from root@localhost)
+	by mail.example.com (8.12.8/8.12.8/Submit) id n4TLXD6Y003033;
+	Fri, 29 May 2009 16:33:13 -0500
+Date: Fri, 29 May 2009 16:33:13 -0500
+Message-Id: <1234.1212@example.com>
+To: joe@example.com
+Subject: I like turtles
+References: <20090529213302.06FB11783A7@mail.example.com>
+In-Reply-To: <20090529213302.06FB11783A7@mail.example.com>
+From: <MAILER-DAEMON@somewhere.com>
+X-Assp-Received-RBL: pass
+
+Your message to fred@example.com was rejected due to the user exceeding its mailbox quota

data/test/unit/test_tmail_bouncer.rb

@@ -0,0 +1,147 @@
+require 'test_helper'
+
+class TmailBouncerTest < Test::Unit::TestCase
+
+  context "Yahoo Bounce" do    
+    setup do
+      @email = read_email('yahoo.eml')
+    end
+    
+    should "be a tmail object" do
+      assert @email.is_a?(TMail::Mail), "Whoops Im a #{@email.class}"
+    end
+
+    should "return StandardBouncer" do
+      assert @email.undeliverable_info.is_a?(TmailBouncer::StandardBouncer) , "Whoops Im a #{@email.class}"
+    end
+    
+    should "detect bounced" do
+      assert_equal @email.undeliverable_info.status, "Failure"
+    end
+    
+    should "detect original sender" do
+      assert_equal @email.undeliverable_info.original_sender, "joe@example.com"      
+    end
+    
+    should "detect original recipient" do
+      assert_equal @email.undeliverable_info.original_recipient, "fred@somewhere.com"      
+    end
+
+    should "detect original subject" do
+      assert_equal @email.undeliverable_info.original_subject, "I like turtles"            
+    end    
+
+    should "detect original_message_id" do
+      assert_equal @email.undeliverable_info.original_message_id, "<1234.1212@example.com>"
+    end
+    
+    should "return status of failure" do
+      assert_equal "Failure",  @email.undeliverable_info.status
+    end           
+  end
+
+  context "Yahoo Legit Email" do
+  
+    setup do
+      @email = read_email('yahoo_legit.eml')
+    end  
+    
+
+    should "be a tmail object" do
+      assert @email.is_a?(TMail::Mail), "Whoops Im a #{@email.class}"
+    end
+
+    should "return NoBouce" do
+      assert @email.undeliverable_info.is_a?(TmailBouncer::NoBouncer) , "Whoops Im a #{@email.class}"
+    end
+
+    should "return status of Success" do
+      assert_equal "Success",  @email.undeliverable_info.status
+    end 
+                    
+  end
+
+
+  context "AOL Bounce" do    
+    setup do
+      @email = read_email('aol.eml')
+    end
+    
+    should "be a tmail object" do
+      assert @email.is_a?(TMail::Mail), "Whoops Im a #{@email.class}"
+    end
+
+    should "return StandardBouncer" do
+      assert @email.undeliverable_info.is_a?(TmailBouncer::StandardBouncer) , "Whoops Im a #{@email.class}"
+    end
+    
+    should "detect bounced" do
+      assert_equal @email.undeliverable_info.status, "Failure"
+    end
+    
+    should "detect original sender" do
+      assert_equal @email.undeliverable_info.original_sender, "joe@example.com"      
+    end
+    
+    should "detect original recipient" do
+      assert_equal @email.undeliverable_info.original_recipient, "fred@aol.com"      
+    end
+    
+    should "detect original subject" do
+      assert_equal @email.undeliverable_info.original_subject, "I like turtles"            
+    end    
+    
+    should "detect original_message_id" do
+      assert_equal @email.undeliverable_info.original_message_id, "<1234.1212@example.com>"
+    end
+    
+    should "return status of failure" do
+      assert_equal "Failure",  @email.undeliverable_info.status
+    end           
+  end
+  
+  context "Box Full Bounce" do    
+    setup do
+      @email = read_email('box_full.eml')
+    end
+    
+    should "be a tmail object" do
+      assert @email.is_a?(TMail::Mail), "Whoops Im a #{@email.class}"
+    end
+
+    should "return BoxFullBouncer" do
+      assert @email.undeliverable_info.is_a?(TmailBouncer::BoxFullBouncer) , "Whoops Im a #{@email.class}"
+    end
+    
+    should "detect bounced" do
+      assert_equal @email.undeliverable_info.status, "Failure"
+    end
+    
+    should "detect original sender" do
+      assert_equal @email.undeliverable_info.original_sender, "joe@example.com"      
+    end
+    
+    should "detect original recipient" do
+      assert_equal @email.undeliverable_info.original_recipient, "fred@example.com"      
+    end
+    
+    should "detect original subject" do
+      assert_equal @email.undeliverable_info.original_subject, "I like turtles"            
+    end    
+    
+    should "detect original_message_id" do
+      assert_equal @email.undeliverable_info.original_message_id, "<1234.1212@example.com>"
+    end
+    
+    should "return status of failure" do
+      assert_equal "Failure",  @email.undeliverable_info.status
+    end           
+  end
+
+
+protected
+
+  def read_email(name)
+    TMail::Mail.parse(File.read('test/fixtures/' + name))
+  end
+end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: tangofoxtrot-tmail_bouncer
 version: !ruby/object:Gem::Version 
-  version: 0.1.0
+  version: 0.1.1
 platform: ruby
 authors: 
 - tangofoxtrot
@@ -9,7 +9,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2009-05-29 00:00:00 -07:00
+date: 2009-06-03 00:00:00 -07:00
 default_executable: 
 dependencies: []
 
@@ -27,13 +27,16 @@ files:
 - README.rdoc
 - Rakefile
 - lib/bouncers/base.rb
+- lib/bouncers/box_full_bouncer.rb
 - lib/bouncers/no_bouncer.rb
 - lib/bouncers/standard_bouncer.rb
 - lib/tmail_bouncer.rb
+- test/fixtures/aol.eml
+- test/fixtures/box_full.eml
 - test/fixtures/yahoo.eml
 - test/fixtures/yahoo_legit.eml
 - test/test_helper.rb
-- test/unit/tmail_bouncer_test.rb
+- test/unit/test_tmail_bouncer.rb
 has_rdoc: true
 homepage: http://github.com/tangofoxtrot/tmail_bouncer
 post_install_message: 
@@ -62,4 +65,4 @@ specification_version: 2
 summary: TODO
 test_files: 
 - test/test_helper.rb
-- test/unit/tmail_bouncer_test.rb
+- test/unit/test_tmail_bouncer.rb

data/test/unit/tmail_bouncer_test.rb

@@ -1,70 +0,0 @@
-require 'test_helper'
-
-class TmailBouncerTest < Test::Unit::TestCase
-
-  context "Yahoo Bounce" do    
-    setup do
-      @email = read_email('yahoo.eml')
-    end
-    
-    should "be a tmail object" do
-      assert @email.is_a?(TMail::Mail), "Whoops Im a #{@email.class}"
-    end
-
-    should "return StandardBouncer" do
-      assert @email.undeliverable_info.is_a?(TmailBouncer::StandardBouncer) , "Whoops Im a #{@email.class}"
-    end
-    
-    should "detect bounced" do
-      assert_equal @email.undeliverable_info.status, "Failure"
-    end
-    
-    should "detect original sender" do
-      assert_equal @email.undeliverable_info.original_sender, "joe@example.com"      
-    end
-    
-    should "detect original recipient" do
-      assert_equal @email.undeliverable_info.original_recipient, "fred@somewhere.com"      
-    end
-
-    should "detect original subject" do
-      assert_equal @email.undeliverable_info.original_subject, "I like turtles"            
-    end    
-
-    should "detect original_message_id" do
-      assert_equal @email.undeliverable_info.original_message_id, "<1234.1212@example.com>"
-    end
-    
-    should "return status of failure" do
-      assert_equal "Failure",  @email.undeliverable_info.status
-    end           
-  end
-
-  context "Yahoo Legit Email" do
-  
-    setup do
-      @email = read_email('yahoo_legit.eml')
-    end  
-    
-
-    should "be a tmail object" do
-      assert @email.is_a?(TMail::Mail), "Whoops Im a #{@email.class}"
-    end
-
-    should "return NoBouce" do
-      assert @email.undeliverable_info.is_a?(TmailBouncer::NoBouncer) , "Whoops Im a #{@email.class}"
-    end
-
-    should "return status of Success" do
-      assert_equal "Success",  @email.undeliverable_info.status
-    end 
-                    
-  end
-  
-
-protected
-
-  def read_email(name)
-    TMail::Mail.parse(File.read('test/fixtures/' + name))
-  end
-end