--[[ XChip's NodeMCU IDE Original Source: http://www.esp8266.com/viewtopic.php?f=19&t=1549 Petr Stehlik found the source in October 2016 and gave it a new home at https://github.com/joysfera/nodemcu-web-ide under the GPL license. Then updated it for new async socket send(), fixed, cleaned up, added external editor with syntax highlighting and further improves it. Create, Edit and run NodeMCU files using your web browser. Examples: http:/// will list all the files in the MCU http:///newfile.lua displays the file on your browser http:///newfile.lua?edit allows to creates or edits the specified script in your browser http:///newfile.lua?run it will run the specified script and will show the returned value --]] local function editor(aceEnabled) -- feel free to disable the shiny Ajax.org Cloud Editor local AceEnabled = aceEnabled == nil and true or aceEnabled srv = net.createServer(net.TCP) srv:listen(80, function(conn) local rnrn = 0 local Status = 0 local DataToGet = 0 local method = "" local url = "" local vars = "" conn:on("receive", function(sck, payload) if Status == 0 then _, _, method, url, vars = string.find(payload, "([A-Z]+) /([^?]*)%??(.*) HTTP") -- print("Method, URL, vars: ", method, url, vars) end if method == "POST" then if Status == 0 then -- print("status", Status) _, _, DataToGet, payload = string.find(payload, "Content%-Length: (%d+)(.+)") if DataToGet then DataToGet = tonumber(DataToGet) -- print("DataToGet = "..DataToGet) rnrn = 1 Status = 1 else print("bad length") end end -- find /r/n/r/n if Status == 1 then -- print("status", Status) local payloadlen = string.len(payload) local mark = "\r\n\r\n" local i for i=1, payloadlen do if string.byte(mark, rnrn) == string.byte(payload, i) then rnrn = rnrn + 1 if rnrn == 5 then payload = string.sub(payload, i+1, payloadlen) file.open(url, "w") file.close() Status = 2 break end else rnrn = 1 end end if Status == 1 then return end end if Status == 2 then -- print("status", Status) if payload then DataToGet = DataToGet - string.len(payload) --print("DataToGet:", DataToGet, "payload len:", string.len(payload)) file.open(url, "a+") file.write(payload) file.close() else sck:send("HTTP/1.1 200 OK\r\n\r\nERROR") Status = 0 end if DataToGet == 0 then sck:send("HTTP/1.1 200 OK\r\n\r\nOK") Status = 0 end end return end -- end of POST method handling DataToGet = -1 if url == "favicon.ico" then -- print("favicon.ico handler sends 404") sck:send("HTTP/1.1 404 file not found") return end local sen = "HTTP/1.1 200 OK\r\n\r\n" -- it wants a file in particular if url ~= "" and vars == "" then DataToGet = 0 sck:send(sen) return end sen = sen .. "

NodeMCU IDE

" if vars == "edit" then if AceEnabled then local mode = 'ace/mode/' if url:match(".css") then mode = mode .. 'css' elseif url:match(".html") then mode = mode .. 'html' elseif url:match(".json") then mode = mode .. 'json' elseif url:match(".js") then mode = mode .. 'javascript' else mode = mode .. 'lua' end sen = sen .. "

" .. "" else sen = sen .. "
" .. "" end sen = sen .. " run " elseif vars == "run" then sen = sen .. "" function s_output(str) sen = sen .. str end node.output(s_output, 0) -- re-direct output to function s_output. local st, result = pcall(dofile, url) -- delay the output capture by 1000 milliseconds to give some time to the user routine in pcall() tmr.alarm(0, 1000, tmr.ALARM_SINGLE, function() node.output(nil) if result then local outp = tostring(result):sub(1,1300) -- to fit in one send() packet result = nil sen = sen .. "
Result of the run: " .. outp .. "
" end sen = sen .. "" sck:send(sen) end) return elseif vars == "compile" then collectgarbage() node.compile(url) url = "" elseif vars == "delete" then file.remove(url) url = "" elseif vars == "restart" then node.restart() return end local message = {} message[#message + 1] = sen sen = nil if url == "" then local l = file.list(); message[#message + 1] = "" for k,v in pairs(l) do local line = "" message[#message + 1] = line end message[#message + 1] = "

Name	Size	Edit	Compile	Delete
" ..k.. "	" ..v.. "	" local editable = k:sub(-4, -1) == ".lua" or k:sub(-4, -1) == ".css" or k:sub(-5, -1) == ".html" or k:sub(-5, -1) == ".json" if editable then line = line .. "edit" end line = line .. "	" if k:sub(-4, -1) == ".lua" then line = line .. "compile" end line = line .. "	delete

Create new " message[#message + 1] = "Restart" end message[#message + 1] = "" local function send_table(sk) if #message > 0 then sk:send(table.remove(message, 1)) else sk:close() message = nil end end sck:on("sent", send_table) send_table(sck) end) conn:on("sent", function(sck) if DataToGet >= 0 and method == "GET" then if file.open(url, "r") then file.seek("set", DataToGet) local chunkSize = 512 local line = file.read(chunkSize) file.close() if line then sck:send(line) DataToGet = DataToGet + chunkSize if string.len(line) == chunkSize then return end end end end sck:close() sck = nil end) end) end if wifi.sta.status() == wifi.STA_GOTIP then print("http://"..wifi.sta.getip().."/") editor() else print("WiFi connecting...") wifi.eventmon.register(wifi.eventmon.STA_GOT_IP, function() wifi.eventmon.unregister(wifi.eventmon.STA_GOT_IP) print("http://"..wifi.sta.getip().."/") editor() end) end