Packages
erldns
9.1.0
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
Current section
Files
Jump to
Current section
Files
src/erldns_config.erl
-module(erldns_config).
-moduledoc "Provide application-wide configuration access.".
-export([
use_root_hints/0,
ingress_udp_request_timeout/0,
ingress_tcp_request_timeout/0
]).
-define(DEFAULT_UDP_PROCESS_TIMEOUT, 500).
-define(DEFAULT_TCP_PROCESS_TIMEOUT, 1000).
-doc "Use IANA DNS root servers as hints".
-spec use_root_hints() -> boolean().
use_root_hints() ->
case application:get_env(erldns, use_root_hints) of
{ok, Flag} when is_boolean(Flag) ->
Flag;
_ ->
true
end.
-doc "Timeout in milliseconds before which an UDP request must be completed.".
-spec ingress_udp_request_timeout() -> non_neg_integer().
ingress_udp_request_timeout() ->
case application:get_env(erldns, ingress_udp_request_timeout) of
{ok, UdpTimeout} when is_integer(UdpTimeout), 0 =< UdpTimeout ->
UdpTimeout;
_ ->
?DEFAULT_UDP_PROCESS_TIMEOUT
end.
-doc "Timeout in milliseconds before which a TCP request must be completed.".
-spec ingress_tcp_request_timeout() -> non_neg_integer().
ingress_tcp_request_timeout() ->
case application:get_env(erldns, ingress_tcp_request_timeout) of
{ok, TcpTimeout} when is_integer(TcpTimeout), 0 =< TcpTimeout ->
TcpTimeout;
_ ->
?DEFAULT_TCP_PROCESS_TIMEOUT
end.