modules/admin-full: add configuration support for ATM bridges
[project/luci.git] / modules / admin-full / luasrc / model / cbi / admin_network / network.lua
index 3924e7c..566b986 100644 (file)
@@ -12,23 +12,23 @@ You may obtain a copy of the License at
 
 $Id$
 ]]--
-require("luci.sys")
-require("luci.tools.webadmin")
 
-luci.model.uci.load_state("network")
-local netstate = luci.model.uci.get_all("network")
-luci.model.uci.unload("network")
+local sys = require "luci.sys"
+local wa  = require "luci.tools.webadmin"
+local fs  = require "nixio.fs"
 
-
-m = Map("network", translate("interfaces"))
+local netstate = luci.model.uci.cursor_state():get_all("network")
+m = Map("network", translate("Interfaces"))
 
 local created
-local netstat = luci.sys.net.deviceinfo()
+local netstat = sys.net.deviceinfo()
 
 s = m:section(TypedSection, "interface", "")
 s.addremove = true
+s.anonymous = false
 s.extedit   = luci.dispatcher.build_url("admin", "network", "network") .. "/%s"
 s.template  = "cbi/tblsection"
+s.override_scheme = true
 
 function s.filter(self, section)
        return section ~= "loopback" and section
@@ -37,12 +37,15 @@ end
 function s.create(self, section)
        if TypedSection.create(self, section) then
                created = section
+       else
+               self.invalid_cts = true
        end
 end
 
 function s.parse(self, ...)
        TypedSection.parse(self, ...)
        if created then
+               m.uci:save("network")
                luci.http.redirect(luci.dispatcher.build_url("admin", "network", "network")
                 .. "/" .. created)
        end
@@ -63,65 +66,130 @@ function up.write(self, section, value)
        os.execute(call .. " " .. section .. " >/dev/null 2>&1")
 end
 
-ifname = s:option(DummyValue, "ifname", translate("device"))
+ifname = s:option(DummyValue, "ifname", translate("Device"))
 function ifname.cfgvalue(self, section)
        return netstate[section] and netstate[section].ifname
 end
 
 ifname.titleref = luci.dispatcher.build_url("admin", "network", "vlan")
 
-if luci.model.uci.load("firewall") then
-       zone = s:option(DummyValue, "_zone", translate("zone"))
+
+if luci.model.uci.cursor():load("firewall") then
+       zone = s:option(DummyValue, "_zone", translate("Zone"))
        zone.titleref = luci.dispatcher.build_url("admin", "network", "firewall", "zones")
 
        function zone.cfgvalue(self, section)
-               local zones = luci.tools.webadmin.network_get_zones(section)
-               return zones and table.concat(zones, ", ") or "-"
+               return table.concat(wa.network_get_zones(section) or { "-" }, ", ")
        end
 end
 
-hwaddr = s:option(DummyValue, "_hwaddr")
+hwaddr = s:option(DummyValue, "_hwaddr",
+       translate("<abbr title=\"Media Access Control\">MAC</abbr>-Address"),
+        translate("Hardware Address"))
+
 function hwaddr.cfgvalue(self, section)
        local ix = self.map:get(section, "ifname") or ""
-       return luci.fs.readfile("/sys/class/net/" .. ix .. "/address")
-        or luci.util.exec("ifconfig " .. ix):match(" ([A-F0-9:]+)%s*\n")
-        or "n/a"
-        
+             ix = (type(ix) == "table") and ix[1] or ix
+
+       local mac = fs.readfile("/sys/class/net/" .. ix .. "/address")
+
+       if not mac then
+               mac = luci.util.exec("ifconfig " .. ix)
+               mac = mac and mac:match(" ([A-F0-9:]+)%s*\n")
+       end
+
+       if mac and #mac > 0 then
+               return mac:upper()
+       end
+
+       return "?"
 end
 
 
-ipaddr = s:option(DummyValue, "ipaddr", translate("addresses"))
+ipaddr = s:option(DummyValue, "ipaddr",
+       translate("<abbr title=\"Internet Protocol Version 4\">IPv4</abbr>" ..
+               "-Address"))
 function ipaddr.cfgvalue(self, section)
-       local addr = luci.tools.webadmin.network_get_addresses(section)
-       return table.concat(addr, ", ")
+       return table.concat(wa.network_get_addresses(section), ", ")
 end
 
-txrx = s:option(DummyValue, "_txrx")
+txrx = s:option(DummyValue, "_txrx", translate("Traffic"),
+       translate("transmitted / received"))
 
 function txrx.cfgvalue(self, section)
        local ix = self.map:get(section, "ifname")
-       
+
        local rx = netstat and netstat[ix] and netstat[ix][1]
-       rx = rx and luci.tools.webadmin.byte_format(tonumber(rx)) or "-"
-       
+       rx = rx and wa.byte_format(tonumber(rx)) or "-"
+
        local tx = netstat and netstat[ix] and netstat[ix][9]
-       tx = tx and luci.tools.webadmin.byte_format(tonumber(tx)) or "-"
-       
+       tx = tx and wa.byte_format(tonumber(tx)) or "-"
+
        return string.format("%s / %s", tx, rx)
 end
 
-errors = s:option(DummyValue, "_err")
+errors = s:option(DummyValue, "_err", translate("Errors"),
+       translate("TX / RX"))
 
 function errors.cfgvalue(self, section)
        local ix = self.map:get(section, "ifname")
-       
+
        local rx = netstat and netstat[ix] and netstat[ix][3]
        local tx = netstat and netstat[ix] and netstat[ix][11]
-       
+
        rx = rx and tostring(rx) or "-"
        tx = tx and tostring(tx) or "-"
-       
+
        return string.format("%s / %s", tx, rx)
 end
 
-return m
\ No newline at end of file
+-- Show ATM bridge section if we have the capabilities
+if fs.access("/usr/sbin/br2684ctl") then
+       atm = m:section(TypedSection, "atm-bridge", translate("ATM Bridges"),
+               translate("ATM bridges expose encapsulated ethernet in AAL5 " ..
+                       "connections as virtual Linux network interfaces which can " ..
+                       "be used in conjunction with DHCP or PPP to dial into the " ..
+                       "provider network."))
+
+       atm.addremove = true
+       atm.anonymous = true
+
+       atm.create = function(self, section)
+               local sid = TypedSection.create(self, section)
+               local max_unit = -1
+
+               m.uci:foreach("network", "atm-bridge",
+                       function(s)
+                               local u = tonumber(s.unit)
+                               if u ~= nil and u > max_unit then
+                                       max_unit = u
+                               end
+                       end)
+
+               m.uci:set("network", sid, "unit", max_unit + 1)
+               m.uci:set("network", sid, "atmdev", 0)
+               m.uci:set("network", sid, "encaps", "llc")
+               m.uci:set("network", sid, "payload", "bridged")
+               m.uci:set("network", sid, "vci", 35)
+               m.uci:set("network", sid, "vpi", 8)
+
+               return sid
+       end
+
+       atm:tab("general", translate("General Setup"))
+       atm:tab("advanced", translate("Advanced Settings"))
+
+       vci    = atm:taboption("general", Value, "vci", translate("ATM Virtual Channel Identifier (VCI)"))
+       vpi    = atm:taboption("general", Value, "vpi", translate("ATM Virtual Path Identifier (VPI)"))
+       encaps = atm:taboption("general", ListValue, "encaps", translate("Encapsulation mode"))
+       encaps:value("llc", translate("LLC"))
+       encaps:value("vc", translate("VC-Mux"))
+
+       atmdev  = atm:taboption("advanced", Value, "atmdev", translate("ATM device number"))
+       unit    = atm:taboption("advanced", Value, "unit", translate("Bridge unit number"))
+       payload = atm:taboption("advanced", ListValue, "payload", translate("Forwarding mode"))
+       payload:value("bridged", translate("bridged"))
+       payload:value("routed", translate("routed"))
+end
+
+return m