Email validation does not check TLD

[processIT-MarK]

Hi

Thanks for sharing fm_mailchip. I have noticed that you are using CF to check the email (mcpriv - validate email - https://www.briandunning.com/cf/972), which (funny fact) I asked in 2018 to update regarding TLD (characters after the last dot - needs to has at least 2 characters).

Can you take into consideration updating the function (I already posted the solution in CF 972), or maybe use another function that covers this functionality? (https://www.briandunning.com/cf/2487)

Regards

[processIT-MarK]

Here is a udpated function, it seems that my update does not go throught at https://www.briandunning.com/cf/972

Let ( [
	_alphanum = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" ;
	_email = Trim (_email ) ;
	_posAt = Position ( _email; "@" ; 1 ; 1 );
    dotPosition = Position(_email; "."; _posAt; 1);
    tldLength = Length(_email) - dotPosition;
	result = 	Filter ( _email ; _alphanum & "_-@.!#$%&'*+-/=?^_`{|}~" ) = _email   // There are no invalid characters.
	and PatternCount ( _email ; "@" ) = 1   // There is only one @ symbol.
	and Length ( Filter ( Left ( _email ; 1 )
				& Middle ( _email ; _posAt - 1 ; 3 )
				& Right ( _email ; 1 ) ; _alphaNum ) ) = 4  // First and last character are alphanumeric.
	and not PatternCount ( _email ; ".." )
	and Position ( _email ; "." ; _posAt + 2 ; 1 ) and
	//Check TLD lengt, minumum 2 characters
	_posAt > 1 and
	dotPosition > _posAt + 1 and
	tldLength ≥ 2

] ;
result
)