kbaum-mail 2.1.2.1

data/lib/mail/network/delivery_methods/file_delivery.rb

@@ -0,0 +1,40 @@
+module Mail
+  
+  # FileDelivery class delivers emails into multiple files based on the destination
+  # address.  Each file is appended to if it already exists.
+  # 
+  # So if you have an email going to fred@test, bob@test, joe@anothertest, and you
+  # set your location path to ~/tmp/mails then FileDelivery will create ~/tmp/mails
+  # if it does not exist, and put one copy of the email in three files, called
+  # "fred@test", "bob@test" and "joe@anothertest"
+  # 
+  # Make sure the path you specify with :location is writable by the Ruby process
+  # running Mail.
+  class FileDelivery
+
+    if RUBY_VERSION >= '1.9.1'
+      require 'fileutils'
+    else
+      require 'ftools'
+    end
+
+    def initialize(values)
+      self.settings = { :location => './mails' }.merge!(values)
+    end
+    
+    attr_accessor :settings
+    
+    def deliver!(mail)
+      if ::File.respond_to?(:makedirs)
+        ::File.makedirs settings[:location]
+      else
+        ::FileUtils.mkdir_p settings[:location]
+      end
+
+      mail.destinations.uniq.each do |to|
+        ::File.open(::File.join(settings[:location], to), 'a') { |f| "#{f.write(mail.encoded)}\r\n\r\n" }
+      end
+    end
+    
+  end
+end

data/lib/mail/network/delivery_methods/sendmail.rb

@@ -0,0 +1,62 @@
+module Mail
+  # A delivery method implementation which sends via sendmail.
+  # 
+  # To use this, first find out where the sendmail binary is on your computer,
+  # if you are on a mac or unix box, it is usually in /usr/sbin/sendmail, this will
+  # be your sendmail location.
+  # 
+  #   Mail.defaults do
+  #     delivery_method :sendmail
+  #   end
+  # 
+  # Or if your sendmail binary is not at '/usr/sbin/sendmail'
+  # 
+  #   Mail.defaults do
+  #     delivery_method :sendmail, :location => '/absolute/path/to/your/sendmail'
+  #   end
+  # 
+  # Then just deliver the email as normal:
+  # 
+  #   Mail.deliver do
+  #     to 'mikel@test.lindsaar.net'
+  #     from 'ada@test.lindsaar.net'
+  #     subject 'testing sendmail'
+  #     body 'testing sendmail'
+  #   end
+  # 
+  # Or by calling deliver on a Mail message
+  # 
+  #   mail = Mail.new do
+  #     to 'mikel@test.lindsaar.net'
+  #     from 'ada@test.lindsaar.net'
+  #     subject 'testing sendmail'
+  #     body 'testing sendmail'
+  #   end
+  # 
+  #   mail.deliver!
+  class Sendmail
+    
+    def initialize(values)
+      self.settings = { :location       => '/usr/sbin/sendmail',
+                        :arguments      => '-i -t' }.merge(values)
+    end
+    
+    attr_accessor :settings
+
+    def deliver!(mail)
+      envelope_from = mail.return_path || mail.sender || mail.from_addrs.first
+      return_path = "-f \"#{envelope_from}\"" if envelope_from
+
+      arguments = [settings[:arguments], return_path].compact.join(" ")
+      
+      Sendmail.call(settings[:location], arguments, mail.destinations.join(" "), mail)
+    end
+    
+    def Sendmail.call(path, arguments, destinations, mail)
+      IO.popen("#{path} #{arguments} #{destinations}", "w+") do |io|
+        io.puts mail.encoded.to_lf
+        io.flush
+      end
+    end
+  end
+end

data/lib/mail/network/delivery_methods/smtp.rb

@@ -0,0 +1,110 @@
+module Mail
+  # == Sending Email with SMTP
+  # 
+  # Mail allows you to send emails using SMTP.  This is done by wrapping Net::SMTP in
+  # an easy to use manner.
+  # 
+  # === Sending via SMTP server on Localhost
+  # 
+  # Sending locally (to a postfix or sendmail server running on localhost) requires
+  # no special setup.  Just to Mail.deliver &block or message.deliver! and it will
+  # be sent in this method.
+  # 
+  # === Sending via MobileMe
+  # 
+  #   Mail.defaults do
+  #     delivery_method :smtp, { :address              => "smtp.me.com",
+  #                              :port                 => 587,
+  #                              :domain               => 'your.host.name',
+  #                              :user_name            => '<username>',
+  #                              :password             => '<password>',
+  #                              :authentication       => 'plain',
+  #                              :enable_starttls_auto => true  }
+  #   end
+  # 
+  # === Sending via GMail
+  # 
+  #   Mail.defaults do
+  #     delivery_method :smtp, { :address              => "smtp.gmail.com",
+  #                              :port                 => 587,
+  #                              :domain               => 'baci.lindsaar.net',
+  #                              :user_name            => '<username>',
+  #                              :password             => '<password>',
+  #                              :authentication       => 'plain',
+  #                              :enable_starttls_auto => true  }
+  #   end
+  #
+  # === Others 
+  # 
+  # Feel free to send me other examples that were tricky
+  # 
+  # === Delivering the email
+  # 
+  # Once you have the settings right, sending the email is done by:
+  # 
+  #   Mail.deliver do
+  #     to 'mikel@test.lindsaar.net'
+  #     from 'ada@test.lindsaar.net'
+  #     subject 'testing sendmail'
+  #     body 'testing sendmail'
+  #   end
+  # 
+  # Or by calling deliver on a Mail message
+  # 
+  #   mail = Mail.new do
+  #     to 'mikel@test.lindsaar.net'
+  #     from 'ada@test.lindsaar.net'
+  #     subject 'testing sendmail'
+  #     body 'testing sendmail'
+  #   end
+  # 
+  #   mail.deliver!
+  class SMTP
+
+    def initialize(values)
+      self.settings = { :address              => "localhost",
+                        :port                 => 25,
+                        :domain               => 'localhost.localdomain',
+                        :user_name            => nil,
+                        :password             => nil,
+                        :authentication       => nil,
+                        :enable_starttls_auto => true  }.merge!(values)
+    end
+    
+    attr_accessor :settings
+    
+    # Send the message via SMTP.
+    # The from and to attributes are optional. If not set, they are retrieve from the Message.
+    def deliver!(mail)
+
+      # Set the envelope from to be either the return-path, the sender or the first from address
+      envelope_from = mail.return_path || mail.sender || mail.from_addrs.first
+      if envelope_from.blank?
+        raise ArgumentError.new('A sender (Return-Path, Sender or From) required to send a message') 
+      end
+      
+      destinations ||= mail.destinations if mail.respond_to?(:destinations) && mail.destinations
+      if destinations.blank?
+        raise ArgumentError.new('At least one recipient (To, Cc or Bcc) is required to send a message') 
+      end
+      
+      message ||= mail.encoded if mail.respond_to?(:encoded)
+      if message.blank?
+        raise ArgumentError.new('A encoded content is required to send a message')
+      end
+      
+      smtp = Net::SMTP.new(settings[:address], settings[:port])
+      if settings[:enable_starttls_auto]
+        smtp.enable_starttls_auto if smtp.respond_to?(:enable_starttls_auto) 
+      end
+      
+      smtp.start(settings[:domain], settings[:user_name], settings[:password], settings[:authentication]) do |smtp|
+        smtp.sendmail(message, envelope_from, destinations)
+      end
+      
+      self
+    end
+    
+    
+  end
+end

data/lib/mail/network/delivery_methods/test_mailer.rb

@@ -0,0 +1,40 @@
+module Mail
+  # The TestMailer is a bare bones mailer that does nothing.  It is useful
+  # when you are testing.
+  # 
+  # It also provides a template of the minimum methods you require to implement
+  # if you want to make a custom mailer for Mail
+  class TestMailer
+
+    # Provides a store of all the emails sent with the TestMailer so you can check them.
+    def TestMailer.deliveries
+      @@deliveries ||= []
+    end
+
+    # Allows you to over write the default deliveries store from an array to some
+    # other object.  If you just want to clear the store, 
+    # call TestMailer.deliveries.clear.
+    # 
+    # If you place another object here, please make sure it responds to:
+    # 
+    # * << (message)
+    # * clear
+    # * length
+    # * size
+    # * and other common Array methods
+    def TestMailer.deliveries=(val)
+      @@deliveries = val
+    end
+
+    def initialize(values)
+      @settings = {}
+    end
+    
+    attr_accessor :settings
+
+    def deliver!(mail)
+      Mail::TestMailer.deliveries << mail
+    end
+    
+  end
+end

data/lib/mail/network/retriever_methods/imap.rb

@@ -0,0 +1,31 @@
+module Mail
+
+  class IMAP
+
+    require 'net/imap'
+
+    def initialize(values)
+      self.settings = { :address              => "localhost",
+        :port                 => 110,
+        :user_name            => nil,
+        :password             => nil,
+        :authentication       => nil,
+        :enable_ssl           => false }.merge!(values)
+    end
+
+    attr_accessor :settings
+
+    def first(options = {}, &block)
+      imap = Net::IMAP.new(settings[:address], settings[:port], settings[:enable_ssl])
+      imap.login(settings[:user_name], settings[:password])
+      imap.examine('INBOX')
+      uids = imap.uid_search('ALL')
+      uids = uids[0,options[:count]] if options[:count]
+      uids.each do |message_id|
+        fetch_data = imap.uid_fetch(message_id, ['BODY.PEEK[HEADER]'])
+        fetch_data.each{|fd| yield Mail.new(fd.attr['BODY[HEADER]'])}
+      end
+
+    end
+  end
+end

data/lib/mail/network/retriever_methods/pop3.rb

@@ -0,0 +1,149 @@
+# encoding: utf-8
+
+module Mail
+  # The Pop3 retriever allows to get the last, first or all emails from a POP3 server.
+  # Each email retrieved (RFC2822) is given as an instance of +Message+.
+  #
+  # While being retrieved, emails can be yielded if a block is given.
+  # 
+  # === Example of retrieving Emails from GMail:
+  # 
+  #   Mail.defaults do
+  #     retriever_method :pop3, { :address             => "pop.gmail.com",
+  #                               :port                => 995,
+  #                               :user_name           => '<username>',
+  #                               :password            => '<password>',
+  #                               :enable_ssl          => true }
+  #   end
+  # 
+  #   Mail.all    #=> Returns an array of all emails
+  #   Mail.first  #=> Returns the first unread email
+  #   Mail.last   #=> Returns the first unread email
+  # 
+  # You can also pass options into Mail.find to locate an email in your pop mailbox
+  # with the following options:
+  # 
+  #   what:  last or first emails. The default is :first.
+  #   order: order of emails returned. Possible values are :asc or :desc. Default value is :asc.
+  #   count: number of emails to retrieve. The default value is 10. A value of 1 returns an
+  #          instance of Message, not an array of Message instances.
+  # 
+  #   Mail.find(:what => :first, :count => 10, :order => :asc)
+  #   #=> Returns the first 10 emails in ascending order
+  # 
+  class POP3
+    require 'net/pop'
+
+    def initialize(values)
+      self.settings = { :address              => "localhost",
+                        :port                 => 110,
+                        :user_name            => nil,
+                        :password             => nil,
+                        :authentication       => nil,
+                        :enable_ssl           => false }.merge!(values)
+    end
+    
+    attr_accessor :settings
+    
+    # Get the oldest received email(s)
+    #
+    # Possible options:
+    #   count: number of emails to retrieve. The default value is 1.
+    #   order: order of emails returned. Possible values are :asc or :desc. Default value is :asc.
+    #
+    def first(options = {}, &block)
+      options ||= {}
+      options[:what] = :first
+      options[:count] ||= 1
+      find(options, &block)
+    end
+    
+    # Get the most recent received email(s)
+    #
+    # Possible options:
+    #   count: number of emails to retrieve. The default value is 1.
+    #   order: order of emails returned. Possible values are :asc or :desc. Default value is :asc.
+    #
+    def last(options = {}, &block)
+      options ||= {}
+      options[:what] = :last
+      options[:count] ||= 1
+      find(options, &block)
+    end
+    
+    # Get all emails.
+    #
+    # Possible options:
+    #   order: order of emails returned. Possible values are :asc or :desc. Default value is :asc.
+    #
+    def all(options = {}, &block)
+      options ||= {}
+      options[:count] = :all
+      find(options, &block)
+    end
+    
+    # Find emails in a POP3 mailbox. Without any options, the 5 last received emails are returned.
+    #
+    # Possible options:
+    #   what:  last or first emails. The default is :first.
+    #   order: order of emails returned. Possible values are :asc or :desc. Default value is :asc.
+    #   count: number of emails to retrieve. The default value is 10. A value of 1 returns an
+    #          instance of Message, not an array of Message instances.
+    #
+    def find(options = {}, &block)
+      options = validate_options(options)
+      
+      start do |pop3|
+        mails = pop3.mails
+        mails.sort! { |m1, m2| m2.number <=> m1.number } if options[:what] == :last
+        mails = mails.first(options[:count]) if options[:count].is_a? Integer
+        
+        if options[:what].to_sym == :last && options[:order].to_sym == :desc ||
+           options[:what].to_sym == :first && options[:order].to_sym == :asc ||
+          mails.reverse!
+        end
+        
+        if block_given?
+          mails.each do |mail|
+            yield Mail.new(mail.pop)
+          end
+        else
+          emails = []
+          mails.each do |mail|
+            emails << Mail.new(mail.pop)
+          end
+          emails.size == 1 && options[:count] == 1 ? emails.first : emails
+        end
+        
+      end
+    end
+    
+  private
+  
+    # Set default options
+    def validate_options(options)
+      options ||= {}
+      options[:count] ||= 10
+      options[:order] ||= :asc
+      options[:what]  ||= :first
+      options
+    end
+  
+    # Start a POP3 session and ensures that it will be closed in any case.
+    def start(config = Mail::Configuration.instance, &block)
+      raise ArgumentError.new("Mail::Retrievable#pop3_start takes a block") unless block_given?
+    
+      pop3 = Net::POP3.new(settings[:address], settings[:port], isapop = false)
+      pop3.enable_ssl(verify = OpenSSL::SSL::VERIFY_NONE) if settings[:enable_ssl]
+      pop3.start(settings[:user_name], settings[:password])
+    
+      yield pop3
+    ensure
+      if defined?(pop3) && pop3 && pop3.started?
+        pop3.reset # This clears all "deleted" marks from messages.
+        pop3.finish
+      end
+    end
+  
+  end
+end

data/lib/mail/parsers/address_lists.rb

@@ -0,0 +1,61 @@
+# Autogenerated from a Treetop grammar. Edits may be lost.
+
+
+module Mail
+  module AddressLists
+    include Treetop::Runtime
+
+    def root
+      @root ||= :primary_address
+    end
+
+    include RFC2822
+
+    module PrimaryAddress0
+      def addresses
+        [first_addr] + other_addr.elements.map { |o| o.addr_value }
+      end
+    end
+
+    module PrimaryAddress1
+      def addresses
+        [first_addr] + other_addr.elements.map { |o| o.addr_value }
+      end
+    end
+
+    def _nt_primary_address
+      start_index = index
+      if node_cache[:primary_address].has_key?(index)
+        cached = node_cache[:primary_address][index]
+        @index = cached.interval.end if cached
+        return cached
+      end
+
+      i0 = index
+      r1 = _nt_address_list
+      r1.extend(PrimaryAddress0)
+      if r1
+        r0 = r1
+      else
+        r2 = _nt_obs_addr_list
+        r2.extend(PrimaryAddress1)
+        if r2
+          r0 = r2
+        else
+          @index = i0
+          r0 = nil
+        end
+      end
+
+      node_cache[:primary_address][start_index] = r0
+
+      r0
+    end
+
+  end
+
+  class AddressListsParser < Treetop::Runtime::CompiledParser
+    include AddressLists
+  end
+
+end