File Coverage

lib/Sisimai/Reason/PolicyViolation.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	5	6	83.3
condition	7	7	100.0
subroutine	7	7	100.0
pod	2	4	50.0
total	42	45	93.3

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

sub text  { 'policyviolation' }
sub description { 'Email rejected due to policy violation 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.22.0
    my $class = shift;
    my $argv1 = shift // return 0;

    state $index = [
        "because the recipient is not accepting mail with ",    # AOL Phoenix
        "closed mailing list",
        "delivery not authorized, message refused",
        "denied by policy",
        # http://kb.mimecast.com/Mimecast_Knowledge_Base/Administration_Console/Monitoring/Mimecast_SMTP_Error_Codes#554
        "email rejected due to security policies",
        "for policy reasons",
        "local policy violation",
        "message bounced due to organizational settings",
        "message given low priority",
        "message was rejected by organization policy",
        "protocol violation",
        "support.google.com/a/answer/172179",
        "you're using a mass mailer",
    ];
    return 1 if grep { rindex($argv1, $_) > -1 } @$index;
    return 0;
}

sub true {
    # The bounce reason is "policyviolation" or not
    # @param    [Sisimai::Fact] argvs   Object to be detected the reason
    # @return   [Integer]               1: is policy violation
    #                                   0: is not policyviolation
    # @since v4.22.0
    # @see http://www.ietf.org/rfc/rfc2822.txt
    my $class = shift;
    my $argvs = shift // return 0;

    return 1 if $argvs->{'reason'} eq 'policyviolation';
    return 0 if $argvs->{'command'} ne '' && $argvs->{'command'} ne 'DATA';
    return __PACKAGE__->match(lc $argvs->{'diagnosticcode'});
}

1;
__END__