module Sisimai::Lhost::Exchange2007
Sisimai::Lhost::Exchange2007
parses a bounce email which created by Microsoft Exchange Server 2007. Methods in the module are called from only Sisimai::Message
.
Constants
- Indicators
- MarkingsOf
- NDRSubject
- ReBackbone
Public Class Methods
description()
click to toggle source
# File lib/sisimai/lhost/exchange2007.rb, line 149 def description; return 'Microsoft Exchange Server 2007'; end
make(mhead, mbody)
click to toggle source
Parse bounce messages from Microsoft Exchange Server 2007 @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
# File lib/sisimai/lhost/exchange2007.rb, line 53 def make(mhead, mbody) # Content-Language: en-US, fr-FR return nil unless mhead['subject'] =~ MarkingsOf[:subject] return nil unless mhead['content-language'] return nil unless mhead['content-language'] =~ /\A[a-z]{2}(?:[-][A-Z]{2})?\z/ # These headers exist only a bounce mail from Office365 return nil if mhead['x-ms-exchange-crosstenant-originalarrivaltime'] return nil if mhead['x-ms-exchange-crosstenant-fromentityheader'] 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 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 = 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 delivery status part readcursor |= Indicators[:deliverystatus] if e =~ MarkingsOf[:message] next end 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::Lhost.DELIVERYSTATUS v = dscontents[-1] end v['recipient'] = cv[1] v['diagnosis'] = '' recipients += 1 elsif cv = e.match(/([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 recipient ## # Remote Server returned '550 5.1.1 RESOLVER.ADR.RecipNotFound; not found' # 3/09/2016 8:05:56 PM - Remote Server at mydomain.com (10.1.1.3) returned '550 4.4.7 QUEUE.Expired; message expired' 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 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']) end return { 'ds' => dscontents, 'rfc822' => emailsteak[1] } end