1 -- Copyright 2008 Steven Barth <steven@midlink.org>
2 -- Copyright 2008-2011 Jo-Philipp Wich <jow@openwrt.org>
3 -- Licensed to the public under the Apache License 2.0.
5 local fs = require "nixio.fs"
6 local ut = require "luci.util"
7 local pt = require "luci.tools.proto"
8 local nw = require "luci.model.network"
9 local fw = require "luci.model.firewall"
13 local has_dnsmasq = fs.access("/etc/config/dhcp")
14 local has_firewall = fs.access("/etc/config/firewall")
16 m = Map("network", translate("Interfaces") .. " - " .. arg[1]:upper(), translate("On this page you can configure the network interfaces. You can bridge several interfaces by ticking the \"bridge interfaces\" field and enter the names of several network interfaces separated by spaces. You can also use <abbr title=\"Virtual Local Area Network\">VLAN</abbr> notation <samp>INTERFACE.VLANNR</samp> (<abbr title=\"for example\">e.g.</abbr>: <samp>eth0.1</samp>)."))
17 m.redirect = luci.dispatcher.build_url("admin", "network", "network")
29 local net = nw:get_network(arg[1])
31 local function set_ifstate(name, option, value)
34 m.uci:foreach("luci", "ifstate", function (s)
35 if s.interface == name then
36 m.uci:set("luci", s[".name"], option, value)
43 local sid = m.uci:add("luci", "ifstate")
44 m.uci:set("luci", sid, "interface", name)
45 m.uci:set("luci", sid, option, value)
51 local function get_ifstate(name, option)
54 m.uci:foreach("luci", "ifstate", function (s)
55 if s.interface == name then
56 val = m.uci:get("luci", s[".name"], option)
64 local function backup_ifnames(is_bridge)
65 if not net:is_floating() and not get_ifstate(net:name(), "ifname") then
66 local ifcs = net:get_interfaces() or { net:get_interface() }
70 for _, ifn in ipairs(ifcs) do
71 local wif = ifn:get_wifinet()
72 ifns[#ifns+1] = wif and wif:id() or ifn:name()
75 set_ifstate(net:name(), "ifname", table.concat(ifns, " "))
76 set_ifstate(net:name(), "bridge", tostring(net:is_bridge()))
83 -- redirect to overview page if network does not exist anymore (e.g. after a revert)
85 luci.http.redirect(luci.dispatcher.build_url("admin/network/network"))
89 -- protocol switch was requested, rebuild interface config and reload page
90 if m:formvalue("cbid.network.%s._switch" % net:name()) then
92 local ptype = m:formvalue("cbid.network.%s.proto" % net:name()) or "-"
93 local proto = nw:get_protocol(ptype, net:name())
98 -- if current proto is not floating and target proto is not floating,
99 -- then attempt to retain the ifnames
100 --error(net:proto() .. " > " .. proto:proto())
101 if not net:is_floating() and not proto:is_floating() then
102 -- if old proto is a bridge and new proto not, then clip the
103 -- interface list to the first ifname only
104 if net:is_bridge() and proto:is_virtual() then
107 for _, ifn in ipairs(net:get_interfaces() or { net:get_interface() }) do
111 net:del_interface(ifn)
114 m:del(net:name(), "type")
117 -- if the current proto is floating, the target proto not floating,
118 -- then attempt to restore ifnames from backup
119 elseif net:is_floating() and not proto:is_floating() then
120 -- if we have backup data, then re-add all orphaned interfaces
121 -- from it and restore the bridge choice
122 local br = (get_ifstate(net:name(), "bridge") == "true")
125 for ifn in ut.imatch(get_ifstate(net:name(), "ifname")) do
126 ifn = nw:get_interface(ifn)
127 if ifn and not ifn:get_network() then
128 proto:add_interface(ifn)
135 m:set(net:name(), "type", "bridge")
138 -- in all other cases clear the ifnames
141 for _, ifc in ipairs(net:get_interfaces() or { net:get_interface() }) do
142 net:del_interface(ifc)
144 m:del(net:name(), "type")
149 for k, v in pairs(m:get(net:name())) do
150 if k:sub(1,1) ~= "." and
159 m:set(net:name(), "proto", proto:proto())
160 m.uci:save("network")
161 m.uci:save("wireless")
164 luci.http.redirect(luci.dispatcher.build_url("admin/network/network", arg[1]))
169 -- dhcp setup was requested, create section and reload page
170 if m:formvalue("cbid.dhcp._enable._enable") then
171 m.uci:section("dhcp", "dhcp", arg[1], {
179 luci.http.redirect(luci.dispatcher.build_url("admin/network/network", arg[1]))
183 local ifc = net:get_interface()
185 s = m:section(NamedSection, arg[1], "interface", translate("Common Configuration"))
188 s:tab("general", translate("General Setup"))
189 s:tab("advanced", translate("Advanced Settings"))
190 s:tab("physical", translate("Physical Settings"))
193 s:tab("firewall", translate("Firewall Settings"))
197 st = s:taboption("general", DummyValue, "__status", translate("Status"))
199 local function set_status()
200 -- if current network is empty, print a warning
201 if not net:is_floating() and net:is_empty() then
202 st.template = "cbi/dvalue"
204 st.value = translate("There is no device assigned yet, please attach a network device in the \"Physical Settings\" tab")
206 st.template = "admin_network/iface_status"
212 m.on_init = set_status
213 m.on_after_save = set_status
216 p = s:taboption("general", ListValue, "proto", translate("Protocol"))
217 p.default = net:proto()
220 if not net:is_installed() then
221 p_install = s:taboption("general", Button, "_install")
222 p_install.title = translate("Protocol support is not installed")
223 p_install.inputtitle = translate("Install package %q" % net:opkg_package())
224 p_install.inputstyle = "apply"
225 p_install:depends("proto", net:proto())
227 function p_install.write()
228 return luci.http.redirect(
229 luci.dispatcher.build_url("admin/system/packages") ..
230 "?submit=1&install=%s" % net:opkg_package()
236 p_switch = s:taboption("general", Button, "_switch")
237 p_switch.title = translate("Really switch protocol?")
238 p_switch.inputtitle = translate("Switch protocol")
239 p_switch.inputstyle = "apply"
242 for _, pr in ipairs(nw:get_protocols()) do
243 p:value(pr:proto(), pr:get_i18n())
244 if pr:proto() ~= net:proto() then
245 p_switch:depends("proto", pr:proto())
250 auto = s:taboption("advanced", Flag, "auto", translate("Bring up on boot"))
251 auto.default = (net:proto() == "none") and auto.disabled or auto.enabled
253 delegate = s:taboption("advanced", Flag, "delegate", translate("Use builtin IPv6-management"))
254 delegate.default = delegate.enabled
256 force_link = s:taboption("advanced", Flag, "force_link",
257 translate("Force link"),
258 translate("Set interface properties regardless of the link carrier (If set, carrier sense events do not invoke hotplug handlers)."))
260 force_link.default = (net:proto() == "static") and force_link.enabled or force_link.disabled
263 if not net:is_virtual() then
264 br = s:taboption("physical", Flag, "type", translate("Bridge interfaces"), translate("creates a bridge over specified interface(s)"))
265 br.enabled = "bridge"
267 br:depends("proto", "static")
268 br:depends("proto", "dhcp")
269 br:depends("proto", "none")
271 stp = s:taboption("physical", Flag, "stp", translate("Enable <abbr title=\"Spanning Tree Protocol\">STP</abbr>"),
272 translate("Enables the Spanning Tree Protocol on this bridge"))
273 stp:depends("type", "bridge")
278 if not net:is_floating() then
279 ifname_single = s:taboption("physical", Value, "ifname_single", translate("Interface"))
280 ifname_single.template = "cbi/network_ifacelist"
281 ifname_single.widget = "radio"
282 ifname_single.nobridges = true
283 ifname_single.rmempty = false
284 ifname_single.network = arg[1]
285 ifname_single:depends("type", "")
287 function ifname_single.cfgvalue(self, s)
288 -- let the template figure out the related ifaces through the network model
292 function ifname_single.write(self, s, val)
297 for _, i in ipairs(net:get_interfaces() or { net:get_interface() }) do
298 old_ifs[#old_ifs+1] = i:name()
301 for i in ut.imatch(val) do
302 new_ifs[#new_ifs+1] = i
304 -- if this is not a bridge, only assign first interface
305 if self.option == "ifname_single" then
313 for i = 1, math.max(#old_ifs, #new_ifs) do
314 if old_ifs[i] ~= new_ifs[i] then
316 for i = 1, #old_ifs do
317 net:del_interface(old_ifs[i])
319 for i = 1, #new_ifs do
320 net:add_interface(new_ifs[i])
329 if not net:is_virtual() then
330 ifname_multi = s:taboption("physical", Value, "ifname_multi", translate("Interface"))
331 ifname_multi.template = "cbi/network_ifacelist"
332 ifname_multi.nobridges = true
333 ifname_multi.rmempty = false
334 ifname_multi.network = arg[1]
335 ifname_multi.widget = "checkbox"
336 ifname_multi:depends("type", "bridge")
337 ifname_multi.cfgvalue = ifname_single.cfgvalue
338 ifname_multi.write = ifname_single.write
343 fwzone = s:taboption("firewall", Value, "_fwzone",
344 translate("Create / Assign firewall-zone"),
345 translate("Choose the firewall zone you want to assign to this interface. Select <em>unspecified</em> to remove the interface from the associated zone or fill out the <em>create</em> field to define a new zone and attach the interface to it."))
347 fwzone.template = "cbi/firewall_zonelist"
348 fwzone.network = arg[1]
349 fwzone.rmempty = false
351 function fwzone.cfgvalue(self, section)
353 local z = fw:get_zone_by_network(section)
354 return z and z:name()
357 function fwzone.write(self, section, value)
358 local zone = fw:get_zone(value)
360 if not zone and value == '-' then
361 value = m:formvalue(self:cbid(section) .. ".newzone")
362 if value and #value > 0 then
363 zone = fw:add_zone(value)
365 fw:del_network(section)
370 fw:del_network(section)
371 zone:add_network(section)
377 function p.write() end
378 function p.remove() end
379 function p.validate(self, value, section)
380 if value == net:proto() then
381 if not net:is_floating() and net:is_empty() then
382 local ifn = ((br and (br:formvalue(section) == "bridge"))
383 and ifname_multi:formvalue(section)
384 or ifname_single:formvalue(section))
386 for ifn in ut.imatch(ifn) do
389 return nil, translate("The selected protocol needs a device assigned")
396 local form, ferr = loadfile(
397 ut.libpath() .. "/model/cbi/admin_network/proto_%s.lua" % net:proto()
401 s:taboption("general", DummyValue, "_error",
402 translate("Missing protocol extension for proto %q" % net:proto())
405 setfenv(form, getfenv(1))(m, s, net)
410 for _, field in ipairs(s.children) do
411 if field ~= st and field ~= p and field ~= p_install and field ~= p_switch then
412 if next(field.deps) then
414 for _, dep in ipairs(field.deps) do
415 dep.proto = net:proto()
418 field:depends("proto", net:proto())
425 -- Display DNS settings if dnsmasq is available
428 if has_dnsmasq and net:proto() == "static" then
429 m2 = Map("dhcp", "", "")
431 local has_section = false
433 m2.uci:foreach("dhcp", "dhcp", function(s)
434 if s.interface == arg[1] then
440 if not has_section and has_dnsmasq then
442 s = m2:section(TypedSection, "dhcp", translate("DHCP Server"))
444 s.cfgsections = function() return { "_enable" } end
446 x = s:option(Button, "_enable")
447 x.title = translate("No DHCP Server configured for this interface")
448 x.inputtitle = translate("Setup DHCP Server")
449 x.inputstyle = "apply"
451 elseif has_section then
453 s = m2:section(TypedSection, "dhcp", translate("DHCP Server"))
456 s:tab("general", translate("General Setup"))
457 s:tab("advanced", translate("Advanced Settings"))
458 s:tab("ipv6", translate("IPv6 Settings"))
460 function s.filter(self, section)
461 return m2.uci:get("dhcp", section, "interface") == arg[1]
464 local ignore = s:taboption("general", Flag, "ignore",
465 translate("Ignore interface"),
466 translate("Disable <abbr title=\"Dynamic Host Configuration Protocol\">DHCP</abbr> for " ..
469 local start = s:taboption("general", Value, "start", translate("Start"),
470 translate("Lowest leased address as offset from the network address."))
471 start.optional = true
472 start.datatype = "or(uinteger,ip4addr)"
473 start.default = "100"
475 local limit = s:taboption("general", Value, "limit", translate("Limit"),
476 translate("Maximum number of leased addresses."))
477 limit.optional = true
478 limit.datatype = "uinteger"
479 limit.default = "150"
481 local ltime = s:taboption("general", Value, "leasetime", translate("Lease time"),
482 translate("Expiry time of leased addresses, minimum is 2 minutes (<code>2m</code>)."))
484 ltime.default = "12h"
486 local dd = s:taboption("advanced", Flag, "dynamicdhcp",
487 translate("Dynamic <abbr title=\"Dynamic Host Configuration Protocol\">DHCP</abbr>"),
488 translate("Dynamically allocate DHCP addresses for clients. If disabled, only " ..
489 "clients having static leases will be served."))
490 dd.default = dd.enabled
492 s:taboption("advanced", Flag, "force", translate("Force"),
493 translate("Force DHCP on this network even if another server is detected."))
495 -- XXX: is this actually useful?
496 --s:taboption("advanced", Value, "name", translate("Name"),
497 -- translate("Define a name for this network."))
499 mask = s:taboption("advanced", Value, "netmask",
500 translate("<abbr title=\"Internet Protocol Version 4\">IPv4</abbr>-Netmask"),
501 translate("Override the netmask sent to clients. Normally it is calculated " ..
502 "from the subnet that is served."))
505 mask.datatype = "ip4addr"
507 s:taboption("advanced", DynamicList, "dhcp_option", translate("DHCP-Options"),
508 translate("Define additional DHCP options, for example \"<code>6,192.168.2.1," ..
509 "192.168.2.2</code>\" which advertises different DNS servers to clients."))
511 for i, n in ipairs(s.children) do
513 n:depends("ignore", "")
517 o = s:taboption("ipv6", ListValue, "ra", translate("Router Advertisement-Service"))
518 o:value("", translate("disabled"))
519 o:value("server", translate("server mode"))
520 o:value("relay", translate("relay mode"))
521 o:value("hybrid", translate("hybrid mode"))
523 o = s:taboption("ipv6", ListValue, "dhcpv6", translate("DHCPv6-Service"))
524 o:value("", translate("disabled"))
525 o:value("server", translate("server mode"))
526 o:value("relay", translate("relay mode"))
527 o:value("hybrid", translate("hybrid mode"))
529 o = s:taboption("ipv6", ListValue, "ndp", translate("NDP-Proxy"))
530 o:value("", translate("disabled"))
531 o:value("relay", translate("relay mode"))
532 o:value("hybrid", translate("hybrid mode"))
534 o = s:taboption("ipv6", ListValue, "ra_management", translate("DHCPv6-Mode"),
535 translate("Default is stateless + stateful"))
536 o:value("0", translate("stateless"))
537 o:value("1", translate("stateless + stateful"))
538 o:value("2", translate("stateful-only"))
539 o:depends("dhcpv6", "server")
540 o:depends("dhcpv6", "hybrid")
543 o = s:taboption("ipv6", Flag, "ra_default", translate("Always announce default router"),
544 translate("Announce as default router even if no public prefix is available."))
545 o:depends("ra", "server")
546 o:depends("ra", "hybrid")
548 s:taboption("ipv6", DynamicList, "dns", translate("Announced DNS servers"))
549 s:taboption("ipv6", DynamicList, "domain", translate("Announced DNS domains"))