1 -- Copyright 2008 Steven Barth <steven@midlink.org>
2 -- Licensed to the public under the Apache License 2.0.
4 local ipc = require "luci.ip"
8 m = Map("dhcp", translate("DHCP and DNS"),
9 translate("Dnsmasq is a combined <abbr title=\"Dynamic Host Configuration Protocol" ..
10 "\">DHCP</abbr>-Server and <abbr title=\"Domain Name System\">DNS</abbr>-" ..
11 "Forwarder for <abbr title=\"Network Address Translation\">NAT</abbr> " ..
14 s = m:section(TypedSection, "dnsmasq", translate("Server Settings"))
18 s:tab("general", translate("General Settings"))
19 s:tab("files", translate("Resolv and Hosts Files"))
20 s:tab("tftp", translate("TFTP Settings"))
21 s:tab("advanced", translate("Advanced Settings"))
23 s:taboption("general", Flag, "domainneeded",
24 translate("Domain required"),
25 translate("Don't forward <abbr title=\"Domain Name System\">DNS</abbr>-Requests without " ..
26 "<abbr title=\"Domain Name System\">DNS</abbr>-Name"))
28 s:taboption("general", Flag, "authoritative",
29 translate("Authoritative"),
30 translate("This is the only <abbr title=\"Dynamic Host Configuration Protocol\">DHCP</" ..
31 "abbr> in the local network"))
34 s:taboption("files", Flag, "readethers",
35 translate("Use <code>/etc/ethers</code>"),
36 translate("Read <code>/etc/ethers</code> to configure the <abbr title=\"Dynamic Host " ..
37 "Configuration Protocol\">DHCP</abbr>-Server"))
39 s:taboption("files", Value, "leasefile",
40 translate("Leasefile"),
41 translate("file where given <abbr title=\"Dynamic Host Configuration Protocol\">DHCP</" ..
42 "abbr>-leases will be stored"))
44 s:taboption("files", Flag, "noresolv",
45 translate("Ignore resolve file")).optional = true
47 rf = s:taboption("files", Value, "resolvfile",
48 translate("Resolve file"),
49 translate("local <abbr title=\"Domain Name System\">DNS</abbr> file"))
51 rf:depends("noresolv", "")
55 s:taboption("files", Flag, "nohosts",
56 translate("Ignore <code>/etc/hosts</code>")).optional = true
58 s:taboption("files", DynamicList, "addnhosts",
59 translate("Additional Hosts files")).optional = true
61 qu = s:taboption("advanced", Flag, "quietdhcp",
62 translate("Suppress logging"),
63 translate("Suppress logging of the routine operation of these protocols"))
66 se = s:taboption("advanced", Flag, "sequential_ip",
67 translate("Allocate IP sequentially"),
68 translate("Allocate IP addresses sequentially, starting from the lowest available address"))
71 s:taboption("advanced", Flag, "boguspriv",
72 translate("Filter private"),
73 translate("Do not forward reverse lookups for local networks"))
75 s:taboption("advanced", Flag, "filterwin2k",
76 translate("Filter useless"),
77 translate("Do not forward requests that cannot be answered by public name servers"))
80 s:taboption("advanced", Flag, "localise_queries",
81 translate("Localise queries"),
82 translate("Localise hostname depending on the requesting subnet if multiple IPs are available"))
84 local have_dnssec_support = luci.util.checklib("/usr/sbin/dnsmasq", "libhogweed.so")
86 if have_dnssec_support then
87 o = s:taboption("advanced", Flag, "dnssec",
91 o = s:taboption("advanced", Flag, "dnsseccheckunsigned",
92 translate("DNSSEC check unsigned"),
93 translate("Requires upstream supports DNSSEC; verify unsigned domain responses really come from unsigned domains"))
97 s:taboption("general", Value, "local",
98 translate("Local server"),
99 translate("Local domain specification. Names matching this domain are never forwarded and are resolved from DHCP or hosts files only"))
101 s:taboption("general", Value, "domain",
102 translate("Local domain"),
103 translate("Local domain suffix appended to DHCP names and hosts file entries"))
105 s:taboption("advanced", Flag, "expandhosts",
106 translate("Expand hosts"),
107 translate("Add local domain suffix to names served from hosts files"))
109 s:taboption("advanced", Flag, "nonegcache",
110 translate("No negative cache"),
111 translate("Do not cache negative replies, e.g. for not existing domains"))
113 s:taboption("advanced", Value, "serversfile",
114 translate("Additional servers file"),
115 translate("This file may contain lines like 'server=/domain/1.2.3.4' or 'server=1.2.3.4' for"..
116 "domain-specific or full upstream <abbr title=\"Domain Name System\">DNS</abbr> servers."))
118 s:taboption("advanced", Flag, "strictorder",
119 translate("Strict order"),
120 translate("<abbr title=\"Domain Name System\">DNS</abbr> servers will be queried in the " ..
121 "order of the resolvfile")).optional = true
124 bn = s:taboption("advanced", DynamicList, "bogusnxdomain", translate("Bogus NX Domain Override"),
125 translate("List of hosts that supply bogus NX domain results"))
128 bn.placeholder = "67.215.65.132"
131 s:taboption("general", Flag, "logqueries",
132 translate("Log queries"),
133 translate("Write received DNS requests to syslog")).optional = true
135 df = s:taboption("general", DynamicList, "server", translate("DNS forwardings"),
136 translate("List of <abbr title=\"Domain Name System\">DNS</abbr> " ..
137 "servers to forward requests to"))
140 df.placeholder = "/example.org/10.1.2.3"
143 rp = s:taboption("general", Flag, "rebind_protection",
144 translate("Rebind protection"),
145 translate("Discard upstream RFC1918 responses"))
150 rl = s:taboption("general", Flag, "rebind_localhost",
151 translate("Allow localhost"),
152 translate("Allow upstream responses in the 127.0.0.0/8 range, e.g. for RBL services"))
154 rl:depends("rebind_protection", "1")
157 rd = s:taboption("general", DynamicList, "rebind_domain",
158 translate("Domain whitelist"),
159 translate("List of domains to allow RFC1918 responses for"))
162 rd:depends("rebind_protection", "1")
163 rd.datatype = "host(1)"
164 rd.placeholder = "ihost.netflix.com"
167 pt = s:taboption("advanced", Value, "port",
168 translate("<abbr title=\"Domain Name System\">DNS</abbr> server port"),
169 translate("Listening port for inbound DNS queries"))
176 qp = s:taboption("advanced", Value, "queryport",
177 translate("<abbr title=\"Domain Name System\">DNS</abbr> query port"),
178 translate("Fixed source port for outbound DNS queries"))
182 qp.placeholder = translate("any")
185 lm = s:taboption("advanced", Value, "dhcpleasemax",
186 translate("<abbr title=\"maximal\">Max.</abbr> <abbr title=\"Dynamic Host Configuration " ..
187 "Protocol\">DHCP</abbr> leases"),
188 translate("Maximum allowed number of active DHCP leases"))
191 lm.datatype = "uinteger"
192 lm.placeholder = translate("unlimited")
195 em = s:taboption("advanced", Value, "ednspacket_max",
196 translate("<abbr title=\"maximal\">Max.</abbr> <abbr title=\"Extension Mechanisms for " ..
197 "Domain Name System\">EDNS0</abbr> packet size"),
198 translate("Maximum allowed size of EDNS.0 UDP packets"))
201 em.datatype = "uinteger"
202 em.placeholder = 1280
205 cq = s:taboption("advanced", Value, "dnsforwardmax",
206 translate("<abbr title=\"maximal\">Max.</abbr> concurrent queries"),
207 translate("Maximum allowed number of concurrent DNS queries"))
210 cq.datatype = "uinteger"
214 s:taboption("tftp", Flag, "enable_tftp",
215 translate("Enable TFTP server")).optional = true
217 tr = s:taboption("tftp", Value, "tftp_root",
218 translate("TFTP server root"),
219 translate("Root directory for files served via TFTP"))
222 tr:depends("enable_tftp", "1")
226 db = s:taboption("tftp", Value, "dhcp_boot",
227 translate("Network boot image"),
228 translate("Filename of the boot image advertised to clients"))
231 db:depends("enable_tftp", "1")
232 db.placeholder = "pxelinux.0"
234 o = s:taboption("general", Flag, "localservice",
235 translate("Local Service Only"),
236 translate("Limit DNS service to subnets interfaces on which we are serving DNS."))
240 o = s:taboption("general", Flag, "nonwildcard",
241 translate("Non-wildcard"),
242 translate("Bind only to specific interfaces rather than wildcard address."))
246 o = s:taboption("general", DynamicList, "interface",
247 translate("Listen Interfaces"),
248 translate("Limit listening to these interfaces, and loopback."))
250 o:depends("nonwildcard", true)
252 o = s:taboption("general", DynamicList, "notinterface",
253 translate("Exclude interfaces"),
254 translate("Prevent listening on thise interfaces."))
256 o:depends("nonwildcard", true)
258 m:section(SimpleSection).template = "admin_network/lease_status"
260 s = m:section(TypedSection, "host", translate("Static Leases"),
261 translate("Static leases are used to assign fixed IP addresses and symbolic hostnames to " ..
262 "DHCP clients. They are also required for non-dynamic interface configurations where " ..
263 "only hosts with a corresponding lease are served.") .. "<br />" ..
264 translate("Use the <em>Add</em> Button to add a new lease entry. The <em>MAC-Address</em> " ..
265 "indentifies the host, the <em>IPv4-Address</em> specifies to the fixed address to " ..
266 "use and the <em>Hostname</em> is assigned as symbolic name to the requesting host. " ..
267 "The optional <em>Lease time</em> can be used to set non-standard host-specific " ..
268 "lease time, e.g. 12h, 3d or infinite."))
272 s.template = "cbi/tblsection"
274 name = s:option(Value, "name", translate("Hostname"))
275 name.datatype = "hostname"
278 mac = s:option(Value, "mac", translate("<abbr title=\"Media Access Control\">MAC</abbr>-Address"))
279 mac.datatype = "list(macaddr)"
282 ip = s:option(Value, "ip", translate("<abbr title=\"Internet Protocol Version 4\">IPv4</abbr>-Address"))
283 ip.datatype = "or(ip4addr,'ignore')"
285 time = s:option(Value, "leasetime", translate("Lease time"))
288 hostid = s:option(Value, "hostid", translate("<abbr title=\"Internet Protocol Version 6\">IPv6</abbr>-Suffix (hex)"))
290 ipc.neighbors({ family = 4 }, function(n)
291 if n.mac and n.dest then
292 ip:value(n.dest:string())
293 mac:value(n.mac, "%s (%s)" %{ n.mac, n.dest:string() })
297 function ip.validate(self, value, section)
298 local m = mac:formvalue(section) or ""
299 local n = name:formvalue(section) or ""
300 if value and #n == 0 and #m == 0 then
301 return nil, translate("One of hostname or mac address must be specified!")
303 return Value.validate(self, value, section)