modules/admin-full/luasrc/model/cbi/admin_network/dhcp.lua

   1 --[[
   2 LuCI - Lua Configuration Interface
   3
   4 Copyright 2008 Steven Barth <steven@midlink.org>
   5
   6 Licensed under the Apache License, Version 2.0 (the "License");
   7 you may not use this file except in compliance with the License.
   8 You may obtain a copy of the License at
   9
  10         http://www.apache.org/licenses/LICENSE-2.0
  11
  12 $Id$
  13 ]]--
  14
  15 local sys = require "luci.sys"
  16
  17 m = Map("dhcp", translate("DHCP Server"),
  18         translate("Dnsmasq is a combined <abbr title=\"Dynamic Host Configuration Protocol" ..
  19                 "\">DHCP</abbr>-Server and <abbr title=\"Domain Name System\">DNS</abbr>-" ..
  20                 "Forwarder for <abbr title=\"Network Address Translation\">NAT</abbr> " ..
  21                 "firewalls"))
  22
  23 s = m:section(TypedSection, "dnsmasq", translate("Settings"))
  24 s.anonymous = true
  25 s.addremove = false
  26
  27 s:tab("general", translate("General Settings"))
  28 s:tab("files", translate("Resolv and Hosts Files"))
  29 s:tab("tftp", translate("TFTP Settings"))
  30 s:tab("advanced", translate("Advanced Settings"))
  31
  32 s:taboption("general", Flag, "domainneeded",
  33         translate("Domain required"),
  34         translate("Don't forward <abbr title=\"Domain Name System\">DNS</abbr>-Requests without " ..
  35                 "<abbr title=\"Domain Name System\">DNS</abbr>-Name"))
  36
  37 s:taboption("general", Flag, "authoritative",
  38         translate("Authoritative"),
  39         translate("This is the only <abbr title=\"Dynamic Host Configuration Protocol\">DHCP</" ..
  40                 "abbr> in the local network"))
  41
  42
  43 s:taboption("files", Flag, "readethers",
  44         translate("Use <code>/etc/ethers</code>"),
  45         translate("Read <code>/etc/ethers</code> to configure the <abbr title=\"Dynamic Host " ..
  46                 "Configuration Protocol\">DHCP</abbr>-Server"))
  47
  48 s:taboption("files", Value, "leasefile",
  49         translate("Leasefile"),
  50         translate("file where given <abbr title=\"Dynamic Host Configuration Protocol\">DHCP</" ..
  51                 "abbr>-leases will be stored"))
  52
  53 s:taboption("files", Flag, "noresolv",
  54         translate("Ignore resolve file")).optional = true
  55
  56 rf = s:taboption("files", Value, "resolvfile",
  57         translate("Resolve file"),
  58         translate("local <abbr title=\"Domain Name System\">DNS</abbr> file"))
  59
  60 rf:depends("noresolv", "")
  61 rf.optional = true
  62
  63
  64 s:taboption("files", Flag, "nohosts",
  65         translate("Ignore Hosts files")).optional = true
  66
  67 hf = s:taboption("files", DynamicList, "addnhosts",
  68         translate("Additional Hosts files"))
  69
  70 hf:depends("nohosts", "")
  71 hf.optional = true
  72
  73
  74 s:taboption("advanced", Flag, "boguspriv",
  75         translate("Filter private"),
  76         translate("Do not forward reverse lookups for local networks"))
  77
  78 s:taboption("advanced", Flag, "filterwin2k",
  79         translate("Filter useless"),
  80         translate("Do not forward requests that cannot be answered by public name servers"))
  81
  82 s:taboption("advanced", Flag, "localise_queries",
  83         translate("Localise queries"),
  84         translate("Localise hostname depending on the requesting subnet if multiple IPs are available"))
  85
  86 s:taboption("general", Value, "local",
  87         translate("Local server"),
  88         translate("Local domain specification. Names matching this domain are never forwared and resolved from DHCP or hosts files only"))
  89
  90 s:taboption("general", Value, "domain",
  91         translate("Local domain"),
  92         translate("Local domain suffix appended to DHCP names and hosts file entries"))
  93
  94 s:taboption("advanced", Flag, "expandhosts",
  95         translate("Expand hosts"),
  96         translate("Add local domain suffix to names served from hosts files"))
  97
  98 s:taboption("advanced", Flag, "nonegcache",
  99         translate("No negative cache"),
 100         translate("Do not cache negative replies, e.g. for not existing domains"))
 101
 102 s:taboption("advanced", Flag, "strictorder",
 103         translate("Strict order"),
 104         translate("<abbr title=\"Domain Name System\">DNS</abbr> servers will be queried in the " ..
 105                 "order of the resolvfile")).optional = true
 106
 107 s:taboption("general", Flag, "logqueries",
 108         translate("Log queries"),
 109         translate("Write received DNS requests to syslog")).optional = true
 110
 111 df = s:taboption("general", DynamicList, "server", translate("DNS forwardings"),
 112         translate("List of <abbr title=\"Domain Name System\">DNS</abbr> " ..
 113                         "servers to forward requests to"))
 114
 115 df.optional = true
 116 df.placeholder = "/example.org/10.1.2.3"
 117
 118
 119 rp = s:taboption("general", Flag, "rebind_protection",
 120         translate("Rebind protection"),
 121         translate("Discard upstream RFC1918 responses"))
 122
 123 rp.rmempty = false
 124
 125
 126 rl = s:taboption("general", Flag, "rebind_localhost",
 127         translate("Allow localhost"),
 128         translate("Allow upstream responses in the 127.0.0.0/8 range, e.g. for RBL services"))
 129
 130 rl:depends("rebind_protection", "1")
 131
 132
 133 rd = s:taboption("general", DynamicList, "rebind_domain",
 134         translate("Domain whitelist"),
 135         translate("List of domains to allow RFC1918 responses for"))
 136
 137 rd:depends("rebind_protection", "1")
 138 rd.datatype = "host"
 139 rd.placeholder = "ihost.netflix.com"
 140
 141
 142 pt = s:taboption("advanced", Value, "port",
 143         translate("<abbr title=\"Domain Name System\">DNS</abbr> server port"),
 144         translate("Listening port for inbound DNS queries"))
 145
 146 pt.optional = true
 147 pt.datatype = "port"
 148 pt.placeholder = 53
 149
 150
 151 qp = s:taboption("advanced", Value, "queryport",
 152         translate("<abbr title=\"Domain Name System\">DNS</abbr> query port"),
 153         translate("Fixed source port for outbound DNS queries"))
 154
 155 qp.optional = true
 156 qp.datatype = "port"
 157 qp.placeholder = translate("any")
 158
 159
 160 lm = s:taboption("advanced", Value, "dhcpleasemax",
 161         translate("<abbr title=\"maximal\">Max.</abbr> <abbr title=\"Dynamic Host Configuration " ..
 162                 "Protocol\">DHCP</abbr> leases"),
 163         translate("Maximum allowed number of active DHCP leases"))
 164
 165 lm.optional = true
 166 lm.datatype = "uinteger"
 167 lm.placeholder = translate("unlimited")
 168
 169
 170 em = s:taboption("advanced", Value, "ednspacket_max",
 171         translate("<abbr title=\"maximal\">Max.</abbr> <abbr title=\"Extension Mechanisms for " ..
 172                 "Domain Name System\">EDNS0</abbr> paket size"),
 173         translate("Maximum allowed size of EDNS.0 UDP packets"))
 174
 175 em.optional = true
 176 em.datatype = "uinteger"
 177 em.placeholder = 1280
 178
 179
 180 cq = s:taboption("advanced", Value, "dnsforwardmax",
 181         translate("<abbr title=\"maximal\">Max.</abbr> concurrent queries"),
 182         translate("Maximum allowed number of concurrent DNS queries"))
 183
 184 cq.optional = true
 185 cq.datatype = "uinteger"
 186 cq.placeholder = 150
 187
 188
 189 s:taboption("tftp", Flag, "enable_tftp",
 190         translate("Enable TFTP server")).optional = true
 191
 192 tr = s:taboption("tftp", Value, "tftp_root",
 193         translate("TFTP server root"),
 194         translate("Root directory for files served via TFTP"))
 195
 196 tr.optional = true
 197 tr:depends("enable_tftp", "1")
 198 tr.placeholder = "/"
 199
 200
 201 db = s:taboption("tftp", Value, "dhcp_boot",
 202         translate("Network boot image"),
 203         translate("Filename of the boot image advertised to clients"))
 204
 205 db.optional = true
 206 db:depends("enable_tftp", "1")
 207 db.placeholder = "pxelinux.0"
 208
 209
 210 m2 = Map("dhcp", translate("DHCP Leases"),
 211         translate("Static leases are used to assign fixed IP addresses and symbolic hostnames to " ..
 212                 "DHCP clients. They are also required for non-dynamic interface configurations where " ..
 213                 "only hosts with a corresponding lease are served."))
 214
 215 m2:section(SimpleSection).template = "admin_network/lease_status"
 216
 217 s = m2:section(TypedSection, "host", translate("Static Leases"),
 218         translate("Use the <em>Add</em> Button to add a new lease entry. The <em>MAC-Address</em> " ..
 219                 "indentifies the host, the <em>IPv4-Address</em> specifies to the fixed address to " ..
 220                 "use and the <em>Hostname</em> is assigned as symbolic name to the requesting host."))
 221
 222 s.addremove = true
 223 s.anonymous = true
 224 s.template = "cbi/tblsection"
 225
 226 name = s:option(Value, "name", translate("Hostname"))
 227 name.datatype = "hostname"
 228 name.rmempty  = true
 229
 230 mac = s:option(Value, "mac", translate("<abbr title=\"Media Access Control\">MAC</abbr>-Address"))
 231 mac.datatype = "macaddr"
 232
 233 ip = s:option(Value, "ip", translate("<abbr title=\"Internet Protocol Version 4\">IPv4</abbr>-Address"))
 234 ip.datatype = "ip4addr"
 235
 236 sys.net.arptable(function(entry)
 237         ip:value(entry["IP address"])
 238         mac:value(
 239                 entry["HW address"],
 240                 entry["HW address"] .. " (" .. entry["IP address"] .. ")"
 241         )
 242 end)
 243
 244
 245 return m, m2