init III
This commit is contained in:
149
Perl OTRS/Kernel/cpan-lib/Sisimai/Reason/MailboxFull.pm
Normal file
149
Perl OTRS/Kernel/cpan-lib/Sisimai/Reason/MailboxFull.pm
Normal file
@@ -0,0 +1,149 @@
|
||||
package Sisimai::Reason::MailboxFull;
|
||||
use feature ':5.10';
|
||||
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 undef;
|
||||
my $index = [
|
||||
'account disabled temporarly for exceeding receiving limits',
|
||||
'account is exceeding their quota',
|
||||
'account is over quota',
|
||||
'account is temporarily over quota',
|
||||
'boite du destinataire pleine',
|
||||
'delivery failed: over quota',
|
||||
'disc quota exceeded',
|
||||
'does not have enough space',
|
||||
'exceeded storage allocation',
|
||||
'exceeding its mailbox quota',
|
||||
'full mailbox',
|
||||
'is over disk quota',
|
||||
'is over quota temporarily',
|
||||
'mail file size exceeds the maximum size allowed for mail delivery',
|
||||
'mail quota exceeded',
|
||||
'mailbox exceeded the local limit',
|
||||
'mailbox full',
|
||||
'mailbox has exceeded its disk space limit',
|
||||
'mailbox is full',
|
||||
'mailbox over quota',
|
||||
'mailbox quota usage exceeded',
|
||||
'mailbox size limit exceeded',
|
||||
'maildir over quota',
|
||||
'maildir delivery failed: userdisk quota ',
|
||||
'maildir delivery failed: domaindisk quota ',
|
||||
'mailfolder is full',
|
||||
'not enough storage space in',
|
||||
'over the allowed quota',
|
||||
'quota exceeded',
|
||||
'quota violation for',
|
||||
'recipient reached disk quota',
|
||||
'recipient rejected: mailbox would exceed maximum allowed storage',
|
||||
'the recipient mailbox has exceeded its disk space limit',
|
||||
"the user's space has been used up",
|
||||
'the user you are trying to reach is over quota',
|
||||
'too much mail data', # @docomo.ne.jp
|
||||
'user has exceeded quota, bouncing mail',
|
||||
'user has too many messages on the server',
|
||||
'user is over quota',
|
||||
'user is over the quota',
|
||||
'user over quota',
|
||||
'user over quota. (#5.1.1)', # qmail-toaster
|
||||
'was automatically rejected: quota exceeded',
|
||||
'would be over the allowed quota',
|
||||
];
|
||||
|
||||
return 1 if grep { rindex($argv1, $_) > -1 } @$index;
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub true {
|
||||
# The envelope recipient's mailbox is full or not
|
||||
# @param [Sisimai::Data] 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 undef;
|
||||
|
||||
return undef unless $argvs->deliverystatus;
|
||||
return 1 if $argvs->reason eq 'mailboxfull';
|
||||
|
||||
# Delivery status code points "mailboxfull".
|
||||
# Status: 4.2.2
|
||||
# Diagnostic-Code: SMTP; 450 4.2.2 <***@example.jp>... Mailbox Full
|
||||
return 1 if Sisimai::SMTP::Status->name($argvs->deliverystatus) eq 'mailboxfull';
|
||||
|
||||
# Check the value of Diagnosic-Code: header with patterns
|
||||
return 1 if __PACKAGE__->match(lc $argvs->diagnosticcode);
|
||||
return 0;
|
||||
}
|
||||
|
||||
1;
|
||||
__END__
|
||||
|
||||
=encoding utf-8
|
||||
|
||||
=head1 NAME
|
||||
|
||||
Sisimai::Reason::MailboxFull - Bounce reason is C<mailboxfull> or not.
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
use Sisimai::Reason::MailboxFull;
|
||||
print Sisimai::Reason::MailboxFull->match('400 4.2.3 Mailbox full'); # 1
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
Sisimai::Reason::MailboxFull checks the bounce reason is C<mailboxfull> or not.
|
||||
This class is called only Sisimai::Reason class.
|
||||
|
||||
This is the error that a recipient's mailbox is full. Sisimai will set
|
||||
C<mailboxfull> to the reason of email bounce if the value of Status: field in a
|
||||
bounce email is C<4.2.2> or C<5.2.2>.
|
||||
|
||||
Action: failed
|
||||
Status: 5.2.2
|
||||
Diagnostic-Code: smtp;550 5.2.2 <kijitora@example.jp>... Mailbox Full
|
||||
|
||||
=head1 CLASS METHODS
|
||||
|
||||
=head2 C<B<text()>>
|
||||
|
||||
C<text()> returns string: C<mailboxfull>.
|
||||
|
||||
print Sisimai::Reason::MailboxFull->text; # mailboxfull
|
||||
|
||||
=head2 C<B<match(I<string>)>>
|
||||
|
||||
C<match()> returns 1 if the argument matched with patterns defined in this class.
|
||||
|
||||
print Sisimai::Reason::MailboxFull->match('400 4.2.3 Mailbox full'); # 1
|
||||
|
||||
=head2 C<B<true(I<Sisimai::Data>)>>
|
||||
|
||||
C<true()> returns 1 if the bounce reason is C<mailboxfull>. The argument must be
|
||||
Sisimai::Data object and this method is called only from Sisimai::Reason class.
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
azumakuniyuki
|
||||
|
||||
=head1 COPYRIGHT
|
||||
|
||||
Copyright (C) 2014-2018 azumakuniyuki, All rights reserved.
|
||||
|
||||
=head1 LICENSE
|
||||
|
||||
This software is distributed under The BSD 2-Clause License.
|
||||
|
||||
=cut
|
||||
|
||||
Reference in New Issue
Block a user