File Coverage

lib/Haineko/SMTPD/RFC5321.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	10	12	83.3
condition	3	4	75.0
subroutine	5	5	100.0
pod	2	2	100.0
total	47	50	94.0

package Haineko::SMTPD::RFC5321;
use strict;
use warnings;
use Haineko::SMTPD::RFC5322;

sub is8bit {
    my $class = shift;
    my $argvs = shift || return 0;  # (String) Any text

    return 1 unless $$argvs =~ m/\A[\x00-\x7f]+\z/;
    return 0;
}

sub check_ehlo {
    my $class = shift;
    my $argvs = shift || return 0;  # (String) The value of EHLO/HELO
    my $valid = Haineko::SMTPD::RFC5322->is_domainpart( $argvs );
    my $octet = [];

    return 1 if $valid;
    $argvs =~ y/[] //d;
    $octet = [ split( /[.]/, $argvs ) ];

    for my $e ( @$octet ) {
        # Check each octet
        last unless $e =~ m/\A\d+\z/;
        last if $e < 0;
        last if $e > 255;
        $valid++;
    }

    return 1 if $valid == 4;
    return 0;
}

1;
__END__