The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

AKXLIX / Sisimai-v5.3.0 / lib / Sisimai / Reason / BadReputation.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
—
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105

              
package Sisimai::Reason::BadReputation;
use v5.26;
use strict;
use warnings;
sub text  { 'badreputation' }
sub description { 'Email rejected due to an IP address reputation' }
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 v5.0.0
    my $class = shift;
    my $argv1 = shift // return undef;
    state $index = [
        'a poor email reputation score',
        'has been temporarily rate limited due to ip reputation',
        'ip/domain reputation problems',
        'likely suspicious due to the very low reputation',
        'none/bad reputation', # t-online.de
        'temporarily deferred due to unexpected volume or user complaints', # Yahoo Inc.
        "the sending mta's poor reputation",
    ];
    return 1 if grep { rindex($argv1, $_) > -1 } @$index;
    return 0;
}
sub true {
    # The bounce reason is "badreputation" or not
    # @param    [Sisimai::Fact] argvs   Object to be detected the reason
    # @return   [Integer]               1: is badreputation
    #                                   0: is not badreputation
    # @see http://www.ietf.org/rfc/rfc2822.txt
    # @since v5.0.0
    my $class = shift;
    my $argvs = shift // return undef;
    return 1 if $argvs->{'reason'} eq 'badreputation';
    return __PACKAGE__->match(lc $argvs->{'diagnosticcode'});
}
1;
__END__
=encoding utf-8
=head1 NAME
Sisimai::Reason::BadReputation - Bounce reason is C<badreputation> or not.
=head1 SYNOPSIS
    use Sisimai::Reason::BadReputation;
    print Sisimai::Reason::BadReputation->match('rate limited due to IP reputation.');  # 1
=head1 DESCRIPTION
C<Sisimai::Reason::BadReputation> checks the bounce reason is C<badreputation> or not. This class
is called only C<Sisimai::Reason> class.
This is the error that an email rejected due to a reputation score of the sender IP address.
    Action: failed
    Status: 5.7.1
    Remote-MTA: dns; gmail-smtp-in.l.google.com
    Diagnostic-Code: smtp; 550-5.7.1 [192.0.2.22] Our system has detected that this message is
                           likely suspicious due to the very low reputation of the sending IP
                           address. To best protect our users from spam, the message has been
                           blocked. Please visit https://support.google.com/mail/answer/188131
                           for more information.
=head1 CLASS METHODS
=head2 C<B<text()>>
C<text()> method returns the fixed string C<badreputation>.
    print Sisimai::Reason::BadReputation->text;  # badreputation
=head2 C<B<match(I<string>)>>
C<match()> method returns C<1> if the argument matched with patterns defined in this class.
    print Sisimai::Reason::BadReputation->match('low reputation of the sending IP');    # 1
=head2 C<B<true(I<Sisimai::Fact>)>>
C<true()> method returns C<1> if the bounce reason is C<badreputation>. The argument must be C<Sisimai::Fact>
object and this method is called only from C<Sisimai::Reason> class.
=head1 AUTHOR
azumakuniyuki
=head1 COPYRIGHT
Copyright (C) 2022,2024 azumakuniyuki, All rights reserved.
=head1 LICENSE
This software is distributed under The BSD 2-Clause License.
=cut