luci-app-bcp38: improve interface selection dropdown

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>

diff --git a/applications/luci-app-bcp38/luasrc/model/cbi/bcp38.lua b/applications/luci-app-bcp38/luasrc/model/cbi/bcp38.lua
index 632074a56f4805bbe1463d28af336d967c2e2aff..731c3350eb7c2bc0a901bc01377f6b457dda239a 100644 (file)
--- a/applications/luci-app-bcp38/luasrc/model/cbi/bcp38.lua
+++ b/applications/luci-app-bcp38/luasrc/model/cbi/bcp38.lua
@@ -14,7 +14,8 @@ $Id$
 
 local wa = require "luci.tools.webadmin"
 local net = require "luci.model.network".init()
-local ifaces = net:get_interfaces()
+local sys = require "luci.sys"
+local ifaces = sys.net:devices()
 
 m = Map("bcp38", translate("BCP38"),
        translate("This function blocks packets with private address destinations " ..
@@ -37,10 +38,17 @@ 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 iface:is_up() then
-       n:value(iface:name())
-     end
+       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