0ad4362c0b6625ba6a97ea22b3bd51dd5209ee30
[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 nw = require "luci.model.network"
17 local ww = require "luci.model.wireless"
18 local fs = require "nixio.fs"
19
20 arg[1] = arg[1] or ""
21 arg[2] = arg[2] or ""
22
23 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."))
24 m:chain("network")
25
26 local ifsection
27
28 function m.on_commit(map)
29 nw.init(map.uci)
30 ww.init(map.uci)
31
32 local wnet = ww:get_network(arg[2])
33 if ifsection and wnet then
34 ifsection.section = wnet.sid
35 end
36 end
37
38 nw.init(m.uci)
39 ww.init(m.uci)
40
41
42 local iw = nil
43 local tx_powers = nil
44
45 m.uci:foreach("wireless", "wifi-iface",
46 function(s)
47 if s.device == arg[1] and not iw then
48 iw = luci.sys.wifi.getiwinfo(s.ifname or s.device)
49 tx_powers = iw.txpwrlist or { }
50 end
51 end)
52
53 s = m:section(NamedSection, arg[1], "wifi-device", translate("Device") .. " " .. arg[1])
54 s.addremove = false
55
56 s:tab("general", translate("General Setup"))
57 s:tab("macfilter", translate("MAC-Filter"))
58 s:tab("advanced", translate("Advanced Settings"))
59
60 --[[
61 back = s:option(DummyValue, "_overview", translate("Overview"))
62 back.value = ""
63 back.titleref = luci.dispatcher.build_url("admin", "network", "wireless")
64 ]]
65
66 en = s:taboption("general", Flag, "disabled", translate("enable"))
67 en.enabled = "0"
68 en.disabled = "1"
69 en.rmempty = false
70
71 function en.cfgvalue(self, section)
72 return Flag.cfgvalue(self, section) or "0"
73 end
74
75 s:taboption("general", DummyValue, "type", translate("Type"))
76
77 local hwtype = m:get(arg[1], "type")
78 -- NanoFoo
79 local nsantenna = m:get(arg[1], "antenna")
80
81 ch = s:taboption("general", Value, "channel", translate("Channel"))
82 ch:value("auto", translate("auto"))
83 for c, f in luci.util.kspairs(luci.sys.wifi.channels()) do
84 ch:value(c, "%i (%.3f GHz)" %{ c, f })
85 end
86
87
88 ------------------- MAC80211 Device ------------------
89
90 if hwtype == "mac80211" then
91 tp = s:taboption("general",
92 (tx_powers and #tx_powers > 0) and ListValue or Value,
93 "txpower", translate("Transmit Power"), "dBm")
94
95 tp.rmempty = true
96 for _, p in ipairs(iw and iw.txpwrlist or {}) do
97 tp:value(p.dbm, "%i dBm (%i mW)" %{ p.dbm, p.mw })
98 end
99 end
100
101
102 ------------------- Madwifi Device ------------------
103
104 if hwtype == "atheros" then
105 tp = s:taboption("general",
106 (#tx_powers > 0) and ListValue or Value,
107 "txpower", translate("Transmit Power"), "dBm")
108
109 tp.rmempty = true
110 for _, p in ipairs(iw.txpwrlist) do
111 tp:value(p.dbm, "%i dBm (%i mW)" %{ p.dbm, p.mw })
112 end
113
114 mode = s:taboption("advanced", ListValue, "hwmode", translate("Mode"))
115 mode:value("", translate("auto"))
116 mode:value("11b", "802.11b")
117 mode:value("11g", "802.11g")
118 mode:value("11a", "802.11a")
119 mode:value("11bg", "802.11b+g")
120 mode:value("11gst", "802.11g + Turbo")
121 mode:value("11ast", "802.11a + Turbo")
122 mode:value("fh", translate("Frequency Hopping"))
123
124 s:taboption("advanced", Flag, "diversity", translate("Diversity")).rmempty = false
125
126 if not nsantenna then
127 ant1 = s:taboption("advanced", ListValue, "txantenna", translate("Transmitter Antenna"))
128 ant1.widget = "radio"
129 ant1.orientation = "horizontal"
130 ant1:depends("diversity", "")
131 ant1:value("0", translate("auto"))
132 ant1:value("1", translate("Antenna 1"))
133 ant1:value("2", translate("Antenna 2"))
134
135 ant2 = s:taboption("advanced", ListValue, "rxantenna", translate("Receiver Antenna"))
136 ant2.widget = "radio"
137 ant2.orientation = "horizontal"
138 ant2:depends("diversity", "")
139 ant2:value("0", translate("auto"))
140 ant2:value("1", translate("Antenna 1"))
141 ant2:value("2", translate("Antenna 2"))
142
143 else -- NanoFoo
144 local ant = s:taboption("advanced", ListValue, "antenna", translate("Transmitter Antenna"))
145 ant:value("auto")
146 ant:value("vertical")
147 ant:value("horizontal")
148 ant:value("external")
149 end
150
151 s:taboption("advanced", Value, "distance", translate("Distance Optimization"),
152 translate("Distance to farthest network member in meters."))
153 s:taboption("advanced", Value, "regdomain", translate("Regulatory Domain"))
154 s:taboption("advanced", Value, "country", translate("Country Code"))
155 s:taboption("advanced", Flag, "outdoor", translate("Outdoor Channels"))
156
157 --s:option(Flag, "nosbeacon", translate("Disable HW-Beacon timer"))
158 end
159
160
161
162 ------------------- Broadcom Device ------------------
163
164 if hwtype == "broadcom" then
165 tp = s:taboption("general",
166 (#tx_powers > 0) and ListValue or Value,
167 "txpower", translate("Transmit Power"), "dBm")
168
169 tp.rmempty = true
170 for _, p in ipairs(iw.txpwrlist) do
171 tp:value(p.dbm, "%i dBm (%i mW)" %{ p.dbm, p.mw })
172 end
173
174 mp = s:taboption("macfilter", ListValue, "macfilter", translate("MAC-Address Filter"))
175 mp:value("", translate("disable"))
176 mp:value("allow", translate("Allow listed only"))
177 mp:value("deny", translate("Allow all except listed"))
178 ml = s:taboption("macfilter", DynamicList, "maclist", translate("MAC-List"))
179 ml:depends({macfilter="allow"})
180 ml:depends({macfilter="deny"})
181
182 ant1 = s:taboption("advanced", ListValue, "txantenna", translate("Transmitter Antenna"))
183 ant1.widget = "radio"
184 ant1:depends("diversity", "")
185 ant1:value("3", translate("auto"))
186 ant1:value("0", translate("Antenna 1"))
187 ant1:value("1", translate("Antenna 2"))
188
189 ant2 = s:taboption("advanced", ListValue, "rxantenna", translate("Receiver Antenna"))
190 ant2.widget = "radio"
191 ant2:depends("diversity", "")
192 ant2:value("3", translate("auto"))
193 ant2:value("0", translate("Antenna 1"))
194 ant2:value("1", translate("Antenna 2"))
195
196 s:taboption("advanced", Flag, "frameburst", translate("Frame Bursting"))
197
198 s:taboption("advanced", Value, "distance", translate("Distance Optimization"))
199 --s:option(Value, "slottime", translate("Slot time"))
200
201 s:taboption("advanced", Value, "country", translate("Country Code"))
202 s:taboption("advanced", Value, "maxassoc", translate("Connection Limit"))
203 end
204
205
206 --------------------- HostAP Device ---------------------
207
208 if hwtype == "prism2" then
209 s:taboption("advanced", Value, "txpower", translate("Transmit Power"), "att units").rmempty = true
210
211 s:taboption("advanced", Flag, "diversity", translate("Diversity")).rmempty = false
212
213 s:taboption("advanced", Value, "txantenna", translate("Transmitter Antenna"))
214 s:taboption("advanced", Value, "rxantenna", translate("Receiver Antenna"))
215 end
216
217
218 ----------------------- Interface -----------------------
219
220 local wnet = ww:get_network(arg[2])
221
222 if wnet then
223 s = m:section(NamedSection, wnet.sid, "wifi-iface", ww:get_i18n(wnet))
224 ifsection = s
225 s.addremove = false
226 s.anonymous = true
227 s.defaults.device = arg[1]
228
229 s:tab("general", translate("General Setup"))
230 s:tab("encryption", translate("Wireless Security"))
231 s:tab("macfilter", translate("MAC-Filter"))
232 s:tab("advanced", translate("Advanced Settings"))
233
234 s:taboption("general", Value, "ssid", translate("<abbr title=\"Extended Service Set Identifier\">ESSID</abbr>"))
235
236 mode = s:taboption("general", ListValue, "mode", translate("Mode"))
237 mode.override_values = true
238 mode:value("ap", translate("Access Point"))
239 mode:value("sta", translate("Client"))
240 mode:value("adhoc", translate("Ad-Hoc"))
241
242 bssid = s:taboption("general", Value, "bssid", translate("<abbr title=\"Basic Service Set Identifier\">BSSID</abbr>"))
243
244 network = s:taboption("general", Value, "network", translate("Network"), translate("Add the Wifi network to physical network"))
245 network.rmempty = true
246 network.template = "cbi/network_netlist"
247 network.widget = "radio"
248
249 function network.write(self, section, value)
250 local i = nw:get_interface(section)
251 if i then
252 if value == '-' then
253 value = m:formvalue(self:cbid(section) .. ".newnet")
254 if value and #value > 0 then
255 local n = nw:add_network(value, {type="bridge", proto="none"})
256 if n then n:add_interface(i) end
257 else
258 local n = i:get_network()
259 if n then n:del_interface(i) end
260 end
261 else
262 local n = nw:get_network(value)
263 if n then
264 n:type("bridge")
265 n:add_interface(i)
266 end
267 end
268 end
269 end
270
271 -------------------- MAC80211 Interface ----------------------
272
273 if hwtype == "mac80211" then
274 if fs.access("/usr/sbin/iw") then
275 mode:value("mesh", "802.11s")
276 end
277
278 mode:value("ahdemo", translate("Pseudo Ad-Hoc (ahdemo)"))
279 mode:value("monitor", translate("Monitor"))
280 bssid:depends({mode="adhoc"})
281
282 s:taboption("advanced", Value, "frag", translate("Fragmentation Threshold"))
283 s:taboption("advanced", Value, "rts", translate("RTS/CTS Threshold"))
284 end
285
286
287
288 -------------------- Madwifi Interface ----------------------
289
290 if hwtype == "atheros" then
291 mode:value("ahdemo", translate("Pseudo Ad-Hoc (ahdemo)"))
292 mode:value("monitor", translate("Monitor"))
293 mode:value("ap-wds", "%s (%s)" % {translate("Access Point"), translate("WDS")})
294 mode:value("sta-wds", "%s (%s)" % {translate("Client"), translate("WDS")})
295
296 function mode.write(self, section, value)
297 if value == "ap-wds" then
298 ListValue.write(self, section, "ap")
299 m.uci:set("wireless", section, "wds", 1)
300 elseif value == "sta-wds" then
301 ListValue.write(self, section, "sta")
302 m.uci:set("wireless", section, "wds", 1)
303 else
304 ListValue.write(self, section, value)
305 m.uci:delete("wireless", section, "wds")
306 end
307 end
308
309 function mode.cfgvalue(self, section)
310 local mode = ListValue.cfgvalue(self, section)
311 local wds = m.uci:get("wireless", section, "wds") == "1"
312
313 if mode == "ap" and wds then
314 return "ap-wds"
315 elseif mode == "sta" and wds then
316 return "sta-wds"
317 else
318 return mode
319 end
320 end
321
322 bssid:depends({mode="adhoc"})
323 bssid:depends({mode="ahdemo"})
324
325 wdssep = s:taboption("advanced", Flag, "wdssep", translate("Separate WDS"))
326 wdssep:depends({mode="ap-wds"})
327
328 s:taboption("advanced", Flag, "doth", "802.11h")
329 hidden = s:taboption("general", Flag, "hidden", translate("Hide <abbr title=\"Extended Service Set Identifier\">ESSID</abbr>"))
330 hidden:depends({mode="ap"})
331 hidden:depends({mode="adhoc"})
332 hidden:depends({mode="ap-wds"})
333 hidden:depends({mode="sta-wds"})
334 isolate = s:taboption("advanced", Flag, "isolate", translate("Separate Clients"),
335 translate("Prevents client-to-client communication"))
336 isolate:depends({mode="ap"})
337 s:taboption("advanced", Flag, "bgscan", translate("Background Scan"))
338
339 mp = s:taboption("macfilter", ListValue, "macpolicy", translate("MAC-Address Filter"))
340 mp:value("", translate("disable"))
341 mp:value("deny", translate("Allow listed only"))
342 mp:value("allow", translate("Allow all except listed"))
343 ml = s:taboption("macfilter", DynamicList, "maclist", translate("MAC-List"))
344 ml:depends({macpolicy="allow"})
345 ml:depends({macpolicy="deny"})
346
347 s:taboption("advanced", Value, "rate", translate("Transmission Rate"))
348 s:taboption("advanced", Value, "mcast_rate", translate("Multicast Rate"))
349 s:taboption("advanced", Value, "frag", translate("Fragmentation Threshold"))
350 s:taboption("advanced", Value, "rts", translate("RTS/CTS Threshold"))
351 s:taboption("advanced", Value, "minrate", translate("Minimum Rate"))
352 s:taboption("advanced", Value, "maxrate", translate("Maximum Rate"))
353 s:taboption("advanced", Flag, "compression", translate("Compression"))
354
355 s:taboption("advanced", Flag, "bursting", translate("Frame Bursting"))
356 s:taboption("advanced", Flag, "turbo", translate("Turbo Mode"))
357 s:taboption("advanced", Flag, "ff", translate("Fast Frames"))
358
359 s:taboption("advanced", Flag, "wmm", translate("WMM Mode"))
360 s:taboption("advanced", Flag, "xr", translate("XR Support"))
361 s:taboption("advanced", Flag, "ar", translate("AR Support"))
362
363 local swm = s:taboption("advanced", Flag, "sw_merge", translate("Disable HW-Beacon timer"))
364 swm:depends({mode="adhoc"})
365
366 local nos = s:taboption("advanced", Flag, "nosbeacon", translate("Disable HW-Beacon timer"))
367 nos:depends({mode="sta"})
368 nos:depends({mode="sta-wds"})
369
370 local probereq = s:taboption("advanced", Flag, "probereq", translate("Do not send probe responses"))
371 probereq.enabled = "0"
372 probereq.disabled = "1"
373 end
374
375
376 -------------------- Broadcom Interface ----------------------
377
378 if hwtype == "broadcom" then
379 mode:value("wds", translate("WDS"))
380 mode:value("monitor", translate("Monitor"))
381
382 hidden = s:taboption("general", Flag, "hidden", translate("Hide <abbr title=\"Extended Service Set Identifier\">ESSID</abbr>"))
383 hidden:depends({mode="ap"})
384 hidden:depends({mode="adhoc"})
385 hidden:depends({mode="wds"})
386
387 isolate = s:taboption("advanced", Flag, "isolate", translate("Separate Clients"),
388 translate("Prevents client-to-client communication"))
389 isolate:depends({mode="ap"})
390
391 s:taboption("advanced", Flag, "doth", "802.11h")
392 s:taboption("advanced", Flag, "wmm", translate("WMM Mode"))
393
394 bssid:depends({mode="wds"})
395 bssid:depends({mode="adhoc"})
396 end
397
398
399 ----------------------- HostAP Interface ---------------------
400
401 if hwtype == "prism2" then
402 mode:value("wds", translate("WDS"))
403 mode:value("monitor", translate("Monitor"))
404
405 hidden = s:taboption("general", Flag, "hidden", translate("Hide <abbr title=\"Extended Service Set Identifier\">ESSID</abbr>"))
406 hidden:depends({mode="ap"})
407 hidden:depends({mode="adhoc"})
408 hidden:depends({mode="wds"})
409
410 bssid:depends({mode="sta"})
411
412 mp = s:taboption("macfilter", ListValue, "macpolicy", translate("MAC-Address Filter"))
413 mp:value("", translate("disable"))
414 mp:value("deny", translate("Allow listed only"))
415 mp:value("allow", translate("Allow all except listed"))
416 ml = s:taboption("macfilter", DynamicList, "maclist", translate("MAC-List"))
417 ml:depends({macpolicy="allow"})
418 ml:depends({macpolicy="deny"})
419
420 s:taboption("advanced", Value, "rate", translate("Transmission Rate"))
421 s:taboption("advanced", Value, "frag", translate("Fragmentation Threshold"))
422 s:taboption("advanced", Value, "rts", translate("RTS/CTS Threshold"))
423 end
424
425
426 ------------------- WiFI-Encryption -------------------
427
428 encr = s:taboption("encryption", ListValue, "encryption", translate("Encryption"))
429 encr.override_values = true
430 encr:depends({mode="ap"})
431 encr:depends({mode="sta"})
432 encr:depends({mode="adhoc"})
433 encr:depends({mode="ahdemo"})
434 encr:depends({mode="ap-wds"})
435 encr:depends({mode="sta-wds"})
436 encr:depends({mode="mesh"})
437
438 encr:value("none", "No Encryption")
439 encr:value("wep", "WEP")
440
441 if hwtype == "atheros" or hwtype == "mac80211" or hwtype == "prism2" then
442 local supplicant = fs.access("/usr/sbin/wpa_supplicant")
443 local hostapd = fs.access("/usr/sbin/hostapd")
444
445 if hostapd and supplicant then
446 encr:value("psk", "WPA-PSK")
447 encr:value("psk2", "WPA2-PSK")
448 encr:value("psk-mixed", "WPA-PSK/WPA2-PSK Mixed Mode")
449 encr:value("wpa", "WPA-EAP", {mode="ap"}, {mode="sta"}, {mode="ap-wds"}, {mode="sta-wds"})
450 encr:value("wpa2", "WPA2-EAP", {mode="ap"}, {mode="sta"})
451 elseif hostapd and not supplicant then
452 encr:value("psk", "WPA-PSK", {mode="ap"}, {mode="ap-wds"}, {mode="adhoc"}, {mode="ahdemo"})
453 encr:value("psk2", "WPA2-PSK", {mode="ap"}, {mode="ap-wds"}, {mode="adhoc"}, {mode="ahdemo"})
454 encr:value("psk-mixed", "WPA-PSK/WPA2-PSK Mixed Mode", {mode="ap"}, {mode="ap-wds"}, {mode="adhoc"}, {mode="ahdemo"})
455 encr:value("wpa", "WPA-EAP", {mode="ap"}, {mode="ap-wds"})
456 encr:value("wpa2", "WPA2-EAP", {mode="ap"}, {mode="ap-wds"})
457 encr.description = translate(
458 "WPA-Encryption requires wpa_supplicant (for client mode) or hostapd (for AP " ..
459 "and ad-hoc mode) to be installed."
460 )
461 elseif not hostapd and supplicant then
462 encr:value("psk", "WPA-PSK", {mode="sta"}, {mode="sta-wds"})
463 encr:value("psk2", "WPA2-PSK", {mode="sta"}, {mode="sta-wds"})
464 encr:value("psk-mixed", "WPA-PSK/WPA2-PSK Mixed Mode", {mode="sta"}, {mode="sta-wds"})
465 encr:value("wpa", "WPA-EAP", {mode="sta"}, {mode="sta-wds"})
466 encr:value("wpa2", "WPA2-EAP", {mode="sta"}, {mode="sta-wds"})
467 encr.description = translate(
468 "WPA-Encryption requires wpa_supplicant (for client mode) or hostapd (for AP " ..
469 "and ad-hoc mode) to be installed."
470 )
471 else
472 encr.description = translate(
473 "WPA-Encryption requires wpa_supplicant (for client mode) or hostapd (for AP " ..
474 "and ad-hoc mode) to be installed."
475 )
476 end
477 elseif hwtype == "broadcom" then
478 encr:value("psk", "WPA-PSK")
479 encr:value("psk2", "WPA2-PSK")
480 encr:value("psk+psk2", "WPA-PSK/WPA2-PSK Mixed Mode")
481 end
482
483 encr:depends("mode", "ap")
484 encr:depends("mode", "sta")
485 encr:depends("mode", "ap-wds")
486 encr:depends("mode", "sta-wds")
487 encr:depends("mode", "wds")
488
489 server = s:taboption("encryption", Value, "server", translate("Radius-Server"))
490 server:depends({mode="ap", encryption="wpa"})
491 server:depends({mode="ap", encryption="wpa2"})
492 server.rmempty = true
493
494 port = s:taboption("encryption", Value, "port", translate("Radius-Port"))
495 port:depends({mode="ap", encryption="wpa"})
496 port:depends({mode="ap", encryption="wpa2"})
497 port.rmempty = true
498
499 key = s:taboption("encryption", Value, "key", translate("Key"))
500 key:depends("encryption", "wep")
501 key:depends("encryption", "psk")
502 key:depends("encryption", "psk2")
503 key:depends("encryption", "psk+psk2")
504 key:depends("encryption", "psk-mixed")
505 key:depends({mode="ap", encryption="wpa"})
506 key:depends({mode="ap", encryption="wpa2"})
507 key.rmempty = true
508 key.password = true
509
510 if hwtype == "atheros" or hwtype == "mac80211" or hwtype == "prism2" then
511 nasid = s:taboption("encryption", Value, "nasid", translate("NAS ID"))
512 nasid:depends({mode="ap", encryption="wpa"})
513 nasid:depends({mode="ap", encryption="wpa2"})
514 nasid.rmempty = true
515
516 eaptype = s:taboption("encryption", ListValue, "eap_type", translate("EAP-Method"))
517 eaptype:value("TLS")
518 eaptype:value("TTLS")
519 eaptype:value("PEAP")
520 eaptype:depends({mode="sta", encryption="wpa"})
521 eaptype:depends({mode="sta", encryption="wpa2"})
522
523 cacert = s:taboption("encryption", FileUpload, "ca_cert", translate("Path to CA-Certificate"))
524 cacert:depends({mode="sta", encryption="wpa"})
525 cacert:depends({mode="sta", encryption="wpa2"})
526
527 privkey = s:taboption("encryption", FileUpload, "priv_key", translate("Path to Private Key"))
528 privkey:depends({mode="sta", eap_type="TLS", encryption="wpa2"})
529 privkey:depends({mode="sta", eap_type="TLS", encryption="wpa"})
530
531 privkeypwd = s:taboption("encryption", Value, "priv_key_pwd", translate("Password of Private Key"))
532 privkeypwd:depends({mode="sta", eap_type="TLS", encryption="wpa2"})
533 privkeypwd:depends({mode="sta", eap_type="TLS", encryption="wpa"})
534
535
536 auth = s:taboption("encryption", Value, "auth", translate("Authentication"))
537 auth:value("PAP")
538 auth:value("CHAP")
539 auth:value("MSCHAP")
540 auth:value("MSCHAPV2")
541 auth:depends({mode="sta", eap_type="PEAP", encryption="wpa2"})
542 auth:depends({mode="sta", eap_type="PEAP", encryption="wpa"})
543 auth:depends({mode="sta", eap_type="TTLS", encryption="wpa2"})
544 auth:depends({mode="sta", eap_type="TTLS", encryption="wpa"})
545
546
547 identity = s:taboption("encryption", Value, "identity", translate("Identity"))
548 identity:depends({mode="sta", eap_type="PEAP", encryption="wpa2"})
549 identity:depends({mode="sta", eap_type="PEAP", encryption="wpa"})
550 identity:depends({mode="sta", eap_type="TTLS", encryption="wpa2"})
551 identity:depends({mode="sta", eap_type="TTLS", encryption="wpa"})
552
553 password = s:taboption("encryption", Value, "password", translate("Password"))
554 password:depends({mode="sta", eap_type="PEAP", encryption="wpa2"})
555 password:depends({mode="sta", eap_type="PEAP", encryption="wpa"})
556 password:depends({mode="sta", eap_type="TTLS", encryption="wpa2"})
557 password:depends({mode="sta", eap_type="TTLS", encryption="wpa"})
558 end
559 end
560
561 return m