sisimai 4.25.3 → 4.25.8

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

@@ -1,164 +0,0 @@
-module Sisimai::Bite::Email
-  # Sisimai::Bite::Email::Exchange2007 parses a bounce email which created by
-  # Microsoft Exchange Server 2007.
-  # Methods in the module are called from only Sisimai::Message.
-  module Exchange2007
-    class << self
-      # Imported from p5-Sisimail/lib/Sisimai/Bite/Email/Exchange2007.pm
-      require 'sisimai/bite/email'
-
-      Indicators = Sisimai::Bite::Email.INDICATORS
-      StartingOf = { rfc822: ['Original message headers:'] }.freeze
-      MarkingsOf = {
-        message: %r/\ADiagnostic[ ]information[ ]for[ ]administrators:/,
-        error:   %r/ ((?:RESOLVER|QUEUE)[.][A-Za-z]+(?:[.]\w+)?);/,
-        rhost:   %r/\AGenerating server:[ ]?(.*)/,
-      }.freeze
-      NDRSubject = {
-        'SMTPSEND.DNS.NonExistentDomain' => 'hostunknown',   # 554 5.4.4 SMTPSEND.DNS.NonExistentDomain
-        'SMTPSEND.DNS.MxLoopback'        => 'networkerror',  # 554 5.4.4 SMTPSEND.DNS.MxLoopback
-        'RESOLVER.ADR.BadPrimary'        => 'systemerror',   # 550 5.2.0 RESOLVER.ADR.BadPrimary
-        'RESOLVER.ADR.RecipNotFound'     => 'userunknown',   # 550 5.1.1 RESOLVER.ADR.RecipNotFound
-        'RESOLVER.ADR.ExRecipNotFound'   => 'userunknown',   # 550 5.1.1 RESOLVER.ADR.ExRecipNotFound
-        'RESOLVER.ADR.RecipLimit'        => 'toomanyconn',   # 550 5.5.3 RESOLVER.ADR.RecipLimit
-        'RESOLVER.ADR.InvalidInSmtp'     => 'systemerror',   # 550 5.1.0 RESOLVER.ADR.InvalidInSmtp
-        'RESOLVER.ADR.Ambiguous'         => 'systemerror',   # 550 5.1.4 RESOLVER.ADR.Ambiguous, 420 4.2.0 RESOLVER.ADR.Ambiguous
-        'RESOLVER.RST.AuthRequired'      => 'securityerror', # 550 5.7.1 RESOLVER.RST.AuthRequired
-        'RESOLVER.RST.NotAuthorized'     => 'rejected',      # 550 5.7.1 RESOLVER.RST.NotAuthorized
-        'RESOLVER.RST.RecipSizeLimit'    => 'mesgtoobig',    # 550 5.2.3 RESOLVER.RST.RecipSizeLimit
-        'QUEUE.Expired'                  => 'expired',       # 550 4.4.7 QUEUE.Expired
-      }.freeze
-
-      def description; return 'Microsoft Exchange Server 2007'; end
-      def smtpagent;   return Sisimai::Bite.smtpagent(self); end
-      def headerlist;  return %w[content-language]; end
-
-      # Parse bounce messages from Microsoft Exchange Server 2007
-      # @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['subject'].start_with?('Undeliverable:')
-        return nil unless mhead['content-language']
-        return nil unless mhead['content-language'] =~ /\A[a-z]{2}(?:[-][A-Z]{2})?\z/
-
-        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
-        connvalues = 0      # (Integer) Flag, 1 if all the value of connheader have been set
-        connheader = {
-          'rhost' => '',    # The value of Reporting-MTA header or "Generating Server:"
-        }
-        v = nil
-
-        while e = hasdivided.shift do
-          if readcursor == 0
-            # Beginning of the bounce message or delivery status part
-            if e =~ MarkingsOf[:message]
-              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
-
-            if connvalues == connheader.keys.size
-              # Diagnostic information for administrators:
-              #
-              # Generating server: mta2.neko.example.jp
-              #
-              # kijitora@example.jp
-              # #550 5.1.1 RESOLVER.ADR.RecipNotFound; not found ##
-              #
-              # Original message headers:
-              v = dscontents[-1]
-
-              if cv = e.match(/\A([^ @]+[@][^ @]+)\z/)
-                # 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'] = cv[1]
-                v['diagnosis'] = ''
-                recipients += 1
-
-              elsif cv = e.match(/\A[#]([45]\d{2})[ ]([45][.]\d[.]\d+)[ ].+\z/)
-                # #550 5.1.1 RESOLVER.ADR.RecipNotFound; not found ##
-                # #550 5.2.3 RESOLVER.RST.RecipSizeLimit; message too large for this recipien=
-                # t ##
-                v['replycode'] = cv[1]
-                v['status']    = cv[2]
-                v['diagnosis'] = e
-              else
-                # Continued line of error messages
-                next if v['diagnosis'].to_s.empty?
-                next unless v['diagnosis'].end_with?('=')
-                v['diagnosis']  = v['diagnosis'].chomp('=')
-                v['diagnosis'] << e
-              end
-            else
-              # Diagnostic information for administrators:
-              #
-              # Generating server: mta22.neko.example.org
-              next unless cv = e.match(MarkingsOf[:rhost])
-              next unless connheader['rhost'].empty?
-              connheader['rhost'] = cv[1]
-              connvalues += 1
-            end
-          end
-        end
-        return nil unless recipients > 0
-
-        dscontents.each do |e|
-          if cv = e['diagnosis'].match(MarkingsOf[:error])
-            # #550 5.1.1 RESOLVER.ADR.RecipNotFound; not found ##
-            f = cv[1]
-            NDRSubject.each_key do |r|
-              # Try to match with error subject strings
-              next unless f == r
-              e['reason'] = NDRSubject[r]
-              break
-            end
-          end
-          e['diagnosis'] = Sisimai::String.sweep(e['diagnosis'])
-          e['agent']     = self.smtpagent
-        end
-
-        rfc822part = Sisimai::RFC5322.weedout(rfc822list)
-        return { 'ds' => dscontents, 'rfc822' => rfc822part }
-      end
-
-    end
-  end
-end
-

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

@@ -1,158 +0,0 @@
-module Sisimai::Bite::Email
-  # Sisimai::Bite::Email::FML parses a bounce email which created by fml.
-  # Methods in the module are called from only Sisimai::Message.
-  module FML
-    class << self
-      # Imported from p5-Sisimail/lib/Sisimai/Bite/Email/FML.pm
-      require 'sisimai/bite/email'
-
-      Indicators = Sisimai::Bite::Email.INDICATORS
-      StartingOf = { rfc822: ['Original mail as follows:'] }.freeze
-      ErrorTitle = {
-        'rejected' => %r{(?>
-           (?:Ignored[ ])*NOT[ ]MEMBER[ ]article[ ]from[ ]
-          |reject[ ]mail[ ](?:.+:|from)[ ],
-          |Spam[ ]mail[ ]from[ ]a[ ]spammer[ ]is[ ]rejected
-          |You[ ].+[ ]are[ ]not[ ]member
-          )
-        }x,
-        'systemerror' => %r{(?:
-           fml[ ]system[ ]error[ ]message
-          |Loop[ ]Alert:[ ]
-          |Loop[ ]Back[ ]Warning:[ ]
-          |WARNING:[ ]UNIX[ ]FROM[ ]Loop
-          )
-        }x,
-        'securityerror' => %r/Security Alert/,
-      }.freeze
-      ErrorTable = {
-        'rejected' => %r{(?>
-          (?:Ignored[ ])*NOT[ ]MEMBER[ ]article[ ]from[ ]
-          |reject[ ](?:
-             mail[ ]from[ ].+[@].+
-            |since[ ].+[ ]header[ ]may[ ]cause[ ]mail[ ]loop
-            |spammers:
-            )
-          |You[ ]are[ ]not[ ]a[ ]member[ ]of[ ]this[ ]mailing[ ]list
-          )
-        }x,
-        'systemerror' => %r{(?:
-           Duplicated[ ]Message-ID
-          |fml[ ].+[ ]has[ ]detected[ ]a[ ]loop[ ]condition[ ]so[ ]that
-          |Loop[ ]Back[ ]Warning:
-          )
-        }x,
-        'securityerror' => %r/Security alert:/,
-      }.freeze
-
-      def description; return 'fml mailing list server/manager'; end
-      def smtpagent;   return Sisimai::Bite.smtpagent(self); end
-      def headerlist;  return %w[x-mlserver]; end
-
-      # Parse bounce messages from fml mailling list server/manager
-      # @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['x-mlserver']
-        return nil unless mhead['from'] =~ /.+[-]admin[@].+/
-        return nil unless mhead['message-id'] =~ /\A[<]\d+[.]FML.+[@].+[>]\z/
-
-        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
-
-        readcursor |= Indicators[:deliverystatus]
-        while e = hasdivided.shift do
-          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
-            # After "Original mail as follows:" line
-            #
-            #    From owner-2ndml@example.com  Mon Nov 20 18:10:11 2017
-            #    Return-Path: <owner-2ndml@example.com>
-            #    ...
-            #
-            if e.empty?
-              blanklines += 1
-              break if blanklines > 1
-              next
-            end
-            rfc822list << e.lstrip
-          else
-            # Error message part
-            next if (readcursor & Indicators[:deliverystatus]) == 0
-            next if e.empty?
-
-            # Duplicated Message-ID in <2ndml@example.com>.
-            # Original mail as follows:
-            v = dscontents[-1]
-
-            if cv = e.match(/[<]([^ ]+?[@][^ ]+?)[>][.]\z/)
-              # Duplicated Message-ID in <2ndml@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]
-              v['diagnosis'] = e
-              recipients += 1
-            else
-              # If you know the general guide of this list, please send mail with
-              # the mail body 
-              v['diagnosis'] ||= ''
-              v['diagnosis'] << e
-            end
-          end
-        end
-        return nil unless recipients > 0
-
-        dscontents.each do |e|
-          e['diagnosis'] = Sisimai::String.sweep(e['diagnosis'])
-          e['agent']     = self.smtpagent
-          e.each_key { |a| e[a] ||= '' }
-
-          ErrorTable.each_key do |f|
-            # Try to match with error messages defined in ErrorTable
-            next unless e['diagnosis'] =~ ErrorTable[f]
-            e['reason'] = f
-            break
-          end
-
-          unless e['reason']
-            # Error messages in the message body did not matched
-            ErrorTitle.each_key do |f|
-              # Try to match with the Subject string
-              next unless mhead['subject'] =~ ErrorTitle[f]
-              e['reason'] = f
-              break
-            end
-          end
-        end
-
-        rfc822part = Sisimai::RFC5322.weedout(rfc822list)
-        return { 'ds' => dscontents, 'rfc822' => rfc822part }
-      end
-
-    end
-  end
-end
-

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

@@ -1,152 +0,0 @@
-module Sisimai::Bite::Email
-  # Sisimai::Bite::Email::GMX parses a bounce email which created by GMX.
-  # Methods in the module are called from only Sisimai::Message.
-  module GMX
-    class << self
-      # Imported from p5-Sisimail/lib/Sisimai/Bite/Email/GMX.pm
-      require 'sisimai/bite/email'
-
-      Indicators = Sisimai::Bite::Email.INDICATORS
-      StartingOf = {
-        message: ['This message was created automatically by mail delivery software'],
-        rfc822:  ['--- The header of the original message is following'],
-      }.freeze
-      MessagesOf = { 'expired' => ['delivery retry timeout exceeded'] }.freeze
-
-      def description; return 'GMX: http://www.gmx.net'; end
-      def smtpagent;   return Sisimai::Bite.smtpagent(self); end
-
-      # Envelope-To: <kijitora@mail.example.com>
-      # X-GMX-Antispam: 0 (Mail was not recognized as spam); Detail=V3;
-      # X-GMX-Antivirus: 0 (no virus found)
-      # X-UI-Out-Filterresults: unknown:0;
-      def headerlist;  return %w[x-gmx-antispam]; end
-
-      # Parse bounce messages from GMX
-      # @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)
-        # :from    => %r/\AMAILER-DAEMON[@]/,
-        # :subject => %r/\AMail delivery failed: returning message to sender\z/,
-        return nil unless mhead['x-gmx-antispam']
-
-        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?
-
-            # This message was created automatically by mail delivery software.
-            #
-            # A message that you sent could not be delivered to one or more of
-            # its recipients. This is a permanent error. The following address
-            # failed:
-            #
-            # "shironeko@example.jp":
-            # SMTP error from remote server after RCPT command:
-            # host: mx.example.jp
-            # 5.1.1 <shironeko@example.jp>... User Unknown
-            v = dscontents[-1]
-
-            if cv = e.match(/\A["]([^ ]+[@][^ ]+)["]:\z/) || e.match(/\A[<]([^ ]+[@][^ ]+)[>]\z/)
-              # "shironeko@example.jp":
-              # ---- OR ----
-              # <kijitora@6jo.example.co.jp>
-              #
-              # Reason:
-              # delivery retry timeout exceeded
-              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
-
-            elsif cv = e.match(/\ASMTP error .+ ([A-Z]{4}) command:\z/)
-              # SMTP error from remote server after RCPT command:
-              v['command'] = cv[1]
-
-            elsif cv = e.match(/\Ahost:[ \t]*(.+)\z/)
-              # host: mx.example.jp
-              v['rhost'] = cv[1]
-            else
-              # Get error message
-              if e =~ /\b[45][.]\d[.]\d\b/ || e =~ /[<][^ ]+[@][^ ]+[>]/ || e =~ /\b[45]\d{2}\b/
-                v['diagnosis'] ||= e
-              else
-                next if e.empty?
-                if e.start_with?('Reason:')
-                  # Reason:
-                  # delivery retry timeout exceeded
-                  v['diagnosis'] = e
-
-                elsif v['diagnosis'] == 'Reason:'
-                  v['diagnosis'] = e
-                end
-              end
-            end
-          end
-        end
-        return nil unless recipients > 0
-
-        dscontents.each do |e|
-          e['agent']     = self.smtpagent
-          e['diagnosis'] = Sisimai::String.sweep(e['diagnosis'].tr("\n", ' '))
-
-          MessagesOf.each_key do |r|
-            # Verify each regular expression of session errors
-            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
-