File Coverage

lib/Sisimai/Reason/RequirePTR.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	8	8	100.0
condition	6	6	100.0
subroutine	8	8	100.0
pod	1	4	25.0
total	50	53	94.3

package Sisimai::Reason::RequirePTR;
use v5.26;
use strict;
use warnings;
use Sisimai::String;

sub text { 'requireptr' }
sub description { 'Email rejected due to missing PTR record or having invalid PTR record' }
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 v5.0.0
    my $class = shift;
    my $argv1 = shift // return 0;

    state $index = [
        "cannot find your hostname",
        "cannot resolve your address.",
        "corresponding forward dns entry does not point to the sending ip", # Google
        "ip name lookup failed",
        "no matches to nameserver query",
        "sender ip reverse lookup rejected",
        "unresolvable relay host name",
    ];
    state $pairs = [
        ["domain "," mismatches client ip"],
        ["domain name verification on your ip address ", "failed"],
        ["dns lookup failure: ", " try again later"],
        ["ptr", "record"],
        ["reverse", " dns"],
        ["server access ", " forbidden by invalid rdns record of your mail server"],
        ["service permits ", " unverifyable sending ips"],
    ];

    return 1 if grep { rindex($argv1, $_) > -1 } @$index;
    return 1 if grep { Sisimai::String->aligned(\$argv1, $_) } @$pairs;
    return 0;
}

sub true {
    # Rejected due to missing PTR record or having invalid PTR record
    # @param    [Sisimai::Fact] argvs   Object to be detected the reason
    # @return   [Integer]               1: is missing PTR or invalid PTR
    #           [Integer]               0: is not blocked due to missing PTR record
    # @see      http://www.ietf.org/rfc/rfc2822.txt
    # @since v5.0.0
    my $class = shift;
    my $argvs = shift // return 0;

    return 1 if $argvs->{'reason'} eq 'requireptr';
    return 1 if (Sisimai::SMTP::Status->name($argvs->{'deliverystatus'}) || '') eq 'requireptr';
    return __PACKAGE__->match(lc $argvs->{'diagnosticcode'});
}

1;
__END__