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 = true
 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         bssid:depends({mode="wds"})
 363         bssid:depends({mode="adhoc"})
 364 end
 365
 366
 367 ----------------------- HostAP Interface ---------------------
 368
 369 if hwtype == "prism2" then
 370         mode:value("wds", translate("a_w_wds"))
 371         mode:value("monitor", translate("a_w_monitor"))
 372
 373         hidden = s:taboption("general", Flag, "hidden", translate("wifi_hidden"))
 374         hidden:depends({mode="ap"})
 375         hidden:depends({mode="adhoc"})
 376         hidden:depends({mode="wds"})
 377
 378         bssid:depends({mode="sta"})
 379
 380         mp = s:taboption("macfilter", ListValue, "macpolicy", translate("wifi_macpolicy"))
 381         mp:value("", translate("disable"))
 382         mp:value("deny", translate("wifi_whitelist"))
 383         mp:value("allow", translate("wifi_blacklist"))
 384         ml = s:taboption("macfilter", DynamicList, "maclist", translate("wifi_maclist"))
 385         ml:depends({macpolicy="allow"})
 386         ml:depends({macpolicy="deny"})
 387
 388         s:taboption("advanced", Value, "rate", translate("wifi_rate"))
 389         s:taboption("advanced", Value, "frag", translate("wifi_frag"))
 390         s:taboption("advanced", Value, "rts", translate("wifi_rts"))
 391 end
 392
 393
 394 ------------------- WiFI-Encryption -------------------
 395
 396 encr = s:taboption("encryption", ListValue, "encryption", translate("encryption"))
 397 encr.override_values = true
 398 encr:depends({mode="ap"})
 399 encr:depends({mode="sta"})
 400 encr:depends({mode="adhoc"})
 401 encr:depends({mode="ahdemo"})
 402 encr:depends({mode="ap-wds"})
 403 encr:depends({mode="sta-wds"})
 404 encr:depends({mode="mesh"})
 405
 406 encr:value("none", "No Encryption")
 407 encr:value("wep", "WEP")
 408
 409 if hwtype == "atheros" or hwtype == "mac80211" or hwtype == "prism2" then
 410         local supplicant = fs.access("/usr/sbin/wpa_supplicant")
 411         local hostapd = fs.access("/usr/sbin/hostapd")
 412
 413         if hostapd and supplicant then
 414                 encr:value("psk", "WPA-PSK")
 415                 encr:value("psk2", "WPA2-PSK")
 416                 encr:value("psk-mixed", "WPA-PSK/WPA2-PSK Mixed Mode")
 417                 encr:value("wpa", "WPA-EAP", {mode="ap"}, {mode="sta"}, {mode="ap-wds"}, {mode="sta-wds"})
 418                 encr:value("wpa2", "WPA2-EAP", {mode="ap"}, {mode="sta"})
 419         elseif hostapd and not supplicant then
 420                 encr:value("psk", "WPA-PSK", {mode="ap"}, {mode="ap-wds"}, {mode="adhoc"}, {mode="ahdemo"})
 421                 encr:value("psk2", "WPA2-PSK", {mode="ap"}, {mode="ap-wds"}, {mode="adhoc"}, {mode="ahdemo"})
 422                 encr:value("psk-mixed", "WPA-PSK/WPA2-PSK Mixed Mode", {mode="ap"}, {mode="ap-wds"}, {mode="adhoc"}, {mode="ahdemo"})
 423                 encr:value("wpa", "WPA-EAP", {mode="ap"}, {mode="ap-wds"})
 424                 encr:value("wpa2", "WPA2-EAP", {mode="ap"}, {mode="ap-wds"})
 425                 encr.description = translate("wifi_wpareq")
 426         elseif not hostapd and supplicant then
 427                 encr:value("psk", "WPA-PSK", {mode="sta"}, {mode="sta-wds"})
 428                 encr:value("psk2", "WPA2-PSK", {mode="sta"}, {mode="sta-wds"})
 429                 encr:value("psk-mixed", "WPA-PSK/WPA2-PSK Mixed Mode", {mode="sta"}, {mode="sta-wds"})
 430                 encr:value("wpa", "WPA-EAP", {mode="sta"}, {mode="sta-wds"})
 431                 encr:value("wpa2", "WPA2-EAP", {mode="sta"}, {mode="sta-wds"})
 432                 encr.description = translate("wifi_wpareq")
 433         else
 434                 encr.description = translate("wifi_wpareq")
 435         end
 436 elseif hwtype == "broadcom" then
 437         encr:value("psk", "WPA-PSK")
 438         encr:value("psk2", "WPA2-PSK")
 439         encr:value("psk+psk2", "WPA-PSK/WPA2-PSK Mixed Mode")
 440 end
 441
 442 encr:depends("mode", "ap")
 443 encr:depends("mode", "sta")
 444 encr:depends("mode", "ap-wds")
 445 encr:depends("mode", "sta-wds")
 446 encr:depends("mode", "wds")
 447
 448 server = s:taboption("encryption", Value, "server", translate("a_w_radiussrv"))
 449 server:depends({mode="ap", encryption="wpa"})
 450 server:depends({mode="ap", encryption="wpa2"})
 451 server.rmempty = true
 452
 453 port = s:taboption("encryption", Value, "port", translate("a_w_radiusport"))
 454 port:depends({mode="ap", encryption="wpa"})
 455 port:depends({mode="ap", encryption="wpa2"})
 456 port.rmempty = true
 457
 458 key = s:taboption("encryption", Value, "key", translate("key"))
 459 key:depends("encryption", "wep")
 460 key:depends("encryption", "psk")
 461 key:depends("encryption", "psk2")
 462 key:depends("encryption", "psk+psk2")
 463 key:depends("encryption", "mixed")
 464 key:depends({mode="ap", encryption="wpa"})
 465 key:depends({mode="ap", encryption="wpa2"})
 466 key.rmempty = true
 467 key.password = true
 468
 469 if hwtype == "atheros" or hwtype == "mac80211" or hwtype == "prism2" then
 470         nasid = s:taboption("encryption", Value, "nasid", translate("a_w_nasid"))
 471         nasid:depends({mode="ap", encryption="wpa"})
 472         nasid:depends({mode="ap", encryption="wpa2"})
 473         nasid.rmempty = true
 474
 475         eaptype = s:taboption("encryption", ListValue, "eap_type", translate("a_w_eaptype"))
 476         eaptype:value("TLS")
 477         eaptype:value("TTLS")
 478         eaptype:value("PEAP")
 479         eaptype:depends({mode="sta", encryption="wpa"})
 480         eaptype:depends({mode="sta", encryption="wpa2"})
 481
 482         cacert = s:taboption("encryption", FileUpload, "ca_cert", translate("a_w_cacert"))
 483         cacert:depends({mode="sta", encryption="wpa"})
 484         cacert:depends({mode="sta", encryption="wpa2"})
 485
 486         privkey = s:taboption("encryption", FileUpload, "priv_key", translate("a_w_tlsprivkey"))
 487         privkey:depends({mode="sta", eap_type="TLS", encryption="wpa2"})
 488         privkey:depends({mode="sta", eap_type="TLS", encryption="wpa"})
 489
 490         privkeypwd = s:taboption("encryption", Value, "priv_key_pwd", translate("a_w_tlsprivkeypwd"))
 491         privkeypwd:depends({mode="sta", eap_type="TLS", encryption="wpa2"})
 492         privkeypwd:depends({mode="sta", eap_type="TLS", encryption="wpa"})
 493
 494
 495         auth = s:taboption("encryption", Value, "auth", translate("a_w_peapauth"))
 496         auth:value("PAP")
 497         auth:value("CHAP")
 498         auth:value("MSCHAP")
 499         auth:value("MSCHAPV2")
 500         auth:depends({mode="sta", eap_type="PEAP", encryption="wpa2"})
 501         auth:depends({mode="sta", eap_type="PEAP", encryption="wpa"})
 502         auth:depends({mode="sta", eap_type="TTLS", encryption="wpa2"})
 503         auth:depends({mode="sta", eap_type="TTLS", encryption="wpa"})
 504
 505
 506         identity = s:taboption("encryption", Value, "identity", translate("a_w_peapidentity"))
 507         identity:depends({mode="sta", eap_type="PEAP", encryption="wpa2"})
 508         identity:depends({mode="sta", eap_type="PEAP", encryption="wpa"})
 509         identity:depends({mode="sta", eap_type="TTLS", encryption="wpa2"})
 510         identity:depends({mode="sta", eap_type="TTLS", encryption="wpa"})
 511
 512         password = s:taboption("encryption", Value, "password", translate("a_w_peappassword"))
 513         password:depends({mode="sta", eap_type="PEAP", encryption="wpa2"})
 514         password:depends({mode="sta", eap_type="PEAP", encryption="wpa"})
 515         password:depends({mode="sta", eap_type="TTLS", encryption="wpa2"})
 516         password:depends({mode="sta", eap_type="TTLS", encryption="wpa"})
 517 end
 518
 519
 520 return m