pre 0.0.1

data/.rspec

@@ -0,0 +1,2 @@
+--format documentation
+--color

data/.rvmrc

@@ -0,0 +1 @@
+rvm use ruby-1.9.3@pre --create

data/Gemfile

@@ -0,0 +1,2 @@
+source :rubygems
+gemspec

data/Gemfile.lock

@@ -0,0 +1,49 @@
+PATH
+  remote: .
+  specs:
+    pre (0.0.1)
+      active_support
+      dalli
+      treetop
+
+GEM
+  remote: http://rubygems.org/
+  specs:
+    active_support (3.0.0)
+      activesupport (= 3.0.0)
+    activesupport (3.0.0)
+    coderay (1.0.7)
+    dalli (2.1.0)
+    diff-lcs (1.1.3)
+    metaclass (0.0.1)
+    method_source (0.8)
+    mocha (0.12.3)
+      metaclass (~> 0.0.1)
+    polyglot (0.3.3)
+    pry (0.9.10)
+      coderay (~> 1.0.5)
+      method_source (~> 0.8)
+      slop (~> 3.3.1)
+    pry-nav (0.2.2)
+      pry (~> 0.9.10)
+    rspec (2.11.0)
+      rspec-core (~> 2.11.0)
+      rspec-expectations (~> 2.11.0)
+      rspec-mocks (~> 2.11.0)
+    rspec-core (2.11.1)
+    rspec-expectations (2.11.2)
+      diff-lcs (~> 1.1.3)
+    rspec-mocks (2.11.1)
+    slop (3.3.2)
+    treetop (1.4.10)
+      polyglot
+      polyglot (>= 0.3.1)
+
+PLATFORMS
+  ruby
+
+DEPENDENCIES
+  mocha
+  pre!
+  pry-nav
+  rspec

data/README.md

@@ -0,0 +1,90 @@
+# Pretty Reliable Email
+=====================
+
+Why?
+----
+
+Regexes are not enough sometimes. We should go all the way and fully
+parse the email and knock on the server's door to see if they really
+have a mailbox. 
+
+How?
+---
+
+### Basics     
+    require 'pre'
+    validator = Pre::Validator.new
+    validator.valid? "me@apple.com"
+    
+### With basic config 
+
+Pre by default has built in validators for RFC2822 and DNS MX record verification. Validators can be passed through the `:validators` option.
+
+    require 'pre'
+    # validate with no domain validation
+    validator = Pre::Validator.new :validators => :format
+    validator.valid? "foo@nonexistent201233.com" # => true
+
+### Advanced config
+
+Pre can take blocks for custom validators
+
+  require 'pre'
+  no_gmail = lambda do |address|
+    address !~ /gmail.com$/
+  end
+  validator = Pre::Validator.new :validators => [:format, no_gmail]
+  validator.valid? "foo@gmail.com" # => false
+  
+Pre can take any object that implements the valid? method
+
+    require 'pre'
+    class ComplexValidator
+      def valid? address
+        return true unless address =~ /gmail.com$/
+        # do not allow user+label@gmail.com 
+        address !~ /\+.+@/
+      end
+    end
+    validator = Pre::Validator.new :validators => [:domain, ComplexValidator.new]
+    validator.valid? "john+spam@gmail.com" # => false
+ 
+ Pre can also take alternate configuration for a single address
+ 
+  require 'pre'
+  validator = Pre::Validator.new :validators => :format
+  validator.valid? "john@example.co.uk", :validators => lambda { |address|
+    address =~ /example.co.nz$/
+  } # => false
+    
+### Caching
+ 
+ Certain strategies may be more "intense" than others. MX Record lookup and other expensive operations can benefit from providing Pre with a cache store. A cache store must respond to `:write(key, val)` and `:read(key)` methods. The cache abstraction layer provided by Rails' [ActiveSupport::Cache::Store](http://api.rubyonrails.org/classes/ActiveSupport/Cache/Store.html) fits this interface. 
+ 
+    require 'pre'
+    memcache = ActiveSupport::Cache::MemCacheStore.new("localhost", "server-downstairs.localnetwork:8229")
+    validator = Pre::Validator.new :cache_store => memcache
+    validator.valid? "foo@gmail.com" # => true
+    
+
+Contributing
+---
+
+  1. Fork
+  2. Make tests
+  3. Make changes to lib
+  4. Ensure tests pass on 1.8/1.9 
+  5. Submit request
+  6. Smile
+  
+Roadmap
+---
+
+* ActiveModel, Mongoid::Document, etc.. integration
+* DSL for configuring Pre validation configuration sets 
+
+Ack
+---
+
+The RFC treetop grammars are pulled from the fantastic [mail](https://github.com/mikel/mail) gem.
+

data/TODO.md

@@ -0,0 +1,7 @@
+TODO
+====
+
+* ActiveModel integration
+* Simple DNS resolution caching
+* Configurable additional strategies
+

data/lib/pre.rb

@@ -0,0 +1,5 @@
+$LOAD_PATH.unshift("#{File.dirname(__FILE__)}")
+require "pre/validator"
+module Pre
+  VERSION = "0.1.0"
+end

data/lib/pre/cache_store.rb

@@ -0,0 +1,5 @@
+require "pre/cache_store/null"
+module Pre
+  class CacheStore
+  end
+end

data/lib/pre/cache_store/fake.rb

@@ -0,0 +1,18 @@
+module Pre
+  class Cache
+    module Fake
+      def cache
+        @cache ||= {}
+      end
+      def cache_read key
+        cache[key]
+      end
+      def cache_write key, value
+        cache[key] = value
+      end
+      def cache_fetch key, &block
+        cache[key] ||= block.call
+      end
+    end
+  end
+end

data/lib/pre/cache_store/null.rb

@@ -0,0 +1,13 @@
+module Pre
+  class CacheStore
+    class Null
+      def read key
+      end
+      def write key, val
+      end
+      def fetch key
+        yield
+      end
+    end
+  end
+end

data/lib/pre/fake_validation.rb

@@ -0,0 +1,25 @@
+module Pre
+  module FakeValidation
+    
+    def stub_validator strategy, result
+      stubbed_validators[strategy] = result 
+    end
+
+    def stub_validators *stubs
+      stubs.each_slice(2) do |strategy, result|
+        stub_validator strategy, result
+      end
+    end
+
+    def stubbed_validators
+      @stubbed_validators ||= {}
+    end
+    
+    def validate strategy
+      return super unless stubbed_validators.has_key? strategy
+      result = stubbed_validators[strategy]
+      return result.call self if result.respond_to? :call
+      result
+    end
+  end
+end

data/lib/pre/rfc2822.treetop

@@ -0,0 +1,412 @@
+# Originally from https://github.com/mikel/mail lib/mail/parsers/rfc2822.treetop
+
+module Pre
+  grammar RFC2822
+  
+    include RFC2822Obsolete
+
+    rule ALPHA
+      [a-zA-Z]
+    end
+    
+    rule DIGIT
+      [0-9]
+    end
+    
+    rule DQUOTE
+      '"'
+    end
+    
+    rule LF
+      "\n"
+    end
+    
+    rule CR
+      "\r"
+    end
+
+    rule CRLF
+      "\r\n"
+    end
+  
+    rule WSP
+      [\x09\x20]
+    end
+  
+    rule FWS    # Folding white space
+      (WSP* CRLF WSP+) / (CRLF WSP+) / obs_FWS
+    end
+
+    rule CFWS
+      (FWS* comment)* FWS?
+    end
+
+    rule NO_WS_CTL
+      [\x01-\x08]   /         # US-ASCII control characters
+      [\x0B-\x0C]   /         #  that do not include the
+      [\x0E-\x1F]   /         #  carriage return, line feed,
+      [\x7f]                  #  and white space characters
+    end
+
+    rule specials
+      "(" / ")" /     # Special characters used in
+      "<" / ">" /     #  other parts of the syntax
+      "[" / "]" /
+      ":" / ";" /
+      "@" / '\\' /
+      "," / "." /
+      DQUOTE
+    end
+
+    rule ctext
+      NO_WS_CTL   /    # Non white space controls
+      [\x21-\x27] /    # The rest of the US-ASCII
+      [\x2a-\x5b] /    #  characters not including "(",
+      [\x5d-\x7e]      #  ")", or "\"
+    end
+
+    rule ccontent
+      ctext / quoted_pair / comment
+    end
+
+    rule comment
+      "(" ( FWS? ccontent )* FWS? ")"
+    end
+  
+    rule atext
+      ALPHA / DIGIT / # Any character except controls,
+      "!" / "#" /     #  SP, and specials.
+      "$" / "%" /     #  Used for atoms
+      "&" / "'" /
+      "*" / "+" /
+      "-" / "/" /
+      "=" / "?" /
+      "^" / "_" /
+      "`" / "{" /
+      "|" / "}" /
+      "~"
+    end
+    
+    rule mtext
+      (atext / ".")+
+    end
+
+    rule atom
+      CFWS? atext+ CFWS?
+    end
+
+    rule dot_atom
+      CFWS? dot_atom_text CFWS?
+    end
+  
+    rule local_dot_atom
+      CFWS? local_dot_atom_text CFWS?
+    end
+    
+    rule message_id_text
+      mtext+
+    end
+    
+    rule dot_atom_text
+      (domain_text "."?)+
+    end
+    
+    rule local_dot_atom_text
+      ("."? domain_text)+
+    end
+    
+    rule domain_text
+      (DQUOTE (FWS? quoted_domain)+ FWS? DQUOTE) / atext+
+    end
+    
+    rule quoted_domain
+      qdcontent / "\\" text
+    end
+    
+    rule qdcontent
+      NO_WS_CTL /     # Non white space controls
+      [\x21] /        # The rest of the US-ASCII
+      [\x23-\x45] /   # characters not including "\"
+      [\x47-\x5b] /   # or the "." or the 
+      [\x5d-\x7e]     # double quote character
+    end
+
+    rule phrase
+      obs_phrase / word+
+    end
+    
+    rule word
+      atom / quoted_string
+    end
+    
+    rule phrase_list
+      first_phrase:phrase other_phrases:("," FWS* phrase_value:phrase)*
+    end
+
+    rule domain_literal
+      CFWS? "[" (FWS? dcontent)* FWS? "]" CFWS?
+    end
+
+    rule dcontent
+      dtext / quoted_pair
+    end
+
+    rule dtext
+      NO_WS_CTL    /  # Non white space controls
+      [\x21-\x5a]  /  # The rest of the US-ASCII characters
+      [\x5e-\x7e]     #  not including "[", "]", or "\"
+    end
+
+    rule angle_addr
+      CFWS? "<" addr_spec ">" CFWS? / obs_angle_addr
+    end
+
+    rule addr_spec
+      (local_part "@" domain) / local_part
+    end
+
+    rule local_part
+      local_dot_atom / quoted_string / obs_local_part
+    end
+  
+    rule domain
+      dot_atom / domain_literal / obs_domain
+    end
+  
+    rule group
+      group_name:display_name ":" group_list:(mailbox_list_group / CFWS)? ";" CFWS?
+    end
+
+    rule mailbox_list_group
+      mailbox_list {
+        def addresses
+          [first_addr] + other_addr.elements.map { |o| o.addr_value }
+        end
+      }
+    end
+
+    rule quoted_string
+      CFWS? DQUOTE quoted_content:(FWS? qcontent)+ FWS? DQUOTE CFWS?
+    end
+
+    rule qcontent
+      qtext / quoted_pair
+    end
+
+    rule quoted_pair
+      ("\\" text) / obs_qp
+    end
+  
+    rule qtext
+      NO_WS_CTL /     # Non white space controls
+      [\x21] /        # The rest of the US-ASCII
+      [\x23-\x5b] /   #  characters not including "\"
+      [\x5d-\x7e]     #  or the quote character
+    end
+
+    rule text
+      [\x01-\x09]     /       # Characters excluding CR and LF
+      [\x0b-\x0c]     /
+      [\x0e-\x7e]     / 
+      obs_text
+    end
+    
+    rule display_name
+      phrase
+    end
+    
+    rule name_addr
+      display_name angle_addr / angle_addr
+    end
+    
+    rule mailbox_list
+      (first_addr:mailbox other_addr:("," addr_value:mailbox)*) / obs_mbox_list
+    end
+  
+    rule mailbox
+      name_addr / addr_spec
+    end
+
+    rule address
+      group {
+    
+        def dig_comments(comments, elements)
+          elements.each { |elem|
+            if elem.respond_to?(:comment)
+              comments << elem.comment
+            end
+            dig_comments(comments, elem.elements) if elem.elements
+           }
+        end
+    
+        def comments
+          comments = []
+          dig_comments(comments, elements)
+          comments
+        end
+
+      } /
+      mailbox {
+
+      def dig_comments(comments, elements)
+        elements.each { |elem|
+          if elem.respond_to?(:comment)
+            comments << elem.comment
+          end
+          dig_comments(comments, elem.elements) if elem.elements
+         }
+      end
+
+      def comments
+        comments = []
+        dig_comments(comments, elements)
+        comments
+      end
+
+      }
+    end
+  
+    rule address_list
+      first_addr:address? other_addr:(FWS* "," FWS* addr_value:address?)*
+    end
+    
+    rule date_time
+      ( day_of_week ",")? date FWS time CFWS?
+    end
+
+    rule day_of_week
+      (FWS? day_name) / obs_day_of_week
+    end
+
+    rule day_name
+      "Mon" / "Tue" / "Wed" / "Thu" /
+      "Fri" / "Sat" / "Sun"
+    end
+
+    rule date
+      day month year
+    end
+    
+    rule year
+      DIGIT DIGIT DIGIT DIGIT / obs_year
+    end
+    
+    rule month
+      (FWS month_name FWS) / obs_month
+    end
+    
+    rule month_name
+      "Jan" / "Feb" / "Mar" / "Apr" /
+      "May" / "Jun" / "Jul" / "Aug" /
+      "Sep" / "Oct" / "Nov" / "Dec"
+    end
+    
+    rule day
+      (FWS? DIGIT DIGIT?) / obs_day
+    end
+    
+    rule time
+      time_of_day FWS zone
+    end
+    
+    rule time_of_day
+      hour ":" minute ( ":" second )?
+    end
+    
+    rule hour
+      DIGIT DIGIT / obs_hour
+    end
+    
+    rule minute
+      DIGIT DIGIT / obs_minute
+    end
+    
+    rule second
+      DIGIT DIGIT / obs_second
+    end
+    
+    rule zone
+      (( "+" / "-" ) DIGIT DIGIT DIGIT DIGIT) / obs_zone
+    end
+    
+    rule return
+      path CRLF
+    end
+    
+    rule path
+      ((CFWS)? "<" ((CFWS)? / addr_spec) ">" (CFWS)?) / obs_path
+    end
+    
+    rule received
+      name_val_list ";" date_time CRLF
+    end
+    
+    rule name_val_list
+      (CFWS)? (name_val_pair (CFWS name_val_pair)*)
+    end
+    
+    rule name_val_pair
+      item_name CFWS item_value
+    end
+    
+    rule item_name
+      ALPHA (("-")? (ALPHA / DIGIT))*
+    end
+    
+    rule item_value
+      (angle_addr)+ / addr_spec / atom / domain / msg_id
+    end
+
+    rule message_ids
+      first_msg_id:msg_id other_msg_ids:( CFWS msg_id_value:msg_id )*
+    end
+    
+    rule msg_id
+      (CFWS)? "<" msg_id_value ">" (CFWS)?
+    end
+    
+    rule msg_id_value
+      id_left "@" id_right
+    end
+    
+    rule id_left
+      message_id_text / no_fold_quote / obs_id_left
+    end
+    
+    rule id_right
+      msg_id_dot_atom_text / no_fold_literal / obs_id_right
+    end
+    
+    rule msg_id_dot_atom_text
+      (msg_id_domain_text "."?)+
+    end
+
+    rule msg_id_domain_text
+      (DQUOTE (FWS? quoted_domain)+ FWS? DQUOTE) / msg_id_atext+
+    end
+
+    rule msg_id_atext
+      ALPHA / DIGIT / # Any character except controls,
+      "!" / "#" /     #  SP, and specials.
+      "$" / "%" /     #  Used for atoms
+      "&" / "'" /
+      "*" / "+" /
+      "-" / "/" /
+      "=" / "?" /
+      "^" / "_" /
+      "`" / "{" /
+      "|" / "}" /
+      "~" / "@"
+    end
+
+    rule no_fold_quote
+      DQUOTE (qtext / quoted_pair)+ DQUOTE
+    end
+
+    rule no_fold_literal
+      "[" (dtext / quoted_pair)+ "]"
+    end
+    
+    
+  end
+end

data/lib/pre/rfc2822_obsolete.treetop

@@ -0,0 +1,241 @@
+module Pre
+  grammar RFC2822Obsolete
+  
+    rule obs_qp
+      "\\" [\x00-\x7F]
+    end
+
+    rule obs_text
+      LF* CR* (obs_char LF* CR*)*
+    end
+
+    rule obs_char
+      [\x00-\x09]      /       # %d0-127 except CR and
+      [\x0B-\x0C]      /       # LF
+      [\x0E-\x7F]
+    end
+
+    rule obs_utext
+      obs_text
+    end
+
+    rule obs_phrase
+      (word / "." / "@")+
+    end
+
+    rule obs_phrase_list
+      phrase / (phrase? CFWS? "," CFWS?)+ phrase?
+    end
+
+    rule obs_FWS
+      WSP+ (CRLF WSP+)*
+    end
+
+    rule obs_day_of_week
+      CFWS? day_name CFWS?
+    end
+
+    rule obs_year
+      CFWS? (DIGIT DIGIT) CFWS?
+    end
+
+    rule obs_month
+      CFWS month_name CFWS
+    end
+
+    rule obs_day
+      CFWS? (DIGIT / (DIGIT DIGIT))  CFWS?
+    end
+
+    rule obs_hour
+       CFWS? (DIGIT DIGIT) CFWS?
+    end
+
+    rule obs_minute
+      CFWS? (DIGIT DIGIT) CFWS?
+    end
+
+    rule obs_second
+      CFWS? (DIGIT DIGIT) CFWS?
+    end
+
+    rule obs_zone
+      "UT" / "GMT" /          # Universal Time
+                              # North American UT
+                              # offsets
+      "EST" / "EDT" /         # Eastern:  - 5/ - 4
+      "CST" / "CDT" /         # Central:  - 6/ - 5
+      "MST" / "MDT" /         # Mountain: - 7/ - 6
+      "PST" / "PDT" /         # Pacific:  - 8/ - 7
+                              #
+      [\x41-\x49] /           # Military zones - "A"
+      [\x4B-\x5A] /           # through "I" and "K"
+      [\x61-\x69] /           # through "Z", both
+      [\x6B-\x7A]             # upper and lower case
+    end
+
+    rule obs_angle_addr
+      CFWS? "<" obs_route? addr_spec ">" CFWS?
+    end
+    
+    rule obs_route
+      CFWS? obs_domain_list ":" CFWS?
+    end
+
+    rule obs_domain_list
+      "@" domain (("," )* CFWS? "@" domain)*
+    end
+    
+    rule obs_local_part
+      word ("." word)*
+    end
+
+    rule obs_domain
+      atom ("." atom)*
+    end
+
+    rule obs_mbox_list
+      (mailbox? CFWS? "," CFWS?)+ mailbox?
+    end
+
+    rule obs_addr_list
+      (address? CFWS? "," CFWS?)+ address?
+    end
+
+    rule obs_fields
+      (obs_return /
+       obs_received /
+       obs_orig_date /
+       obs_from /
+       obs_sender /
+       obs_reply_to /
+       obs_to /
+       obs_cc /
+       obs_bcc /
+       obs_message_id /
+       obs_in_reply_to /
+       obs_references /
+       obs_subject /
+       obs_comments /
+       obs_keywords /
+       obs_resent_date /
+       obs_resent_from /
+       obs_resent_send /
+       obs_resent_rply /
+       obs_resent_to /
+       obs_resent_cc /
+       obs_resent_bcc /
+       obs_resent_mid /
+       obs_optional)*
+    end
+
+    rule obs_orig_date
+      "Date" WSP* ":" date_time CRLF
+    end
+
+    rule obs_from
+      "From" WSP* ":" mailbox_list CRLF
+    end
+  
+    rule obs_sender
+      "Sender" WSP* ":" mailbox CRLF
+    end
+  
+    rule obs_reply_to
+      "Reply-To" WSP* ":" mailbox_list CRLF
+    end
+
+
+    rule obs_to
+      "To" WSP* ":" address_list CRLF
+    end
+
+    rule obs_cc
+      "Cc" WSP* ":" address_list CRLF
+    end
+
+    rule obs_bcc
+      "Bcc" WSP* ":" (address_list / CFWS?) CRLF
+    end
+
+    rule obs_message_id
+      "Message-ID" WSP* ":" msg_id CRLF
+    end
+
+    rule obs_in_reply_to
+      "In-Reply-To" WSP* ":" (phrase / msg_id)* CRLF
+    end
+
+    rule obs_references
+      "References" WSP* ":" (phrase / msg_id)* CRLF
+    end
+
+    rule obs_id_left
+      local_part
+    end
+
+    rule obs_id_right
+      domain
+    end
+
+    rule obs_subject
+      "Subject" WSP* ":" unstructured CRLF
+    end
+
+    rule obs_comments
+      "Comments" WSP* ":" unstructured CRLF
+    end
+
+    rule obs_keywords
+      "Keywords" WSP* ":" obs_phrase_list CRLF
+    end
+
+    rule obs_resent_from
+      "Resent-From" WSP* ":" mailbox_list CRLF
+    end
+
+    rule obs_resent_send
+      "Resent-Sender" WSP* ":" mailbox CRLF
+    end
+
+    rule obs_resent_date
+      "Resent-Date" WSP* ":" date_time CRLF
+    end
+
+    rule obs_resent_to
+      "Resent-To" WSP* ":" address_list CRLF
+    end
+
+    rule obs_resent_cc
+      "Resent-Cc" WSP* ":" address_list CRLF
+    end
+
+    rule obs_resent_bcc
+      "Resent-Bcc" WSP* ":" (address_list / CFWS?) CRLF
+    end
+
+    rule obs_resent_mid
+      "Resent-Message-ID" WSP* ":" msg_id CRLF
+    end
+
+    rule obs_resent_rply
+      "Resent-Reply-To" WSP* ":" address_list CRLF
+    end
+
+    rule obs_return
+      "Return-Path" WSP* ":" path CRLF
+    end
+
+    rule obs_received
+      "Received" WSP* ":" name_val_list CRLF
+    end
+
+    rule obs_path
+      obs_angle_addr
+    end
+
+    rule obs_optional
+      field_name WSP* ":" unstructured CRLF
+    end
+  end
+end

data/lib/pre/validator.rb

@@ -0,0 +1,90 @@
+require 'treetop'
+require 'pre/validators/format'
+require 'pre/validators/domain'
+require 'pre/cache_store'
+
+module Pre
+  class Validator
+    include Validators::Format
+    include Validators::Domain
+
+    attr_accessor :raw_address
+
+    def initialize options = {}
+      @options = defaults options
+    end
+
+    def valid? address, options = {}
+      self.address= address
+      validators(options[:validators]).all? do |strategy|
+        validate strategy
+      end
+    end
+
+    def address= new_address
+      @parsed = nil
+      @raw_address = new_address
+    end
+
+    def cache_read key
+      @options[:cache_store].read key
+    end
+
+    def cache_write key, value
+      @options[:cache_store].write key, value
+    end
+
+    def cache_fetch key, &block
+      @options[:cache_store].fetch key, &block
+    end
+
+    private
+
+    def domain
+      parsed.domain.text_value
+    end
+
+    def address
+      @raw_address
+    end
+
+    def validators validators
+      Array(validators || @options[:validators])
+    end
+
+    def validate strategy
+      internal_method = "valid_#{strategy}?".to_sym
+      return send(internal_method) if respond_to? internal_method
+      return strategy.call @raw_address if strategy.respond_to? :call
+      return delegated strategy if strategy.respond_to? :delegate=
+      return strategy.valid? @raw_address if strategy.respond_to? :valid?
+      raise ArgumentError, "Could not identify strategy #{strategy}"
+    end
+
+    def delegated strategy
+      strategy.delegate = self
+      strategy.valid? address
+    end
+
+    def defaults options
+      options[:validators] ||= [:format, :domain]
+      options[:cache_store] ||= Pre::CacheStore::Null.new
+      @options = options
+    end
+
+    def rfc2822_parser(treetop = Treetop)
+      ['rfc2822_obsolete', 'rfc2822'].each do |grammar|
+        treetop.require File.join(File.dirname(__FILE__), grammar)
+      end
+      RFC2822Parser.new
+    end
+
+    def parsed
+      return @parsed if @parsed
+      @parser = rfc2822_parser
+      @parser.parse @raw_address
+      @parsed = @parser._nt_address#.tap {|t| binding.pry}
+    end
+
+  end
+end

data/lib/pre/validators/domain.rb

@@ -0,0 +1,21 @@
+require 'pry'
+require 'resolv'
+module Pre
+  module Validators
+    module Domain
+      def self.expiry
+        3600
+      end
+
+      def cache_key key
+        "resolv_dns_result_#{key}"
+      end
+
+      def valid_domain?(resolution_provider = Resolv::DNS.new)
+        cache_fetch cache_key(domain) do
+          resolution_provider.getresources(domain, Resolv::DNS::Resource::IN::MX).any?
+        end
+      end
+    end
+  end
+end

data/lib/pre/validators/format.rb

@@ -0,0 +1,11 @@
+module Pre
+  module Validators
+    module Format
+      def valid_format?
+        return false unless parsed.respond_to? :domain
+        parsed.domain.dot_atom_text.elements.size > 1
+      end
+    end
+  end
+end
+

data/lib/pre/version.rb

@@ -0,0 +1,3 @@
+module Pre
+  VERSION = "0.0.1"
+end

data/pre.gemspec

@@ -0,0 +1,25 @@
+# -*- encoding: utf-8 -*-
+$:.push File.expand_path("../lib", __FILE__)
+require "pre/version"
+
+Gem::Specification.new do |s|
+  s.name        = "pre"
+  s.version     = Pre::VERSION
+  s.authors     = ["Thomas Devol"]
+  s.email       = ["thomas.devol@gmail.com"]
+  s.homepage    = ""
+  s.summary     = %q{Pretty reliable email validator}
+  s.description = %q{Checks email using RFC2822 compliant parser, Requests MX records for server validation}
+
+  s.rubyforge_project = "pre"
+
+  s.files         = `git ls-files`.split("\n")
+  s.test_files    = `git ls-files -- {test,spec,features}/*`.split("\n")
+  s.executables   = `git ls-files -- bin/*`.split("\n").map{ |f| File.basename(f) }
+  s.require_paths = ["lib"]
+
+  ["rspec", "mocha", "pry-nav"].each {|lib| s.add_development_dependency lib}
+  s.add_runtime_dependency "treetop"
+  s.add_runtime_dependency "active_support"
+  s.add_runtime_dependency "dalli"
+end

data/spec/lib/pre/validator_spec.rb

@@ -0,0 +1,118 @@
+require_relative '../../spec_helper'
+require 'pry'
+describe Pre::Validator do
+  def test_validator options={}
+    @validator = described_class.new options
+    @validator.extend Pre::FakeValidation
+  end
+
+  before do
+    @validator = test_validator
+  end
+
+  context "default configuration" do
+    it "indicates a basic email address is valid" do
+      @validator.valid?("vajrapani666@gmail.com").should be_true
+    end
+
+    it "invalidates email for invalid format" do
+      @validator.valid?("vajrapani666-gmail.com").should be_false
+    end
+
+    it "invalidates email for non-existent server" do
+      @validator.stub_validator :domain, false
+      @validator.valid?("support@revolution.gov").should be_false
+    end
+  end
+
+  context "configuration" do
+
+    it "allows server validation to be toggled" do
+      @validator = test_validator :validators => :format
+      @validator.stub_validators(
+        :server, -> validator do
+          raise "Should not have called format"  
+        end,
+        :format, true
+      )
+      @validator.valid?("support@revolution.gov").should be_true
+    end
+
+    it "allows one-time configuration" do
+      @validator = test_validator :validators => []
+      @validator.stub_validator :format, false
+      @validator.valid?("support@revolution.gov", :validators => :format).should be_false
+    end
+
+    it "allows lambda for validators" do
+      @validator = test_validator(:validators => -> address do
+        address !~ /^i.*gov$/  
+      end)
+      @validator.valid?("info@revolution.gov").should be_false
+      @validator.valid?("contact@revolution.org").should be_true
+    end
+
+    it "allows any object responding to valid? method for validator" do
+      validating_stub = stub(:valid? => false)
+      @validator = test_validator :validators => validating_stub
+      @validator.valid?("info@revolution.gov").should be_false
+    end
+
+    it "allows a delegate to be specified" do
+      validating_delegate = mock()
+      @validator = test_validator :validators => validating_delegate
+      validating_delegate.expects(:delegate=).with(@validator)
+      validating_delegate.expects(:valid?).returns(false)
+      @validator.valid?("any@address.com").should be_false
+    end
+
+  end
+  context "caching config" do
+    context "allows a cache store to be configured" do
+      it "delegates cache_read to cache store" do
+        mock_cache = mock()
+        mock_cache.expects(:read).with("test_key")
+        @validator = test_validator :validators => [], :cache_store => mock_cache
+        @validator.cache_read "test_key"
+      end
+
+
+      it "delegates cache_read to cache store" do
+        mock_cache = mock()
+        mock_cache.expects(:write).with("test_key", "test_value")
+        @validator = test_validator :validators => [], :cache_store => mock_cache
+        @validator.cache_write "test_key", "test_value"
+      end
+
+      it "exposes caching ability to collaborators" do
+        validating_delegate = Object.new
+        class << validating_delegate
+          
+          def delegate=(validator)
+            @validator = validator
+          end
+
+          def expensive_method
+            :expensive_result
+          end
+
+          def valid? address
+            existing_value = @validator.cache_read "foo"
+            return existing_value if existing_value
+            result = expensive_method  
+            @validator.cache_write "foo", result
+            false 
+          end
+        end
+
+        mock_cache = mock()
+        mock_cache.expects(:read).with("foo")
+        mock_cache.expects(:write).with("foo", :expensive_result)
+
+        @validator = test_validator :validators => validating_delegate, :cache_store => mock_cache
+        @validator.valid? "test@example.com"
+      end
+
+    end
+  end
+end

data/spec/lib/pre/validators/domain_spec.rb

@@ -0,0 +1,33 @@
+require 'spec_helper'
+require 'ostruct'
+describe Pre::Validators::Domain do
+  let (:validator) do 
+    class << fake_validator = Object.new
+      include Pre::Cache::Fake 
+      define_method(:domain) { "gmail.com" }
+      define_method(:cache_key) { |key| key }
+    end
+    fake_validator.extend Pre::Validators::Domain
+  end
+
+  describe "when dns resolution returns no mx records" do
+    it "returns false" do
+      result = validator.valid_domain?(stub(:getresources => []))
+      result.should be_false
+    end
+  end
+
+  describe "when dns resolution returns mx records" do
+    it "returns true" do
+      result = validator.valid_domain?(stub(:getresources => ["mx"]))
+      result.should be_true
+    end
+  end
+
+  it "caches mx lookups" do
+    result = validator.valid_domain?(stub(:getresources => ["mx"]))
+    result.should be_true
+  end
+end
+
+

data/spec/spec_helper.rb

@@ -0,0 +1,7 @@
+require_relative "../lib/pre"
+require_relative "../lib/pre/fake_validation"
+require_relative "../lib/pre/cache_store/fake"
+
+RSpec.configure do |config|
+  config.mock_framework = :mocha
+end

metadata

@@ -0,0 +1,143 @@
+--- !ruby/object:Gem::Specification
+name: pre
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+  prerelease: 
+platform: ruby
+authors:
+- Thomas Devol
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2012-09-19 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: rspec
+  requirement: &70142524558780 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: *70142524558780
+- !ruby/object:Gem::Dependency
+  name: mocha
+  requirement: &70142524558020 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: *70142524558020
+- !ruby/object:Gem::Dependency
+  name: pry-nav
+  requirement: &70142524557260 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: *70142524557260
+- !ruby/object:Gem::Dependency
+  name: treetop
+  requirement: &70142524556180 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: *70142524556180
+- !ruby/object:Gem::Dependency
+  name: active_support
+  requirement: &70142524555000 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: *70142524555000
+- !ruby/object:Gem::Dependency
+  name: dalli
+  requirement: &70142524552500 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: *70142524552500
+description: Checks email using RFC2822 compliant parser, Requests MX records for
+  server validation
+email:
+- thomas.devol@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- .rspec
+- .rvmrc
+- Gemfile
+- Gemfile.lock
+- README.md
+- TODO.md
+- lib/pre.rb
+- lib/pre/cache_store.rb
+- lib/pre/cache_store/fake.rb
+- lib/pre/cache_store/null.rb
+- lib/pre/fake_validation.rb
+- lib/pre/rfc2822.treetop
+- lib/pre/rfc2822_obsolete.treetop
+- lib/pre/validator.rb
+- lib/pre/validators/domain.rb
+- lib/pre/validators/format.rb
+- lib/pre/version.rb
+- lib/tasks/.gitkeep
+- pre.gemspec
+- spec/lib/pre/validator_spec.rb
+- spec/lib/pre/validators/domain_spec.rb
+- spec/spec_helper.rb
+homepage: ''
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+      segments:
+      - 0
+      hash: -3663766737597231915
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+      segments:
+      - 0
+      hash: -3663766737597231915
+requirements: []
+rubyforge_project: pre
+rubygems_version: 1.8.17
+signing_key: 
+specification_version: 3
+summary: Pretty reliable email validator
+test_files:
+- spec/lib/pre/validator_spec.rb
+- spec/lib/pre/validators/domain_spec.rb
+- spec/spec_helper.rb