46 lines
1.7 KiB
Lua
46 lines
1.7 KiB
Lua
-- Petit script pour envoyer en // es valeurs sur un serveur WEB (InfluxDB)
|
|
-- via un http POST à travers un FIFO
|
|
|
|
if verbose then print("\n 0_http_post.lua zf200625.1137 \n") end
|
|
|
|
t_zurl={} t_zarg={} f_zpost=false
|
|
|
|
-- function tprint(t)
|
|
-- for key,value in pairs(t) do print(key, value) end
|
|
-- end
|
|
|
|
function zpost()
|
|
f_zpost=true local zurl=t_zurl[1] local zarg=t_zarg[1]
|
|
-- zarg=zarg.."\n".."energy,value=nb_waiting_"..yellow_id.." val="..#t_zurl
|
|
-- zarg=zarg.."\n".."energy,memory=zpost_"..yellow_id.." ram="..node.heap()
|
|
if verbose then print("zurl: "..zurl) end if verbose then print("zarg: "..zarg) end
|
|
http.post(zurl, 'Content-Type: application/x-www-form-urlencoded\r\n', zarg, function(code, data)
|
|
if (code < 0) then
|
|
print("HTTP request failed")
|
|
print("zuzu", code, data)
|
|
if debug_rec~=nil then debug_rec("HTTP request failed: ", code, data) end
|
|
else
|
|
if verbose then print(code, data) end
|
|
end
|
|
table.remove(t_zurl, 1) table.remove(t_zarg, 1)
|
|
if t_zurl[1]==nil then
|
|
f_zpost=false
|
|
else
|
|
zpost()
|
|
end
|
|
-- if verbose then print("End zpost:") end
|
|
collectgarbage()
|
|
-- if verbose then print(node.heap()) end
|
|
end)
|
|
end
|
|
|
|
function http_post(zurl,zarg)
|
|
if #t_zurl <=10 then table.insert(t_zurl, zurl) table.insert(t_zarg, zarg) end
|
|
-- if verbose then print("Nb wait: "..#t_zurl) print(node.heap()) end
|
|
-- if verbose then print("t_zurl:") tprint(t_zurl) print("t_zarg:") tprint(t_zarg) end
|
|
if f_zpost==false then zpost() end
|
|
-- if verbose then print("End http_post:") end
|
|
collectgarbage()
|
|
-- if verbose then print(node.heap()) end
|
|
end
|