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 Signin = require('network.signin') 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 "") .. "/" .. 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 kn.mode == 'ap' and kn.ssid == apSsid then break end 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' and rq:get('signin') ~= nil then log:info("running in signin mode") local ds = wifi.getDeviceState() if ds.mode == "sta" then local rv,msg = Signin.signin() end --[[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 "") -- .. "/" .. (rq:getRealApiFunctionName() or "") .. " with arguments: " .. util.dump(rq:getAll())) log:info("received request of type " .. rq:getRequestMethod() .. " for " .. (rq:getRequestedApiModule() or "") .. "/" .. (rq:getRealApiFunctionName() or "")) 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() response:executePostResponseQueue() 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