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                 s:taboption("advanced", Value, "txantenna", translate("wifi_txantenna"))
 109                 s:taboption("advanced", Value, "rxantenna", translate("wifi_rxantenna"))
 110         else -- NanoFoo
 111                 local ant = s:taboption("advanced", ListValue, "antenna", translate("wifi_txantenna"))
 112                 ant:value("auto")
 113                 ant:value("vertical")
 114                 ant:value("horizontal")
 115                 ant:value("external")
 116         end
 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"))
 122
 123         --s:option(Flag, "nosbeacon", translate("wifi_nosbeacon"))
 124 end
 125
 126
 127
 128 ------------------- Broadcom Device ------------------
 129
 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")
 134
 135         tp.rmempty = true
 136         for _, p in ipairs(iw.txpwrlist) do
 137                 tp:value(p.dbm, "%i dBm (%i mW)" %{ p.dbm, p.mw })
 138         end
 139
 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"})
 147
 148         s:taboption("advanced", Value, "txantenna", translate("wifi_txantenna"))
 149         s:taboption("advanced", Value, "rxantenna", translate("wifi_rxantenna"))
 150
 151         s:taboption("advanced", Flag, "frameburst", translate("wifi_bursting"))
 152
 153         s:taboption("advanced", Value, "distance", translate("wifi_distance"))
 154         --s:option(Value, "slottime", translate("wifi_slottime"))
 155
 156         s:taboption("advanced", Value, "country", translate("wifi_country"))
 157         s:taboption("advanced", Value, "maxassoc", translate("wifi_maxassoc"))
 158 end
 159
 160
 161 --------------------- HostAP Device ---------------------
 162
 163 if hwtype == "prism2" then
 164         s:taboption("advanced", Value, "txpower", translate("a_w_txpwr"), "att units").rmempty = true
 165
 166         s:taboption("advanced", Flag, "diversity", translate("wifi_diversity")).rmempty = false
 167
 168         s:taboption("advanced", Value, "txantenna", translate("wifi_txantenna"))
 169         s:taboption("advanced", Value, "rxantenna", translate("wifi_rxantenna"))
 170 end
 171
 172
 173 ----------------------- Interface -----------------------
 174
 175 s = m:section(TypedSection, "wifi-iface", translate("interfaces"))
 176 s.addremove = true
 177 s.anonymous = true
 178 s:depends("device", arg[1])
 179 s.defaults.device = arg[1]
 180
 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"))
 185
 186 s:taboption("general", Value, "ssid", translate("wifi_essid"))
 187
 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"))
 193
 194 bssid = s:taboption("general", Value, "bssid", translate("wifi_bssid"))
 195
 196 network = s:taboption("general", Value, "network", translate("network"), translate("a_w_network1"))
 197 network.rmempty = true
 198 network:value("")
 199 network.combobox_manual = translate("a_w_netmanual")
 200 wa.cbi_add_networks(network)
 201
 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
 206
 207                 m:chain("network")
 208                 m.uci:set("network", value, "interface")
 209                 Value.write(self, section, value)
 210         else
 211                 if m.uci:get("network", value) == "interface" then
 212                         Value.write(self, section, value)
 213                 end
 214         end
 215 end
 216
 217
 218 -------------------- MAC80211 Interface ----------------------
 219
 220 if hwtype == "mac80211" then
 221         if fs.access("/usr/sbin/iw") then
 222                 mode:value("mesh", "802.11s")
 223         end
 224
 225         mode:value("ahdemo", translate("a_w_ahdemo"))
 226         mode:value("monitor", translate("a_w_monitor"))
 227         bssid:depends({mode="adhoc"})
 228
 229         s:taboption("advanced", Value, "frag", translate("wifi_frag"))
 230         s:taboption("advanced", Value, "rts", translate("wifi_rts"))
 231 end
 232
 233
 234
 235 -------------------- Madwifi Interface ----------------------
 236
 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")})
 242
 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)
 250                 else
 251                         ListValue.write(self, section, value)
 252                         m.uci:delete("wireless", section, "wds")
 253                 end
 254         end
 255
 256         function mode.cfgvalue(self, section)
 257                 local mode = ListValue.cfgvalue(self, section)
 258                 local wds  = m.uci:get("wireless", section, "wds") == "1"
 259
 260                 if mode == "ap" and wds then
 261                         return "ap-wds"
 262                 elseif mode == "sta" and wds then
 263                         return "sta-wds"
 264                 else
 265                         return mode
 266                 end
 267         end
 268
 269         bssid:depends({mode="adhoc"})
 270         bssid:depends({mode="ahdemo"})
 271
 272         wdssep = s:taboption("advanced", Flag, "wdssep", translate("wifi_wdssep"))
 273         wdssep:depends({mode="ap-wds"})
 274
 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"))
 285
 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"})
 293
 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"))
 301
 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"))
 305
 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"))
 309
 310         local swm = s:taboption("advanced", Flag, "sw_merge", translate("wifi_nosbeacon"))
 311         swm:depends({mode="adhoc"})
 312
 313         local nos = s:taboption("advanced", Flag, "nosbeacon", translate("wifi_nosbeacon"))
 314         nos:depends({mode="sta"})
 315         nos:depends({mode="sta-wds"})
 316
 317         local probereq = s:taboption("advanced", Flag, "probereq", translate("wifi_noprobereq"))
 318         probereq.enabled  = "0"
 319         probereq.disabled = "1"
 320 end
 321
 322
 323 -------------------- Broadcom Interface ----------------------
 324
 325 if hwtype == "broadcom" then
 326         mode:value("wds", translate("a_w_wds"))
 327         mode:value("monitor", translate("a_w_monitor"))
 328
 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"})
 333
 334         isolate = s:taboption("advanced", Flag, "isolate", translate("wifi_isolate"),
 335          translate("wifi_isolate_desc"))
 336         isolate:depends({mode="ap"})
 337
 338         bssid:depends({mode="wds"})
 339         bssid:depends({mode="adhoc"})
 340 end
 341
 342
 343 ----------------------- HostAP Interface ---------------------
 344
 345 if hwtype == "prism2" then
 346         mode:value("wds", translate("a_w_wds"))
 347         mode:value("monitor", translate("a_w_monitor"))
 348
 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"})
 353
 354         bssid:depends({mode="sta"})
 355
 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"})
 363
 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"))
 367 end
 368
 369
 370 ------------------- WiFI-Encryption -------------------
 371
 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"})
 381
 382 encr:value("none", "No Encryption")
 383 encr:value("wep", "WEP")
 384
 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")
 388
 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")
 409         else
 410                 encr.description = translate("wifi_wpareq")
 411         end
 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")
 416 end
 417
 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")
 423
 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
 428
 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"})
 432 port.rmempty = true
 433
 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"})
 442 key.rmempty = true
 443 key.password = true
 444
 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"})
 449         nasid.rmempty = true
 450
 451         eaptype = s:taboption("encryption", ListValue, "eap_type", translate("a_w_eaptype"))
 452         eaptype:value("TLS")
 453         eaptype:value("TTLS")
 454         eaptype:value("PEAP")
 455         eaptype:depends({mode="sta", encryption="wpa"})
 456         eaptype:depends({mode="sta", encryption="wpa2"})
 457
 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"})
 461
 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"})
 465
 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"})
 469
 470
 471         auth = s:taboption("encryption", Value, "auth", translate("a_w_peapauth"))
 472         auth:value("PAP")
 473         auth:value("CHAP")
 474         auth:value("MSCHAP")
 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"})
 480
 481
 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"})
 487
 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"})
 493 end
 494
 495
 496 return m