613319bfc383429f641ffd08165251bd982277d8
[project/luci.git] / modules / admin-full / luasrc / model / cbi / admin_network / wifi.lua
1 --[[
2 LuCI - Lua Configuration Interface
3
4 Copyright 2008 Steven Barth <steven@midlink.org>
5
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
9
10 http://www.apache.org/licenses/LICENSE-2.0
11
12 $Id$
13 ]]--
14
15 local wa = require "luci.tools.webadmin"
16 local fs = require "nixio.fs"
17
18 arg[1] = arg[1] or ""
19
20 m = Map("wireless", translate("networks"), translate("a_w_networks1"))
21
22
23 local iw = nil
24 local tx_powers = nil
25
26 m.uci:foreach("wireless", "wifi-iface",
27 function(s)
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 { }
31 end
32 end)
33
34 s = m:section(NamedSection, arg[1], "wifi-device", translate("device") .. " " .. arg[1])
35 s.addremove = false
36
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"))
40
41 --[[
42 back = s:option(DummyValue, "_overview", translate("overview"))
43 back.value = ""
44 back.titleref = luci.dispatcher.build_url("admin", "network", "wireless")
45 ]]
46
47 en = s:taboption("general", Flag, "disabled", translate("enable"))
48 en.enabled = "0"
49 en.disabled = "1"
50 en.rmempty = false
51
52 function en.cfgvalue(self, section)
53 return Flag.cfgvalue(self, section) or "0"
54 end
55
56 s:taboption("general", DummyValue, "type", translate("type"))
57
58 local hwtype = m:get(arg[1], "type")
59 -- NanoFoo
60 local nsantenna = m:get(arg[1], "antenna")
61
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 })
66 end
67
68
69 ------------------- MAC80211 Device ------------------
70
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")
75
76 tp.rmempty = true
77 for _, p in ipairs(iw.txpwrlist) do
78 tp:value(p.dbm, "%i dBm (%i mW)" %{ p.dbm, p.mw })
79 end
80 end
81
82
83 ------------------- Madwifi Device ------------------
84
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")
89
90 tp.rmempty = true
91 for _, p in ipairs(iw.txpwrlist) do
92 tp:value(p.dbm, "%i dBm (%i mW)" %{ p.dbm, p.mw })
93 end
94
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"))
104
105 s:taboption("advanced", Flag, "diversity", translate("wifi_diversity")).rmempty = false
106
107 if not nsantenna then
108 ant1 = s:taboption("advanced", ListValue, "txantenna", translate("wifi_txantenna"))
109 ant1.widget = "radio"
110 ant1:depends("diversity", "")
111 ant1:value("0", translate("wifi_auto"))
112 ant1:value("1", translate("wifi_ant1", "Antenna 1"))
113 ant1:value("2", translate("wifi_ant2", "Antenna 2"))
114
115 ant2 = s:taboption("advanced", ListValue, "rxantenna", translate("wifi_rxantenna"))
116 ant2.widget = "radio"
117 ant2:depends("diversity", "")
118 ant2:value("0", translate("wifi_auto"))
119 ant2:value("1", translate("wifi_ant1", "Antenna 1"))
120 ant2:value("2", translate("wifi_ant2", "Antenna 2"))
121
122 else -- NanoFoo
123 local ant = s:taboption("advanced", ListValue, "antenna", translate("wifi_txantenna"))
124 ant:value("auto")
125 ant:value("vertical")
126 ant:value("horizontal")
127 ant:value("external")
128 end
129
130 s:taboption("advanced", Value, "distance", translate("wifi_distance"),
131 translate("wifi_distance_desc"))
132 s:taboption("advanced", Value, "regdomain", translate("wifi_regdomain"))
133 s:taboption("advanced", Value, "country", translate("wifi_country"))
134 s:taboption("advanced", Flag, "outdoor", translate("wifi_outdoor"))
135
136 --s:option(Flag, "nosbeacon", translate("wifi_nosbeacon"))
137 end
138
139
140
141 ------------------- Broadcom Device ------------------
142
143 if hwtype == "broadcom" then
144 tp = s:taboption("general",
145 (#tx_powers > 0) and ListValue or Value,
146 "txpower", translate("a_w_txpwr"), "dBm")
147
148 tp.rmempty = true
149 for _, p in ipairs(iw.txpwrlist) do
150 tp:value(p.dbm, "%i dBm (%i mW)" %{ p.dbm, p.mw })
151 end
152
153 mp = s:taboption("macfilter", ListValue, "macfilter", translate("wifi_macpolicy"))
154 mp:value("", translate("disable"))
155 mp:value("allow", translate("wifi_whitelist"))
156 mp:value("deny", translate("wifi_blacklist"))
157 ml = s:taboption("macfilter", DynamicList, "maclist", translate("wifi_maclist"))
158 ml:depends({macfilter="allow"})
159 ml:depends({macfilter="deny"})
160
161 ant1 = s:taboption("advanced", ListValue, "txantenna", translate("wifi_txantenna"))
162 ant1.widget = "radio"
163 ant1:depends("diversity", "")
164 ant1:value("3", translate("wifi_auto"))
165 ant1:value("0", translate("wifi_ant1", "Antenna 1"))
166 ant1:value("1", translate("wifi_ant2", "Antenna 2"))
167
168 ant2 = s:taboption("advanced", ListValue, "rxantenna", translate("wifi_rxantenna"))
169 ant2.widget = "radio"
170 ant2:depends("diversity", "")
171 ant2:value("3", translate("wifi_auto"))
172 ant2:value("0", translate("wifi_ant1", "Antenna 1"))
173 ant2:value("1", translate("wifi_ant2", "Antenna 2"))
174
175 s:taboption("advanced", Flag, "frameburst", translate("wifi_bursting"))
176
177 s:taboption("advanced", Value, "distance", translate("wifi_distance"))
178 --s:option(Value, "slottime", translate("wifi_slottime"))
179
180 s:taboption("advanced", Value, "country", translate("wifi_country"))
181 s:taboption("advanced", Value, "maxassoc", translate("wifi_maxassoc"))
182 end
183
184
185 --------------------- HostAP Device ---------------------
186
187 if hwtype == "prism2" then
188 s:taboption("advanced", Value, "txpower", translate("a_w_txpwr"), "att units").rmempty = true
189
190 s:taboption("advanced", Flag, "diversity", translate("wifi_diversity")).rmempty = false
191
192 s:taboption("advanced", Value, "txantenna", translate("wifi_txantenna"))
193 s:taboption("advanced", Value, "rxantenna", translate("wifi_rxantenna"))
194 end
195
196
197 ----------------------- Interface -----------------------
198
199 s = m:section(TypedSection, "wifi-iface", translate("interfaces"))
200 s.addremove = (iw and iw.mbssid_support) and true or false
201 s.anonymous = true
202 s:depends("device", arg[1])
203 s.defaults.device = arg[1]
204
205 s:tab("general", translate("a_w_general", "General Setup"))
206 s:tab("encryption", translate("a_w_security", "Wireless Security"))
207 s:tab("macfilter", translate("a_w_macfilter", "MAC-Filter"))
208 s:tab("advanced", translate("a_w_advanced", "Advanced Settings"))
209
210 s:taboption("general", Value, "ssid", translate("wifi_essid"))
211
212 mode = s:taboption("general", ListValue, "mode", translate("mode"))
213 mode.override_values = true
214 mode:value("ap", translate("a_w_ap"))
215 mode:value("sta", translate("a_w_client"))
216 mode:value("adhoc", translate("a_w_adhoc"))
217
218 bssid = s:taboption("general", Value, "bssid", translate("wifi_bssid"))
219
220 network = s:taboption("general", Value, "network", translate("network"), translate("a_w_network1"))
221 network.rmempty = true
222 network:value("")
223 network.combobox_manual = translate("a_w_netmanual")
224 wa.cbi_add_networks(network)
225
226 function network.write(self, section, value)
227 if not m.uci:get("network", value) then
228 -- avoid "value not defined in enum" because network is not known yet
229 s.override_scheme = true
230
231 m:chain("network")
232 m.uci:set("network", value, "interface")
233 Value.write(self, section, value)
234 else
235 if m.uci:get("network", value) == "interface" then
236 Value.write(self, section, value)
237 end
238 end
239 end
240
241
242 -------------------- MAC80211 Interface ----------------------
243
244 if hwtype == "mac80211" then
245 if fs.access("/usr/sbin/iw") then
246 mode:value("mesh", "802.11s")
247 end
248
249 mode:value("ahdemo", translate("a_w_ahdemo"))
250 mode:value("monitor", translate("a_w_monitor"))
251 bssid:depends({mode="adhoc"})
252
253 s:taboption("advanced", Value, "frag", translate("wifi_frag"))
254 s:taboption("advanced", Value, "rts", translate("wifi_rts"))
255 end
256
257
258
259 -------------------- Madwifi Interface ----------------------
260
261 if hwtype == "atheros" then
262 mode:value("ahdemo", translate("a_w_ahdemo"))
263 mode:value("monitor", translate("a_w_monitor"))
264 mode:value("ap-wds", "%s (%s)" % {translate("a_w_ap"), translate("a_w_wds")})
265 mode:value("sta-wds", "%s (%s)" % {translate("a_w_client"), translate("a_w_wds")})
266
267 function mode.write(self, section, value)
268 if value == "ap-wds" then
269 ListValue.write(self, section, "ap")
270 m.uci:set("wireless", section, "wds", 1)
271 elseif value == "sta-wds" then
272 ListValue.write(self, section, "sta")
273 m.uci:set("wireless", section, "wds", 1)
274 else
275 ListValue.write(self, section, value)
276 m.uci:delete("wireless", section, "wds")
277 end
278 end
279
280 function mode.cfgvalue(self, section)
281 local mode = ListValue.cfgvalue(self, section)
282 local wds = m.uci:get("wireless", section, "wds") == "1"
283
284 if mode == "ap" and wds then
285 return "ap-wds"
286 elseif mode == "sta" and wds then
287 return "sta-wds"
288 else
289 return mode
290 end
291 end
292
293 bssid:depends({mode="adhoc"})
294 bssid:depends({mode="ahdemo"})
295
296 wdssep = s:taboption("advanced", Flag, "wdssep", translate("wifi_wdssep"))
297 wdssep:depends({mode="ap-wds"})
298
299 s:taboption("advanced", Flag, "doth", "802.11h")
300 hidden = s:taboption("general", Flag, "hidden", translate("wifi_hidden"))
301 hidden:depends({mode="ap"})
302 hidden:depends({mode="adhoc"})
303 hidden:depends({mode="ap-wds"})
304 hidden:depends({mode="sta-wds"})
305 isolate = s:taboption("advanced", Flag, "isolate", translate("wifi_isolate"),
306 translate("wifi_isolate_desc"))
307 isolate:depends({mode="ap"})
308 s:taboption("advanced", Flag, "bgscan", translate("wifi_bgscan"))
309
310 mp = s:taboption("macfilter", ListValue, "macpolicy", translate("wifi_macpolicy"))
311 mp:value("", translate("disable"))
312 mp:value("deny", translate("wifi_whitelist"))
313 mp:value("allow", translate("wifi_blacklist"))
314 ml = s:taboption("macfilter", DynamicList, "maclist", translate("wifi_maclist"))
315 ml:depends({macpolicy="allow"})
316 ml:depends({macpolicy="deny"})
317
318 s:taboption("advanced", Value, "rate", translate("wifi_rate"))
319 s:taboption("advanced", Value, "mcast_rate", translate("wifi_mcast_rate"))
320 s:taboption("advanced", Value, "frag", translate("wifi_frag"))
321 s:taboption("advanced", Value, "rts", translate("wifi_rts"))
322 s:taboption("advanced", Value, "minrate", translate("wifi_minrate"))
323 s:taboption("advanced", Value, "maxrate", translate("wifi_maxrate"))
324 s:taboption("advanced", Flag, "compression", translate("wifi_compression"))
325
326 s:taboption("advanced", Flag, "bursting", translate("wifi_bursting"))
327 s:taboption("advanced", Flag, "turbo", translate("wifi_turbo"))
328 s:taboption("advanced", Flag, "ff", translate("wifi_ff"))
329
330 s:taboption("advanced", Flag, "wmm", translate("wifi_wmm"))
331 s:taboption("advanced", Flag, "xr", translate("wifi_xr"))
332 s:taboption("advanced", Flag, "ar", translate("wifi_ar"))
333
334 local swm = s:taboption("advanced", Flag, "sw_merge", translate("wifi_nosbeacon"))
335 swm:depends({mode="adhoc"})
336
337 local nos = s:taboption("advanced", Flag, "nosbeacon", translate("wifi_nosbeacon"))
338 nos:depends({mode="sta"})
339 nos:depends({mode="sta-wds"})
340
341 local probereq = s:taboption("advanced", Flag, "probereq", translate("wifi_noprobereq"))
342 probereq.enabled = "0"
343 probereq.disabled = "1"
344 end
345
346
347 -------------------- Broadcom Interface ----------------------
348
349 if hwtype == "broadcom" then
350 mode:value("wds", translate("a_w_wds"))
351 mode:value("monitor", translate("a_w_monitor"))
352
353 hidden = s:taboption("general", Flag, "hidden", translate("wifi_hidden"))
354 hidden:depends({mode="ap"})
355 hidden:depends({mode="adhoc"})
356 hidden:depends({mode="wds"})
357
358 isolate = s:taboption("advanced", Flag, "isolate", translate("wifi_isolate"),
359 translate("wifi_isolate_desc"))
360 isolate:depends({mode="ap"})
361
362 s:taboption("advanced", Flag, "doth", "802.11h")
363 s:taboption("advanced", Flag, "wmm", translate("wifi_wmm"))
364
365 bssid:depends({mode="wds"})
366 bssid:depends({mode="adhoc"})
367 end
368
369
370 ----------------------- HostAP Interface ---------------------
371
372 if hwtype == "prism2" then
373 mode:value("wds", translate("a_w_wds"))
374 mode:value("monitor", translate("a_w_monitor"))
375
376 hidden = s:taboption("general", Flag, "hidden", translate("wifi_hidden"))
377 hidden:depends({mode="ap"})
378 hidden:depends({mode="adhoc"})
379 hidden:depends({mode="wds"})
380
381 bssid:depends({mode="sta"})
382
383 mp = s:taboption("macfilter", ListValue, "macpolicy", translate("wifi_macpolicy"))
384 mp:value("", translate("disable"))
385 mp:value("deny", translate("wifi_whitelist"))
386 mp:value("allow", translate("wifi_blacklist"))
387 ml = s:taboption("macfilter", DynamicList, "maclist", translate("wifi_maclist"))
388 ml:depends({macpolicy="allow"})
389 ml:depends({macpolicy="deny"})
390
391 s:taboption("advanced", Value, "rate", translate("wifi_rate"))
392 s:taboption("advanced", Value, "frag", translate("wifi_frag"))
393 s:taboption("advanced", Value, "rts", translate("wifi_rts"))
394 end
395
396
397 ------------------- WiFI-Encryption -------------------
398
399 encr = s:taboption("encryption", ListValue, "encryption", translate("encryption"))
400 encr.override_values = true
401 encr:depends({mode="ap"})
402 encr:depends({mode="sta"})
403 encr:depends({mode="adhoc"})
404 encr:depends({mode="ahdemo"})
405 encr:depends({mode="ap-wds"})
406 encr:depends({mode="sta-wds"})
407 encr:depends({mode="mesh"})
408
409 encr:value("none", "No Encryption")
410 encr:value("wep", "WEP")
411
412 if hwtype == "atheros" or hwtype == "mac80211" or hwtype == "prism2" then
413 local supplicant = fs.access("/usr/sbin/wpa_supplicant")
414 local hostapd = fs.access("/usr/sbin/hostapd")
415
416 if hostapd and supplicant then
417 encr:value("psk", "WPA-PSK")
418 encr:value("psk2", "WPA2-PSK")
419 encr:value("psk-mixed", "WPA-PSK/WPA2-PSK Mixed Mode")
420 encr:value("wpa", "WPA-EAP", {mode="ap"}, {mode="sta"}, {mode="ap-wds"}, {mode="sta-wds"})
421 encr:value("wpa2", "WPA2-EAP", {mode="ap"}, {mode="sta"})
422 elseif hostapd and not supplicant then
423 encr:value("psk", "WPA-PSK", {mode="ap"}, {mode="ap-wds"}, {mode="adhoc"}, {mode="ahdemo"})
424 encr:value("psk2", "WPA2-PSK", {mode="ap"}, {mode="ap-wds"}, {mode="adhoc"}, {mode="ahdemo"})
425 encr:value("psk-mixed", "WPA-PSK/WPA2-PSK Mixed Mode", {mode="ap"}, {mode="ap-wds"}, {mode="adhoc"}, {mode="ahdemo"})
426 encr:value("wpa", "WPA-EAP", {mode="ap"}, {mode="ap-wds"})
427 encr:value("wpa2", "WPA2-EAP", {mode="ap"}, {mode="ap-wds"})
428 encr.description = translate("wifi_wpareq")
429 elseif not hostapd and supplicant then
430 encr:value("psk", "WPA-PSK", {mode="sta"}, {mode="sta-wds"})
431 encr:value("psk2", "WPA2-PSK", {mode="sta"}, {mode="sta-wds"})
432 encr:value("psk-mixed", "WPA-PSK/WPA2-PSK Mixed Mode", {mode="sta"}, {mode="sta-wds"})
433 encr:value("wpa", "WPA-EAP", {mode="sta"}, {mode="sta-wds"})
434 encr:value("wpa2", "WPA2-EAP", {mode="sta"}, {mode="sta-wds"})
435 encr.description = translate("wifi_wpareq")
436 else
437 encr.description = translate("wifi_wpareq")
438 end
439 elseif hwtype == "broadcom" then
440 encr:value("psk", "WPA-PSK")
441 encr:value("psk2", "WPA2-PSK")
442 encr:value("psk+psk2", "WPA-PSK/WPA2-PSK Mixed Mode")
443 end
444
445 encr:depends("mode", "ap")
446 encr:depends("mode", "sta")
447 encr:depends("mode", "ap-wds")
448 encr:depends("mode", "sta-wds")
449 encr:depends("mode", "wds")
450
451 server = s:taboption("encryption", Value, "server", translate("a_w_radiussrv"))
452 server:depends({mode="ap", encryption="wpa"})
453 server:depends({mode="ap", encryption="wpa2"})
454 server.rmempty = true
455
456 port = s:taboption("encryption", Value, "port", translate("a_w_radiusport"))
457 port:depends({mode="ap", encryption="wpa"})
458 port:depends({mode="ap", encryption="wpa2"})
459 port.rmempty = true
460
461 key = s:taboption("encryption", Value, "key", translate("key"))
462 key:depends("encryption", "wep")
463 key:depends("encryption", "psk")
464 key:depends("encryption", "psk2")
465 key:depends("encryption", "psk+psk2")
466 key:depends("encryption", "psk-mixed")
467 key:depends({mode="ap", encryption="wpa"})
468 key:depends({mode="ap", encryption="wpa2"})
469 key.rmempty = true
470 key.password = true
471
472 if hwtype == "atheros" or hwtype == "mac80211" or hwtype == "prism2" then
473 nasid = s:taboption("encryption", Value, "nasid", translate("a_w_nasid"))
474 nasid:depends({mode="ap", encryption="wpa"})
475 nasid:depends({mode="ap", encryption="wpa2"})
476 nasid.rmempty = true
477
478 eaptype = s:taboption("encryption", ListValue, "eap_type", translate("a_w_eaptype"))
479 eaptype:value("TLS")
480 eaptype:value("TTLS")
481 eaptype:value("PEAP")
482 eaptype:depends({mode="sta", encryption="wpa"})
483 eaptype:depends({mode="sta", encryption="wpa2"})
484
485 cacert = s:taboption("encryption", FileUpload, "ca_cert", translate("a_w_cacert"))
486 cacert:depends({mode="sta", encryption="wpa"})
487 cacert:depends({mode="sta", encryption="wpa2"})
488
489 privkey = s:taboption("encryption", FileUpload, "priv_key", translate("a_w_tlsprivkey"))
490 privkey:depends({mode="sta", eap_type="TLS", encryption="wpa2"})
491 privkey:depends({mode="sta", eap_type="TLS", encryption="wpa"})
492
493 privkeypwd = s:taboption("encryption", Value, "priv_key_pwd", translate("a_w_tlsprivkeypwd"))
494 privkeypwd:depends({mode="sta", eap_type="TLS", encryption="wpa2"})
495 privkeypwd:depends({mode="sta", eap_type="TLS", encryption="wpa"})
496
497
498 auth = s:taboption("encryption", Value, "auth", translate("a_w_peapauth"))
499 auth:value("PAP")
500 auth:value("CHAP")
501 auth:value("MSCHAP")
502 auth:value("MSCHAPV2")
503 auth:depends({mode="sta", eap_type="PEAP", encryption="wpa2"})
504 auth:depends({mode="sta", eap_type="PEAP", encryption="wpa"})
505 auth:depends({mode="sta", eap_type="TTLS", encryption="wpa2"})
506 auth:depends({mode="sta", eap_type="TTLS", encryption="wpa"})
507
508
509 identity = s:taboption("encryption", Value, "identity", translate("a_w_peapidentity"))
510 identity:depends({mode="sta", eap_type="PEAP", encryption="wpa2"})
511 identity:depends({mode="sta", eap_type="PEAP", encryption="wpa"})
512 identity:depends({mode="sta", eap_type="TTLS", encryption="wpa2"})
513 identity:depends({mode="sta", eap_type="TTLS", encryption="wpa"})
514
515 password = s:taboption("encryption", Value, "password", translate("a_w_peappassword"))
516 password:depends({mode="sta", eap_type="PEAP", encryption="wpa2"})
517 password:depends({mode="sta", eap_type="PEAP", encryption="wpa"})
518 password:depends({mode="sta", eap_type="TTLS", encryption="wpa2"})
519 password:depends({mode="sta", eap_type="TTLS", encryption="wpa"})
520 end
521
522
523 return m