Erlang Central

Lookup MX Records In DNS

From ErlangCentral Wiki

Using The DNS Lookup Interface

Although it looks like there is a mechanism for querying the system nameservers, I couldn't figure out how it works properly so I have to start by adding a nameserver to query from:

ok = inet_db:add_ns({192,168,0,10}).

This adds the given IP to the internal database of nameservers. (Note the Erlang convention of IP addresses given as quadruples).

The next stage is to construct an appropriate query. Handily enough Erlang provides a very simple interface. The header file is "kernel/src/inet_dns.hrl" and this provides all of the macros and details required to do the lookup.

Use include_lib to add this:


The query is extremely simple to achieve, just pass the domain and record type to inet_res:nslookup/3.

This returns { ok, Result } on success or {error, Reason} on failure.

Result is actually a record, named #dns_rec in inet_dns.hrl. This record has five fields, but for the purposes of this HowTo we are only interested in one, the arlist field. This field is a list of resource entries. To do the MX lookup I simply match on the record and list:

mxlookup(Domain) ->
  case inet_res:nslookup(Domain,1,?S_MX) of
    { error, Reply } -> Reply;
    { ok, #dns_rec{ arlist = Ans } } -> findmx( Ans )

Each entry in this list is a record of #dns_rr (DNS Resource Record).

findmx/1 is a function which searches through the list of resources and filters out the MX servers. We're basically interested in the host addresses (for sending email to) so findmx/1 is very simple (and naive), for this HowTo I'll simply return the first host found:

findmx( [#dns_rr{ type=?S_A, data = Addr } | T] ) -> Addr;
findmx( [H | T ]) -> findmx(T);
findmx( _Other ) -> none.


Extensions like handling timeouts, sorting and verifying results and so forth should be straightforward, the comments in inet_dns.hrl outline what each member of each record means.



-export([lookup/1, init/1]).


init([NS | T]) ->
  ok = inet_db:add_ns(NS),
init([]) -> ok;
init(Nameserver) ->
  ok = inet_db:add_ns(Nameserver).

findmx( [#dns_rr{ type=?S_A, data = Addr } | _] ) -> Addr;
findmx( [_ | T ]) -> findmx(T);
findmx( _Other ) -> none.

lookup(Domain) ->
  case inet_res:nslookup(Domain,1,mx) of
    { error, Reply } -> Reply;
    { ok, #dns_rec{ arlist = Ans } } -> findmx( Ans )



test() ->
  mxlookup:init( [{192,168,0,10}] ),
  Addr1 = mxlookup:lookup( "" ),
  Addr2 = mxlookup:lookup( "" ),
  io:format("Atomic Tiger: ~p~nTrapexit: ~p~n",[Addr1,Addr2]).