Tankbot esp8266 controller

init.lua

-- startup logic

dofile("wifi.lua")
dofile("server.lua")

server.lua

-- HTTP server for RESTful remote API

local function create_response(request)
    local response = "HTTP/1.1 200 OK\r\nServer: Tankbot\r\nContent-Type: text/html\r\n\r\n"
    return response
end

local function handle_request(c)
    c:on("receive",
        function(c, request)
            print(request)
            c:send(create_response(request))
            c:close()
        end)
end

-- Listen for HTTP requests on TCP port 80
server = net.createServer(net.TCP)
server:listen(80, handle_request)

wifi.lua

-- network setup

local SSID = "ssid"
local SSID_PWD = "pwd"

-- timeout before we give up trying to connecting at all
local CONNECTION_TIMEOUT = 60000
-- interval between checks to see if connected
local RETRY_TIMEOUT = 1000

local function check_timeout()
    if wifi.sta.getip() == nil then
        print("Waiting to connect to wifi")
    else
        tmr.stop(1)
        print("Connected to wifi" .. wifi.sta.getip())
    end
end

local function connect()
    -- set up the network
    wifi.setmode(STATIONAP)
    wifi.sta.config(SSID, SSID_PWD)

    -- wait for the module to connect to the network
    tmr.alarm(1, RETRY_TIMEOUT, 1, check_timeout)
    -- cancel the retries if we haven't connected after a while
    tmr.alarm(2, CONNECTION_TIMEOUT, 0, function()
        tmr.stop(1)
    end)
end