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",
        "could not retrieve credentials", # OpenSMTPD/smtpd/mta.c
        "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__