65cfbd8f75
Certain types of interface were excluded from bcp38's concept of upstream wan interface e.g. pppoa-wan Shamelessly copies the interface list generation from luci-app-sqm which solved exactly the same problem and gives additional clues by displaying the firewall zone (typically wan/lan etc) Run-tested-on: DGN3500 Signed-off-by: Kevin Darbyshire-Bryant <ldir@darbyshire-bryant.me.uk>
68 lines
2.2 KiB
Lua
68 lines
2.2 KiB
Lua
--[[
|
|
LuCI - Lua Configuration Interface
|
|
|
|
Copyright 2014 Toke Høiland-Jørgensen <toke@toke.dk>
|
|
|
|
Licensed under the Apache License, Version 2.0 (the "License");
|
|
you may not use this file except in compliance with the License.
|
|
You may obtain a copy of the License at
|
|
|
|
http://www.apache.org/licenses/LICENSE-2.0
|
|
|
|
$Id$
|
|
]]--
|
|
|
|
local wa = require "luci.tools.webadmin"
|
|
local net = require "luci.model.network".init()
|
|
local sys = require "luci.sys"
|
|
local ifaces = sys.net:devices()
|
|
|
|
m = Map("bcp38", translate("BCP38"),
|
|
translate("This function blocks packets with private address destinations " ..
|
|
"from going out onto the internet as per " ..
|
|
"<a href=\"http://tools.ietf.org/html/bcp38\">BCP 38</a>. " ..
|
|
"For IPv6, only source specific default routes are installed, so " ..
|
|
"no BCP38 firewall routes are needed."))
|
|
|
|
s = m:section(TypedSection, "bcp38", translate("BCP38 config"))
|
|
s.anonymous = true
|
|
-- BASIC
|
|
e = s:option(Flag, "enabled", translate("Enable"))
|
|
e.rmempty = false
|
|
|
|
a = s:option(Flag, "detect_upstream", translate("Auto-detect upstream IP"),
|
|
translate("Attempt to automatically detect if the upstream IP " ..
|
|
"will be blocked by the configuration, and add an exception if it will. " ..
|
|
"If this does not work correctly, you can add exceptions manually below."))
|
|
a.rmempty = false
|
|
|
|
n = s:option(ListValue, "interface", translate("Interface name"), translate("Interface to apply the blocking to " ..
|
|
"(should be the upstream WAN interface)."))
|
|
|
|
for _, iface in ipairs(ifaces) do
|
|
if not (iface == "lo" or iface:match("^ifb.*")) then
|
|
local nets = net:get_interface(iface)
|
|
nets = nets and nets:get_networks() or {}
|
|
for k, v in pairs(nets) do
|
|
nets[k] = nets[k].sid
|
|
end
|
|
nets = table.concat(nets, ",")
|
|
n:value(iface, ((#nets > 0) and "%s (%s)" % {iface, nets} or iface))
|
|
end
|
|
end
|
|
n.rmempty = false
|
|
|
|
ma = s:option(DynamicList, "match",
|
|
translate("Blocked IP ranges"))
|
|
|
|
ma.datatype = "ip4addr"
|
|
|
|
nm = s:option(DynamicList, "nomatch",
|
|
translate("Allowed IP ranges"), translate("Takes precedence over blocked ranges. "..
|
|
"Use to whitelist your upstream network if you're behind a double NAT " ..
|
|
"and the auto-detection doesn't work."))
|
|
|
|
nm.datatype = "ip4addr"
|
|
|
|
|
|
return m
|