Packages

erldns

10.5.6
11.1.0 11.0.3 11.0.2 11.0.1 11.0.0 10.6.0 10.5.6 10.5.5 10.5.4 10.5.3 10.5.2 10.5.1 10.5.0 10.4.4 10.4.3 10.4.2 10.4.1 10.4.0 10.3.0 10.2.1 10.2.0 10.1.0 10.0.0 10.0.0-rc4 10.0.0-rc3 10.0.0-rc2 10.0.0-rc1 9.1.0 9.0.0 9.0.0-rc3 9.0.0-rc2 9.0.0-rc1 8.1.0 8.0.0 8.0.0-rc6 8.0.0-rc5 8.0.0-rc4 8.0.0-rc3 8.0.0-rc2 8.0.0-rc1 7.0.0 7.0.0-rc9 7.0.0-rc8 7.0.0-rc7 7.0.0-rc6 7.0.0-rc5 7.0.0-rc4 7.0.0-rc3 7.0.0-rc2 7.0.0-rc12 7.0.0-rc11 7.0.0-rc10 7.0.0-rc1 6.0.2 6.0.1 6.0.0 5.0.0 4.3.1 4.3.0 4.2.4 4.2.3 4.2.2 4.2.1 4.2.0 4.1.2 4.1.1 4.1.0 4.0.0 3.0.0 1.0.0

Erlang Authoritative DNS Server

HexDocs

Current section

Files

Jump to
Readme
70 Versions
7 Dependencies
Dependants
Files
Activity
erldns src erldns_edns.erl
Raw

src/erldns_edns.erl 

-module(erldns_edns).

-moduledoc false.



-include_lib("dns_erlang/include/dns_records.hrl").



-export([get_opts/1, get_ede_errors/1]).



%% Get a property list of EDNS0 options.

%%

%% Supported options are:

%%

%% * {dnssec, true}

-spec get_opts(dns:message()) -> [proplists:property()].

get_opts(Message) ->

    get_opts(Message#dns_message.additional, []).



-spec get_opts([dns:rr() | dns:optrr()], [proplists:property()]) -> [proplists:property()].

get_opts([#dns_optrr{dnssec = true} | Rest], Opts) ->

    get_opts(Rest, [{dnssec, true} | Opts]);

get_opts([_RR | Rest], Opts) ->

    get_opts(Rest, Opts);

get_opts([], Opts) ->

    lists:reverse(Opts).



%% Extract Extended DNS Errors from a message.

%%

%% Returns a list of {InfoCode, ExtraText} tuples for all EDE options

%% found in the message's OPT RR.

-spec get_ede_errors(dns:message()) -> [{non_neg_integer(), binary()}].

get_ede_errors(Message) ->

    get_ede_errors(Message#dns_message.additional, []).



-spec get_ede_errors([dns:rr() | dns:optrr()], [{non_neg_integer(), binary()}]) ->

    [{non_neg_integer(), binary()}].

get_ede_errors([#dns_optrr{data = Data} | Rest], Acc) ->

    EDEList = [

        {InfoCode, ExtraText}

     || #dns_opt_ede{info_code = InfoCode, extra_text = ExtraText} <- Data

    ],

    get_ede_errors(Rest, EDEList ++ Acc);

get_ede_errors([_RR | Rest], Acc) ->

    get_ede_errors(Rest, Acc);

get_ede_errors([], Acc) ->

    lists:reverse(Acc).