--[[ LuCI - Lua Configuration Interface Copyright 2009 Jo-Philipp Wich Licensed under the Apache License, Version 2.0 (the "License"); you may not use this file except in compliance with the License. You may obtain a copy of the License at http://www.apache.org/licenses/LICENSE-2.0 $Id$ ]]-- local fs = require "nixio.fs" local nw = require "luci.model.network" local fw = require "luci.model.firewall" local uci = require "luci.model.uci".cursor() local http = require "luci.http" local iw = luci.sys.wifi.getiwinfo(http.formvalue("device")) local has_firewall = fs.access("/etc/config/firewall") if not iw then luci.http.redirect(luci.dispatcher.build_url("admin/network/wireless")) return end m = SimpleForm("network", translate("Join Network: Settings")) m.cancel = translate("Back to scan results") m.reset = false function m.on_cancel() local dev = http.formvalue("device") http.redirect(luci.dispatcher.build_url( dev and "admin/network/wireless_join?device=" .. dev or "admin/network/wireless" )) end nw.init(uci) fw.init(uci) m.hidden = { device = http.formvalue("device"), join = http.formvalue("join"), channel = http.formvalue("channel"), mode = http.formvalue("mode"), bssid = http.formvalue("bssid"), wep = http.formvalue("wep"), wpa_suites = http.formvalue("wpa_suites"), wpa_version = http.formvalue("wpa_version") } if iw and iw.mbssid_support then replace = m:field(Flag, "replace", translate("Replace wireless configuration"), translate("An additional network will be created if you leave this unchecked.")) function replace.cfgvalue() return "1" end else replace = m:field(DummyValue, "replace", translate("Replace wireless configuration")) replace.default = translate("The hardware is not multi-SSID capable and existing " .. "configuration will be replaced if you proceed.") function replace.formvalue() return "1" end end if http.formvalue("wep") == "1" then key = m:field(Value, "key", translate("WEP passphrase"), translate("Specify the secret encryption key here.")) key.password = true key.datatype = "wepkey" elseif (tonumber(m.hidden.wpa_version) or 0) > 0 and (m.hidden.wpa_suites == "PSK" or m.hidden.wpa_suites == "PSK2") then key = m:field(Value, "key", translate("WPA passphrase"), translate("Specify the secret encryption key here.")) key.password = true key.datatype = "wpakey" --m.hidden.wpa_suite = (tonumber(http.formvalue("wpa_version")) or 0) >= 2 and "psk2" or "psk" end newnet = m:field(Value, "_netname_new", translate("Name of the new network"), translate("The allowed characters are: A-Z, a-z, " .. "0-9 and _" )) newnet.default = m.hidden.mode == "Ad-Hoc" and "mesh" or "wwan" newnet.datatype = "uciname" if has_firewall then fwzone = m:field(Value, "_fwzone", translate("Create / Assign firewall-zone"), translate("Choose the firewall zone you want to assign to this interface. Select unspecified to remove the interface from the associated zone or fill out the create field to define a new zone and attach the interface to it.")) fwzone.template = "cbi/firewall_zonelist" fwzone.default = m.hidden.mode == "Ad-Hoc" and "mesh" or "wan" end function newnet.parse(self, section) local net, zone local value = self:formvalue(section) net = nw:add_network(value, { proto = "dhcp" }) if has_firewall then local zval = fwzone:formvalue(section) zone = fw:get_zone(zval) if not zone and zval == '-' then zval = m:formvalue(fwzone:cbid(section) .. ".newzone") if zval and #zval > 0 then zone = fw:add_zone(zval) end end end if not net then self.error = { [section] = "missing" } else local wdev = nw:get_wifidev(m.hidden.device) wdev:set("disabled", false) wdev:set("channel", m.hidden.channel) if replace:formvalue(section) then local n for _, n in ipairs(wdev:get_wifinets()) do wdev:del_wifinet(n) end end local wconf = { device = m.hidden.device, ssid = m.hidden.join, mode = (m.hidden.mode == "Ad-Hoc" and "adhoc" or "sta"), network = net:name() } if m.hidden.wep == "1" then wconf.encryption = "wep-open" wconf.key = "1" wconf.key1 = key and key:formvalue(section) or "" elseif (tonumber(m.hidden.wpa_version) or 0) > 0 then wconf.encryption = (tonumber(m.hidden.wpa_version) or 0) >= 2 and "psk2" or "psk" wconf.key = key and key:formvalue(section) or "" else wconf.encryption = "none" end if wconf.mode == "adhoc" then wconf.bssid = m.hidden.bssid end local wnet = wdev:add_wifinet(wconf) if wnet then if zone then fw:del_network(net:name()) zone:add_network(net:name()) end uci:save("wireless") uci:save("network") uci:save("firewall") luci.http.redirect(wnet:adminlink()) end end end if has_firewall then function fwzone.cfgvalue(self, section) self.iface = section local z = fw:get_zone_by_network(section) return z and z:name() end end return m