2 LuCI - Lua Configuration Interface
4 Copyright 2008 Steven Barth <steven@midlink.org>
6 Licensed under the Apache License, Version 2.0 (the "License");
7 you may not use this file except in compliance with the License.
8 You may obtain a copy of the License at
10 http://www.apache.org/licenses/LICENSE-2.0
15 local wa = require "luci.tools.webadmin"
16 local fs = require "nixio.fs"
20 m = Map("wireless", translate("networks"), translate("a_w_networks1"))
26 m.uci:foreach("wireless", "wifi-iface",
28 if s.device == arg[1] and s.ifname and not iw then
29 iw = luci.sys.wifi.getiwinfo(s.ifname)
30 tx_powers = iw.txpwrlist or { }
34 s = m:section(NamedSection, arg[1], "wifi-device", translate("device") .. " " .. arg[1])
37 s:tab("general", translate("a_w_general", "General Setup"))
38 s:tab("macfilter", translate("a_w_macfilter", "MAC-Filter"))
39 s:tab("advanced", translate("a_w_advanced", "Advanced Settings"))
42 back = s:option(DummyValue, "_overview", translate("overview"))
44 back.titleref = luci.dispatcher.build_url("admin", "network", "wireless")
47 en = s:taboption("general", Flag, "disabled", translate("enable"))
52 function en.cfgvalue(self, section)
53 return Flag.cfgvalue(self, section) or "0"
56 s:taboption("general", DummyValue, "type", translate("type"))
58 local hwtype = m:get(arg[1], "type")
60 local nsantenna = m:get(arg[1], "antenna")
62 ch = s:taboption("general", Value, "channel", translate("a_w_channel"))
63 ch:value("auto", translate("wifi_auto"))
64 for c, f in luci.util.kspairs(luci.sys.wifi.channels()) do
65 ch:value(c, "%i (%.3f GHz)" %{ c, f })
69 ------------------- MAC80211 Device ------------------
71 if hwtype == "mac80211" then
72 tp = s:taboption("general",
73 (#tx_powers > 0) and ListValue or Value,
74 "txpower", translate("a_w_txpwr"), "dBm")
77 for _, p in ipairs(iw.txpwrlist) do
78 tp:value(p.dbm, "%i dBm (%i mW)" %{ p.dbm, p.mw })
83 ------------------- Madwifi Device ------------------
85 if hwtype == "atheros" then
86 tp = s:taboption("general",
87 (#tx_powers > 0) and ListValue or Value,
88 "txpower", translate("a_w_txpwr"), "dBm")
91 for _, p in ipairs(iw.txpwrlist) do
92 tp:value(p.dbm, "%i dBm (%i mW)" %{ p.dbm, p.mw })
95 mode = s:taboption("advanced", ListValue, "hwmode", translate("mode"))
96 mode:value("", translate("wifi_auto"))
97 mode:value("11b", "802.11b")
98 mode:value("11g", "802.11g")
99 mode:value("11a", "802.11a")
100 mode:value("11bg", "802.11b+g")
101 mode:value("11gst", "802.11g + Turbo")
102 mode:value("11ast", "802.11a + Turbo")
103 mode:value("fh", translate("wifi_fh"))
105 s:taboption("advanced", Flag, "diversity", translate("wifi_diversity")).rmempty = false
107 if not nsantenna then
108 s:taboption("advanced", Value, "txantenna", translate("wifi_txantenna"))
109 s:taboption("advanced", Value, "rxantenna", translate("wifi_rxantenna"))
111 local ant = s:taboption("advanced", ListValue, "antenna", translate("wifi_txantenna"))
113 ant:value("vertical")
114 ant:value("horizontal")
115 ant:value("external")
117 s:taboption("advanced", Value, "distance", translate("wifi_distance"),
118 translate("wifi_distance_desc"))
119 s:taboption("advanced", Value, "regdomain", translate("wifi_regdomain"))
120 s:taboption("advanced", Value, "country", translate("wifi_country"))
121 s:taboption("advanced", Flag, "outdoor", translate("wifi_outdoor"))
123 --s:option(Flag, "nosbeacon", translate("wifi_nosbeacon"))
128 ------------------- Broadcom Device ------------------
130 if hwtype == "broadcom" then
131 tp = s:taboption("general",
132 (#tx_powers > 0) and ListValue or Value,
133 "txpower", translate("a_w_txpwr"), "dBm")
136 for _, p in ipairs(iw.txpwrlist) do
137 tp:value(p.dbm, "%i dBm (%i mW)" %{ p.dbm, p.mw })
140 mp = s:taboption("macfilter", ListValue, "macfilter", translate("wifi_macpolicy"))
141 mp:value("", translate("disable"))
142 mp:value("allow", translate("wifi_whitelist"))
143 mp:value("deny", translate("wifi_blacklist"))
144 ml = s:taboption("macfilter", DynamicList, "maclist", translate("wifi_maclist"))
145 ml:depends({macfilter="allow"})
146 ml:depends({macfilter="deny"})
148 s:taboption("advanced", Value, "txantenna", translate("wifi_txantenna"))
149 s:taboption("advanced", Value, "rxantenna", translate("wifi_rxantenna"))
151 s:taboption("advanced", Flag, "frameburst", translate("wifi_bursting"))
153 s:taboption("advanced", Value, "distance", translate("wifi_distance"))
154 --s:option(Value, "slottime", translate("wifi_slottime"))
156 s:taboption("advanced", Value, "country", translate("wifi_country"))
157 s:taboption("advanced", Value, "maxassoc", translate("wifi_maxassoc"))
161 --------------------- HostAP Device ---------------------
163 if hwtype == "prism2" then
164 s:taboption("advanced", Value, "txpower", translate("a_w_txpwr"), "att units").rmempty = true
166 s:taboption("advanced", Flag, "diversity", translate("wifi_diversity")).rmempty = false
168 s:taboption("advanced", Value, "txantenna", translate("wifi_txantenna"))
169 s:taboption("advanced", Value, "rxantenna", translate("wifi_rxantenna"))
173 ----------------------- Interface -----------------------
175 s = m:section(TypedSection, "wifi-iface", translate("interfaces"))
178 s:depends("device", arg[1])
179 s.defaults.device = arg[1]
181 s:tab("general", translate("a_w_general", "General Setup"))
182 s:tab("encryption", translate("a_w_security", "Wireless Security"))
183 s:tab("macfilter", translate("a_w_macfilter", "MAC-Filter"))
184 s:tab("advanced", translate("a_w_advanced", "Advanced Settings"))
186 s:taboption("general", Value, "ssid", translate("wifi_essid"))
188 mode = s:taboption("general", ListValue, "mode", translate("mode"))
189 mode.override_values = true
190 mode:value("ap", translate("a_w_ap"))
191 mode:value("sta", translate("a_w_client"))
192 mode:value("adhoc", translate("a_w_adhoc"))
194 bssid = s:taboption("general", Value, "bssid", translate("wifi_bssid"))
196 network = s:taboption("general", Value, "network", translate("network"), translate("a_w_network1"))
197 network.rmempty = true
199 network.combobox_manual = translate("a_w_netmanual")
200 wa.cbi_add_networks(network)
202 function network.write(self, section, value)
203 if not m.uci:get("network", value) then
204 -- avoid "value not defined in enum" because network is not known yet
205 s.override_scheme = true
208 m.uci:set("network", value, "interface")
209 Value.write(self, section, value)
211 if m.uci:get("network", value) == "interface" then
212 Value.write(self, section, value)
218 -------------------- MAC80211 Interface ----------------------
220 if hwtype == "mac80211" then
221 if fs.access("/usr/sbin/iw") then
222 mode:value("mesh", "802.11s")
225 mode:value("ahdemo", translate("a_w_ahdemo"))
226 mode:value("monitor", translate("a_w_monitor"))
227 bssid:depends({mode="adhoc"})
229 s:taboption("advanced", Value, "frag", translate("wifi_frag"))
230 s:taboption("advanced", Value, "rts", translate("wifi_rts"))
235 -------------------- Madwifi Interface ----------------------
237 if hwtype == "atheros" then
238 mode:value("ahdemo", translate("a_w_ahdemo"))
239 mode:value("monitor", translate("a_w_monitor"))
240 mode:value("ap-wds", "%s (%s)" % {translate("a_w_ap"), translate("a_w_wds")})
241 mode:value("sta-wds", "%s (%s)" % {translate("a_w_client"), translate("a_w_wds")})
243 function mode.write(self, section, value)
244 if value == "ap-wds" then
245 ListValue.write(self, section, "ap")
246 m.uci:set("wireless", section, "wds", 1)
247 elseif value == "sta-wds" then
248 ListValue.write(self, section, "sta")
249 m.uci:set("wireless", section, "wds", 1)
251 ListValue.write(self, section, value)
252 m.uci:delete("wireless", section, "wds")
256 function mode.cfgvalue(self, section)
257 local mode = ListValue.cfgvalue(self, section)
258 local wds = m.uci:get("wireless", section, "wds") == "1"
260 if mode == "ap" and wds then
262 elseif mode == "sta" and wds then
269 bssid:depends({mode="adhoc"})
270 bssid:depends({mode="ahdemo"})
272 wdssep = s:taboption("advanced", Flag, "wdssep", translate("wifi_wdssep"))
273 wdssep:depends({mode="ap-wds"})
275 s:taboption("advanced", Flag, "doth", "802.11h")
276 hidden = s:taboption("general", Flag, "hidden", translate("wifi_hidden"))
277 hidden:depends({mode="ap"})
278 hidden:depends({mode="adhoc"})
279 hidden:depends({mode="ap-wds"})
280 hidden:depends({mode="sta-wds"})
281 isolate = s:taboption("advanced", Flag, "isolate", translate("wifi_isolate"),
282 translate("wifi_isolate_desc"))
283 isolate:depends({mode="ap"})
284 s:taboption("advanced", Flag, "bgscan", translate("wifi_bgscan"))
286 mp = s:taboption("macfilter", ListValue, "macpolicy", translate("wifi_macpolicy"))
287 mp:value("", translate("disable"))
288 mp:value("deny", translate("wifi_whitelist"))
289 mp:value("allow", translate("wifi_blacklist"))
290 ml = s:taboption("macfilter", DynamicList, "maclist", translate("wifi_maclist"))
291 ml:depends({macpolicy="allow"})
292 ml:depends({macpolicy="deny"})
294 s:taboption("advanced", Value, "rate", translate("wifi_rate"))
295 s:taboption("advanced", Value, "mcast_rate", translate("wifi_mcast_rate"))
296 s:taboption("advanced", Value, "frag", translate("wifi_frag"))
297 s:taboption("advanced", Value, "rts", translate("wifi_rts"))
298 s:taboption("advanced", Value, "minrate", translate("wifi_minrate"))
299 s:taboption("advanced", Value, "maxrate", translate("wifi_maxrate"))
300 s:taboption("advanced", Flag, "compression", translate("wifi_compression"))
302 s:taboption("advanced", Flag, "bursting", translate("wifi_bursting"))
303 s:taboption("advanced", Flag, "turbo", translate("wifi_turbo"))
304 s:taboption("advanced", Flag, "ff", translate("wifi_ff"))
306 s:taboption("advanced", Flag, "wmm", translate("wifi_wmm"))
307 s:taboption("advanced", Flag, "xr", translate("wifi_xr"))
308 s:taboption("advanced", Flag, "ar", translate("wifi_ar"))
310 local swm = s:taboption("advanced", Flag, "sw_merge", translate("wifi_nosbeacon"))
311 swm:depends({mode="adhoc"})
313 local nos = s:taboption("advanced", Flag, "nosbeacon", translate("wifi_nosbeacon"))
314 nos:depends({mode="sta"})
315 nos:depends({mode="sta-wds"})
317 local probereq = s:taboption("advanced", Flag, "probereq", translate("wifi_noprobereq"))
318 probereq.enabled = "0"
319 probereq.disabled = "1"
323 -------------------- Broadcom Interface ----------------------
325 if hwtype == "broadcom" then
326 mode:value("wds", translate("a_w_wds"))
327 mode:value("monitor", translate("a_w_monitor"))
329 hidden = s:taboption("general", Flag, "hidden", translate("wifi_hidden"))
330 hidden:depends({mode="ap"})
331 hidden:depends({mode="adhoc"})
332 hidden:depends({mode="wds"})
334 isolate = s:taboption("advanced", Flag, "isolate", translate("wifi_isolate"),
335 translate("wifi_isolate_desc"))
336 isolate:depends({mode="ap"})
338 bssid:depends({mode="wds"})
339 bssid:depends({mode="adhoc"})
343 ----------------------- HostAP Interface ---------------------
345 if hwtype == "prism2" then
346 mode:value("wds", translate("a_w_wds"))
347 mode:value("monitor", translate("a_w_monitor"))
349 hidden = s:taboption("general", Flag, "hidden", translate("wifi_hidden"))
350 hidden:depends({mode="ap"})
351 hidden:depends({mode="adhoc"})
352 hidden:depends({mode="wds"})
354 bssid:depends({mode="sta"})
356 mp = s:taboption("macfilter", ListValue, "macpolicy", translate("wifi_macpolicy"))
357 mp:value("", translate("disable"))
358 mp:value("deny", translate("wifi_whitelist"))
359 mp:value("allow", translate("wifi_blacklist"))
360 ml = s:taboption("macfilter", DynamicList, "maclist", translate("wifi_maclist"))
361 ml:depends({macpolicy="allow"})
362 ml:depends({macpolicy="deny"})
364 s:taboption("advanced", Value, "rate", translate("wifi_rate"))
365 s:taboption("advanced", Value, "frag", translate("wifi_frag"))
366 s:taboption("advanced", Value, "rts", translate("wifi_rts"))
370 ------------------- WiFI-Encryption -------------------
372 encr = s:taboption("encryption", ListValue, "encryption", translate("encryption"))
373 encr.override_values = true
374 encr:depends({mode="ap"})
375 encr:depends({mode="sta"})
376 encr:depends({mode="adhoc"})
377 encr:depends({mode="ahdemo"})
378 encr:depends({mode="ap-wds"})
379 encr:depends({mode="sta-wds"})
380 encr:depends({mode="mesh"})
382 encr:value("none", "No Encryption")
383 encr:value("wep", "WEP")
385 if hwtype == "atheros" or hwtype == "mac80211" or hwtype == "prism2" then
386 local supplicant = fs.access("/usr/sbin/wpa_supplicant")
387 local hostapd = fs.access("/usr/sbin/hostapd")
389 if hostapd and supplicant then
390 encr:value("psk", "WPA-PSK")
391 encr:value("psk2", "WPA2-PSK")
392 encr:value("psk-mixed", "WPA-PSK/WPA2-PSK Mixed Mode")
393 encr:value("wpa", "WPA-EAP", {mode="ap"}, {mode="sta"}, {mode="ap-wds"}, {mode="sta-wds"})
394 encr:value("wpa2", "WPA2-EAP", {mode="ap"}, {mode="sta"})
395 elseif hostapd and not supplicant then
396 encr:value("psk", "WPA-PSK", {mode="ap"}, {mode="ap-wds"}, {mode="adhoc"}, {mode="ahdemo"})
397 encr:value("psk2", "WPA2-PSK", {mode="ap"}, {mode="ap-wds"}, {mode="adhoc"}, {mode="ahdemo"})
398 encr:value("psk-mixed", "WPA-PSK/WPA2-PSK Mixed Mode", {mode="ap"}, {mode="ap-wds"}, {mode="adhoc"}, {mode="ahdemo"})
399 encr:value("wpa", "WPA-EAP", {mode="ap"}, {mode="ap-wds"})
400 encr:value("wpa2", "WPA2-EAP", {mode="ap"}, {mode="ap-wds"})
401 encr.description = translate("wifi_wpareq")
402 elseif not hostapd and supplicant then
403 encr:value("psk", "WPA-PSK", {mode="sta"}, {mode="sta-wds"})
404 encr:value("psk2", "WPA2-PSK", {mode="sta"}, {mode="sta-wds"})
405 encr:value("psk-mixed", "WPA-PSK/WPA2-PSK Mixed Mode", {mode="sta"}, {mode="sta-wds"})
406 encr:value("wpa", "WPA-EAP", {mode="sta"}, {mode="sta-wds"})
407 encr:value("wpa2", "WPA2-EAP", {mode="sta"}, {mode="sta-wds"})
408 encr.description = translate("wifi_wpareq")
410 encr.description = translate("wifi_wpareq")
412 elseif hwtype == "broadcom" then
413 encr:value("psk", "WPA-PSK")
414 encr:value("psk2", "WPA2-PSK")
415 encr:value("psk+psk2", "WPA-PSK/WPA2-PSK Mixed Mode")
418 encr:depends("mode", "ap")
419 encr:depends("mode", "sta")
420 encr:depends("mode", "ap-wds")
421 encr:depends("mode", "sta-wds")
422 encr:depends("mode", "wds")
424 server = s:taboption("encryption", Value, "server", translate("a_w_radiussrv"))
425 server:depends({mode="ap", encryption="wpa"})
426 server:depends({mode="ap", encryption="wpa2"})
427 server.rmempty = true
429 port = s:taboption("encryption", Value, "port", translate("a_w_radiusport"))
430 port:depends({mode="ap", encryption="wpa"})
431 port:depends({mode="ap", encryption="wpa2"})
434 key = s:taboption("encryption", Value, "key", translate("key"))
435 key:depends("encryption", "wep")
436 key:depends("encryption", "psk")
437 key:depends("encryption", "psk2")
438 key:depends("encryption", "psk+psk2")
439 key:depends("encryption", "mixed")
440 key:depends({mode="ap", encryption="wpa"})
441 key:depends({mode="ap", encryption="wpa2"})
445 if hwtype == "atheros" or hwtype == "mac80211" or hwtype == "prism2" then
446 nasid = s:taboption("encryption", Value, "nasid", translate("a_w_nasid"))
447 nasid:depends({mode="ap", encryption="wpa"})
448 nasid:depends({mode="ap", encryption="wpa2"})
451 eaptype = s:taboption("encryption", ListValue, "eap_type", translate("a_w_eaptype"))
453 eaptype:value("TTLS")
454 eaptype:value("PEAP")
455 eaptype:depends({mode="sta", encryption="wpa"})
456 eaptype:depends({mode="sta", encryption="wpa2"})
458 cacert = s:taboption("encryption", FileUpload, "ca_cert", translate("a_w_cacert"))
459 cacert:depends({mode="sta", encryption="wpa"})
460 cacert:depends({mode="sta", encryption="wpa2"})
462 privkey = s:taboption("encryption", FileUpload, "priv_key", translate("a_w_tlsprivkey"))
463 privkey:depends({mode="sta", eap_type="TLS", encryption="wpa2"})
464 privkey:depends({mode="sta", eap_type="TLS", encryption="wpa"})
466 privkeypwd = s:taboption("encryption", Value, "priv_key_pwd", translate("a_w_tlsprivkeypwd"))
467 privkeypwd:depends({mode="sta", eap_type="TLS", encryption="wpa2"})
468 privkeypwd:depends({mode="sta", eap_type="TLS", encryption="wpa"})
471 auth = s:taboption("encryption", Value, "auth", translate("a_w_peapauth"))
475 auth:value("MSCHAPV2")
476 auth:depends({mode="sta", eap_type="PEAP", encryption="wpa2"})
477 auth:depends({mode="sta", eap_type="PEAP", encryption="wpa"})
478 auth:depends({mode="sta", eap_type="TTLS", encryption="wpa2"})
479 auth:depends({mode="sta", eap_type="TTLS", encryption="wpa"})
482 identity = s:taboption("encryption", Value, "identity", translate("a_w_peapidentity"))
483 identity:depends({mode="sta", eap_type="PEAP", encryption="wpa2"})
484 identity:depends({mode="sta", eap_type="PEAP", encryption="wpa"})
485 identity:depends({mode="sta", eap_type="TTLS", encryption="wpa2"})
486 identity:depends({mode="sta", eap_type="TTLS", encryption="wpa"})
488 password = s:taboption("encryption", Value, "password", translate("a_w_peappassword"))
489 password:depends({mode="sta", eap_type="PEAP", encryption="wpa2"})
490 password:depends({mode="sta", eap_type="PEAP", encryption="wpa"})
491 password:depends({mode="sta", eap_type="TTLS", encryption="wpa2"})
492 password:depends({mode="sta", eap_type="TTLS", encryption="wpa"})