File Coverage

lib/Sisimai/Rhost/GSuite.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	10	14	71.4
condition	9	20	45.0
subroutine	4	4	100.0
pod	0	1	0.0
total	49	65	75.3

package Sisimai::Rhost::GSuite;
use v5.26;
use strict;
use warnings;

sub find {
    # Detect bounce reason from Google Workspace (formerly G Suite) https://workspace.google.com/
    # @param    [Sisimai::Fact] argvs   Decoded email object
    # @return   [String]                The bounce reason for GSuite
    # @since v5.2.0
    my $class = shift;
    my $argvs = shift // return ""; return '' unless length $argvs->{'diagnosticcode'};

    state $messagesof = {
        "hostunknown"  => [" responded with code NXDOMAIN", "Domain name not found"],
        "networkerror" => [" had no relevant answers.", "responded with code NXDOMAIN", "Domain name not found"],
        "notaccept"    => ["Null MX"],
        "userunknown"  => ["because the address couldn't be found. Check for typos or unnecessary spaces and try again."],
    };
    my $statuscode = ""; $statuscode = substr($argvs->{'deliverystatus'}, 0, 1) if $argvs->{'deliverystatus'};
    my $esmtpreply = ""; $esmtpreply = substr($argvs->{'replycode'},      0, 1) if $argvs->{'replycode'};
    my $reasontext = "";

    for my $e ( keys %$messagesof ) {
        # The key is a bounce reason name
        next unless grep { index($argvs->{'diagnosticcode'}, $_) > -1 } $messagesof->{ $e }->@*;
        next if $e eq "networkerror" && ($statuscode eq "5" || $esmtpreply eq "5");
        next if $e eq "hostunknown"  && ($statuscode eq "4" || $statuscode eq "");
        next if $e eq "hostunknown"  && ($esmtpreply eq "4" || $esmtpreply eq "");
        $reasontext = $e; last;
    }
    return $reasontext;
}

1;
__END__