module Sisimai::Lhost::Amavis

Sisimai::Lhost::Amavis parses a bounce email which created by amavsid-new. Methods in the module are called from only Sisimai::Message.

Constants

Indicators
MessagesOf
ReBackbone
StartingOf

Public Class Methods

description() click to toggle source
# File lib/sisimai/lhost/amavis.rb, line 162
def description; return 'amavisd-new: https://www.amavis.org/'; end
make(mhead, mbody) click to toggle source

Parse bounce messages from amavisd-new @param [Hash] mhead Message headers of a bounce email @param [String] mbody Message body of a bounce email @return [Hash] Bounce data list and message/rfc822 part @return [Nil] it failed to parse or the arguments are missing @since v4.25.0

# File lib/sisimai/lhost/amavis.rb, line 78
def make(mhead, mbody)
  # From: "Content-filter at neko1.example.jp" <postmaster@neko1.example.jp>
  # Subject: Undeliverable mail, MTA-BLOCKED
  return nil unless mhead['from'].to_s.start_with?('"Content-filter at ')

  require 'sisimai/rfc1894'
  fieldtable = Sisimai::RFC1894.FIELDTABLE
  permessage = {}     # (Hash) Store values of each Per-Message field

  dscontents = [Sisimai::Lhost.DELIVERYSTATUS]
  emailsteak = Sisimai::RFC5322.fillet(mbody, ReBackbone)
  bodyslices = emailsteak[0].split("\n")
  readcursor = 0      # (Integer) Points the current cursor position
  recipients = 0      # (Integer) The number of 'Final-Recipient' header
  v = nil

  while e = bodyslices.shift do
    # Read error messages and delivery status lines from the head of the email
    # to the previous line of the beginning of the original message.

    if readcursor == 0
      # Beginning of the bounce message or message/delivery-status part
      readcursor |= Indicators[:deliverystatus] if e.start_with?(StartingOf[:message][0])
      next
    end
    next if (readcursor & Indicators[:deliverystatus]) == 0
    next if e.empty?
    next unless 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::Lhost.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[o[0]]
      v[fieldtable[o[0]]] = o[2]

      next unless f == 1
      permessage[fieldtable[o[0]]] = o[2]
    end
  end
  return nil unless recipients > 0

  dscontents.each do |e|
    # Set default values if each value is empty.
    permessage.each_key { |a| e[a] ||= permessage[a] || '' }
    e['diagnosis'] = Sisimai::String.sweep(e['diagnosis'].to_s.tr("\n", ' '))
    q = e['diagnosis'].downcase
    catch :DETECT_REASON do
      MessagesOf.each_key do |p|
        # Try to detect an error reason
        MessagesOf[p].each do |r|
          # Try to find an error message including lower-cased string
          # defined in MessagesOf constant
          next unless q.include?(r)
          e['reason'] = p
          throw :DETECT_REASON
        end
      end
    end
  end
  return { 'ds' => dscontents, 'rfc822' => emailsteak[1] }
end