File Coverage

lib/Sisimai/Reason/Blocked.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	2	4	50.0
total	51	53	96.2

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

sub text { 'blocked' }
sub description { 'Email rejected due to client IP address or a hostname' }
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 0;

    state $index = [
        "bad sender ip address",
        "banned sending ip", # Office365
        "blacklisted by",
        "dnsbl:attrbl",
        "client host rejected: abus detecte gu_eib_02", # SFR
        "client host rejected: abus detecte gu_eib_04", # SFR
        "client host rejected: may not be mail exchanger",
        "connection refused by",
        "currently sending spam see: ",
        "domain does not exist:",
        "domain isn't in my list of allowed rcpthosts",
        "error: no valid recipients from ",
        "esmtp not accepting connections", # icloud.com
        "extreme bad ip profile",
        "helo command rejected:",
        "host network not allowed",
        "invalid ip for sending mail of domain",
        "is in a black list",
        "is not allowed to send mail from",
        "no access from mail server",
        "part of their network is on our block list",
        "please use the smtp server of your isp",
        "rejected because the sending mta or the sender has not passed validation",
        "rejecting open proxy", # Sendmail(srvrsmtp.c)
        "sender ip address rejected",
        "server access forbidden by your ip ",
        "smtp error from remote mail server after initial connection:", # Exim
        "you are not allowed to connect",
        "your ip address is listed in the rbl",
        "your network is temporary blacklisted",
        "your remotehost looks suspiciously like spammer",
        "your server requires confirmation",
    ];
    state $pairs = [
        ["(", "@", ":blocked)"],
        ["access from ip address ", " blocked"],
        ["blocked by ", " dnsbl"],
        ["client ", " blocked using"],
        ["connection ", "dropped"],
        ["client host ", " blocked using"],
        ["connections will not be accepted from ", " because the ip is in spamhaus's list"],
        ["dynamic", " ip"],
        ["email blocked by ", ".barracudacentral.org"],
        ["email blocked by ", "spamhaus"],
        ["from ", " ip address"],
        ["host ", " said: ", "550 blocked"],
        ["host ", " refused to talk to me: ", " blocked"],
        ["ip ", " is blocked by earthlink"], # Earthlink
        ["is in an ", "rbl on "],
        ["mail server at ", " is blocked"],
        ["mail from "," refused"],
        ["message from ", " rejected based on blacklist"],
        ["messages from ", " temporarily deferred due to user complaints"], # Yahoo!
        ["server ip ", " listed as abusive"],
        ["sorry! your ip address", " is blocked by rbl"], # junkemailfilter.com
        ["the ", " is blacklisted"], # the email, the domain, the ip
        ["veuillez essayer plus tard. service refused, please try later. ", "103"],
        ["veuillez essayer plus tard. service refused, please try later. ", "510"],
        ["your access ip", " has been rejected"],
        ["your sender's ip address is listed at ", ".abuseat.org"],
    ];
    return 1 if grep { rindex($argv1, $_) > -1 } @$index;
    return 1 if grep { Sisimai::String->aligned(\$argv1, $_) } @$pairs;
    return 0;
}

sub true {
    # Rejected due to client IP address or hostname
    # @param    [Sisimai::Fact] argvs   Object to be detected the reason
    # @return   [Integer]               1: is blocked
    #           [Integer]               0: is not blocked by the client
    # @see      http://www.ietf.org/rfc/rfc2822.txt
    # @since v4.0.0
    my $class = shift;
    my $argvs = shift // return 0;

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

1;
__END__