mailparser 0.4.22a

data/lib/mailparser/rfc2183/parser.rb

@@ -0,0 +1,186 @@
+#
+# DO NOT MODIFY!!!!
+# This file is automatically generated by Racc 1.4.7
+# from Racc grammer file "".
+#
+
+require 'racc/parser.rb'
+module MailParser
+  module RFC2183
+    class Parser < Racc::Parser
+
+module_eval(<<'...end parser.y/module_eval...', 'parser.y', 42)
+
+require "mailparser/rfc2183/scanner"
+
+def parse(header_type, value)
+  @header_type = header_type
+  @value = value
+  @scanner = Scanner.new(header_type, value)
+  ret = yyparse(self, :parse_sub)
+  class << ret
+    attr_accessor :comments
+  end
+  ret.comments = @scanner.comments
+  ret
+end
+
+def parse_sub(&block)
+  yield @header_type, nil
+  @scanner.scan(&block)
+end
+
+def on_error(t, val, vstack)
+#  p t, val, vstack
+#  p racc_token2str(t)
+  raise MailParser::ParseError, val+@scanner.rest
+end
+...end parser.y/module_eval...
+##### State transition tables begin ###
+
+racc_action_table = [
+    15,     9,     6,    16,     7,     3,    12,    13,     2 ]
+
+racc_action_check = [
+    13,     8,     2,    13,     3,     1,     9,    11,     0 ]
+
+racc_action_pointer = [
+     6,     5,    -1,     4,   nil,   nil,   nil,   nil,    -3,     3,
+   nil,     2,   nil,    -3,   nil,   nil,   nil ]
+
+racc_action_default = [
+   -10,   -10,   -10,   -10,    -1,    -4,    -3,    17,    -2,   -10,
+    -5,   -10,    -7,   -10,    -6,    -8,    -9 ]
+
+racc_goto_table = [
+     1,     4,     5,     8,    10,    11,    14 ]
+
+racc_goto_check = [
+     1,     2,     3,     4,     5,     6,     7 ]
+
+racc_goto_pointer = [
+   nil,     0,    -1,     0,    -2,    -5,    -4,    -7 ]
+
+racc_goto_default = [
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil ]
+
+racc_reduce_table = [
+  0, 0, :racc_error,
+  2, 8, :_reduce_1,
+  2, 9, :_reduce_2,
+  1, 10, :_reduce_none,
+  0, 11, :_reduce_4,
+  3, 11, :_reduce_5,
+  3, 12, :_reduce_6,
+  1, 13, :_reduce_none,
+  1, 14, :_reduce_none,
+  1, 14, :_reduce_none ]
+
+racc_reduce_n = 10
+
+racc_shift_n = 17
+
+racc_token_table = {
+  false => 0,
+  :error => 1,
+  :CONTENT_DISPOSITION => 2,
+  :TOKEN => 3,
+  ";" => 4,
+  "=" => 5,
+  :QUOTED_STRING => 6 }
+
+racc_nt_base = 7
+
+racc_use_result_var = false
+
+Racc_arg = [
+  racc_action_table,
+  racc_action_check,
+  racc_action_default,
+  racc_action_pointer,
+  racc_goto_table,
+  racc_goto_check,
+  racc_goto_default,
+  racc_goto_pointer,
+  racc_nt_base,
+  racc_reduce_table,
+  racc_token_table,
+  racc_shift_n,
+  racc_reduce_n,
+  racc_use_result_var ]
+
+Racc_token_to_s_table = [
+  "$end",
+  "error",
+  "CONTENT_DISPOSITION",
+  "TOKEN",
+  "\";\"",
+  "\"=\"",
+  "QUOTED_STRING",
+  "$start",
+  "all",
+  "content_disposition",
+  "type",
+  "parameter_list",
+  "parameter",
+  "attribute",
+  "value" ]
+
+Racc_debug_parser = false
+
+##### State transition tables end #####
+
+# reduce 0 omitted
+
+module_eval(<<'.,.,', 'parser.y', 9)
+  def _reduce_1(val, _values)
+    val[1]
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 13)
+  def _reduce_2(val, _values)
+                        ContentDisposition.new(val[0], val[1])
+                  
+  end
+.,.,
+
+# reduce 3 omitted
+
+module_eval(<<'.,.,', 'parser.y', 20)
+  def _reduce_4(val, _values)
+                        {}
+                  
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 24)
+  def _reduce_5(val, _values)
+                        pn, pv = val[2]
+                    pv = $1 if pv =~ /\A\"(.*)\"\Z/m
+                    val[0][pn] = pv.gsub(/\s*\n\s*/, " ")
+                    val[0]
+                  
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 32)
+  def _reduce_6(val, _values)
+                        [val[0].downcase, val[2]]
+                  
+  end
+.,.,
+
+# reduce 7 omitted
+
+# reduce 8 omitted
+
+# reduce 9 omitted
+
+def _reduce_none(val, _values)
+  val[0]
+end
+
+    end   # class Parser
+    end   # module RFC2183
+  end   # module MailParser

data/lib/mailparser/rfc2183/scanner.rb

@@ -0,0 +1,7 @@
+# Copyright (C) 2006-2010 TOMITA Masahiro
+# mailto:tommy@tmtm.org
+
+require "mailparser/rfc2045"
+
+class MailParser::RFC2183::Scanner < MailParser::RFC2045::Scanner
+end

data/lib/mailparser/rfc2231.rb

@@ -0,0 +1,57 @@
+# Copyright (C) 2006-2010 TOMITA Masahiro
+# mailto:tommy@tmtm.org
+
+require "mailparser/error"
+
+module MailParser::RFC2231
+  module_function
+  def parse_param(params, opt={:strict=>true})
+    opt = {:strict=>opt} unless opt.is_a? Hash
+    newparams = {}
+    h = Hash.new{|h,k| h[k] = []}
+    char_lang = {}
+    params.each do |key, value|
+      case key
+      when /^([^\*]+)(\*0)?\*$/no
+        name, ord = $1, $2
+        char, lang, v = value.split(/\'/, 3)
+        char_lang[name] = [char, lang]
+        if v.nil? then
+          raise MailParser::ParseError, "#{key}=#{value}" if opt[:strict]
+          v = lang || char
+        end
+        v = v.gsub(/%([0-9A-F][0-9A-F])/ni){$1.hex.chr}
+        if ord then
+          h[name] << [0, v]
+        else
+          newparams[name] = v
+        end
+      when /^([^\*]+)\*([1-9]\d*)\*$/no
+        name, ord = $1, $2.to_i
+        v = value.gsub(/%([0-9A-F][0-9A-F])/ni){$1.hex.chr}
+        h[name] << [ord, v]
+      when /^([^\*]+)\*([0-9]\d*)$/no
+        name, ord = $1, $2.to_i
+        h[name] << [ord, value]
+      else
+        newparams[key] = value
+      end
+    end
+    h.each do |k, v|
+      newparams[k] = v.sort{|a,b| a[0]<=>b[0]}.map{|a| a[1]}.join
+    end
+    newparams.keys.each do |k|
+      v = newparams[k]
+      if char_lang.key? k and opt[:output_charset]
+        charset_converter = opt[:charset_converter] || Proc.new{|f,t,s| ConvCharset.conv_charset(f,t,s)}
+        v.replace charset_converter.call(char_lang[k][0], opt[:output_charset], v) rescue nil
+      end
+      class << v
+        attr_accessor :charset, :language
+      end
+      v.charset, v.language = char_lang[k] if char_lang.key? k
+      newparams[k] = v
+    end
+    return newparams
+  end
+end

data/lib/mailparser/rfc2822.rb

@@ -0,0 +1,212 @@
+# Copyright (C) 2006-2010 TOMITA Masahiro
+# mailto:tommy@tmtm.org
+
+require "mailparser/error"
+require "mailparser/rfc2822/parser"
+
+module MailParser::RFC2822
+  HEADER_TYPE = {
+    "date"              => :DATE_TIME,
+    "from"              => :MAILBOX_LIST,
+    "sender"            => :MAILBOX,
+    "reply-to"          => :ADDRESS_LIST,
+    "to"                => :ADDRESS_LIST,
+    "cc"                => :ADDRESS_LIST,
+    "bcc"               => :ADDRESS_LIST_BCC,
+    "message-id"        => :MSG_ID,
+    "in-reply-to"       => :PHRASE_MSG_ID_LIST,
+    "references"        => :PHRASE_MSG_ID_LIST,
+#    "subject"           => :UNSTRUCTURED,
+#    "comments"          => :UNSTRUCTURED,
+    "keywords"          => :PHRASE_LIST,
+    "resent-date"       => :DATE_TIME,
+    "resent-from"       => :MAILBOX_LIST,
+    "resent-sender"     => :MAILBOX,
+    "resent-to"         => :ADDRESS_LIST,
+    "resent-cc"         => :ADDRESS_LIST,
+    "resent-bcc"        => :ADDRESS_LIST_BCC,
+    "resent-message-id" => :MSG_ID,
+    "return-path"       => :RETURN_PATH,
+    "received"          => :RECEIVED,
+  }
+  
+  ZONE = {
+    "UT"  => "+0000",
+    "GMT" => "+0000",
+    "EDT" => "-0400",
+    "EST" => "-0500",
+    "CDT" => "-0500",
+    "EDT" => "-0400",
+    "EST" => "-0500",
+    "CDT" => "-0500",
+    "CST" => "-0600",
+    "MDT" => "-0600",
+    "MST" => "-0700",
+    "PDT" => "-0700",
+    "PST" => "-0800",
+    "A"   => "+0100",
+    "B"   => "+0200",
+    "C"   => "+0300",
+    "D"   => "+0400",
+    "E"   => "+0500",
+    "F"   => "+0600",
+    "G"   => "+0700",
+    "H"   => "+0800",
+    "I"   => "+0900",
+    "K"   => "+1000",
+    "L"   => "+1100",
+    "M"   => "+1200",
+    "N"   => "-0100",
+    "O"   => "-0200",
+    "P"   => "-0300",
+    "Q"   => "-0400",
+    "R"   => "-0500",
+    "S"   => "-0600",
+    "T"   => "-0700",
+    "U"   => "-0800",
+    "V"   => "-0900",
+    "W"   => "-1000",
+    "X"   => "-1100",
+    "Y"   => "-1200",
+    "Z"   => "+0000",
+    "JST" => "+0900",
+  }
+
+  class AddrSpec
+    def initialize(local_part, domain)
+      @local_part = local_part
+      @domain = domain
+    end
+    attr_reader :local_part, :domain
+    def to_s
+      "#{@local_part}@#{@domain}"
+    end
+  end
+
+  class Mailbox
+    def initialize(addr_spec, display_name=nil)
+      @addr_spec = addr_spec
+      @display_name = display_name || ""
+      @comments = []
+    end
+    attr_reader :addr_spec, :display_name
+    attr_accessor :comments
+    alias :phrase :display_name
+    def local_part()
+      @addr_spec.local_part
+    end
+    def domain()
+      @addr_spec.domain
+    end
+    def to_s()
+      if display_name.empty? then
+        "<#{@addr_spec}>"
+      else
+        "#{@display_name} <#{@addr_spec}>"
+      end
+    end
+  end
+
+  class Group
+    def initialize(mailbox_list, display_name)
+      @mailbox_list = mailbox_list
+      @display_name = display_name
+    end
+    attr_reader :mailbox_list, :display_name
+    alias :phrase :display_name
+    def to_s()
+      "#{@display_name}:#{@mailbox_list.join(",")};"
+    end
+  end
+
+  class ReturnPath
+    def initialize(addr_spec=nil)
+      @addr_spec = addr_spec
+    end
+    attr_reader :addr_spec
+  end
+
+  class MsgIdList < Array
+    def initialize(val=nil)
+      self << val if val
+    end
+    def to_s()
+      self.map{|i| i.to_s}.join(" ")
+    end
+  end
+
+  class MsgId
+    def initialize(msg_id)
+      @msg_id = msg_id
+    end
+    attr_reader :msg_id
+    def to_s()
+      "<#{@msg_id}>"
+    end
+  end
+
+  class Received
+    def initialize(name_val, date_time)
+      @name_val, @date_time = name_val, date_time
+    end
+    attr_reader :name_val, :date_time
+  end
+
+  class DateTime
+    def self.now
+      t = Time.now
+      self.new(t.year, t.month, t.day, t.hour, t.min, t.sec, t.zone)
+    end
+
+    def initialize(year, month, day, hour, min, sec, zone)
+      y, m, d, h, mi, s = year.to_i, month.to_i, day.to_i, hour.to_i, min.to_i, sec.to_i
+      raise ArgumentError, "invalid year" if y < 0 or 9999 < y
+      raise ArgumentError, "invalid month" if m < 1 or 12 < m
+      raise ArgumentError, "invalid day of the month" if d < 1
+      if [1,3,5,7,8,10,12].include? m
+        raise ArgumentError, "invalid day of the month" if d > 31
+      elsif [4,6,9,11].include? m
+        raise ArgumentError, "invalid day of the month" if d > 30
+      else # month == 2
+        if y%4 == 0 and (y%100 !=0 or y%400 == 0)
+          raise ArgumentError, "invalid day of the month" if d > 29
+        else
+          raise ArgumentError, "invalid day of the month" if d > 28
+        end
+      end
+      raise ArgumentError, "invalid hour" if h > 23
+      raise ArgumentError, "invalid minute" if mi > 59
+      raise ArgumentError, "invalid second" if s > 60
+      if zone =~ /^[+-]\d\d(\d\d)$/ then
+        raise ArgumentError, "invalid zone" if $1.to_i > 59
+      else
+        zone = ZONE[zone.upcase] || "-0000"
+      end
+      @year, @month, @day, @hour, @min, @sec, @zone = y, m, d, h, mi, s, zone
+      z = zone[1,4].to_i
+      @zone_sec = z/100*3600 + z%100*60
+      @zone_sec = -@zone_sec if zone[0] == ?-
+    end
+
+    attr_reader :year, :month, :day, :hour, :min, :sec, :zone
+
+    def time()
+      t = Time.utc(@year, @month, @day, @hour, @min, @sec)
+      Time.at(t.to_i - @zone_sec)
+    end
+  end
+
+  module_function
+
+  def parse(name, value, opt={})
+    htype = HEADER_TYPE[name.downcase]
+    unless htype then
+      return value.chomp
+    end
+    if htype.is_a? Array then
+      htype[0]::Parser.new(opt).parse(htype[1], value)
+    else
+      Parser.new(opt).parse(htype, value)
+    end
+  end
+end