File Coverage

lib/Sisimai/Reason/RateLimited.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	7	8	87.5
condition	6	6	100.0
subroutine	7	7	100.0
pod	2	4	50.0
total	46	49	93.8

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

sub text  { 'ratelimited' }
sub description { "Rejected due to exceeding a rate limit: sending too fast or too many concurrency connections" }
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.26
    my $class = shift;
    my $argv1 = shift // return 0;

    state $index = [
        "has exceeded the max emails per hour ",
        "please try again slower",
        "receiving mail at a rate that prevents additional messages from being delivered",
        "temporarily deferred due to unexpected volume or user complaints",
        "throttling failure: ",
        "too many errors from your ip",         # Free.fr
        "too many recipients",                  # ntt docomo
        "too many smtp sessions for this host", # Sendmail(daemon.c)
        "trop de connexions, ",
        "we have already made numerous attempts to deliver this message",
    ];
    state $pairs = [
        ["exceeded ", "allowable number of posts without solving a captcha"],
        ["connection ", "limit"],
        ["temporarily", "rate limited"],
        ["too many con", "s"],
    ];
    return 1 if grep { rindex($argv1, $_) > -1 } @$index;
    return 1 if grep { Sisimai::String->aligned(\$argv1, $_) } @$pairs;
    return 0;
}

sub true {
    # Blocked due to that connection rate limit exceeded
    # @param    [Sisimai::Fact] argvs   Object to be detected the reason
    # @return   [Integer]               1: Rate limited
    #                                   0: Not rate limited
    # @since v4.1.26
    # @see http://www.ietf.org/rfc/rfc2822.txt
    my $class = shift;
    my $argvs = shift // return 0;

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

1;
__END__