mail-portertech 2.6.2.edge

data/lib/mail/parsers/address_lists_parser.rb

@@ -0,0 +1,132 @@
+module Mail::Parsers
+  class AddressListsParser
+    include Mail::Utilities
+
+    def parse(s)
+      address_list = AddressListStruct.new([],[])
+
+      if s.blank?
+        return address_list
+      end
+
+      actions, error = Ragel.parse(:address_lists, s)
+      if error
+        raise Mail::Field::ParseError.new(Mail::AddressList, s, error)
+      end
+
+
+      phrase_s = phrase_e = qstr_s = qstr = comment_s = nil
+      group_name_s = domain_s = group_name = nil
+      local_dot_atom_s = local_dot_atom_e = nil
+      local_dot_atom_pre_comment_e = nil
+      obs_domain_list_s = nil
+
+      address_s = 0
+      address = AddressStruct.new(nil, nil, [], nil, nil, nil, nil)
+      actions.each_slice(2) do |action_id, p|
+        action = Mail::Parsers::Ragel::ACTIONS[action_id]
+        case action
+
+        # Phrase
+        when :phrase_s then phrase_s = p
+        when :phrase_e then phrase_e = p-1
+
+        # Quoted String.
+        when :qstr_s then qstr_s = p
+        when :qstr_e then qstr = s[qstr_s..(p-1)]
+
+        # Comment
+        when :comment_s
+          comment_s = p unless comment_s
+        when :comment_e
+          if address
+            address.comments << s[comment_s..(p-2)]
+          end
+          comment_s = nil
+
+        # Group Name
+        when :group_name_s then group_name_s = p
+        when :group_name_e
+          if qstr
+            group = qstr
+            qstr = nil
+          else
+            group = s[group_name_s..(p-1)]
+            group_name_s = nil
+          end
+          address_list.group_names << group
+          group_name = group
+
+          # Start next address
+          address = AddressStruct.new(nil, nil, [], nil, nil, nil, nil)
+          address_s = p
+          address.group = group_name
+
+        # Address
+        when :address_s
+          address_s = p
+        when :address_e
+          # Ignore address end events if they don't have
+          # a matching address start event.
+          next if address_s.nil?
+          if address.local.nil? && local_dot_atom_pre_comment_e && local_dot_atom_s && local_dot_atom_e
+            if address.domain
+              address.local = s[local_dot_atom_s..local_dot_atom_e] if address
+            else
+              address.local = s[local_dot_atom_s..local_dot_atom_pre_comment_e] if address
+            end
+          end
+          address.raw = s[address_s..(p-1)]
+          address_list.addresses << address if address
+
+          # Start next address
+          address = AddressStruct.new(nil, nil, [], nil, nil, nil, nil)
+          address.group = group_name
+          address_s = nil
+
+        # Don't set the display name until the
+        # address has actually started. This allows
+        # us to choose quoted_s version if it
+        # exists and always use the 'full' phrase
+        # version.
+        when :angle_addr_s
+          if qstr
+            address.display_name = qstr
+            qstr = nil
+          elsif phrase_e
+            address.display_name = s[phrase_s..phrase_e].strip
+            phrase_e = phrase_s = nil
+          end
+
+        # Domain
+        when :domain_s
+          domain_s = p
+        when :domain_e
+          address.domain = s[domain_s..(p-1)].rstrip if address
+
+        # Local
+        when :local_dot_atom_s then local_dot_atom_s = p
+        when :local_dot_atom_e then local_dot_atom_e = p-1
+        when :local_dot_atom_pre_comment_e
+          local_dot_atom_pre_comment_e = p-1
+        when :local_quoted_string_e
+          address.local = '"' + qstr + '"' if address
+
+        # obs_domain_list
+        when :obs_domain_list_s then obs_domain_list_s = p
+        when :obs_domain_list_e
+          address.obs_domain_list = s[obs_domain_list_s..(p-1)]
+
+        else
+          raise Mail::Field::ParseError.new(Mail::AddressList, s, "Failed to process unknown action: #{action}")
+        end
+      end
+
+      if address_list.addresses.empty? && address_list.group_names.empty?
+        raise Mail::Field::ParseError.new(Mail::AddressList, s, "Didn't find any addresses or groups")
+      end
+
+      address_list
+    end
+  end
+end

data/lib/mail/parsers/content_disposition_parser.rb

@@ -0,0 +1,67 @@
+module Mail::Parsers
+  class ContentDispositionParser
+    include Mail::Utilities
+
+    def parse(s)
+      content_disposition = ContentDispositionStruct.new("", nil)
+      if s.blank?
+        return content_disposition
+      end
+
+      actions, error = Ragel.parse(:content_disposition, s)
+      if error
+        raise Mail::Field::ParseError.new(Mail::ContentDispositionElement, s, error)
+      end
+
+      content_disposition.parameters = []
+
+      disp_type_s = param_attr_s = param_attr = qstr_s = qstr = param_val_s = nil
+      actions.each_slice(2) do |action_id, p|
+        action = Mail::Parsers::Ragel::ACTIONS[action_id]
+        case action
+
+        # Disposition Type
+        when :disp_type_s then disp_type_s = p
+        when :disp_type_e
+          content_disposition.disposition_type = s[disp_type_s..(p-1)].downcase
+
+        # Parameter Attribute
+        when :param_attr_s then param_attr_s = p
+        when :param_attr_e then param_attr = s[param_attr_s..(p-1)]
+
+        # Quoted String.
+        when :qstr_s then qstr_s = p
+        when :qstr_e then qstr = s[qstr_s..(p-1)]
+
+        # Parameter Value
+        when :param_val_s then param_val_s = p
+        when :param_val_e
+          if param_attr.nil?
+            raise Mail::Field::ParseError.new(Mail::ContentDispositionElement, s, "no attribute for value")
+          end
+
+          # Use quoted string value if one exists, otherwise use parameter value
+          if qstr
+            value = qstr
+          else
+            value = s[param_val_s..(p-1)]
+          end
+
+          content_disposition.parameters <<  { param_attr => value }
+          param_attr = nil
+          qstr = nil
+
+        else
+          raise Mail::Field::ParseError.new(Mail::ContentDispositionElement, s, "Failed to process unknown action: #{action}")
+        end
+      end
+
+      content_disposition
+    end
+
+    private
+    def cleaned(string)
+      string =~ /(.+);\s*$/ ? $1 : string
+    end
+  end
+end

data/lib/mail/parsers/content_location_parser.rb

@@ -0,0 +1,35 @@
+module Mail::Parsers
+  class ContentLocationParser
+    def parse(s)
+      content_location = ContentLocationStruct.new(nil)
+      if s.blank?
+        return content_location
+      end
+
+      actions, error = Ragel.parse(:content_location, s)
+      if error
+        raise Mail::Field::ParseError.new(Mail::ContentLocationElement, s, error)
+      end
+
+      qstr_s = token_string_s = nil
+      actions.each_slice(2) do |action_id, p|
+        action = Mail::Parsers::Ragel::ACTIONS[action_id]
+        case action
+
+        # Quoted String.
+        when :qstr_s then qstr_s = p
+        when :qstr_e then content_location.location = s[qstr_s..(p-1)]
+
+        # Token String
+        when :token_string_s then token_string_s = p
+        when :token_string_e
+          content_location.location = s[token_string_s..(p-1)]
+
+        else
+          raise Mail::Field::ParseError.new(Mail::ContentLocationElement, s, "Failed to process unknown action: #{action}")
+        end
+      end
+      content_location
+    end
+  end
+end

data/lib/mail/parsers/content_transfer_encoding_parser.rb

@@ -0,0 +1,33 @@
+module Mail::Parsers
+  class ContentTransferEncodingParser
+
+    def parse(s)
+      content_transfer_encoding = ContentTransferEncodingStruct.new("")
+      if s.blank?
+        return content_transfer_encoding
+      end
+
+      actions, error = Ragel.parse(:content_transfer_encoding, s)
+      if error
+        raise Mail::Field::ParseError.new(Mail::ContentTransferEncodingElement, s, error)
+      end
+
+      encoding_s = nil
+      actions.each_slice(2) do |action_id, p|
+        action = Mail::Parsers::Ragel::ACTIONS[action_id]
+        case action
+
+        # Encoding
+        when :encoding_s then encoding_s = p
+        when :encoding_e
+          content_transfer_encoding.encoding = s[encoding_s..(p-1)].downcase
+
+        else
+          raise Mail::Field::ParseError.new(Mail::ContentTransferEncodingElement, s, "Failed to process unknown action: #{action}")
+        end
+      end
+
+      content_transfer_encoding
+    end
+  end
+end

data/lib/mail/parsers/content_type_parser.rb

@@ -0,0 +1,64 @@
+module Mail::Parsers
+  class ContentTypeParser
+    include Mail::Utilities
+
+    def parse(s)
+      actions, error = Ragel.parse(:content_type, s)
+      if error
+        raise Mail::Field::ParseError.new(Mail::ContentTypeElement, s, error)
+      end
+
+      content_type = ContentTypeStruct.new(nil,nil,[])
+
+      content_type.parameters = []
+
+      main_type_s = sub_type_s = param_attr_s = param_attr = nil
+      qstr_s = qstr = param_val_s = nil
+      actions.each_slice(2) do |action_id, p|
+        action = Mail::Parsers::Ragel::ACTIONS[action_id]
+        case action
+
+        # Main Type
+        when :main_type_s then main_type_s = p
+        when :main_type_e then
+          content_type.main_type = s[main_type_s..(p-1)].downcase
+
+        # Sub Type
+        when :sub_type_s then sub_type_s = p
+        when :sub_type_e
+          content_type.sub_type = s[sub_type_s..(p-1)].downcase
+
+        # Parameter Attribute
+        when :param_attr_s then param_attr_s = p
+        when :param_attr_e then param_attr = s[param_attr_s..(p-1)]
+
+        # Quoted String.
+        when :qstr_s then qstr_s = p
+        when :qstr_e then qstr = s[qstr_s..(p-1)]
+
+        # Parameter Value
+        when :param_val_s then param_val_s = p
+        when :param_val_e
+          if param_attr.nil?
+            raise Mail::Field::ParseError.new(Mail::ContentTypeElement, s, "no attribute for value")
+          end
+
+          # Use quoted s value if one exists, otherwise use parameter value
+          if qstr
+            value = qstr
+          else
+            value = s[param_val_s..(p-1)]
+          end
+
+          content_type.parameters <<  { param_attr => value }
+          param_attr = nil
+          qstr = nil
+
+        else
+          raise Mail::Field::ParseError.new(Mail::ContentTypeElement, s, "Failed to process unknown action: #{action}")
+        end
+      end
+      content_type
+    end
+  end
+end

data/lib/mail/parsers/date_time_parser.rb

@@ -0,0 +1,36 @@
+module Mail::Parsers
+  class DateTimeParser
+    include Mail::Utilities
+
+    def parse(s)
+      date_time = DateTimeStruct.new([])
+
+      actions, error = Ragel.parse(:date_time, s)
+      if error
+        raise Mail::Field::ParseError.new(Mail::DateTimeElement, s, error)
+      end
+
+      date_s = time_s = nil
+      actions.each_slice(2) do |action_id, p|
+        action = Mail::Parsers::Ragel::ACTIONS[action_id]
+        case action
+
+        # Date
+        when :date_s then date_s = p
+        when :date_e
+          date_time.date_string = s[date_s..(p-1)]
+
+        # Time
+        when :time_s then time_s = p
+        when :time_e
+          date_time.time_string = s[time_s..(p-1)]
+
+        else
+          raise Mail::Field::ParseError.new(Mail::DateTimeElement, s, "Failed to process unknown action: #{action}")
+        end
+      end
+
+      date_time
+    end
+  end
+end

data/lib/mail/parsers/envelope_from_parser.rb

@@ -0,0 +1,45 @@
+module Mail::Parsers
+  class EnvelopeFromParser
+    def parse(s)
+      envelope_from = EnvelopeFromStruct.new
+      if s.blank?
+        return envelope_from
+      end
+
+      actions, error = Ragel.parse(:envelope_from, s)
+      if error
+        raise Mail::Field::ParseError.new(Mail::EnvelopeFromElement, s, error)
+      end
+
+      address_s = ctime_date_s = nil
+      envelope_from = EnvelopeFromStruct.new
+      actions.each_slice(2) do |action_id, p|
+        action = Mail::Parsers::Ragel::ACTIONS[action_id]
+        case action
+
+        # Address
+        when :address_s then address_s = p
+        when :address_e
+          envelope_from.address = s[address_s..(p-1)].rstrip
+
+        # ctime_date
+        when :ctime_date_s then ctime_date_s = p
+        when :ctime_date_e
+          envelope_from.ctime_date = s[ctime_date_s..(p-1)]
+
+        # ignored actions
+        when :angle_addr_s, :comment_e, :comment_s,
+             :domain_e, :domain_s, :local_dot_atom_e,
+             :local_dot_atom_pre_comment_e,
+             :local_dot_atom_pre_comment_s,
+             :local_dot_atom_s, :qstr_e, :qstr_s
+          nil
+
+        else
+          raise Mail::Field::ParseError.new(Mail::EnvelopeFromElement, s, "Failed to process unknown action: #{action}")
+        end
+      end
+      envelope_from
+    end
+  end
+end

data/lib/mail/parsers/message_ids_parser.rb

@@ -0,0 +1,39 @@
+module Mail::Parsers
+  class MessageIdsParser
+    def parse(s)
+      if s.blank?
+        return MessageIdsStruct.new
+      end
+
+      message_ids = MessageIdsStruct.new([])
+
+      actions, error = Ragel.parse(:message_ids, s)
+      if error
+        raise Mail::Field::ParseError.new(Mail::MessageIdsElement, s, error)
+      end
+
+      msg_id_s = nil
+      actions.each_slice(2) do |action_id, p|
+        action = Mail::Parsers::Ragel::ACTIONS[action_id]
+        case action
+
+        # Message Ids
+        when :msg_id_s then msg_id_s = p
+        when :msg_id_e
+          message_ids.message_ids << s[msg_id_s..(p-1)].rstrip
+
+        when :domain_e, :domain_s, :local_dot_atom_e,
+          :local_dot_atom_pre_comment_e,
+          :local_dot_atom_pre_comment_s,
+          :local_dot_atom_s
+
+          # ignored actions
+
+        else
+          raise Mail::Field::ParseError.new(Mail::MessageIdsElement, s, "Failed to process unknown action: #{action}")
+        end
+      end
+      message_ids
+    end
+  end
+end