File Coverage

lib/Sisimai/Reason/NetworkError.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	4	4	100.0
condition	2	2	100.0
subroutine	7	7	100.0
pod	2	4	50.0
total	35	37	94.5

package Sisimai::Reason::NetworkError;
use v5.26;
use strict;
use warnings;

sub text  { 'networkerror' }
sub description { 'SMTP connection failed due to DNS look up failure or other network problems' }
sub match {
    # Try to match that the given text and regular expressions
    # @param    [String] argv1  String to be matched with regular expressions
    # @return   [Integer]       0: Did not match
    #                           1: Matched
    # @since v4.1.12
    my $class = shift;
    my $argv1 = shift // return 0;

    state $index = [
        "address family mismatch on destination mxs", # OpenSMTPD/smtpd/mta.c
        "all routes to destination blocked",          # OpenSMTPD/smtpd/mta.c
        "bad dns lookup error code",                  # OpenSMTPD/smtpd/mta.c
        "could not connect and send the mail to",
        "could not contact dns servers",
        "could not retrieve source address",          # OpenSMTPD/smtpd/mta.c
        "dns records for the destination computer could not be found",
        "establish an smtp connection",
        "exceeded maximum hop count",                 # Courier
        "host is unreachable",
        "host name lookup failure",
        "host not found, try again",
        "listed as a best-preference mx",
        "loop detected",                              # OpenSMTPD/smtpd/mta.c
        "maximum forwarding loop count exceeded",
        "network error on destination mxs",           # OpenSMTPD/smtpd/mta.c
        "no relevant answers",
        "temporary failure in mx lookup",             # OpenSMTPD/smtpd/mta.c
        "too many hops",
        "unable to resolve route ",
        "unrouteable mail domain",
    ];
    state $pairs = [
        ["malformed", "name server reply"],
        ["mail ", "loop"],
        ["message ", "loop"],
        ["no ", "route to"],
    ];
    return 1 if grep { rindex($argv1, $_) > -1 } @$index;
    return 1 if grep { Sisimai::String->aligned(\$argv1, $_) } @$pairs;
    return 0;
}

sub true {
    # The bounce reason is network error or not
    # @param    [Sisimai::Fact] argvs   Object to be detected the reason
    # @return   [Integer]               1: is network error
    #                                   0: is not network error
    # @see http://www.ietf.org/rfc/rfc2822.txt
    return 0;
}

1;
__END__