File Coverage

lib/Sisimai/Order.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	2	2	100.0
condition	4	4	100.0
subroutine	6	6	100.0
pod	1	2	50.0
total	38	39	97.4

package Sisimai::Order;
use v5.26;
use strict;
use warnings;
use Sisimai::Lhost;

sub make {
    # Returns an MTA Order decided by the first word of the "Subject": header
    # @param         [String] argv0 Subject header string
    # @return        [Array]        Order of MTA modules
    # @since         v4.25.4
    my $class = shift;
    my $argv0 = shift || return []; y/_[] / /s, s/\A[ ]+// for $argv0;
    my @words = split(/[ ]/, lc($argv0), 3);
    my $first = '';

    # The following order is decided by the first 2 words of Subject: header
    state $subject = {
        'abuse-report'     => ['Sisimai::ARF'],
        'auto'             => ['Sisimai::RFC3834'],
        'auto-reply'       => ['Sisimai::RFC3834'],
        'automatic-reply'  => ['Sisimai::RFC3834'],
        'aws-notification' => ['Sisimai::Lhost::AmazonSES'],
        'complaint-about'  => ['Sisimai::ARF'],
        'delivery-failure' => ['Sisimai::Lhost::Domino', 'Sisimai::Lhost::X2'],
        'delivery-notification' => ['Sisimai::Lhost::MessagingServer'],
        'delivery-status'  => [
            'Sisimai::Lhost::OpenSMTPD',
            'Sisimai::Lhost::GoogleWorkspace',
            'Sisimai::Lhost::Gmail',
            'Sisimai::Lhost::GoogleGroups',
            'Sisimai::Lhost::AmazonSES',
            'Sisimai::Lhost::X3',
        ],
        'dmarc-ietf-dmarc' => ['Sisimai::ARF'],
        'email-feedback'   => ['Sisimai::ARF'],
        'failed-delivery'  => ['Sisimai::Lhost::X2'],
        'failure-delivery' => ['Sisimai::Lhost::X2'],
        'failure-notice'   => ['Sisimai::Lhost::qmail', 'Sisimai::Lhost::mFILTER', 'Sisimai::Lhost::Activehunter'],
        'loop-alert'       => ['Sisimai::Lhost::FML'],
        'mail-could'       => ['Sisimai::Lhost::TrendMicro'],
        'mail-delivery'    => [
            'Sisimai::Lhost::Exim',
            'Sisimai::Lhost::DragonFly',
            'Sisimai::Lhost::GMX',
            'Sisimai::Lhost::Zoho',
            'Sisimai::Lhost::EinsUndEins',
            'Sisimai::Lhost::DeutscheTelekom',
        ],
        'mail-failed'       => ['Sisimai::Lhost::DeutscheTelekom'],
        'mail-failure'      => ['Sisimai::Lhost::Exim'],
        'mail-system'       => ['Sisimai::Lhost::EZweb'],
        'message-delivery'  => ['Sisimai::Lhost::MailFoundry'],
        'message-frozen'    => ['Sisimai::Lhost::Exim'],
        'non-recapitabile'  => ['Sisimai::Lhost::Exchange2007'],
        'non-remis'         => ['Sisimai::Lhost::Exchange2007'],
        'notice'            => ['Sisimai::Lhost::Courier'],
        'postmaster-email'  => ['Sisimai::Lhost::Mimecast'],
        'postmaster-notify' => ['Sisimai::Lhost::Sendmail'],
        'returned-mail'     => [
            'Sisimai::Lhost::Sendmail',
            'Sisimai::Lhost::Biglobe',
            'Sisimai::Lhost::V5sendmail',
            'Sisimai::Lhost::X1',
        ],
        'there-was'     => ['Sisimai::Lhost::X6'],
        'undeliverable' => ['Sisimai::Lhost::Exchange2007', 'Sisimai::Lhost::Exchange2003'],
        'undeliverable-mail'    => ['Sisimai::Lhost::MailMarshal', 'Sisimai::Lhost::IMailServer'],
        'undeliverable-message' => ['Sisimai::Lhost::Notes', 'Sisimai::Lhost::Verizon'],
        'undelivered-mail'      => ['Sisimai::Lhost::Postfix', 'Sisimai::Lhost::Zoho'],
        'warning'               => ['Sisimai::Lhost::Sendmail', 'Sisimai::Lhost::Exim'],
    };

    if( rindex($words[0], ':') > 0 ) {
        # Undeliverable: ..., notify: ...
        $first = lc substr($argv0, 0, index($argv0, ':'));

    } else {
        # Postmaster notify, returned mail, ...
        $first = join('-', splice(@words, 0, 2));
    }
    $first =~ y/:",*//d;
    return $subject->{ $first } || [];
}

sub another {
    # Make MTA modules list as a spare
    # @return   [Array] Ordered module list
    # @since v4.13.1

    # There are another patterns in the value of "Subject:" header of a bounce mail generated by the
    # following MTA modules
    state $orderE0 = [
        'Sisimai::Lhost::Exim',
        'Sisimai::Lhost::Sendmail',
        'Sisimai::Lhost::Exchange2007',
        'Sisimai::Lhost::Exchange2003',
        'Sisimai::Lhost::AmazonSES',
        'Sisimai::Lhost::TrendMicro',
        'Sisimai::Lhost::DeutscheTelekom',
        'Sisimai::Lhost::KDDI',
        'Sisimai::Lhost::FML',
        'Sisimai::Lhost::Verizon',
        'Sisimai::Lhost::ApacheJames',
        'Sisimai::Lhost::X2',
    ];

    # Fallback list: The following MTA/ESP modules is not listed orderE0
    state $orderE1 = [
        'Sisimai::Lhost::Postfix',
        'Sisimai::Lhost::OpenSMTPD',
        'Sisimai::Lhost::qmail',
        'Sisimai::Lhost::Courier',
        'Sisimai::Lhost::MessagingServer',
        'Sisimai::Lhost::GoogleWorkspace',
        'Sisimai::Lhost::Gmail',
        'Sisimai::Lhost::GMX',
        'Sisimai::Lhost::Zoho',
        'Sisimai::Lhost::Domino',
        'Sisimai::Lhost::Notes',
        'Sisimai::Lhost::IMailServer',
        'Sisimai::Lhost::mFILTER',
        'Sisimai::Lhost::Activehunter',
        'Sisimai::Lhost::MailFoundry',
        'Sisimai::Lhost::GoogleGroups',
        'Sisimai::Lhost::MailMarshal',
        'Sisimai::Lhost::V5sendmail',
        'Sisimai::Lhost::EZweb',
        'Sisimai::Lhost::Biglobe',
        'Sisimai::Lhost::EinsUndEins',
        'Sisimai::Lhost::DragonFly',
        'Sisimai::Lhost::X1',
        'Sisimai::Lhost::X3',
        'Sisimai::Lhost::X6',
    ];
    return [@$orderE0, @$orderE1];
};

1;
__END__