File Coverage

lib/Sisimai/Reason/HostUnknown.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	12	12	100.0
condition	7	10	70.0
subroutine	7	7	100.0
pod	2	4	50.0
total	57	62	91.9

package Sisimai::Reason::HostUnknown;
use feature ':5.10';
use strict;
use warnings;

sub text  { 'hostunknown' }
sub description { "Delivery failed due to a domain part of a recipient's email address does not exist" }
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.0.0
    my $class = shift;
    my $argv1 = shift // return undef;

    state $index = [
        'domain does not exist',
        'domain is not reachable',
        'domain must exist',
        'host or domain name not found',
        'host unknown',
        'host unreachable',
        'mail domain mentioned in email address is unknown',
        'name or service not known',
        'no such domain',
        'recipient address rejected: unknown domain name',
        'recipient domain must exist',
        'the account or domain may not exist',
        'unknown host',
        'unroutable address',
        'unrouteable address',
    ];
    state $regex = qr/553[ ][^ ]+[ ]does[ ]not[ ]exist/;
    return 1 if grep { rindex($argv1, $_) > -1 } @$index;
    return 1 if $argv1 =~ $regex;
    return 0;
}

sub true {
    # Whether the host is unknown or not
    # @param    [Sisimai::Data] argvs   Object to be detected the reason
    # @return   [Integer]               1: is unknown host
    #           [Integer]               0: is not unknown host.
    # @since v4.0.0
    # @see http://www.ietf.org/rfc/rfc2822.txt
    my $class = shift;
    my $argvs = shift // return undef;
    return 1 if $argvs->reason eq 'hostunknown';

    my $statuscode = $argvs->deliverystatus // '';
    my $diagnostic = lc $argvs->diagnosticcode // '';

    if( (Sisimai::SMTP::Status->name($statuscode) || '') eq 'hostunknown' ) {
        # Status: 5.1.2
        # Diagnostic-Code: SMTP; 550 Host unknown
        require Sisimai::Reason::NetworkError;
        return 1 unless Sisimai::Reason::NetworkError->match($diagnostic);
    } else {
        # Check the value of Diagnosic-Code: header with patterns
        return 1 if __PACKAGE__->match($diagnostic);
    }
    return 0;
}

1;
__END__