Re: Validating email addresses

I found why it was hanging and made some changes so it should work with all
addresses now. It still needs better error checking.  and I added an RPG
program to call the other RPG programs
http://www.netshare400.com/cgi-bin/DSPOPNSRC?file=QRPGLESRC&mbr=CHKEMADR

The dsply's need to be taken out.

John Ross

At 10:41 PM 4/25/02 -0500, you wrote:
>I stole Scott Klement's source code and come up with this: GETMSRCD will
>get the MX records for a domain. They are not returned in any order from
>what I saw. (this source was
>from  http://archive.midrange.com/midrange-l/200110/msg01567.html ). After
>you get the MX record you want pass it and the email address to CHKEADR
>(This code needs a lot of work, but it is late and I am tired) (This code
>was taken from
>http://klement.dstorm.net/rpg/socktut/index.html   and you will need the
>service program SOCKUTILR4 to compile this program).
>
>If someone knows why the rdline hangs, I would like to hear the reason. I
>had to know how many it took for each response, which was different for my
>email address and David's email address. The way it is now it will work for
>David's email address. Also the ip address in helo will need to be changed.
>
>GETMXRCD -
>http://www.netshare400.com/cgi-bin/DSPOPNSRC?file=QRPGLESRC&mbr=GETMXRCD
>CHKEADR  -
>http://www.netshare400.com/cgi-bin/DSPOPNSRC?file=QRPGLESRC&mbr=CHKEADR
>
>John Ross
>
>
>_______________________________________________
>This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
>To post a message email: MIDRANGE-L@midrange.com
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
>or email: MIDRANGE-L-request@midrange.com
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/midrange-l.