217 lines
7.0 KiB
Lua
217 lines
7.0 KiB
Lua
package.path = package.path .. ';/usr/share/lua/wifibox/?.lua'
|
|
|
|
local confDefaults = require('conf_defaults')
|
|
local log = require('util.logger')
|
|
local settings = require('util.settings')
|
|
local util = require('util.utils')
|
|
local wifi = require('network.wlanconfig')
|
|
local netconf = require('network.netconfig')
|
|
local RequestClass = require('rest.request')
|
|
local ResponseClass = require('rest.response')
|
|
|
|
local postData = nil
|
|
|
|
|
|
local function setupAutoWifiMode()
|
|
-- expects list with tables containing 'ssid' key as values and returns index key if found or nil if not found
|
|
local function findSsidInList(list, name)
|
|
for k,v in ipairs(list) do
|
|
if v.ssid == name then return k end
|
|
end
|
|
return nil
|
|
end
|
|
|
|
local wifiState = wifi.getDeviceState()
|
|
local netName, netMode = wifiState.ssid, wifiState.mode
|
|
|
|
local apSsid = wifi.getSubstitutedSsid(settings.get('network.ap.ssid'))
|
|
local apMode = (apSsid == netName) and netMode == 'ap'
|
|
|
|
local scanList,msg = wifi.getScanInfo()
|
|
local knownSsids = wifi.getConfigs()
|
|
|
|
if not scanList then
|
|
return nil, "autowifi: could not scan wifi networks (" .. msg .. ")"
|
|
end
|
|
|
|
log:info("current wifi name/mode: " .. (netName or "<nil>") .. "/" .. netMode .. ", ssid of self: " .. apSsid)
|
|
local visNet, knownNet = {}, {}
|
|
for _,sn in ipairs(scanList) do
|
|
table.insert(visNet, sn.ssid)
|
|
end
|
|
for _,kn in ipairs(knownSsids) do
|
|
table.insert(knownNet, kn.ssid .. "/" .. kn.mode)
|
|
end
|
|
log:info("visible networks: " .. table.concat(visNet, ", "))
|
|
log:info("known networks: " .. table.concat(knownNet, ", "))
|
|
|
|
-- if the currently active network is client mode and is also visible, do nothing since it will connect automatically further along the boot process
|
|
if netMode == 'sta' and netName ~= nil and netName ~= "" and findSsidInList(scanList, netName) then
|
|
return true, "autowifi: no action - existing configuration found for currently wifi visible network (" .. netName .. ")"
|
|
end
|
|
|
|
-- try to find a known network which is also visible (ordered by known network definitions)
|
|
local connectWith = nil
|
|
for _,kn in ipairs(knownSsids) do
|
|
if findSsidInList(scanList, kn.ssid) then
|
|
connectWith = kn.ssid
|
|
break
|
|
end
|
|
end
|
|
|
|
if connectWith then
|
|
local rv,msg = netconf.associateSsid(connectWith)
|
|
if rv then
|
|
return true, "autowifi: associated -- client mode with ssid '" .. connectWith .. "'"
|
|
else
|
|
return nil, "autowifi: could not associate with ssid '" .. connectWith .. "' (" .. msg .. ")"
|
|
end
|
|
elseif netMode ~= 'ap' or netName ~= apSsid then
|
|
local rv,msg = netconf.setupAccessPoint(apSsid)
|
|
if rv then
|
|
return true, "autowifi: configured as access point with ssid '" .. apSsid .. "'"
|
|
else
|
|
return nil, "autowifi: failed to configure as access point with ssid '" .. apSsid .. "' (" .. msg .. ")"
|
|
end
|
|
else
|
|
return true, "autowifi: no action - no known networks found, already in access point mode"
|
|
end
|
|
|
|
return nil, "autowifi: uh oh - bad situation in autowifi function"
|
|
end
|
|
|
|
local function setupLogger()
|
|
local logStream = io.stderr -- use stderr as hard-coded default target
|
|
local logLevel = log.LEVEL.debug -- use debug logging as hard-coded default level
|
|
|
|
local logTargetSetting = settings.getSystemKey('logfile')
|
|
local logLevelSetting = settings.getSystemKey('loglevel')
|
|
local logTargetError, logLevelError = nil, nil
|
|
|
|
if type(logTargetSetting) == 'string' then
|
|
local specialTarget = logTargetSetting:match('^<(.*)>$')
|
|
if specialTarget then
|
|
if specialTarget == 'stdout' then logStream = io.stdout
|
|
elseif specialTarget == 'stderr' then logStream = io.stderr
|
|
end
|
|
elseif logTargetSetting:sub(1, 1) == '/' then
|
|
local f,msg = io.open(logTargetSetting, 'a+')
|
|
|
|
if f then logStream = f
|
|
else logTargetError = msg
|
|
end
|
|
end
|
|
end
|
|
|
|
if type(logLevelSetting) == 'string' and logLevelSetting:len() > 0 then
|
|
local valid = false
|
|
for idx,lvl in ipairs(log.LEVEL) do
|
|
if logLevelSetting == lvl then
|
|
logLevel = idx
|
|
valid = true
|
|
end
|
|
end
|
|
if not valid then logLevelError = true end
|
|
end
|
|
|
|
log:init(logLevel)
|
|
log:setStream(logStream)
|
|
|
|
local rv = true
|
|
if logTargetError then
|
|
log:error("could not open logfile '" .. logTargetSetting .. "', using stderr as fallback (" .. logTargetError .. ")")
|
|
rv = false
|
|
end
|
|
|
|
if logLevelError then
|
|
log:error("uci config specifies invalid log level '" .. logLevelSetting .. "', using debug level as fallback")
|
|
rv = false
|
|
end
|
|
|
|
return rv
|
|
end
|
|
|
|
local function init(environment)
|
|
setupLogger()
|
|
|
|
local dbgText = ""
|
|
if confDefaults.DEBUG_API and confDefaults.DEBUG_PCALLS then dbgText = "pcall and api"
|
|
elseif confDefaults.DEBUG_API then dbgText = "api"
|
|
elseif confDefaults.DEBUG_PCALL then dbgText = "pcall"
|
|
end
|
|
|
|
if dbgText ~= "" then dbgText = " (" .. dbgText .. " debugging enabled)" end
|
|
|
|
log:info("Wifibox CGI handler started" .. dbgText)
|
|
|
|
if (environment['REQUEST_METHOD'] == 'POST') then
|
|
local n = tonumber(environment['CONTENT_LENGTH'])
|
|
postData = io.read(n)
|
|
end
|
|
|
|
local s, msg
|
|
s, msg = wifi.init()
|
|
if not s then return s, msg end
|
|
|
|
s, msg = netconf.init(wifi, true)
|
|
if not s then return s, msg end
|
|
|
|
return true
|
|
end
|
|
|
|
local function main(environment)
|
|
local rq = RequestClass.new(environment, postData, confDefaults.DEBUG_API)
|
|
|
|
if rq:getRequestMethod() == 'CMDLINE' and rq:get('autowifi') ~= nil then
|
|
log:info("running in autowifi mode")
|
|
local rv,msg = setupAutoWifiMode()
|
|
|
|
if rv then
|
|
log:info("autowifi setup done (" .. msg .. ")")
|
|
else
|
|
log:error("autowifi setup failed (" .. msg .. ")")
|
|
end
|
|
elseif rq:getRequestMethod() ~= 'CMDLINE' or confDefaults.DEBUG_API then
|
|
-- log:info("received request of type " .. rq:getRequestMethod() .. " for " .. (rq:getRequestedApiModule() or "<unknown>")
|
|
-- .. "/" .. (rq:getRealApiFunctionName() or "<unknown>") .. " with arguments: " .. util.dump(rq:getAll()))
|
|
log:info("received request of type " .. rq:getRequestMethod() .. " for " .. (rq:getRequestedApiModule() or "<unknown>")
|
|
.. "/" .. (rq:getRealApiFunctionName() or "<unknown>"))
|
|
if rq:getRequestMethod() ~= 'CMDLINE' then
|
|
log:info("remote IP/port: " .. rq:getRemoteHost() .. "/" .. rq:getRemotePort())
|
|
log:debug("user agent: " .. rq:getUserAgent())
|
|
end
|
|
|
|
local response, err = rq:handle()
|
|
|
|
if err ~= nil then log:error(err) end
|
|
response:send()
|
|
else
|
|
log:info("Nothing to do...bye.\n")
|
|
end
|
|
end
|
|
|
|
|
|
--- Main firmware entry point.
|
|
-- This is either used by uhttp-mod-lua directly, or by the d3dapi cgi-bin wrapper
|
|
-- script which builds the env table from the shell environment. The wrapper script
|
|
-- also handles command-line invocation.
|
|
-- @tparam table The CGI environment table.
|
|
-- @treturn number A Z+ return value suitable to return from wrapper script. Note that this value is ignored by uhttpd-mod-lua.
|
|
function handle_request(env)
|
|
local s, msg = init(env)
|
|
|
|
if s == false then
|
|
local resp = ResponseClass.new()
|
|
local errSuffix = msg and " (" .. msg .. ")" or ""
|
|
|
|
resp:setError("initialization failed" .. errSuffix)
|
|
resp:send()
|
|
log:error("initialization failed" .. errSuffix) --NOTE: this assumes the logger has been initialized properly, despite init() having failed
|
|
|
|
return 1
|
|
else
|
|
main(env)
|
|
return 0
|
|
end
|
|
end
|