File Coverage

lib/Sisimai/Reason/MailboxFull.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	10	10	100.0
condition	6	6	100.0
subroutine	7	7	100.0
pod	2	4	50.0
total	50	52	96.1

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

sub text  { 'mailboxfull' }
sub description { "Email rejected due to a recipient's mailbox is full" }
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 = [
        "452 insufficient disk space",
        "account disabled temporarly for exceeding receiving limits",
        "boite du destinataire pleine",
        "exceeded storage allocation",
        "full mailbox",
        "mailbox size limit exceeded",
        "mailbox would exceed maximum allowed storage",
        "mailfolder is full",
        "no space left on device",
        "not sufficient disk space",
        "quota violation for",
        "too much mail data", # @docomo.ne.jp
        "user has exceeded quota, bouncing mail",
        "user has too many messages on the server",
        "user's space has been used up",
    ];
    state $pairs = [
        ["account is ", " quota"],
        ["disk", "quota"],
        ["enough ", " space"],
        ["mailbox ", "exceeded", " limit"],
        ["mailbox ", "full"],
        ["mailbox ", "quota"],
        ["maildir ", "quota"],
        ["over ", "quota"],
        ["quota ", "exceeded"],
    ];
    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 full or not
    # @param    [Sisimai::Fact] argvs   Object to be detected the reason
    # @return   [Integer]               1: is mailbox full
    #                                   0: is not mailbox full
    # @since v4.0.0
    # @see http://www.ietf.org/rfc/rfc2822.txt
    my $class = shift;
    my $argvs = shift // return 0; return 0 unless $argvs->{'deliverystatus'};

    # Delivery status code points "mailboxfull".
    # Status: 4.2.2
    # Diagnostic-Code: SMTP; 450 4.2.2 <***@example.jp>... Mailbox Full
    return 1 if $argvs->{'reason'} eq 'mailboxfull';
    return 1 if (Sisimai::SMTP::Status->name($argvs->{'deliverystatus'}) || '') eq 'mailboxfull';
    return __PACKAGE__->match(lc $argvs->{'diagnosticcode'});
}

1;
__END__