package Sisimai::Lhost::AmazonWorkMail; use parent 'Sisimai::Lhost'; use feature ':5.10'; use strict; use warnings; # https://aws.amazon.com/workmail/ sub description { 'Amazon WorkMail: https://aws.amazon.com/workmail/' } sub make { # Detect an error from Amazon WorkMail # @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 [Undef] failed to parse or the arguments are missing # @since v4.1.29 my $class = shift; my $mhead = shift // return undef; my $mbody = shift // return undef; my $match = 0; my $xmail = $mhead->{'x-original-mailer'} || $mhead->{'x-mailer'} || ''; # X-Mailer: Amazon WorkMail # X-Original-Mailer: Amazon WorkMail # X-Ses-Outgoing: 2016.01.14-54.240.27.159 $match++ if $mhead->{'x-ses-outgoing'}; if( $xmail ) { # X-Mailer: Amazon WorkMail # X-Original-Mailer: Amazon WorkMail $match++ if $xmail eq 'Amazon WorkMail'; } return undef if $match < 2; state $indicators = __PACKAGE__->INDICATORS; state $rebackbone = qr|^content-type:[ ]message/rfc822|m; state $startingof = { 'message' => ['Technical report:'] }; require Sisimai::RFC1894; my $fieldtable = Sisimai::RFC1894->FIELDTABLE; my $permessage = {}; # (Hash) Store values of each Per-Message field my $dscontents = [__PACKAGE__->DELIVERYSTATUS]; my $emailsteak = Sisimai::RFC5322->fillet($mbody, $rebackbone); my $readcursor = 0; # (Integer) Points the current cursor position my $recipients = 0; # (Integer) The number of 'Final-Recipient' header my $v = undef; for my $e ( split("\n", $emailsteak->[0]) ) { # Read error messages and delivery status lines from the head of the email # to the previous line of the beginning of the original message. unless( $readcursor ) { # Beginning of the bounce message or message/delivery-status part $readcursor |= $indicators->{'deliverystatus'} if index($e, $startingof->{'message'}->[0]) == 0; next; } next unless $readcursor & $indicators->{'deliverystatus'}; next unless length $e; if( my $f = Sisimai::RFC1894->match($e) ) { # $e matched with any field defined in RFC3464 next unless my $o = Sisimai::RFC1894->field($e); $v = $dscontents->[-1]; if( $o->[-1] eq 'addr' ) { # Final-Recipient: rfc822; kijitora@example.jp # X-Actual-Recipient: rfc822; kijitora@example.co.jp if( $o->[0] eq 'final-recipient' ) { # Final-Recipient: rfc822; kijitora@example.jp if( $v->{'recipient'} ) { # There are multiple recipient addresses in the message body. push @$dscontents, __PACKAGE__->DELIVERYSTATUS; $v = $dscontents->[-1]; } $v->{'recipient'} = $o->[2]; $recipients++; } else { # X-Actual-Recipient: rfc822; kijitora@example.co.jp $v->{'alias'} = $o->[2]; } } elsif( $o->[-1] eq 'code' ) { # Diagnostic-Code: SMTP; 550 5.1.1 ... User Unknown $v->{'spec'} = $o->[1]; $v->{'diagnosis'} = $o->[2]; } else { # Other DSN fields defined in RFC3464 next unless exists $fieldtable->{ $o->[0] }; $v->{ $fieldtable->{ $o->[0] } } = $o->[2]; next unless $f == 1; $permessage->{ $fieldtable->{ $o->[0] } } = $o->[2]; } } # # # # last if index($e, '') == 0; } return undef unless $recipients; for my $e ( @$dscontents ) { # Set default values if each value is empty. $e->{'lhost'} ||= $permessage->{'rhost'}; $e->{ $_ } ||= $permessage->{ $_ } || '' for keys %$permessage; $e->{'diagnosis'} = Sisimai::String->sweep($e->{'diagnosis'}); if( $e->{'status'} =~ /\A[45][.][01][.]0\z/ ) { # Get other D.S.N. value from the error message # 5.1.0 - Unknown address error 550-'5.7.1 ... my $errormessage = $e->{'diagnosis'}; $errormessage = $1 if $e->{'diagnosis'} =~ /["'](\d[.]\d[.]\d.+)['"]/; $e->{'status'} = Sisimai::SMTP::Status->find($errormessage) || $e->{'status'}; } # 554 4.4.7 Message expired: unable to deliver in 840 minutes. # <421 4.4.2 Connection timed out> $e->{'replycode'} = $1 if $e->{'diagnosis'} =~ /[<]([245]\d\d)[ ].+[>]/; $e->{'reason'} ||= Sisimai::SMTP::Status->name($e->{'status'}) || ''; } return { 'ds' => $dscontents, 'rfc822' => $emailsteak->[1] }; } 1; __END__ =encoding utf-8 =head1 NAME Sisimai::Lhost::AmazonWorkMail - bounce mail parser class for C. =head1 SYNOPSIS use Sisimai::Lhost::AmazonWorkMail; =head1 DESCRIPTION Sisimai::Lhost::AmazonWorkMail parses a bounce email which created by C. Methods in the module are called from only Sisimai::Message. =head1 CLASS METHODS =head2 C> C returns description string of this module. print Sisimai::Lhost::AmazonWorkMail->description; =head2 C, I)>> C method parses a bounced email and return results as a array reference. See Sisimai::Message for more details. =head1 AUTHOR azumakuniyuki =head1 COPYRIGHT Copyright (C) 2016-2020 azumakuniyuki, All rights reserved. =head1 LICENSE This software is distributed under The BSD 2-Clause License. =cut