module/admin-full: add missing mode+wds -> ap/sta-wds reverse mapping for mac80211...
[project/luci.git] / modules / admin-full / luasrc / model / cbi / admin_network / wifi.lua
index 67cb8a8..8aaf591 100644 (file)
@@ -20,9 +20,18 @@ local fs = require "nixio.fs"
 arg[1] = arg[1] or ""
 arg[2] = arg[2] or ""
 
-m = Map("wireless", translate("Networks"), translate("You can run several wifi networks with one device. Be aware that there are certain hardware and driverspecific restrictions. Normally you can operate 1 Ad-Hoc or up to 3 Master-Mode and 1 Client-Mode network simultaneously."))
+m = Map("wireless", "",
+       translate("The <em>Device Configuration</em> section covers physical settings of the radio " ..
+               "hardware such as channel, transmit power or antenna selection which is shared among all " ..
+               "defined wireless networks (if the radio hardware is multi-SSID capable). Per network settings " ..
+               "like encryption or operation mode are grouped in the <em>Interface Configuration</em>."))
+
 m:chain("network")
 
+m.breadcrumb = {
+       { luci.dispatcher.build_url("admin/network/wireless"), translate("Wireless Networks") }
+}
+
 local ifsection
 
 function m.on_commit(map)
@@ -38,6 +47,16 @@ end
 nw.init(m.uci)
 ww.init(m.uci)
 
+local wnet = ww:get_network(arg[2])
+
+-- redirect to overview page if network does not exist anymore (e.g. after a revert)
+if not wnet then
+       luci.http.redirect(luci.dispatcher.build_url("admin/network/wireless"))
+       return
+end
+
+m.title = ww:get_i18n(wnet)
+
 
 local iw = nil
 local tx_powers = nil
@@ -50,7 +69,7 @@ m.uci:foreach("wireless", "wifi-iface",
                end
        end)
 
-s = m:section(NamedSection, arg[1], "wifi-device", translate("Device") .. " " .. arg[1])
+s = m:section(NamedSection, arg[1], "wifi-device", translate("Device Configuration"))
 s.addremove = false
 
 s:tab("general", translate("General Setup"))
@@ -80,8 +99,8 @@ local nsantenna = m:get(arg[1], "antenna")
 
 ch = s:taboption("general", Value, "channel", translate("Channel"))
 ch:value("auto", translate("auto"))
-for c, f in luci.util.kspairs(luci.sys.wifi.channels()) do
-       ch:value(c, "%i (%.3f GHz)" %{ c, f })
+for _, f in ipairs(luci.sys.wifi.channels()) do
+       ch:value(f.channel, "%i (%.3f GHz)" %{ f.channel, f.mhz / 1000 })
 end
 
 
@@ -96,6 +115,29 @@ if hwtype == "mac80211" then
        for _, p in ipairs(iw and iw.txpwrlist or {}) do
                tp:value(p.dbm, "%i dBm (%i mW)" %{ p.dbm, p.mw })
        end
+       
+       mode = s:taboption("advanced", ListValue, "hwmode", translate("Mode"))
+       mode:value("", translate("auto"))
+       mode:value("11b", "802.11b")
+       mode:value("11g", "802.11g")
+       mode:value("11a", "802.11a")
+       mode:value("11ng", "802.11g+n")
+       mode:value("11na", "802.11a+n")
+
+       htmode = s:taboption("advanced", ListValue, "htmode", translate("HT mode"))
+       htmode:depends("hwmode", "11na")
+       htmode:depends("hwmode", "11ng")
+       htmode:value("HT20", "20MHz")
+       htmode:value("HT40-", translate("40MHz 2nd channel below"))
+       htmode:value("HT40+", translate("40MHz 2nd channel above"))
+       
+       htcapab = s:taboption("advanced", DynamicList, "ht_capab", translate("HT capabilities"))
+       htcapab:depends("hwmode", "11na")
+       htcapab:depends("hwmode", "11ng")
+       
+       s:taboption("advanced", Value, "country", translate("Country Code"), translate("Use ISO/IEC 3166 alpha2 country codes."))
+       s:taboption("advanced", Value, "distance", translate("Distance Optimization"),
+               translate("Distance to farthest network member in meters."))    
 end
 
 
@@ -220,7 +262,7 @@ end
 local wnet = ww:get_network(arg[2])
 
 if wnet then
-       s = m:section(NamedSection, wnet.sid, "wifi-iface", ww:get_i18n(wnet))
+       s = m:section(NamedSection, wnet.sid, "wifi-iface", translate("Interface Configuration"))
        ifsection = s
        s.addremove = false
        s.anonymous = true
@@ -241,7 +283,11 @@ if wnet then
 
        bssid = s:taboption("general", Value, "bssid", translate("<abbr title=\"Basic Service Set Identifier\">BSSID</abbr>"))
 
-       network = s:taboption("general", Value, "network", translate("Network"), translate("Add the Wifi network to physical network"))
+       network = s:taboption("general", Value, "network", translate("Network"),
+               translate("Choose the network you want to attach to this wireless interface. " ..
+                       "Select <em>unspecified</em> to not attach any network or fill out the " ..
+                       "<em>create</em> field to define a new network."))
+
        network.rmempty = true
        network.template = "cbi/network_netlist"
        network.widget = "radio"
@@ -281,6 +327,39 @@ if wnet then
 
                s:taboption("advanced", Value, "frag", translate("Fragmentation Threshold"))
                s:taboption("advanced", Value, "rts", translate("RTS/CTS Threshold"))
+               
+               mode:value("ap-wds", "%s (%s)" % {translate("Access Point"), translate("WDS")})
+               mode:value("sta-wds", "%s (%s)" % {translate("Client"), translate("WDS")})              
+               
+               function mode.write(self, section, value)
+                       if value == "ap-wds" then
+                               ListValue.write(self, section, "ap")
+                               m.uci:set("wireless", section, "wds", 1)
+                       elseif value == "sta-wds" then
+                               ListValue.write(self, section, "sta")
+                               m.uci:set("wireless", section, "wds", 1)
+                       else
+                               ListValue.write(self, section, value)
+                               m.uci:delete("wireless", section, "wds")
+                       end
+               end
+
+               function mode.cfgvalue(self, section)
+                       local mode = ListValue.cfgvalue(self, section)
+                       local wds  = m.uci:get("wireless", section, "wds") == "1"
+
+                       if mode == "ap" and wds then
+                               return "ap-wds"
+                       elseif mode == "sta" and wds then
+                               return "sta-wds"
+                       else
+                               return mode
+                       end
+               end
+               
+               hidden = s:taboption("general", Flag, "hidden", translate("Hide <abbr title=\"Extended Service Set Identifier\">ESSID</abbr>"))
+               hidden:depends({mode="ap"})
+               hidden:depends({mode="ap-wds"})                         
        end
 
 
@@ -492,11 +571,15 @@ if wnet then
        server = s:taboption("encryption", Value, "server", translate("Radius-Server"))
        server:depends({mode="ap", encryption="wpa"})
        server:depends({mode="ap", encryption="wpa2"})
+       server:depends({mode="ap-wds", encryption="wpa"})
+       server:depends({mode="ap-wds", encryption="wpa2"})
        server.rmempty = true
 
        port = s:taboption("encryption", Value, "port", translate("Radius-Port"))
        port:depends({mode="ap", encryption="wpa"})
        port:depends({mode="ap", encryption="wpa2"})
+       port:depends({mode="ap-wds", encryption="wpa"})
+       port:depends({mode="ap-wds", encryption="wpa2"})
        port.rmempty = true
 
        key = s:taboption("encryption", Value, "key", translate("Key"))
@@ -507,6 +590,8 @@ if wnet then
        key:depends("encryption", "psk-mixed")
        key:depends({mode="ap", encryption="wpa"})
        key:depends({mode="ap", encryption="wpa2"})
+       key:depends({mode="ap-wds", encryption="wpa"})
+       key:depends({mode="ap-wds", encryption="wpa2"})
        key.rmempty = true
        key.password = true
 
@@ -514,6 +599,8 @@ if wnet then
                nasid = s:taboption("encryption", Value, "nasid", translate("NAS ID"))
                nasid:depends({mode="ap", encryption="wpa"})
                nasid:depends({mode="ap", encryption="wpa2"})
+               nasid:depends({mode="ap-wds", encryption="wpa"})
+               nasid:depends({mode="ap-wds", encryption="wpa2"})
                nasid.rmempty = true
 
                eaptype = s:taboption("encryption", ListValue, "eap_type", translate("EAP-Method"))