File Coverage

lib/Sisimai/Lhost/MailMarshalSMTP.pm

Criterion	Covered	Total	%
statement	50	52	96.1
branch	29	32	90.6
condition	6	7	85.7
subroutine	6	6	100.0
pod	2	2	100.0
total	93	99	93.9

package Sisimai::Lhost::MailMarshalSMTP;
use parent 'Sisimai::Lhost';
use feature ':5.10';
use strict;
use warnings;

sub description { 'Trustwave Secure Email Gateway' }
sub make {
    # Detect an error from MailMarshalSMTP
    # @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.9
    my $class = shift;
    my $mhead = shift // return undef;
    my $mbody = shift // return undef;
    return undef unless index($mhead->{'subject'}, 'Undeliverable Mail: "') == 0;

    state $indicators = __PACKAGE__->INDICATORS;
    state $rebackbone = qr/^[ \t]*[+]+[ \t]*/m;
    state $startingof = {
        'message'  => ['Your message:'],
        'error'    => ['Could not be delivered because of'],
        'rcpts'    => ['The following recipients were affected:'],
    };

    my $dscontents = [__PACKAGE__->DELIVERYSTATUS];
    my $readcursor = 0;     # (Integer) Points the current cursor position
    my $recipients = 0;     # (Integer) The number of 'Final-Recipient' header
    my $endoferror = 0;     # (Integer) Flag for the end of error message
    my $v = undef;

    if( my $boundary00 = Sisimai::MIME->boundary($mhead->{'content-type'}, 1) ) {
        # Convert to regular expression
        $rebackbone = qr/^\Q$boundary00\E/m;
    }
    my $emailsteak = Sisimai::RFC5322->fillet($mbody, $rebackbone);

    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 unless $readcursor & $indicators->{'deliverystatus'};

        # Your message:
        #    From:    [e-mail]
        #    Subject: ...
        #
        # Could not be delivered because of
        #
        # 550 5.1.1 User unknown
        #
        # The following recipients were affected:
        #    [e-mail]
        $v = $dscontents->[-1];

        if( $e =~ /\A[ \t]{4}([^ ]+[@][^ ]+)\z/ ) {
            # The following recipients were affected:
            #    [e-mail]
            if( $v->{'recipient'} ) {
                # There are multiple recipient addresses in the message body.
                push @$dscontents, __PACKAGE__->DELIVERYSTATUS;
                $v = $dscontents->[-1];
            }
            $v->{'recipient'} = $1;
            $recipients++;

        } else {
            # Get error message lines
            if( $e eq $startingof->{'error'}->[0] ) {
                # Could not be delivered because of
                #
                # 550 5.1.1 User unknown
                $v->{'diagnosis'} = $e;

            } elsif( $v->{'diagnosis'} && ! $endoferror ) {
                # Append error messages
                $endoferror = 1 if index($e, $startingof->{'rcpts'}->[0]) == 0;
                next if $endoferror;

                $v->{'diagnosis'} .= ' '.$e;

            } else {
                # Additional Information
                # ======================
                # Original Sender:
                # Sender-MTA:         <10.11.12.13>
                # Remote-MTA:         <10.0.0.1>
                # Reporting-MTA:
                # MessageName:
                # Last-Attempt-Date:  <16:21:07 seg, 22 Dezembro 2014>
                if( $e =~ /\AOriginal Sender:[ \t]+[<](.+)[>]\z/ ) {
                    # Original Sender:
                    # Use this line instead of "From" header of the original
                    # message.
                    $emailsteak->[1] .= sprintf("From: %s\n", $1);

                } elsif( $e =~ /\ASender-MTA:[ \t]+[<](.+)[>]\z/ ) {
                    # Sender-MTA:         <10.11.12.13>
                    $v->{'lhost'} = $1;

                } elsif( $e =~ /\AReporting-MTA:[ \t]+[<](.+)[>]\z/ ) {
                    # Reporting-MTA:
                    $v->{'rhost'} = $1;

                } elsif( $e =~ /\A\s+(From|Subject):\s*(.+)\z/ ) {
                    #    From:    [e-mail]
                    #    Subject: ...
                    $emailsteak->[1] .= sprintf("%s: %s\n", $1, $2);
                }
            }
        }
    }
    return undef unless $recipients;

    $_->{'diagnosis'} = Sisimai::String->sweep($_->{'diagnosis'}) for @$dscontents;
    return { 'ds' => $dscontents, 'rfc822' => $emailsteak->[1] };
}

1;
__END__