Merge pull request #358 from MarsTechHAN/patch-2

Add Yeelink Modules

lua_modules/yeelink/yeelink_lib.lua

@@ -0,0 +1,105 @@
+
+-- ***************************************************************************
+-- Yeelink Updata Libiary
+--
+-- Written by Martin
+-- but based on a script of zhouxu_o from bbs.nodemcu.com
+--
+-- MIT license, http://opensource.org/licenses/MIT
+-- ***************************************************************************
+
+if wifi.sta.getip() == nil then
+	print("Please Connect WIFI First")
+	return nil
+end
+--==========================Module Part======================
+
+local moduleName = ...
+local M = {}
+_G[moduleName] = M
+--=========================Local Args=======================
+local dns = "0.0.0.0"
+
+local device = ""
+local sensor = ""
+local apikey = ""
+
+--================================
+local debug = true --<<<<<<<<<<<<< Don't forget to "false" it before using
+--================================
+local sk=net.createConnection(net.TCP, 0)
+
+local datapoint = 0
+--====DNS the yeelink ip advance(in order to save RAM)=====
+sk:dns("api.yeelink.net",function(conn,ip) 
+
+dns=ip
+
+print("DNS YEELINK OK... IP: "..dns)
+
+end)
+
+--========Set the init function===========
+--device->number
+--sensor->number
+-- apikey must be -> string <-
+-- e.g. xxx.init(00000,00000,"123j12b3jkb12k4b23bv54i2b5b3o4")
+--========================================
+function M.init(_device, _sensor, _apikey)
+    device = tostring(_device)
+    sensor = tostring(_sensor)
+    apikey = _apikey
+    if dns == "0.0.0.0" then
+        return false
+    else
+        return dns
+    end
+
+end
+
+
+--=====Update to Yeelink Sever(At least 10s per sencods))=====
+--  datapoint->number
+--
+--e.g. xxx.update(233.333)
+--============================================================
+function M.update(_datapoint)
+
+    datapoint = tostring(_datapoint)
+
+    sk:on("connection", function(conn) 
+
+        print("connect OK...") 
+
+    
+    local a=[[{"value":]]
+    local b=[[}]]
+
+    local st=a..datapoint..b
+
+        sk:send("POST /v1.0/device/"..device.."/sensor/"..sensor.."/datapoints HTTP/1.1\r\n"
+.."Host: www.yeelink.net\r\n"
+.."Content-Length: "..string.len(st).."\r\n"--the length of json is important
+.."Content-Type: application/x-www-form-urlencoded\r\n"
+.."U-ApiKey:"..apikey.."\r\n"
+.."Cache-Control: no-cache\r\n\r\n"
+..st.."\r\n" )
+
+    end)
+
+    sk:on("receive", function(sck, content) 
+    
+    if debug then
+    print("\r\n"..content.."\r\n") 
+    else
+    print("Date Receive")
+    end
+
+    end)
+
+    sk:connect(80,dns)
+
+
+end
+--================end==========================
+return M