sisimai 4.25.3 → 4.25.8

data/lib/sisimai/bite/email/gsuite.rb

@@ -1,228 +0,0 @@
-module Sisimai::Bite::Email
-  # Sisimai::Bite::Email::GSuite parses a bounce email which created by G Suite.
-  # Methods in the module are called from only Sisimai::Message.
-  module GSuite
-    class << self
-      # Imported from p5-Sisimail/lib/Sisimai/Bite/Email/GSuite.pm
-      require 'sisimai/bite/email'
-
-      Indicators = Sisimai::Bite::Email.INDICATORS
-      MarkingsOf = {
-        message: %r/\A[*][*][ ].+[ ][*][*]\z/,
-        rfc822:  %r{\AContent-Type:[ ]*(?:message/rfc822|text/rfc822-headers)\z},
-        error:   %r/\AThe[ ]response([ ]from[ ]the[ ]remote[ ]server)?[ ]was:\z/,
-        html:    %r{\AContent-Type:[ ]*text/html;[ ]*charset=['"]?(?:UTF|utf)[-]8['"]?\z},
-      }.freeze
-      MessagesOf = {
-        'userunknown'  => ["because the address couldn't be found. Check for typos or unnecessary spaces and try again."],
-        'notaccept'    => ['Null MX'],
-        'networkerror' => [' responded with code NXDOMAIN'],
-      }.freeze
-
-      def description; return 'G Suite: https://gsuite.google.com'; end
-      def smtpagent;   return Sisimai::Bite.smtpagent(self); end
-      def headerlist;  return %w[x-gm-message-state]; end
-
-      # Parse bounce messages from G Suite (Transfer from G Suite to a destinaion host)
-      # @param         [Hash] mhead       Message headers of a bounce email
-      # @options mhead [String] from      From header
-      # @options mhead [String] date      Date header
-      # @options mhead [String] subject   Subject header
-      # @options mhead [Array]  received  Received headers
-      # @options mhead [String] others    Other required headers
-      # @param         [String] mbody     Message body of a bounce email
-      # @return        [Hash, Nil]        Bounce data list and message/rfc822
-      #                                   part or nil if it failed to parse or
-      #                                   the arguments are missing
-      def scan(mhead, mbody)
-        return nil unless mhead['from'].end_with?('<mailer-daemon@googlemail.com>')
-        return nil unless mhead['subject'].start_with?('Delivery Status Notification')
-        return nil unless mhead['x-gm-message-state']
-
-        require 'sisimai/rfc1894'
-        fieldtable = Sisimai::RFC1894.FIELDTABLE
-        permessage = {}     # (Hash) Store values of each Per-Message field
-
-        dscontents = [Sisimai::Bite.DELIVERYSTATUS]
-        hasdivided = mbody.split("\n")
-        rfc822list = []     # (Array) Each line in message/rfc822 part string
-        blanklines = 0      # (Integer) The number of blank lines
-        readcursor = 0      # (Integer) Points the current cursor position
-        recipients = 0      # (Integer) The number of 'Final-Recipient' header
-        endoferror = false  # (Integer) Flag for a blank line after error messages
-        anotherset = {}     # (Hash) Another error information
-        emptylines = 0      # (Integer) The number of empty lines
-        v = nil
-
-        while e = hasdivided.shift do
-          if readcursor == 0
-            # Beginning of the bounce message or message/delivery-status part
-            readcursor |= Indicators[:deliverystatus] if e =~ MarkingsOf[:message]
-          end
-
-          if (readcursor & Indicators[:'message-rfc822']) == 0
-            # Beginning of the original message part(message/rfc822)
-            if e =~ MarkingsOf[:rfc822]
-              readcursor |= Indicators[:'message-rfc822']
-              next
-            end
-          end
-
-          if readcursor & Indicators[:'message-rfc822'] > 0
-            # message/rfc822 OR text/rfc822-headers part
-            if e.empty?
-              blanklines += 1
-              break if blanklines > 1
-              next
-            end
-            rfc822list << e
-          else
-            # message/delivery-status part
-            next if (readcursor & Indicators[:deliverystatus]) == 0
-
-            if f = Sisimai::RFC1894.match(e)
-              # "e" matched with any field defined in RFC3464
-              next unless o = Sisimai::RFC1894.field(e)
-              v = dscontents[-1]
-
-              if o[-1] == 'addr'
-                # Final-Recipient: rfc822; kijitora@example.jp
-                # X-Actual-Recipient: rfc822; kijitora@example.co.jp
-                if o[0] == 'final-recipient'
-                  # Final-Recipient: rfc822; kijitora@example.jp
-                  if v['recipient']
-                    # There are multiple recipient addresses in the message body.
-                    dscontents << Sisimai::Bite.DELIVERYSTATUS
-                    v = dscontents[-1]
-                  end
-                  v['recipient'] = o[2]
-                  recipients += 1
-                else
-                  # X-Actual-Recipient: rfc822; kijitora@example.co.jp
-                  v['alias'] = o[2]
-                end
-              elsif o[-1] == 'code'
-                # Diagnostic-Code: SMTP; 550 5.1.1 <userunknown@example.jp>... User Unknown
-                v['spec'] = o[1]
-                v['diagnosis'] = o[2]
-              else
-                # Other DSN fields defined in RFC3464
-                next unless fieldtable.key?(o[0])
-                v[fieldtable[o[0]]] = o[2]
-
-                next unless f == 1
-                permessage[fieldtable[o[0]]] = o[2]
-              end
-            else
-              # The line does not begin with a DSN field defined in RFC3464
-              # Append error messages continued from the previous line
-              if endoferror == false && v && ! v['diagnosis'].to_s.empty?
-                endoferror ||= true if e.empty?
-
-                next if endoferror
-                next unless e.start_with?(' ')
-                v['diagnosis'] << e
-
-              elsif e =~ MarkingsOf[:error]
-                # Detect SMTP session error or connection error
-                # The response from the remote server was:
-                anotherset['diagnosis'] << e
-              else
-                # ** Address not found **
-                #
-                # Your message wasn't delivered to * because the address couldn't be found.
-                # Check for typos or unnecessary spaces and try again.
-                #
-                # The response from the remote server was:
-                # 550 #5.1.0 Address rejected.
-                next if e =~ MarkingsOf[:html]
-
-                if anotherset['diagnosis']
-                  # Continued error messages from the previous line like
-                  # "550 #5.1.0 Address rejected."
-                  next if e =~ /\AContent-Type:/
-                  next if emptylines > 5
-                  if e.empty?
-                    # Count and next()
-                    emptylines += 1
-                    next
-                  end
-                  anotherset['diagnosis'] << ' ' << e
-                else
-                  # ** Address not found **
-                  #
-                  # Your message wasn't delivered to * because the address couldn't be found.
-                  # Check for typos or unnecessary spaces and try again.
-                  next if e.empty?
-                  next unless e =~ MarkingsOf[:message]
-                  anotherset['diagnosis'] = e
-                end
-              end
-            end
-          end # End of message/delivery-status
-        end
-        return nil unless recipients > 0
-
-        dscontents.each do |e|
-          # Set default values if each value is empty.
-          e['lhost'] ||= permessage['rhost']
-          permessage.each_key { |a| e[a] ||= permessage[a] || '' }
-
-          if anotherset['diagnosis']
-            # Copy alternative error message
-            e['diagnosis'] = anotherset['diagnosis'] unless e['diagnosis']
-
-            if e['diagnosis'] =~ /\A\d+\z/
-              e['diagnosis'] = anotherset['diagnosis']
-            else
-              # More detailed error message is in "anotherset"
-              as = nil  # status
-              ar = nil  # replycode
-
-              e['status']    ||= ''
-              e['replycode'] ||= ''
-
-              if e['status'] == '' || e['status'].start_with?('4.0.0', '5.0.0')
-                # Check the value of D.S.N. in anotherset
-                as = Sisimai::SMTP::Status.find(anotherset['diagnosis'])
-                if as && as[-3, 3] != '0.0'
-                  # The D.S.N. is neither an empty nor *.0.0
-                  e['status'] = as
-                end
-              end
-
-              if e['replycode'].empty? || e['replycode'].start_with?('400', '500')
-                # Check the value of SMTP reply code in anotherset
-                ar = Sisimai::SMTP::Reply.find(anotherset['diagnosis'])
-                if ar && ar[-2, 2].to_i != 0
-                  # The SMTP reply code is neither an empty nor *00
-                  e['replycode'] = ar
-                end
-              end
-
-              if (as || ar) && (anotherset['diagnosis'].size > e['diagnosis'].size)
-                # Update the error message in e['diagnosis']
-                e['diagnosis'] = anotherset['diagnosis']
-              end
-            end
-          end
-
-          e['diagnosis'] = Sisimai::String.sweep(e['diagnosis'])
-          e['agent']     = self.smtpagent
-
-          MessagesOf.each_key do |r|
-            # Guess an reason of the bounce
-            next unless MessagesOf[r].any? { |a| e['diagnosis'].include?(a) }
-            e['reason'] = r
-            break
-          end
-        end
-
-        rfc822part = Sisimai::RFC5322.weedout(rfc822list)
-        return { 'ds' => dscontents, 'rfc822' => rfc822part }
-      end
-
-    end
-  end
-end
-

data/lib/sisimai/bite/email/imailserver.rb

@@ -1,163 +0,0 @@
-module Sisimai::Bite::Email
-  # Sisimai::Bite::Email::IMailServer parses a bounce email which created by
-  # Ipswitch IMail Server.
-  # Methods in the module are called from only Sisimai::Message.
-  module IMailServer
-    class << self
-      # Imported from p5-Sisimail/lib/Sisimai/Bite::Email/IMailServer.pm
-      require 'sisimai/bite/email'
-
-      Indicators = Sisimai::Bite::Email.INDICATORS
-      StartingOf = {
-        message: [''],  # Blank line
-        rfc822:  ['Original message follows.'],
-        error:   ['Body of message generated response:'],
-      }.freeze
-
-      ReSMTP = {
-        'conn' => %r/(?:SMTP connection failed,|Unexpected connection response from server:)/,
-        'ehlo' => %r|Unexpected response to EHLO/HELO:|,
-        'mail' => %r|Server response to MAIL FROM:|,
-        'rcpt' => %r|Additional RCPT TO generated following response:|,
-        'data' => %r|DATA command generated response:|,
-      }.freeze
-      ReFailures = {
-        'hostunknown' => %r/Unknown host/,
-        'userunknown' => %r/\A(?:Unknown user|Invalid final delivery userid)/,
-        'mailboxfull' => %r/\AUser mailbox exceeds allowed size/,
-        'securityerr' => %r/\ARequested action not taken: virus detected/,
-        'undefined'   => %r/\Aundeliverable to /,
-        'expired'     => %r/\ADelivery failed \d+ attempts/,
-      }.freeze
-
-      def description; return 'IPSWITCH IMail Server'; end
-      def smtpagent;   return Sisimai::Bite.smtpagent(self); end
-      def headerlist;  return %w[x-mailer]; end
-
-      # Parse bounce messages from IMailServer
-      # @param         [Hash] mhead       Message headers of a bounce email
-      # @options mhead [String] from      From header
-      # @options mhead [String] date      Date header
-      # @options mhead [String] subject   Subject header
-      # @options mhead [Array]  received  Received headers
-      # @options mhead [String] others    Other required headers
-      # @param         [String] mbody     Message body of a bounce email
-      # @return        [Hash, Nil]        Bounce data list and message/rfc822
-      #                                   part or nil if it failed to parse or
-      #                                   the arguments are missing
-      def scan(mhead, mbody)
-        match  = 0
-        match += 1 if mhead['subject'] =~ /\AUndeliverable Mail[ ]*\z/
-        match += 1 if mhead['x-mailer'].to_s.start_with?('<SMTP32 v')
-        return nil unless match > 0
-
-        dscontents = [Sisimai::Bite.DELIVERYSTATUS]
-        hasdivided = mbody.split("\n")
-        rfc822list = []     # (Array) Each line in message/rfc822 part string
-        blanklines = 0      # (Integer) The number of blank lines
-        readcursor = 0      # (Integer) Points the current cursor position
-        recipients = 0      # (Integer) The number of 'Final-Recipient' header
-        v = nil
-
-        while e = hasdivided.shift do
-          if readcursor == 0
-            # Beginning of the bounce message or delivery status part
-            if e == StartingOf[:message][0]
-              readcursor |= Indicators[:deliverystatus]
-              next
-            end
-          end
-
-          if (readcursor & Indicators[:'message-rfc822']) == 0
-            # Beginning of the original message part
-            if e == StartingOf[:rfc822][0]
-              readcursor |= Indicators[:'message-rfc822']
-              next
-            end
-          end
-
-          if readcursor & Indicators[:'message-rfc822'] > 0
-            # Inside of the original message part
-            if e.empty?
-              blanklines += 1
-              break if blanklines > 1
-              next
-            end
-            rfc822list << e
-          else
-            # Error message part
-            break if readcursor & Indicators[:'message-rfc822'] > 0
-
-            # Unknown user: kijitora@example.com
-            #
-            # Original message follows.
-            v = dscontents[-1]
-
-            if cv = e.match(/\A([^ ]+)[ ](.+)[:][ \t]*([^ ]+[@][^ ]+)/)
-              # Unknown user: kijitora@example.com
-              if v['recipient']
-                # There are multiple recipient addresses in the message body.
-                dscontents << Sisimai::Bite.DELIVERYSTATUS
-                v = dscontents[-1]
-              end
-              v['diagnosis'] = cv[1] + ' ' + cv[2]
-              v['recipient'] = cv[3]
-              recipients += 1
-
-            elsif cv = e.match(/\Aundeliverable[ ]+to[ ]+(.+)\z/)
-              # undeliverable to kijitora@example.com
-              if v['recipient']
-                # There are multiple recipient addresses in the message body.
-                dscontents << Sisimai::Bite.DELIVERYSTATUS
-                v = dscontents[-1]
-              end
-              v['recipient'] = cv[1]
-              recipients += 1
-            else
-              # Other error message text
-              v['alterrors'] << ' ' << e if v['alterrors']
-              v['alterrors'] = e if e.include?(StartingOf[:error][0])
-            end
-          end
-        end
-        return nil unless recipients > 0
-
-        dscontents.each do |e|
-          e['agent'] = self.smtpagent
-
-          unless e['alterrors'].to_s.empty?
-            # Copy alternative error message
-            e['diagnosis'] = if e['diagnosis']
-                               e['alterrors'] + ' ' + e['diagnosis']
-                             else
-                               e['alterrors']
-                             end
-            e['diagnosis'] = Sisimai::String.sweep(e['diagnosis'])
-            e.delete('alterrors')
-          end
-          e['diagnosis'] = Sisimai::String.sweep(e['diagnosis'])
-
-          ReSMTP.each_key do |r|
-            # Detect SMTP command from the message
-            next unless e['diagnosis'] =~ ReSMTP[r]
-            e['command'] = r.upcase
-            break
-          end
-
-          ReFailures.each_key do |r|
-            # Verify each regular expression of session errors
-            next unless e['diagnosis'] =~ ReFailures[r]
-            e['reason'] = r
-            break
-          end
-          e.each_key { |a| e[a] ||= '' }
-        end
-
-        rfc822part = Sisimai::RFC5322.weedout(rfc822list)
-        return { 'ds' => dscontents, 'rfc822' => rfc822part }
-      end
-
-    end
-  end
-end
-

data/lib/sisimai/bite/email/interscanmss.rb

@@ -1,133 +0,0 @@
-module Sisimai::Bite::Email
-  # Sisimai::Bite::Email::InterScanMSS parses a bounce email which created by
-  # Trend Micro InterScan Messaging Security Suite. Methods in the module are
-  # called from only Sisimai::Message.
-  module InterScanMSS
-    class << self
-      # Imported from p5-Sisimail/lib/Sisimai/Bite/Email/InterScanMSS.pm
-      require 'sisimai/bite/email'
-
-      Indicators = Sisimai::Bite::Email.INDICATORS
-      StartingOf = {
-        message: [''],
-        rfc822:  ['Content-type: message/rfc822'],
-      }.freeze
-
-      def description; return 'Trend Micro InterScan Messaging Security Suite'; end
-      def smtpagent;   return Sisimai::Bite.smtpagent(self); end
-      def headerlist;  return []; end
-
-      # Parse bounce messages from InterScanMSS
-      # @param         [Hash] mhead       Message headers of a bounce email
-      # @options mhead [String] from      From header
-      # @options mhead [String] date      Date header
-      # @options mhead [String] subject   Subject header
-      # @options mhead [Array]  received  Received headers
-      # @options mhead [String] others    Other required headers
-      # @param         [String] mbody     Message body of a bounce email
-      # @return        [Hash, Nil]        Bounce data list and message/rfc822
-      #                                   part or nil if it failed to parse or
-      #                                   the arguments are missing
-      def scan(mhead, mbody)
-        # :received => %r/[ ][(]InterScanMSS[)][ ]with[ ]/,
-        match = 0
-        tryto = [
-          'Mail could not be delivered',
-          'メッセージを配信できません。',
-          'メール配信に失敗しました',
-        ]
-        match += 1 if mhead['from'].start_with?('"InterScan MSS"')
-        match += 1 if tryto.any? { |a| mhead['subject'] == a }
-        return nil unless match > 0
-
-        dscontents = [Sisimai::Bite.DELIVERYSTATUS]
-        hasdivided = mbody.split("\n")
-        rfc822list = []     # (Array) Each line in message/rfc822 part string
-        blanklines = 0      # (Integer) The number of blank lines
-        readcursor = 0      # (Integer) Points the current cursor position
-        recipients = 0      # (Integer) The number of 'Final-Recipient' header
-        v = nil
-
-        while e = hasdivided.shift do
-          if readcursor == 0
-            # Beginning of the bounce message or delivery status part
-            if e.start_with?(StartingOf[:message][0])
-              readcursor |= Indicators[:deliverystatus]
-              next
-            end
-          end
-
-          if (readcursor & Indicators[:'message-rfc822']) == 0
-            # Beginning of the original message part
-            if e.start_with?(StartingOf[:rfc822][0])
-              readcursor |= Indicators[:'message-rfc822']
-              next
-            end
-          end
-
-          if readcursor & Indicators[:'message-rfc822'] > 0
-            # Inside of the original message part
-            if e.empty?
-              blanklines += 1
-              break if blanklines > 1
-              next
-            end
-            rfc822list << e
-          else
-            # Error message part
-            next if (readcursor & Indicators[:deliverystatus]) == 0
-            next if e.empty?
-
-            # Sent <<< RCPT TO:<kijitora@example.co.jp>
-            # Received >>> 550 5.1.1 <kijitora@example.co.jp>... user unknown
-            v = dscontents[-1]
-
-            if cv = e.match(/\A.+[<>]{3}[ \t]+.+[<]([^ ]+[@][^ ]+)[>]\z/) ||
-                    e.match(/\A.+[<>]{3}[ \t]+.+[<]([^ ]+[@][^ ]+)[>]/)
-              # Sent <<< RCPT TO:<kijitora@example.co.jp>
-              # Received >>> 550 5.1.1 <kijitora@example.co.jp>... user unknown
-              if v['recipient'] && cv[1] != v['recipient']
-                # There are multiple recipient addresses in the message body.
-                dscontents << Sisimai::Bite.DELIVERYSTATUS
-                v = dscontents[-1]
-              end
-              v['recipient'] = cv[1]
-              recipients = dscontents.size
-            end
-
-            if cv = e.match(/\ASent[ ]+[<]{3}[ ]+([A-Z]{4})[ ]/)
-              # Sent <<< RCPT TO:<kijitora@example.co.jp>
-              v['command'] = cv[1]
-
-            elsif cv = e.match(/\AReceived[ ]+[>]{3}[ ]+(\d{3}[ ]+.+)\z/)
-              # Received >>> 550 5.1.1 <kijitora@example.co.jp>... user unknown
-              v['diagnosis'] = cv[1]
-            else
-              # Error message in non-English
-              if cv = e.match(/[ ][>]{3}[ ]([A-Z]{4})/)
-                # >>> RCPT TO ...
-                v['command'] = cv[1]
-
-              elsif cv = e.match(/[ ][<]{3}[ ](.+)/)
-                # <<< 550 5.1.1 User unknown
-                v['diagnosis'] = cv[1]
-              end
-            end
-          end
-        end
-        return nil unless recipients > 0
-
-        dscontents.each do |e|
-          e['agent']     = self.smtpagent
-          e['diagnosis'] = Sisimai::String.sweep(e['diagnosis'])
-          e.each_key { |a| e[a] ||= '' }
-        end
-
-        rfc822part = Sisimai::RFC5322.weedout(rfc822list)
-        return { 'ds' => dscontents, 'rfc822' => rfc822part }
-      end
-
-    end
-  end
-end
-