1 2 3 4 5 6 7 8 9 10 11 12 |
define $GetDomainName(#domain) { set(#domainOut,$find regular expression(#domain,"\\w+\\.\\w+$"),"Local") if($text length($replace regular expression(#domainOut,"\\..*","")) <= 2) { then { set(#domainOut,$find regular expression(#domain,"\\w+\\.\\w+\\.\\w+$"),"Local") } } return(#domainOut) } alert($GetDomainName("test.mydomain.com")) alert($GetDomainName("amazon.co.uk")) alert($GetDomainName("shopping.amazon.co.uk")) |