Aller au contenu

Recommended Posts

Bonjour Les loulous. 

 

j'aimerais utiliser ce script pour faire un ON/OFF sur le wallplug de la Box free, je pense que c'est gerable non ? 

 

Dans l'idée, le script mettrais le WP a off si perte de signal...

GEA a On :) 

Partager ce message


Lien à poster
Partager sur d’autres sites

Sans modifier le code LUA, Network Monitor ne permet pas de réaliser une action. Il est seulement capable d'envoyer des notifications et mettre à jour des variables globales.

 

Voici ce que je te propose :

- utiliser l'avant-dernière colonne qui contient le nom d'une variable globale à incrémenter

- dans GEA, configurer un trigger sur cette VG dans l'en-tête de la scène

- dans GEA, configurer une ligne GEA.add(..., -1, ...) en déclenchement instantané avec une condition sur la VG qui doit être > 1

- cette ligne GEA effectue 3 actions : la première fait le turnOff du Wall Plug, puis un Sleep de 10 secondes, et ensuite le turnOn du Wall Plug. Enfin, remise à 0 de la VG

 

  • Like 1

Partager ce message


Lien à poster
Partager sur d’autres sites

@Lazer

j'ai importé et paramètre le VD mais celui ci ne fonctionne pas. 

Une idée de ce que j'ai fait comme erreur ? 

 

 

--------------------------------------------------
-- Module  : Network Monitor
-- Author  : Lazer with contribution of JM13
-- Version : 1.20
-- Date    : July 2016
--------------------------------------------------

-- User variables
local userID = {}                -- Mail
local smartphoneID = {627,628, 629}          -- Push
local sms = {
	["VD_ID"]     = 0,           -- Virtual Device ID
	["VD_Button"] = "1",         -- Virtual Device Button
	["VG_Name"]   = "SMS"        -- Global Variable Name
}
local icons = {
	["OK"] = 1016,                -- Normal Icon ID
	["Error"] = 1017              -- Error Icon ID
}
local DEVICES = {
  -- ["Service Name"]                = { IP Address   ,  Port, Protocol, Data to send, Expected return code, Expected data, Retry, {Notification methods}  , Global Variable},
  ["Google"]                         = {"www.google.fr",  80, "http", "/",                 200, "Recherche Google"       ,     1, {                 "smartphoneID"}, nil, {"InternetDown", "1"}}}
}
local debug = false

-- System variables
local erreur = 0

-- Notification function
function Notification(message, param, smartphoneID, userID, sms)
	local message = message or "<vide>"
	fibaro:debug("Notification : "..message)
	if param then
		for _, notif in ipairs(param) do
			if debug then
				fibaro:debug(notif)
			end
			-- Envoi Push
			if notif == "push" and smartphoneID then
				for _, id in ipairs(smartphoneID) do
					if debug then
						fibaro:debug("Send Push smartphone ID : "..id)
					end
					fibaro:call(id, "sendPush", message)
				end
			-- Envoi Email
			elseif notif == "email" and userID then
				for _, id in ipairs(userID) do
					if debug then
						fibaro:debug("Send Email user ID : "..id)
					end
					fibaro:call(id, "sendEmail", "HC2 Network Monitor", message)
				end
			-- Envoi SMS
			elseif notif == "sms" and sms then
				if debug then
					fibaro:debug("Send SMS : VD_ID="..(sms["VD_ID"] or 0).." VD_Button="..(sms["VD_Button"] or "0").." VG_Name="..(sms["VG_Name"] or ""))
				end
				fibaro:setGlobal(sms["VG_Name"], message)
				if sms["VD_ID"] and tonumber(sms["VD_ID"])>0 and sms["VD_Button"] and tonumber(sms["VD_Button"])>0 then
					fibaro:call(sms["VD_ID"], "pressButton", sms["VD_Button"])
				end
			end
		end
	else
		fibaro:debug('<span style="color:orange;">Warning : no notification options given</span>')
	end
end

-- Function : Create global variable
function CreateVG(varName, varValue, varEnum)
	local isEnum = (#(varEnum or {}) > 0) and 1 or 0
	local HC2 = Net.FHttp("127.0.0.1", 11111)
	local payload = '{"name":"'..varName..'","isEnum":'..isEnum..',"value":"'..(varValue or "")..'"}'
	local response, status, errorCode = HC2:POST("/api/globalVariables/"..varName, payload)
	if tonumber(errorCode) == 0 and (tonumber(status) == 200 or tonumber(status) == 201) and response ~= nil and response ~= "" then
		fibaro:debug('Global variable "'..varName..'" created')
		if isEnum > 0 then
			local payload = '{"name":"'..varName..'","isEnum":true,"enumValues":'..json.encode(varEnum)..'}'
			local response, status, errorCode = HC2:PUT("/api/globalVariables/"..varName, payload)
			if tonumber(errorCode) == 0 and (tonumber(status) == 200 or tonumber(status) == 201) and response ~= nil and response ~= "" then
				fibaro:debug('Global variable "'..varName..'" modified with enum values')
			else
				fibaro:debug('<span style="display:inline;color:red;">Error : Can not modify enum global variable, errorCode='..errorCode..', status='..status..', payload='..payload..', response='..(response or "")..'</span>')
			end
		end
	else
		fibaro:debug('<span style="display:inline;color:red;">Error : Can not create global variable, errorCode='..errorCode..', status='..status..', payload='..payload..', response='..(response or "")..'</span>')
	end
	HC2 = nil
end

-- Check if global variables exist
local HC2 = Net.FHttp("127.0.0.1", 11111)
for _, param in pairs(DEVICES) do
	if param[9] and param[9] ~= "" then
		if debug then
			fibaro:debug("Check if global variable '"..param[9].."' exists")
		end
		local response, status, errorCode = HC2:GET("/api/globalVariables/"..param[9])
		if tonumber(errorCode) == 0 and tonumber(status) == 200 and response ~= nil and response ~= "" then
			local jsonTable = json.decode(response)
			if not jsonTable.name or jsonTable.name ~= param[9] then
				fibaro:debug('Response OK but global variable "'..param[9]..'" does not exist...')
				CreateVG(param[9], "0", nil)
			end
		else
			fibaro:debug('Global variable "'..param[9]..'" does not exist...')
			CreateVG(param[9], "0", nil)
		end
	end
end
HC2 = nil

-- Main
fibaro:debug(os.date('%d/%m/%Y'))
local selfID = fibaro:getSelfId()
fibaro:call(selfID, "setProperty", "ui.LabelCheck.value", os.date('%d/%m/%Y %H:%M:%S'))
local j = 1
for device, param in pairs(DEVICES) do
	if debug then
		fibaro:debug(device.." => "..param[1])
	end

	local message = ""

	for i=1, param[7] do

		-- Check exclusion global variable
		local exclude = false
		if param[10] and type(param[10]) == "table" and param[10][1] and type(param[10][1]) == "string" and param[10][1] ~= "" and param[10][2] and type(param[10][2]) == "string" and param[10][2] ~= "" then
			local value = fibaro:getGlobalValue(param[10][1])
			if value == param[10][2] then
				if debug then
					fibaro:debug("Found VG="..param[10][1].." => value = "..param[10][2].." == "..value.." => Exclude")
				end
				exclude = true
			elseif debug then
				fibaro:debug("Found VG="..param[10][1].." => value = "..param[10][2].." <> "..value.." => Keep")
			end
		end

		-- Debug
		if debug then
			fibaro:debug("Try #"..i)
		end

		-- Wait 1s between 2 connect attempts
		if i > 1 then
			fibaro:sleep(1*1000)
		end

		if not exclude then

			-- TCP
			if param[3] == "tcp" then
				local tcpSocket = Net.FTcpSocket(param[1], param[2])
				tcpSocket:setReadTimeout(1000)
				if param[4] ~= nil then
					local response, errorCode = tcpSocket:write("\n")
					fibaro:sleep(1000)
				end
				local response, errorCode = tcpSocket:read()
				if debug then
					fibaro:debug("errorCode="  .. errorCode .. " - response=" .. response)
				end
				if tonumber(errorCode) == 0 then  -- Socket opened
					if (response ~= nil) then
						if response:match(param[6]) then
							if debug then
								fibaro:debug("OK")
							end
							message = ""
							break
						else
							fibaro:debug('<span style="color:red;">Error : '..param[1]..' => '..device..' => unattended response, errorCode='..errorCode..'</span>')
							message = "Réponse inattendue pour "..device
							erreur = erreur + 1
						end
					else
						fibaro:debug('<span style="color:red;">Error : '..param[1]..' => '..device..' => empty response, errorCode='..errorCode..'</span>')
						message = "Réponse vide reçue pour "..device
						erreur = erreur + 1
					end
				elseif tonumber(errorCode) == 1 then  -- Socket opened, but no data received
					if debug then
						fibaro:debug("OK")
					end
					message = ""
					break
				else  -- Socket not opened
					fibaro:debug('<span style="color:red;">Error : '..param[1]..' => '..device..' => can not connect to server, errorCode='..errorCode..'</span>')
					message = "Impossible de se connecter à "..device
					erreur = erreur + 1
				end
				tcpSocket:disconnect()

			-- HTTP
			elseif param[3] == "http" then
				local server = Net.FHttp(param[1], param[2])
				local response, status, errorCode = server:GET(param[4])
				if debug then
					fibaro:debug("errorCode="  .. errorCode .. " - status=" .. status .. "  response length = " .. string.len(response))
					--fibaro:debug("response=" .. response)
				end
				if tonumber(errorCode) == 0 then
					if tonumber(status) == param[5] then
						if (response ~= nil) then
							if response:match(param[6]) then
								if debug then
									fibaro:debug("OK")
								end
								message = ""
								break
							else
								fibaro:debug('<span style="color:red;">Error : '..param[1]..' => '..device..' => unattended response, errorCode='..errorCode..', status='..status..'</span>')
								message = "Réponse inattendue pour "..device
								erreur = erreur + 1
							end
						else
							fibaro:debug('<span style="color:red;">Error : '..param[1]..' => '..device..' => empty response, errorCode='..errorCode..', status='..status..'</span>')
							message = "Réponse vide reçue pour "..device
							erreur = erreur + 1
						end
					else
						fibaro:debug('<span style="color:red;">Error : '..param[1]..' => '..device..' => invalid http return code, errorCode='..errorCode..', status='..status..'</span>')
						message = "Code de retour http invalide pour "..device
						erreur = erreur + 1
					end
				else
					fibaro:debug('<span style="color:red;">Error : '..param[1]..' => '..device..' => can not connect to server, errorCode='..errorCode..', status='..status..'</span>')
					message = "Impossible de se connecter à "..device
					erreur = erreur + 1
				end
				server = nil

			end -- if param[3] == "tcp" or "http"

		end -- if exclude

	end -- for i=1, param[7]

	if message ~= "" then
		-- Send notification
		Notification("Attention : "..message, param[8], smartphoneID, userID, sms)
		-- Increment global variable
		if param[9] and param[9] ~= "" then
			fibaro:debug('Increment global variable "'..param[9]..'" value')
			fibaro:setGlobal(param[9], tostring((tonumber(fibaro:getGlobalValue(param[9]) or "0") or 0) + 1))
		end
		-- Update labels
		fibaro:call(selfID, "setProperty", "ui.LabelError.value", os.date('%d/%m/%Y %H:%M:%S'))
		if j <= 5 then
			fibaro:call(selfID, "setProperty", "ui.LabelMessage"..j..".value", message)
			j = j + 1
		end
	elseif param[9] and param[9] ~= "" then
		if fibaro:getGlobalValue(param[9]) ~= "0" then
			fibaro:debug('Reset global variable "'..param[9]..'" to "0" value')
			fibaro:setGlobal(param[9], "0")
		end
	end

end -- for device, param in pairs(DEVICES)

-- Clean labels
for k=j, 5 do
	local label = fibaro:get(selfID, "ui.LabelMessage"..k..".value")
	if label ~= "" then
		fibaro:call(selfID, "setProperty", "ui.LabelMessage"..k..".value", "")
	end
end

-- Update label, log, icon
if erreur > 0 then
	fibaro:log("Erreur")
	if icons["Error"] and tonumber(icons["Error"])>0 then
		local currentIcon = fibaro:getValue(selfID, "currentIcon")
		if tonumber(currentIcon) ~= tonumber(icons["Error"]) then
			fibaro:call(selfID, "setProperty", "currentIcon", icons["Error"])
		end
	end
else
	fibaro:log("Network OK")
	if icons["OK"] and tonumber(icons["OK"])>0 then
		local currentIcon = fibaro:getValue(selfID, "currentIcon")
		if tonumber(currentIcon) ~= tonumber(icons["OK"]) then
			fibaro:call(selfID, "setProperty", "currentIcon", icons["OK"])
		end
	end
end

 

Concernant GEA, Tu n'aurais pas la ligne sous le coude . ? :) 

Partager ce message


Lien à poster
Partager sur d’autres sites

Euh, tu n'avais pas besoin de copier/coller le script complet, le début suffit.

Quel est le message d'erreur ?

 

Désolé pour GEA, j'ai juste donné des pistes, mais c'est une fonctionnalité que je n'utilise pas.

Partager ce message


Lien à poster
Partager sur d’autres sites

×