File Coverage

lib/Sisimai/Reason/Suspend.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	8	8	100.0
condition	7	7	100.0
subroutine	7	7	100.0
pod	2	4	50.0
total	48	50	96.0

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 0;

    state $index = [
        " currently suspended",
        " temporary locked",
        "address no longer accepts mail",
        "archived recipient",
        "boite du destinataire archivee",
        "email account that you tried to reach is inactive",
        "inactive account",
        "inactivity new mail is not currently being accepted for this mailbox",
        "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 is frozen",
        "mailbox is inactive",
        "mailbox unavailable or access denied",
        "recipient rejected: temporarily inactive",
        "recipient suspend the service",
        "user or domain is disabled",
        "user suspended", # http://mail.163.com/help/help_spam_16.htm
        "vdelivermail: account is locked email bounced",
    ];
    state $pairs = [
        ["account ", "disabled"],
        ["has been ", "suspended"],
        ["mailbox ", "disabled"],
        ["not ", "active"],
    ];
    return 1 if grep { rindex($argv1, $_) > -1 } @$index;
    return 1 if grep { Sisimai::String->aligned(\$argv1, $_) } @$pairs;
    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 0;

    return 1 if $argvs->{'reason'} eq 'suspend';
    return 1 if length $argvs->{'replycode'} && $argvs->{'replycode'} == 525;
    return __PACKAGE__->match(lc $argvs->{'diagnosticcode'});
}

1;
__END__