File Coverage

lib/Sisimai/Reason/SecurityError.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	3	4	75.0
condition	2	2	100.0
subroutine	8	8	100.0
pod	2	4	50.0
total	38	41	92.6

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

sub text  { 'securityerror' }
sub description { 'Email rejected due to security violation was detected on a destination host' }
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 = [
        "account not subscribed to ses",
        "authentication credentials invalid",
        "authentication failure",
        "authentication required",
        "authentication turned on in your email client",
        "unauthenticated senders not allowed",
        "verification failure",
        "you are not authorized to send mail, authentication is required",
        "you don't authenticate or the domain isn't in my list of allowed rcpthosts",
    ];
    state $pairs = [
        ["authentication failed; server ", " said: "], # Postfix
        ["authentification invalide", "305"],
        ["authentification requise", "402"],
        ["user ", " is not authorized to perform ses:sendrawemail on resource"],
    ];

    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 security error or not
    # @param    [Sisimai::Fact] argvs   Object to be detected the reason
    # @return   [Integer]               1: is security error
    #                                   0: is not security error
    # @see http://www.ietf.org/rfc/rfc2822.txt
    return 0;
}

1;
__END__