classiccms 0.2.4.pre → 0.3.0

data/vendor/bundle/gems/mail-2.4.4/lib/mail/encodings.rb

@@ -0,0 +1,274 @@
+# encoding: utf-8
+
+module Mail
+  # Raised when attempting to decode an unknown encoding type
+  class UnknownEncodingType < StandardError #:nodoc:
+  end
+
+  module Encodings
+
+    include Mail::Patterns
+    extend  Mail::Utilities
+
+    @transfer_encodings = {}
+
+    # Register transfer encoding
+    #
+    # Example
+    #
+    # Encodings.register "base64", Mail::Encodings::Base64
+    def Encodings.register(name, cls)
+        @transfer_encodings[get_name(name)] = cls
+    end
+
+    # Is the encoding we want defined?
+    #
+    # Example:
+    #
+    #  Encodings.defined?(:base64) #=> true
+    def Encodings.defined?( str )
+      @transfer_encodings.include? get_name(str)
+    end
+
+    # Gets a defined encoding type, QuotedPrintable or Base64 for now.
+    #
+    # Each encoding needs to be defined as a Mail::Encodings::ClassName for
+    # this to work, allows us to add other encodings in the future.
+    #
+    # Example:
+    #
+    #  Encodings.get_encoding(:base64) #=> Mail::Encodings::Base64
+    def Encodings.get_encoding( str )
+      @transfer_encodings[get_name(str)]
+    end
+
+    def Encodings.get_all
+      @transfer_encodings.values
+    end
+
+    def Encodings.get_name(enc)
+      enc = enc.to_s.gsub("-", "_").downcase
+    end
+
+    # Encodes a parameter value using URI Escaping, note the language field 'en' can
+    # be set using Mail::Configuration, like so:
+    #
+    #  Mail.defaults.do
+    #    param_encode_language 'jp'
+    #  end
+    #
+    # The character set used for encoding will either be the value of $KCODE for
+    # Ruby < 1.9 or the encoding on the string passed in.
+    #
+    # Example:
+    #
+    #  Mail::Encodings.param_encode("This is fun") #=> "us-ascii'en'This%20is%20fun"
+    def Encodings.param_encode(str)
+      case
+      when str.ascii_only? && str =~ TOKEN_UNSAFE
+        %Q{"#{str}"}
+      when str.ascii_only?
+        str
+      else
+        RubyVer.param_encode(str)
+      end
+    end
+
+    # Decodes a parameter value using URI Escaping.
+    #
+    # Example:
+    #
+    #  Mail::Encodings.param_decode("This%20is%20fun", 'us-ascii') #=> "This is fun"
+    #
+    #  str = Mail::Encodings.param_decode("This%20is%20fun", 'iso-8559-1')
+    #  str.encoding #=> 'ISO-8859-1'      ## Only on Ruby 1.9
+    #  str #=> "This is fun"
+    def Encodings.param_decode(str, encoding)
+      RubyVer.param_decode(str, encoding)
+    end
+
+    # Decodes or encodes a string as needed for either Base64 or QP encoding types in
+    # the =?<encoding>?[QB]?<string>?=" format.
+    #
+    # The output type needs to be :decode to decode the input string or :encode to
+    # encode the input string.  The character set used for encoding will either be
+    # the value of $KCODE for Ruby < 1.9 or the encoding on the string passed in.
+    #
+    # On encoding, will only send out Base64 encoded strings.
+    def Encodings.decode_encode(str, output_type)
+      case
+      when output_type == :decode
+        Encodings.value_decode(str)
+      else
+        if str.ascii_only?
+          str
+        else
+          Encodings.b_value_encode(str, find_encoding(str))
+        end
+      end
+    end
+
+    # Decodes a given string as Base64 or Quoted Printable, depending on what
+    # type it is.
+    #
+    # String has to be of the format =?<encoding>?[QB]?<string>?=
+    def Encodings.value_decode(str)
+      # Optimization: If there's no encoded-words in the string, just return it
+      return str unless str.index("=?")
+
+      str = str.gsub(/\?=(\s*)=\?/, '?==?') # Remove whitespaces between 'encoded-word's
+
+      # Split on white-space boundaries with capture, so we capture the white-space as well
+      str.split(/([ \t])/).map do |text|
+        if text.index('=?') .nil?
+          text
+        else
+          # Join QP encoded-words that are adjacent to avoid decoding partial chars
+          text.gsub!(/\?\=\=\?.+?\?[Qq]\?/m, '') if text =~ /\?==\?/
+
+          # Search for occurences of quoted strings or plain strings
+          text.scan(/(                                  # Group around entire regex to include it in matches
+                       \=\?[^?]+\?([QB])\?[^?]+?\?\=  # Quoted String with subgroup for encoding method
+                       |                                # or
+                       .+?(?=\=\?|$)                    # Plain String
+                     )/xmi).map do |matches|
+            string, method = *matches
+            if    method == 'b' || method == 'B'
+              b_value_decode(string)
+            elsif method == 'q' || method == 'Q'
+              q_value_decode(string)
+            else
+              string
+            end
+          end
+        end
+      end.join("")
+    end
+
+    # Takes an encoded string of the format =?<encoding>?[QB]?<string>?=
+    def Encodings.unquote_and_convert_to(str, to_encoding)
+      original_encoding = split_encoding_from_string( str )
+
+      output = value_decode( str ).to_s
+
+      if original_encoding.to_s.downcase.gsub("-", "") == to_encoding.to_s.downcase.gsub("-", "")
+        output
+      elsif original_encoding && to_encoding
+        begin
+          if RUBY_VERSION >= '1.9'
+            output.encode(to_encoding)
+          else
+            require 'iconv'
+            Iconv.iconv(to_encoding, original_encoding, output).first
+          end
+        rescue Iconv::IllegalSequence, Iconv::InvalidEncoding, Errno::EINVAL
+          # the 'from' parameter specifies a charset other than what the text
+          # actually is...not much we can do in this case but just return the
+          # unconverted text.
+          #
+          # Ditto if either parameter represents an unknown charset, like
+          # X-UNKNOWN.
+          output
+        end
+      else
+        output
+      end
+    end
+
+    def Encodings.address_encode(address, charset = 'utf-8')
+      if address.is_a?(Array)
+        # loop back through for each element
+        address.map { |a| Encodings.address_encode(a, charset) }.join(", ")
+      else
+        # find any word boundary that is not ascii and encode it
+        encode_non_usascii(address, charset)
+      end
+    end
+
+    def Encodings.encode_non_usascii(address, charset)
+      return address if address.ascii_only? or charset.nil?
+      us_ascii = %Q{\x00-\x7f}
+      # Encode any non usascii strings embedded inside of quotes
+      address.gsub!(/(".*?[^#{us_ascii}].*?")/) { |s| Encodings.b_value_encode(unquote(s), charset) }
+      # Then loop through all remaining items and encode as needed
+      tokens = address.split(/\s/)
+      map_with_index(tokens) do |word, i|
+        if word.ascii_only?
+          word
+        else
+          previous_non_ascii = tokens[i-1] && !tokens[i-1].ascii_only?
+          if previous_non_ascii
+            word = " #{word}"
+          end
+          Encodings.b_value_encode(word, charset)
+        end
+      end.join(' ')
+    end
+
+    # Encode a string with Base64 Encoding and returns it ready to be inserted
+    # as a value for a field, that is, in the =?<charset>?B?<string>?= format
+    #
+    # Example:
+    #
+    #  Encodings.b_value_encode('This is あ string', 'UTF-8')
+    #  #=> "=?UTF-8?B?VGhpcyBpcyDjgYIgc3RyaW5n?="
+    def Encodings.b_value_encode(encoded_str, encoding = nil)
+      return encoded_str if encoded_str.to_s.ascii_only?
+      string, encoding = RubyVer.b_value_encode(encoded_str, encoding)
+      map_lines(string) do |str|
+        "=?#{encoding}?B?#{str.chomp}?="
+      end.join(" ")
+    end
+
+    # Encode a string with Quoted-Printable Encoding and returns it ready to be inserted
+    # as a value for a field, that is, in the =?<charset>?Q?<string>?= format
+    #
+    # Example:
+    #
+    #  Encodings.q_value_encode('This is あ string', 'UTF-8')
+    #  #=> "=?UTF-8?Q?This_is_=E3=81=82_string?="
+    def Encodings.q_value_encode(encoded_str, encoding = nil)
+      return encoded_str if encoded_str.to_s.ascii_only?
+      string, encoding = RubyVer.q_value_encode(encoded_str, encoding)
+      string.gsub!("=\r\n", '') # We already have limited the string to the length we want
+      map_lines(string) do |str|
+        "=?#{encoding}?Q?#{str.chomp.gsub(/ /, '_')}?="
+      end.join(" ")
+    end
+
+    private
+
+    # Decodes a Base64 string from the "=?UTF-8?B?VGhpcyBpcyDjgYIgc3RyaW5n?=" format
+    #
+    # Example:
+    #
+    #  Encodings.b_value_decode("=?UTF-8?B?VGhpcyBpcyDjgYIgc3RyaW5n?=")
+    #  #=> 'This is あ string'
+    def Encodings.b_value_decode(str)
+      RubyVer.b_value_decode(str)
+    end
+
+    # Decodes a Quoted-Printable string from the "=?UTF-8?Q?This_is_=E3=81=82_string?=" format
+    #
+    # Example:
+    #
+    #  Encodings.q_value_decode("=?UTF-8?Q?This_is_=E3=81=82_string?=")
+    #  #=> 'This is あ string'
+    def Encodings.q_value_decode(str)
+      RubyVer.q_value_decode(str)
+    end
+
+    def Encodings.split_encoding_from_string( str )
+      match = str.match(/\=\?([^?]+)?\?[QB]\?(.+)?\?\=/mi)
+      if match
+        match[1]
+      else
+        nil
+      end
+    end
+
+    def Encodings.find_encoding(str)
+      RUBY_VERSION >= '1.9' ? str.encoding : $KCODE
+    end
+  end
+end

data/vendor/bundle/gems/mail-2.4.4/lib/mail/envelope.rb

@@ -0,0 +1,35 @@
+# encoding: utf-8
+# 
+# = Mail Envelope
+# 
+# The Envelope class provides a field for the first line in an
+# mbox file, that looks like "From mikel@test.lindsaar.net DATETIME"
+# 
+# This envelope class reads that line, and turns it into an
+# Envelope.from and Envelope.date for your use.
+module Mail
+  class Envelope < StructuredField
+    
+    def initialize(*args)
+      super(FIELD_NAME, strip_field(FIELD_NAME, args.last))
+    end
+    
+    def tree
+      @element ||= Mail::EnvelopeFromElement.new(value)
+      @tree ||= @element.tree
+    end
+    
+    def element
+      @element ||= Mail::EnvelopeFromElement.new(value)
+    end
+    
+    def date
+      ::DateTime.parse("#{element.date_time}")
+    end
+
+    def from
+      element.address
+    end
+    
+  end
+end

data/vendor/bundle/gems/mail-2.4.4/lib/mail/field.rb

@@ -0,0 +1,234 @@
+require 'mail/fields'
+
+# encoding: utf-8
+module Mail
+  # Provides a single class to call to create a new structured or unstructured
+  # field.  Works out per RFC what field of field it is being given and returns
+  # the correct field of class back on new.
+  # 
+  # ===Per RFC 2822
+  #  
+  #  2.2. Header Fields
+  #  
+  #     Header fields are lines composed of a field name, followed by a colon
+  #     (":"), followed by a field body, and terminated by CRLF.  A field
+  #     name MUST be composed of printable US-ASCII characters (i.e.,
+  #     characters that have values between 33 and 126, inclusive), except
+  #     colon.  A field body may be composed of any US-ASCII characters,
+  #     except for CR and LF.  However, a field body may contain CRLF when
+  #     used in header "folding" and  "unfolding" as described in section
+  #     2.2.3.  All field bodies MUST conform to the syntax described in
+  #     sections 3 and 4 of this standard.
+  #  
+  class Field
+    
+    include Patterns
+    include Comparable
+    
+    STRUCTURED_FIELDS = %w[ bcc cc content-description content-disposition
+                            content-id content-location content-transfer-encoding
+                            content-type date from in-reply-to keywords message-id
+                            mime-version received references reply-to
+                            resent-bcc resent-cc resent-date resent-from
+                            resent-message-id resent-sender resent-to
+                            return-path sender to ]
+
+    KNOWN_FIELDS = STRUCTURED_FIELDS + ['comments', 'subject']
+    
+    # Generic Field Exception
+    class FieldError < StandardError
+    end
+
+    # Raised when a parsing error has occurred (ie, a StructuredField has tried
+    # to parse a field that is invalid or improperly written)
+    class ParseError < FieldError #:nodoc:
+      attr_accessor :element, :value, :reason
+
+      def initialize(element, value, reason)
+        @element = element
+        @value = value
+        @reason = reason
+        super("#{element} can not parse |#{value}|\nReason was: #{reason}")
+      end
+    end
+
+    # Raised when attempting to set a structured field's contents to an invalid syntax
+    class SyntaxError < FieldError #:nodoc:
+    end
+    
+    # Accepts a string:
+    # 
+    #  Field.new("field-name: field data")
+    # 
+    # Or name, value pair:
+    # 
+    #  Field.new("field-name", "value")
+    # 
+    # Or a name by itself:
+    # 
+    #  Field.new("field-name")
+    # 
+    # Note, does not want a terminating carriage return.  Returns
+    # self appropriately parsed.  If value is not a string, then
+    # it will be passed through as is, for example, content-type
+    # field can accept an array with the type and a hash of 
+    # parameters:
+    # 
+    #  Field.new('content-type', ['text', 'plain', {:charset => 'UTF-8'}])
+    def initialize(name, value = nil, charset = 'utf-8')
+      case
+      when name =~ /:/                  # Field.new("field-name: field data")
+        charset = value unless value.blank?
+        name, value = split(name)
+        create_field(name, value, charset)
+      when name !~ /:/ && value.blank?  # Field.new("field-name")
+        create_field(name, nil, charset)
+      else                              # Field.new("field-name", "value")
+        create_field(name, value, charset)
+      end
+      return self
+    end
+
+    def field=(value)
+      @field = value
+    end
+    
+    def field
+      @field
+    end
+    
+    def name
+      field.name
+    end
+    
+    def value
+      field.value
+    end
+    
+    def value=(val)
+      create_field(name, val, charset)
+    end
+    
+    def to_s
+      field.to_s
+    end
+    
+    def update(name, value)
+      create_field(name, value, charset)
+    end
+    
+    def same( other )
+      match_to_s(other.name, field.name)
+    end
+    
+    alias_method :==, :same
+    
+    def <=>( other )
+      self_order = FIELD_ORDER.rindex(self.name.to_s.downcase) || 100
+      other_order = FIELD_ORDER.rindex(other.name.to_s.downcase) || 100
+      self_order <=> other_order
+    end
+    
+    def method_missing(name, *args, &block)
+      field.send(name, *args, &block)
+    end
+    
+    FIELD_ORDER = %w[ return-path received
+                      resent-date resent-from resent-sender resent-to
+                      resent-cc resent-bcc resent-message-id
+                      date from sender reply-to to cc bcc
+                      message-id in-reply-to references
+                      subject comments keywords
+                      mime-version content-type content-transfer-encoding
+                      content-location content-disposition content-description ]
+    
+    private
+    
+    def split(raw_field)
+      match_data = raw_field.mb_chars.match(/^(#{FIELD_NAME})\s*:\s*(#{FIELD_BODY})?$/)
+      [match_data[1].to_s.mb_chars.strip, match_data[2].to_s.mb_chars.strip]
+    rescue
+      STDERR.puts "WARNING: Could not parse (and so ignorning) '#{raw_field}'"
+    end
+    
+    def create_field(name, value, charset)
+      begin
+        self.field = new_field(name, value, charset)
+      rescue Mail::Field::ParseError => e
+        self.field = Mail::UnstructuredField.new(name, value)
+        self.field.errors << [name, value, e]
+        self.field
+      end
+    end
+
+    def new_field(name, value, charset)
+      # Could do this with constantize and make it "as DRY as", but a simple case 
+      # statement is, well, simpler... 
+      case name.to_s.downcase
+      when /^to$/i
+        ToField.new(value, charset)
+      when /^cc$/i
+        CcField.new(value, charset)
+      when /^bcc$/i
+        BccField.new(value, charset)
+      when /^message-id$/i
+        MessageIdField.new(value, charset)
+      when /^in-reply-to$/i
+        InReplyToField.new(value, charset)
+      when /^references$/i
+        ReferencesField.new(value, charset)
+      when /^subject$/i
+        SubjectField.new(value, charset)
+      when /^comments$/i
+        CommentsField.new(value, charset)
+      when /^keywords$/i
+        KeywordsField.new(value, charset)
+      when /^date$/i
+        DateField.new(value, charset)
+      when /^from$/i
+        FromField.new(value, charset)
+      when /^sender$/i
+        SenderField.new(value, charset)
+      when /^reply-to$/i
+        ReplyToField.new(value, charset)
+      when /^resent-date$/i
+        ResentDateField.new(value, charset)
+      when /^resent-from$/i
+        ResentFromField.new(value, charset)
+      when /^resent-sender$/i 
+        ResentSenderField.new(value, charset)
+      when /^resent-to$/i
+        ResentToField.new(value, charset)
+      when /^resent-cc$/i
+        ResentCcField.new(value, charset)
+      when /^resent-bcc$/i
+        ResentBccField.new(value, charset)
+      when /^resent-message-id$/i
+        ResentMessageIdField.new(value, charset)
+      when /^return-path$/i
+        ReturnPathField.new(value, charset)
+      when /^received$/i
+        ReceivedField.new(value, charset)
+      when /^mime-version$/i
+        MimeVersionField.new(value, charset)
+      when /^content-transfer-encoding$/i
+        ContentTransferEncodingField.new(value, charset)
+      when /^content-description$/i
+        ContentDescriptionField.new(value, charset)
+      when /^content-disposition$/i
+        ContentDispositionField.new(value, charset)
+      when /^content-type$/i
+        ContentTypeField.new(value, charset)
+      when /^content-id$/i
+        ContentIdField.new(value, charset)
+      when /^content-location$/i
+        ContentLocationField.new(value, charset)
+      else 
+        OptionalField.new(name, value, charset)
+      end
+      
+    end
+
+  end
+  
+end

data/vendor/bundle/gems/mail-2.4.4/lib/mail/field_list.rb

@@ -0,0 +1,33 @@
+# encoding: utf-8
+module Mail
+
+  # Field List class provides an enhanced array that keeps a list of 
+  # email fields in order.  And allows you to insert new fields without
+  # having to worry about the order they will appear in.
+  class FieldList < Array
+
+    include Enumerable
+
+    def <<( new_field )
+      current_entry = self.rindex(new_field)
+      if current_entry
+        self.insert((current_entry + 1), new_field)
+      else
+        insert_idx = -1
+        self.each_with_index do |item, idx|
+          case item <=> new_field
+          when -1
+            next
+          when 0
+            next
+          when 1
+            insert_idx = idx
+            break
+          end
+        end
+        insert(insert_idx, new_field)
+      end
+    end
+    
+  end
+end

data/vendor/bundle/gems/mail-2.4.4/lib/mail/fields/bcc_field.rb

@@ -0,0 +1,56 @@
+# encoding: utf-8
+# 
+# = Blind Carbon Copy Field
+# 
+# The Bcc field inherits from StructuredField and handles the Bcc: header
+# field in the email.
+# 
+# Sending bcc to a mail message will instantiate a Mail::Field object that
+# has a BccField as it's field type.  This includes all Mail::CommonAddress
+# module instance metods.
+# 
+# Only one Bcc field can appear in a header, though it can have multiple
+# addresses and groups of addresses.
+# 
+# == Examples:
+# 
+#  mail = Mail.new
+#  mail.bcc = 'Mikel Lindsaar <mikel@test.lindsaar.net>, ada@test.lindsaar.net'
+#  mail.bcc    #=> ['Mikel Lindsaar <mikel@test.lindsaar.net>', 'ada@test.lindsaar.net']
+#  mail[:bcc]  #=> '#<Mail::Field:0x180e5e8 @field=#<Mail::BccField:0x180e1c4
+#  mail['bcc'] #=> '#<Mail::Field:0x180e5e8 @field=#<Mail::BccField:0x180e1c4
+#  mail['Bcc'] #=> '#<Mail::Field:0x180e5e8 @field=#<Mail::BccField:0x180e1c4
+# 
+#  mail[:bcc].encoded   #=> ''      # Bcc field does not get output into an email
+#  mail[:bcc].decoded   #=> 'Mikel Lindsaar <mikel@test.lindsaar.net>, ada@test.lindsaar.net'
+#  mail[:bcc].addresses #=> ['mikel@test.lindsaar.net', 'ada@test.lindsaar.net']
+#  mail[:bcc].formatted #=> ['Mikel Lindsaar <mikel@test.lindsaar.net>', 'ada@test.lindsaar.net']
+# 
+require 'mail/fields/common/common_address'
+
+module Mail
+  class BccField < StructuredField
+    
+    include Mail::CommonAddress
+    
+    FIELD_NAME = 'bcc'
+    CAPITALIZED_FIELD = 'Bcc'
+    
+    def initialize(value = '', charset = 'utf-8')
+      @charset = charset
+      super(CAPITALIZED_FIELD, strip_field(FIELD_NAME, value), charset)
+      self.parse
+      self
+    end
+    
+    # Bcc field should never be :encoded
+    def encoded
+      ''
+    end
+    
+    def decoded
+      do_decode
+    end
+    
+  end
+end

data/vendor/bundle/gems/mail-2.4.4/lib/mail/fields/cc_field.rb

@@ -0,0 +1,55 @@
+# encoding: utf-8
+# 
+# = Carbon Copy Field
+# 
+# The Cc field inherits from StructuredField and handles the Cc: header
+# field in the email.
+# 
+# Sending cc to a mail message will instantiate a Mail::Field object that
+# has a CcField as it's field type.  This includes all Mail::CommonAddress
+# module instance metods.
+# 
+# Only one Cc field can appear in a header, though it can have multiple
+# addresses and groups of addresses.
+# 
+# == Examples:
+# 
+#  mail = Mail.new
+#  mail.cc = 'Mikel Lindsaar <mikel@test.lindsaar.net>, ada@test.lindsaar.net'
+#  mail.cc    #=> ['Mikel Lindsaar <mikel@test.lindsaar.net>', 'ada@test.lindsaar.net']
+#  mail[:cc]  #=> '#<Mail::Field:0x180e5e8 @field=#<Mail::CcField:0x180e1c4
+#  mail['cc'] #=> '#<Mail::Field:0x180e5e8 @field=#<Mail::CcField:0x180e1c4
+#  mail['Cc'] #=> '#<Mail::Field:0x180e5e8 @field=#<Mail::CcField:0x180e1c4
+# 
+#  mail[:cc].encoded   #=> 'Cc: Mikel Lindsaar <mikel@test.lindsaar.net>, ada@test.lindsaar.net\r\n'
+#  mail[:cc].decoded   #=> 'Mikel Lindsaar <mikel@test.lindsaar.net>, ada@test.lindsaar.net'
+#  mail[:cc].addresses #=> ['mikel@test.lindsaar.net', 'ada@test.lindsaar.net']
+#  mail[:cc].formatted #=> ['Mikel Lindsaar <mikel@test.lindsaar.net>', 'ada@test.lindsaar.net']
+# 
+require 'mail/fields/common/common_address'
+
+module Mail
+  class CcField < StructuredField
+    
+    include Mail::CommonAddress
+    
+    FIELD_NAME = 'cc'
+    CAPITALIZED_FIELD = 'Cc'
+    
+    def initialize(value = nil, charset = 'utf-8')
+      self.charset = charset
+      super(CAPITALIZED_FIELD, strip_field(FIELD_NAME, value), charset)
+      self.parse
+      self
+    end
+    
+    def encoded
+      do_encode(CAPITALIZED_FIELD)
+    end
+    
+    def decoded
+      do_decode
+    end
+    
+  end
+end