a35e73f7f2ee94efa397f48314a6329f756f3987
[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 require("luci.tools.webadmin")
15 arg[1] = arg[1] or ""
16
17 m = Map("wireless", translate("networks"), translate("a_w_networks1"))
18
19 s = m:section(NamedSection, arg[1], "wifi-device", translate("device") .. " " .. arg[1])
20 --s.addremove = true
21
22 en = s:option(Flag, "disabled", translate("enable"))
23 en.enabled = "0"
24 en.disabled = "1"
25
26 function en.cfgvalue(self, section)
27         return Flag.cfgvalue(self, section) or "0"
28 end
29
30 s:option(DummyValue, "type", translate("type"))
31 local hwtype = m:get(arg[1], "type")
32
33 ch = s:option(Value, "channel", translate("a_w_channel"))
34 for i=1, 14 do
35         ch:value(i, i .. " (2.4 GHz)")
36 end
37 for i=36, 64, 4 do
38         ch:value(i, i .. " (5 GHz)")
39 end
40 for i=100, 140, 4 do
41         ch:value(i, i .. " (5 GHz)")
42 end
43 ch:value(147, 147 .. " (5 GHz)")
44 ch:value(151, 151 .. " (5 GHz)")
45 ch:value(155, 155 .. " (5 GHz)")
46 ch:value(167, 167 .. " (5 GHz)")
47
48 ------------------- MAC80211 Device ------------------
49
50 if hwtype == "mac80211" then
51
52 end
53
54
55 ------------------- Madwifi Device ------------------
56
57 if hwtype == "atheros" then
58         mode = s:option(ListValue, "mode", translate("mode"))
59         mode:value("", translate("wifi_auto"))
60         mode:value("11b", "802.11b")
61         mode:value("11g", "802.11g")
62         mode:value("11a", "802.11a")
63         mode:value("11bg", "802.11b+g")
64         mode:value("11gdt", "802.11adt")
65         mode:value("11adt", "802.11adt")
66         mode:value("fh", translate("wifi_fh"))
67         
68         s:option(Flag, "diversity", translate("wifi_diversity"))
69         s:option(Value, "txantenna", translate("wifi_txantenna")).optional = true
70         s:option(Value, "rxantenna", translate("wifi_rxantenna")).optional = true
71         s:option(Value, "distance", translate("wifi_distance"),
72                 translate("wifi_distance_desc")).optional = true
73         
74         --s:option(Flag, "nosbeacon", translate("wifi_nosbeacon")).optional = true
75 end
76
77
78
79 ------------------- Broadcom Device ------------------
80
81 if hwtype == "broadcom" then
82         mp = s:option(ListValue, "macpolicy", translate("wifi_macpolicy"))
83         mp.optional = true
84         mp:value("")
85         mp:value("deny", translate("wifi_whitelist"))
86         mp:value("allow", translate("wifi_blacklist"))
87         ml = s:option(Value, "maclist", translate("wifi_maclist"))
88         ml:depends({macpolicy="allow"})
89         ml:depends({macpolicy="deny"})
90         
91         s:option(Value, "txant", translate("wifi_txantenna")).optional = true
92         s:option(Value, "rxant", translate("wifi_rxantenna")).optional = true
93         
94         s:option(Flag, "frameburst", translate("wifi_bursting")).optional = true
95         
96         s:option(Value, "distance", translate("wifi_distance")).optional = true
97         --s:option(Value, "slottime", translate("wifi_slottime")).optional = true
98         
99         s:option(Value, "country", translate("wifi_country")).optional = true
100         s:option(Value, "maxassoc", translate("wifi_maxassoc")).optional = true
101 end
102
103
104 ----------------------- Interface -----------------------
105
106 s = m:section(TypedSection, "wifi-iface", translate("interfaces"))
107 s.addremove = true
108 s.anonymous = true
109 s:depends("device", arg[1])
110 s.defaults.device = arg[1]
111
112 s:option(Value, "ssid", translate("wifi_essid"))
113
114 network = s:option(Value, "network", translate("network"), translate("a_w_network1"))
115 network.rmempty = true
116 network:value("")
117 network.combobox_manual = translate("a_w_netmanual")
118 luci.tools.webadmin.cbi_add_networks(network)
119
120 function network.write(self, section, value)    
121         if not m.uci:get("network", value) then 
122                 m:chain("network")
123                 m.uci:set("network", value, "interface")
124                 Value.write(self, section, value)
125         else
126                 if m.uci:get("network", value) == "interface" then
127                         Value.write(self, section, value)
128                 end
129         end
130 end
131
132
133 mode = s:option(ListValue, "mode", translate("mode"))
134 mode:value("ap", translate("a_w_ap"))
135 mode:value("adhoc", translate("a_w_adhoc"))
136 mode:value("sta", translate("a_w_client"))
137
138 bssid = s:option(Value, "bssid", translate("wifi_bssid"))
139
140
141 -------------------- MAC80211 Interface ----------------------
142
143 if hwtype == "mac80211" then
144         mode:value("monitor", translate("a_w_monitor"))
145         bssid:depends({mode="adhoc"})
146         
147         s:option(Value, "txpower", translate("a_w_txpwr"), "dbm").rmempty = true
148         s:option(Value, "frag", translate("wifi_frag")).optional = true
149         s:option(Value, "rts", translate("wifi_rts")).optional = true
150 end
151
152
153
154 -------------------- Madwifi Interface ----------------------
155
156 if hwtype == "atheros" then     
157         mode:value("ahdemo", translate("a_w_ahdemo"))
158         mode:value("monitor", translate("a_w_monitor"))
159         
160         bssid:depends({mode="adhoc"})
161         bssid:depends({mode="ahdemo"})
162         
163         wds = s:option(Flag, "wds", translate("a_w_wds"))
164         wds:depends({mode="ap"})
165         wds:depends({mode="sta"})
166         wds.rmempty = true
167         wdssep = s:option(Flag, "wdssep", translate("wifi_wdssep"))
168         wdssep:depends({mode="ap", wds="1"})
169         wdssep.optional = true
170         
171         s:option(Flag, "doth", "802.11h").optional = true
172         s:option(Value, "txpower", translate("a_w_txpwr"), "dbm").rmempty = true
173         hidden = s:option(Flag, "hidden", translate("wifi_hidden"))
174         hidden:depends({mode="ap"})
175         hidden:depends({mode="adhoc"})
176         hidden:depends({mode="wds"})
177         hidden.optional = true
178         isolate = s:option(Flag, "isolate", translate("wifi_isolate"),
179          translate("wifi_isolate_desc"))
180         isolate:depends({mode="ap"})
181         isolate.optional = true
182         s:option(Flag, "bgscan", translate("wifi_bgscan")).optional = true
183         
184         mp = s:option(ListValue, "macpolicy", translate("wifi_macpolicy"))
185         mp.optional = true
186         mp:value("")
187         mp:value("deny", translate("wifi_whitelist"))
188         mp:value("allow", translate("wifi_blacklist"))
189         ml = s:option(Value, "maclist", translate("wifi_maclist"))
190         ml:depends({macpolicy="allow"})
191         ml:depends({macpolicy="deny"})
192         
193         s:option(Value, "rate", translate("wifi_rate")).optional = true
194         s:option(Value, "mcast_rate", translate("wifi_mcast_rate")).optional = true
195         s:option(Value, "frag", translate("wifi_frag")).optional = true
196         s:option(Value, "rts", translate("wifi_rts")).optional = true
197         s:option(Value, "minrate", translate("wifi_minrate")).optional = true
198         s:option(Value, "maxrate", translate("wifi_maxrate")).optional = true
199         s:option(Flag, "compression", translate("wifi_compression")).optional = true
200         
201         s:option(Flag, "bursting", translate("wifi_bursting")).optional = true
202         s:option(Flag, "turbo", translate("wifi_turbo")).optional = true
203         s:option(Value, "ff", translate("wifi_ff")).optional = true
204         
205         s:option(Flag, "wmm", translate("wifi_wmm")).optional = true
206         s:option(Flag, "xr", translate("wifi_xr")).optional = true
207         s:option(Flag, "ar", translate("wifi_ar")).optional = true
208 end
209
210
211 -------------------- Broadcom Interface ----------------------
212
213 if hwtype == "broadcom" then
214         mode:value("wds", translate("a_w_wds"))
215         mode:value("monitor", translate("a_w_monitor"))
216         
217         hidden = s:option(Flag, "hidden", translate("wifi_hidden"))
218         hidden:depends({mode="ap"})
219         hidden:depends({mode="adhoc"})
220         hidden:depends({mode="wds"})
221         hidden.optional = true
222         
223         isolate = s:option(Flag, "isolate", translate("wifi_isolate"),
224          translate("wifi_isolate_desc"))
225         isolate:depends({mode="ap"})
226         isolate.optional = true
227         
228         bssid:depends({mode="wds"})
229 end
230
231
232
233 ------------------- WiFI-Encryption -------------------
234
235 encr = s:option(ListValue, "encryption", translate("encryption"))
236 encr:depends({mode="ap"})
237 encr:depends({mode="sta"})
238 encr:depends({mode="adhoc"})
239 encr:depends({mode="ahdemo"})
240
241 encr:value("none", "No Encryption")
242 encr:value("wep", "WEP")
243
244 if hwtype == "atheros" or hwtype == "mac80211" then
245         local supplicant = luci.fs.mtime("/usr/sbin/wpa_supplicant")
246         local hostapd = luci.fs.mtime("/usr/sbin/hostapd")
247         
248         if hostapd and supplicant then
249                 encr:value("psk", "WPA-PSK")
250                 encr:value("psk2", "WPA2-PSK")
251                 encr:value("wpa", "WPA-EAP", {mode="ap"}, {mode="sta"})
252                 encr:value("wpa2i", "WPA2-EAP", {mode="ap"}, {mode="sta"})
253         elseif hostapd and not supplicant then
254                 encr:value("psk", "WPA-PSK", {mode="ap"}, {mode="adhoc"}, {mode="ahdemo"})
255                 encr:value("psk2", "WPA2-PSK", {mode="ap"}, {mode="adhoc"}, {mode="ahdemo"})
256                 encr:value("wpa", "WPA-EAP", {mode="ap"})
257                 encr:value("wpa2i", "WPA2-EAP", {mode="ap"})
258                 encr.description = translate("wifi_wpareq")
259         elseif not hostapd and supplicant then
260                 encr:value("psk", "WPA-PSK", {mode="sta"})
261                 encr:value("psk2", "WPA2-PSK", {mode="sta"})
262                 encr:value("wpa", "WPA-EAP", {mode="sta"})
263                 encr:value("wpa2i", "WPA2-EAP", {mode="sta"})   
264                 encr.description = translate("wifi_wpareq")
265         else
266                 encr.description = translate("wifi_wpareq")
267         end
268 elseif hwtype == "broadcom" then
269         encr:value("psk", "WPA-PSK")
270         encr:value("psk2", "WPA2-PSK")
271 end
272
273 encr:depends("mode", "ap")
274 encr:depends("mode", "sta")
275 encr:depends("mode", "wds")
276
277 server = s:option(Value, "server", translate("a_w_radiussrv"))
278 server:depends({mode="ap", encryption="wpa"})
279 server:depends({mode="ap", encryption="wpa2i"})
280 server.rmempty = true
281
282 port = s:option(Value, "port", translate("a_w_radiusport"))
283 port:depends({mode="ap", encryption="wpa"})
284 port:depends({mode="ap", encryption="wpa2i"})
285 port.rmempty = true
286
287 key = s:option(Value, "key", translate("key"))
288 key:depends("encryption", "wep")
289 key:depends("encryption", "psk")
290 key:depends({mode="ap", encryption="wpa"})
291 key:depends("encryption", "psk2")
292 key:depends({mode="ap", encryption="wpa2i"})
293 key.rmempty = true
294
295 if hwtype == "atheros" or hwtype == "mac80211" then
296         nasid = s:option(Value, "nasid", translate("a_w_nasid"))
297         nasid:depends({mode="ap", encryption="wpa"})
298         nasid:depends({mode="ap", encryption="wpa2i"})
299         nasid.rmempty = true
300         
301         eaptype = s:option(ListValue, "eap_type", translate("a_w_eaptype"))
302         eaptype:value("TLS")
303         eaptype:value("PEAP")
304         eaptype:depends({mode="sta", encryption="wpa"})
305         eaptype:depends({mode="sta", encryption="wpa2i"})
306         
307         cacert = s:option(Value, "ca_cert", translate("a_w_cacert"))
308         cacert:depends({mode="sta", encryption="wpa"})
309         cacert:depends({mode="sta", encryption="wpa2i"})
310         
311         privkey = s:option(Value, "priv_key", translate("a_w_tlsprivkey"))
312         privkey:depends({mode="sta", eap_type="TLS", encryption="wpa2i"})
313         privkey:depends({mode="sta", eap_type="TLS", encryption="wpa"})
314         
315         privkeypwd = s:option(Value, "priv_key_pwd", translate("a_w_tlsprivkeypwd"))
316         privkeypwd:depends({mode="sta", eap_type="TLS", encryption="wpa2i"})
317         privkeypwd:depends({mode="sta", eap_type="TLS", encryption="wpa"})
318         
319         
320         auth = s:option(Value, "auth", translate("a_w_peapauth"))
321         auth:depends({mode="sta", eap_type="PEAP", encryption="wpa2i"})
322         auth:depends({mode="sta", eap_type="PEAP", encryption="wpa"})
323         
324         identity = s:option(Value, "identity", translate("a_w_peapidentity"))
325         identity:depends({mode="sta", eap_type="PEAP", encryption="wpa2i"})
326         identity:depends({mode="sta", eap_type="PEAP", encryption="wpa"})
327         
328         password = s:option(Value, "password", translate("a_w_peappassword"))
329         password:depends({mode="sta", eap_type="PEAP", encryption="wpa2i"})
330         password:depends({mode="sta", eap_type="PEAP", encryption="wpa"})
331 end
332
333
334 return m