File Coverage

lib/Sisimai/Reason/UserUnknown.pm

Criterion	Covered	Total	%
statement	42	44	95.4
branch	17	20	85.0
condition	6	6	100.0
subroutine	8	8	100.0
pod	2	4	50.0
total	75	82	91.4

package Sisimai::Reason::UserUnknown;
use v5.26;
use strict;
use warnings;
use Sisimai::String;

sub text  { 'userunknown' }
sub description { "Email rejected due to a local part of a recipient's email address does not exist" }
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 = [
        "#5.1.1 bad address",
        "550 address invalid",
        "5.1.0 address rejected.",
        "address not present in directory",
        "address unknown",
        "badrcptto",
        "can't accept user",
        "destination addresses were unknown",
        "destination server rejected recipients",
        "domain or user isn't in my list of allowed rcpthosts",
        "email account that you tried to reach does not exist",
        "email address could not be found",
        "invalid address",
        "invalid mailbox",
        "is not a known user",
        "is not a valid mailbox",
        "mailbox does not exist",
        "mailbox invalid",
        "mailbox not present",
        "mailbox not found",
        "nessun utente simile in questo indirizzo",
        "no account by that name here",
        "no existe dicha persona",
        "no existe ese usuario ",
        "no such recipient",
        "no such user",
        "no thank you rejected: account unavailable",
        "no valid recipients, bye",
        "not a valid recipient",
        "not a valid user here",
        "not a local address",
        "not email addresses",
        "recipient address rejected. (in reply to rcpt to command)",
        "recipient address rejected: access denied",
        "recipient address rejected: userunknown",
        "recipient is in my badrecipientto list",
        "recipient is not accepted",
        "recipient is not in my validrcptto list",
        "recipient is not local",
        "recipient not ok",
        "recipient refuses to accept your mail",
        "recipient unknown",
        "recipients was undeliverable",
        "spectator does not exist",
        "there is no one at this address",
        "unknown mailbox",
        "unknown recipient",
        "unknown user",
        "user missing home directory",
        "user not known",
        "user unknown",
        "utilisateur inconnu !",
        "weil die adresse nicht gefunden wurde oder keine e-mails empfangen kann",
        "your envelope recipient has been denied",
    ];
    state $pairs = [
        ["<", "> not found"],
        ["<", ">... blocked by "],
        ["account ", " does not exist at the organization"],
        ["address", " no longer"],
        ["address", " not exist"],
        ["bad", "recipient"],
        ["invalid", "recipient"],
        ["invalid", "user"],
        ["mailbox ", "does not exist"],
        ["mailbox ", "unavailable"],
        ["no ", " in name directory"],
        ["no ", "mail", "box "],
        ["no ", "such", "address"],
        ["non", "existent user"],
        ["rcpt <", " does not exist"],
        ["rcpt (", "t exist "],
        ["recipient no", "found"],
        ["recipient ", " not exist"],
        ["recipient ", " was not found in"],
        ["this user doesn't have a ", " account"],
        ["unknown e", "mail address"],
        ["unknown local", "part"],
        ["user ", " not exist"],
        ["user ", "doesn't exist"],
        ["user ", "not found"],
        ["user (", ") unknown"],
        ["user <", "> unknown"],
    ];

    return 1 if grep { rindex($argv1, $_) > -1 } @$index;
    return 1 if grep { Sisimai::String->aligned(\$argv1, $_) } @$pairs;
    return 0;
}

sub true {
    # Whether the address is "userunknown" or not
    # @param    [Sisimai::Fact] argvs   Object to be detected the reason
    # @return   [Integer]               1: is unknown user
    #                                   0: is not unknown user.
    # @since v4.0.0
    # @see http://www.ietf.org/rfc/rfc2822.txt
    my $class = shift;
    my $argvs = shift // return 0;

    require Sisimai::SMTP::Command;
    return 1 if $argvs->{'reason'} eq 'userunknown';
    return 0 if grep { $argvs->{'command'} eq $_ } Sisimai::SMTP::Command->BeforeRCPT->@*;

    my $tempreason = Sisimai::SMTP::Status->name($argvs->{'deliverystatus'}) || '';
    return 0 if $tempreason eq 'suspend';

    my $issuedcode = lc $argvs->{'diagnosticcode'};
    if( $tempreason eq 'userunknown' ) {
        # *.1.1 = 'Bad destination mailbox address'
        #   Status: 5.1.1
        #   Diagnostic-Code: SMTP; 550 5.1.1 <***@example.jp>:
        #     Recipient address rejected: User unknown in local recipient table
        state $prematches = [qw|NoRelaying Blocked MailboxFull HasMoved Rejected NotAccept|];
        state $ModulePath = {
            'Sisimai::Reason::NoRelaying'  => 'Sisimai/Reason/NoRelaying.pm',
            'Sisimai::Reason::Blocked'     => 'Sisimai/Reason/Blocked.pm',
            'Sisimai::Reason::MailboxFull' => 'Sisimai/Reason/MailboxFull.pm',
            'Sisimai::Reason::HasMoved'    => 'Sisimai/Reason/HasMoved.pm',
            'Sisimai::Reason::Rejected'    => 'Sisimai/Reason/Rejected.pm',
            'Sisimai::Reason::NotAccept'   => 'Sisimai/Reason/NotAccept.pm',
        };
        my $matchother = 0;

        for my $e ( @$prematches ) {
            # Check the value of "Diagnostic-Code" with other error patterns.
            my $p = 'Sisimai::Reason::'.$e;
            require $ModulePath->{ $p };

            next unless $p->match($issuedcode);
            # Match with reason defined in Sisimai::Reason::* except UserUnknown.
            $matchother = 1;
            last;
        }
        return 1 unless $matchother;    # Did not match with other message patterns

    } elsif( $argvs->{'command'} eq 'RCPT' ) {
        # When the SMTP command is not "RCPT", the session rejected by other reason, maybe.
        return 1 if __PACKAGE__->match($issuedcode);
    }
    return 0;
}

1;
__END__