How to Validate the Domain for a given email id. Is a valid or invalid

Question

Hello Frndz,
I am trying to validate the domain of a given email as a valid or invalid using the below SQL Block. But the values are hard coded into it.
Please suggest me some way to validate the email id Domain dynamically, so that it can be identify that the domain exsists or not.
Please help me. Thanks in advance.
DECLARE
l_domain_pos VARCHAR2(50);
l_at_pos VARCHAR2(50);
BEGIN
FOR DOMAIN_CHCK IN (SELECT * FROM s_cnct_test WHERE PROCESSED ='N')
LOOP
BEGIN
l_at_pos :=substr(DOMAIN_CHCK.email_addr,instr(DOMAIN_CHCK.email_addr,'@'));
l_domain_pos := SUBSTR(l_at_pos,INSTR(substr(DOMAIN_CHCK.EMAIL_ADDR,instr(DOMAIN_CHCK.EMAIL_ADDR,'@')),'.'));
IF ((l_domain_pos ='.com') OR(l_domain_pos ='.net')OR (l_domain_pos ='.nic.in') OR(l_domain_pos ='.co.in')) THEN
UPDATE S_CNCT_TEST SET
DOMAIN_STATUS ='Y',
PROCESSED = 'Y',
NEW_COMMENT = 'VALID DOMAIN'
WHERE ROW_ID = DOMAIN_CHCK.ROW_ID;
ELSE
UPDATE S_CNCT_TEST SET
DOMAIN_STATUS ='X',
PROCESSED = 'N',
NEW_COMMENT = 'NOT A VALID DOMAIN'
WHERE ROW_ID = DOMAIN_CHCK.ROW_ID;
END IF;
COMMIT;
END;
END LOOP;
END;

Answer 1

Hi,
Try something like this
SQL> create table s_cnct_test(id not null primary key
                        ,email_addr, domain_status,processed, new_comment)
as
    select 1, '[email protected]', 'Z1', 'N', 'D1**************************' from dual union all
    select 2, '[email protected]', 'Z2', 'N', 'D2***************************' from dual union all
    select 3, '[email protected]', 'Z3', 'N', 'D3*************************' from dual
Table created.
SQL> create table valid_domain(domain varchar2(64) not null
                         ,constraint valid_domain_pk primary key (domain))
Table created.
SQL> insert into valid_domain(domain)
    values ('.com')
1 row created.
SQL> insert into valid_domain(domain)
    values ('.net')
1 row created.
SQL> insert into valid_domain(domain)
    values ('.nic.in')
1 row created.
SQL> insert into valid_domain(domain)
    values ('.co.in')
1 row created.
SQL> commit
Commit complete.
SQL> create function domain(pi_email_addr in s_cnct_test.email_addr%type)
   return varchar2
   deterministic
as
begin
   return substr(substr(pi_email_addr, instr(pi_email_addr, '@'))
                ,instr(substr(pi_email_addr, instr(pi_email_addr, '@')), '.'));
end domain;
Function created.
SQL> update s_cnct_test s
   set domain_status =
          nvl((select 'Y'
                 from valid_domain
                where domain = domain(s.email_addr)), 'X')
      , processed = nvl((select 'Y'
                 from valid_domain
                where domain = domain(s.email_addr)), 'N')
      , new_comment =  nvl((select 'VALID DOMAIN'
                 from valid_domain
                where domain = domain(s.email_addr)), 'NOT A VALID DOMAIN')
where processed = 'N'
3 rows updated.
SQL> commit
Commit complete.
SQL> select *from s_cnct_test
        ID EMAIL_ADDR     DO P NEW_COMMENT                 
         1 [email protected]  X  N NOT A VALID DOMAIN          
         2 [email protected]   Y  Y VALID DOMAIN                
         3 [email protected] Y  Y VALID DOMAIN                
3 rows selected.Regards
Peter