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