The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

AKXLIX / Sisimai-v5.2.0 / lib / Sisimai / Reason / Suspend.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
106
107
108
109
110
111
112

              
package Sisimai::Reason::Suspend;
use v5.26;
use strict;
use warnings;
sub text  { 'suspend' }
sub description { 'Email rejected due to a recipient account is being suspended' }
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 undef;
    state $index = [
        ' is currently suspended',
        ' temporary locked',
        'archived recipient',
        'boite du destinataire archivee',
        'email account that you tried to reach is disabled',
        'has been suspended',
        'inactive account',
        'invalid/inactive user',
        'is a deactivated mailbox', # http://service.mail.qq.com/cgi-bin/help?subtype=1&&id=20022&&no=1000742
        'is unavailable: user is terminated',
        'mailbox currently suspended',
        'mailbox disabled',
        'mailbox is frozen',
        'mailbox unavailable or access denied',
        'recipient rejected: temporarily inactive',
        'recipient suspend the service',
        'this account has been disabled or discontinued',
        'this account has been temporarily suspended',
        'this address no longer accepts mail',
        'this mailbox is disabled',
        'user or domain is disabled',
        'user suspended',   # http://mail.163.com/help/help_spam_16.htm
        'vdelivermail: account is locked email bounced',
    ];
    return 1 if grep { rindex($argv1, $_) > -1 } @$index;
    return 0;
}
sub true {
    # The envelope recipient's mailbox is suspended or not
    # @param    [Sisimai::Fact] argvs   Object to be detected the reason
    # @return   [Integer]               1: is mailbox suspended
    #                                   0: is not suspended
    # @since v4.0.0
    # @see http://www.ietf.org/rfc/rfc2822.txt
    my $class = shift;
    my $argvs = shift // return undef;
    return 1 if $argvs->{'reason'} eq 'suspend';
    return 1 if length $argvs->{'replycode'} && $argvs->{'replycode'} == 525;
    return __PACKAGE__->match(lc $argvs->{'diagnosticcode'});
}
1;
__END__
=encoding utf-8
=head1 NAME
Sisimai::Reason::Suspend - Bounce reason is C<suspend> or not.
=head1 SYNOPSIS
    use Sisimai::Reason::Suspend;
    print Sisimai::Reason::Suspend->match('recipient suspend the service'); # 1
=head1 DESCRIPTION
C<Sisimai::Reason::Suspend> checks the bounce reason is C<suspend> or not. This class is called only
C<Sisimai::Reason> class. This is the error that the recipient account is being suspended due to
unpaid, or being inactive, or other reasons.
=head1 CLASS METHODS
=head2 C<B<text()>>
C<text()> method returns the fixed string C<suspend>.
    print Sisimai::Reason::Suspend->text;  # suspend
=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::Suspend->match('recipient suspend the service'); # 1
=head2 C<B<true(I<Sisimai::Fact>)>>
C<true()> method returns C<1> if the bounce reason is C<suspend>. 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) 2014-2021,2023-2025 azumakuniyuki, All rights reserved.
=head1 LICENSE
This software is distributed under The BSD 2-Clause License.
=cut