File Coverage

lib/Sisimai/Reason/ContentError.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	7	8	87.5
condition	6	6	100.0
subroutine	7	7	100.0
pod	2	4	50.0
total	45	48	93.7

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

sub text { 'contenterror' }
sub description { 'Email rejected due to a header format of the email' }
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 = [
        "charset not supported",
        "executable files are not allowed in compressed files",
        "header error",
        "header size exceeds maximum permitted",
        "illegal attachment on your message",
        "improper use of 8-bit data in message header",
        "it has a potentially executable attachment",
        "message contain invalid mime headers",
        "message contain improperly-formatted binary content",
        "message contain text that uses unnecessary base64 encoding",
        "message header size, or recipient list, exceeds policy limit",
        "message mime complexity exceeds the policy maximum",
        "message was blocked because its content presents a potential", # https://support.google.com/mail/answer/6590
        "routing loop detected -- too many received: headers",
        'too many "received" headers', # Exim/deliver.c:5425
        "we do not accept messages containing images or other attachments",
    ];
    return 1 if grep { rindex($argv1, $_) > -1 } @$index;
    return 0;
}

sub true {
    # Rejected email due to header format of the email
    # @param    [Sisimai::Fact] argvs   Object to be detected the reason
    # @return   [Integer]               1: rejected due to content error
    #                                   0: is not content error
    # @see      http://www.ietf.org/rfc/rfc2822.txt
    my $class = shift;
    my $argvs = shift // return 0;

    require Sisimai::Reason::SpamDetected;
    return 1 if $argvs->{'reason'} eq 'contenterror';
    return 0 if Sisimai::Reason::SpamDetected->true($argvs);
    return 1 if (Sisimai::SMTP::Status->name($argvs->{'deliverystatus'}) || '') eq 'contenterror';
    return __PACKAGE__->match(lc $argvs->{'diagnosticcode'});
}

1;
__END__