JBL + 2011-05-17 1 %RegisteredObject 0 Check een email adres adhv pattern-match, en afzonderlijke controles. Tevens kan een nslookup van het domein gedaan worden, aan te geven via parameter. Write ##class(TECH.Mail).Check("jbl@vanhoecke.be") Write ##class(TECH.Mail).Check("jbl@nietbestaand.be",1) Return 1 = OK 0 = Foutieve syntax -1 = NSLookup niet geslaagd. 1 Mail:%String,NsLookUp:%Boolean=0,CacheNsLookUp:%Boolean=0 1 %Status Eerste en laatste teken van local part mogen geen punt zijn. Er mogen geen twee of meer opeenvolgende punten achter elkaar staan. 1 MailPart 1 1 MailDomainPart:%String %Status 1 MailDomainPart:%String 1 %Status 1 MailDomainPart:%String 1 %Status 1 NsLookUp:%String,MailDomainPart:%String,HandleMethod:%String 1 %Status c:\"_FileName s Ok=$ZF(-1,Exec) Set %NsLookUp=0 Set FileName=$$READ^vhDEV("c:\",FileName,"D`##class("_..%ClassName(1)_")."_HandleMethod_"","M") Set Status = %NsLookUp Set:'Status Status = $$$ERROR($$$GeneralError,"Niet bestaand domein.") Do DELFILE^vhDEV("c:\",FileName) Kill %NsLookUp Set %NsLookUps(MailDomainPart) = Status Quit Status ]]> 1 Rec 1 Rec