depuis la version 4.082( ?) le VD ne fonctionne plus.
Voici donc le code qui fonctionne pour le bouton "DeadNodesAnalysis"
--------------------------
-- User Settings
--------------------------
local IconeDead = 44
local IconeOk = 45
local IconeRun = 46
local push_dev = 2 -- id of the user to send push message to (2 is admin user)
local exclude = {} -- les des id des devices àne pas tester si dead
local wakeup = false -- true / false si on veut / ne veut pas de tentative de réveil des noeuds morts
FreqNotif = 12 -- fréquence de notification [h] si un noeud est mort
-- entrez la fréquence [s] de vérification dans le champ IP Address de ce VD
----------------------------------
-- DO not change bellow this line
----------------------------------
local now = os.time()
local selfID = fibaro:getSelfId()
local HC2 = Net.FHttp("127.0.0.1",11111)
fibaro:call(selfID, "setProperty", "currentIcon", IconeRun)
fibaro:call(selfID, "setProperty", "ui.Excluded.value", #exclude)
-- display FreqNotif
fibaro:call(selfID, "setProperty", "ui.FreqNotif.value", FreqNotif.." h")
-- display wakeup
if wakeup == true
then
fibaro:call(selfID, "setProperty", "ui.wakeup.value", "Oui")
else
fibaro:call(selfID, "setProperty", "ui.wakeup.value", "Non")
end
-- check if notification to be send
SendNotification = fibaro:get(selfID,"IPAddress")
if SendNotification ~= "Oui" then SendNotification = "Non" end
fibaro:call(selfID, "setProperty", "ui.Notification.value", SendNotification)
-- fréquence de vérification ?
local Frequence = fibaro:get(fibaro:getSelfId(),"TCPPort")
Frequence = tonumber(Frequence)
-- si TCPPort est vide, la valeur par défaut retournée est 80 => fréquence = 60s
if Frequence == 80 or Frequence <= 10 then Frequence = 60 end
fibaro:call(selfID, "setProperty", "ui.FreqAnal.value", Frequence.." sec")
-- vérification si variable "DeadNodes" existe
local response, status, error = HC2:GET("/api/globalVariables/")
Variables = json.decode(response)
local Exist = false
for _, v in pairs(Variables) do
if v.name == "DeadNodes" then Exist = true end
end
fibaro:debug("La variable DeadNodes exite : "..tostring(Exist))
-- création de la variable "DeadNodes" si elle n'existe pas
if Exist == false then
temp = '{"name":"DeadNodes", "isEnum":0, "value":"NaN"}'
fibaro:debug(temp)
HC2:POST("/api/globalVariables", temp)
end
-- chargement de la VG DeadNodes
fibaro:debug("Chargement de la VG DeadNodes")
local DeadNodes = {}
DeadNodes = fibaro:getGlobal("DeadNodes")
if DeadNodes ~= "NaN" or DeadNodes ~= ""
then DeadNodes = json.decode(DeadNodes)
end
if type(DeadNodes) ~= "table" then DeadNodes = {} end
fibaro:debug("VG DeadNodes chargée")
---------------------
-- FUNCTIONS
---------------------
-- envoie mails notification
function SendNotif(msg)
if SendNotification == "Oui" then
fibaro:call(push_dev, "sendEmail", "Dead nodes discovering", msg)
end
end
-- affichage des noeuds morts
function DisplLabel(dead, label)
if dead <= 9 then
fibaro:call(selfID, "setProperty", "ui.DeadNode" ..dead.. ".value", label)
end
end
-- affichage du status
function Status(status)
fibaro:call(selfID, "setProperty", "ui.Status.value", status)
end
-- affichage du log
function Log(log)
fibaro:log(log)
end
-- vérifier si noeud dans la table
function InTable(Device)
if DeadNodes["DV"..Device] == nil
then return false
else return true
end
end
-- wakeup function
function WakeUp(Device)
fibaro:call(1, "wakeUpDeadDevice", Device)
Status ("Réveil de " ..devID)
Log(dead.. " DeadNodes - Send Notif = " ..SendNotification.. "/" ..FreqNotif.. "h - Réveil de " ..Device)
fibaro:sleep(30*1000) -- attendre 30s pour tester si le node est réveillé
end
---------------------
-- END FUNCTIONS
---------------------
Status ("Analyse")
dead = 0 -- counts # dead nodes
local devices = 0 -- counts # devices discovered
local i = 0
-- clear labels
for i = 1, 9 do
DisplLabel(i, " ")
end
-- Récupération de la liste des modules
reponse = HC2:GET("/api/devices")
jsonResponse = json.decode(reponse)
fibaro:debug("Liste des modules chargée")
-- dead nodes analysis
for _, v in ipairs(jsonResponse) do
-- vérification si device dans la liste des devices exclus
local found = false
for e = 1, #exclude do
if v.id == exclude[e] then found = true end
end
if found == false and v.visible == true and v.properties.dead ~= nil then
devices = devices + 1
Status ("Analyse")
fibaro:debug("Analyse - #Devices = "..devices)
Log(dead.. " DeadNodes - Send Notif = " ..SendNotification.. "/" ..FreqNotif.. "h - Analyse en cours")
dev = v.name
dtype = v.type
devID = tonumber(v.id)
-- si node est dead/mort
if v.properties.dead == "true"
then -- le node est dead
dead = dead + 1
fibaro:debug("Device "..devID.." mort- total = "..dead)
-- affichage du node qui est dead si <=9
DisplLabel(dead, dev.. " (" ..devID.. ")")
-- vérification si device est dans la table des noeuds morts
if InTable(devID) == true
then -- dans table
-- vérification si > fréquence de notification
if (DeadNodes["DV"..devID] + (FreqNotif*60*60)) < now
then -- fréq notif : notif ok
DeadNodes["DV"..devID] = now
-- check si sur batterie
if v.properties.batteryLevel ~= nil or wakeup == false
then -- sur batterie
SendNotif(os.date("%d/%m/%y %H:%M").." : "..dtype.." "..dev.." ID("..devID..") is on battery and was NOT awakened (or wakeup = false). Next notification at "..os.date("%X", DeadNodes["DV"..devID]+FreqNotif*60*60))
else -- sur secteur
-- wakeup process with mail
WakeUp(devID)
if v.properties.dead == "true"
then
-- le node est toujours dead
SendNotif(os.date("%d/%m/%y %H:%M").." : "..dtype.." "..dev.." ID("..devID..") is still dead after unsuccessful wakeup. Next notification at "..os.date("%X", DeadNodes["DV"..devID]+FreqNotif*60*60))
else
-- le node i a été réveillé
dead = dead - 1
-- effacer le node qui a été réveillée si <=9
DisplLabel(dead, " ")
SendNotif(os.date("%d/%m/%y %H:%M").." : "..dtype.." "..dev.." ID("..devID..") was awakened successfully.")
end -- still dead
end -- batterie
else -- fréq notif : pas notif
-- check si sur batterie
if v.properties.batteryLevel ~= nil or wakeup == false
then -- sur batterie
-- check next node
else -- sur secteur
-- wakeup process without mail
WakeUp(devID)
if v.properties.dead == "true"
then
-- le node est toujours dead
else
-- le node i a été réveillé
dead = dead - 1
-- effacer le node qui a été réveillée si <=9
DisplLabel(dead, " ")
SendNotif(os.date("%d/%m/%y %H:%M").." : "..dtype.." "..dev.." ID("..devID..") was awakened successfully" )
end -- still dead
end -- batterie
end -- < fréq notif
else -- pas dans table
DeadNodes["DV"..devID] = now
-- check si sur batterie
if v.properties.batteryLevel ~= nil or wakeup == false
then -- sur batterie
SendNotif(os.date("%d/%m/%y %H:%M").." : "..dtype.." "..dev.." ID("..devID..") is on battery and was NOT awakened (or wakeup = false). Next notification at "..os.date("%X", DeadNodes["DV"..devID]+FreqNotif*60*60))
else -- sur secteur
-- wakeup process with mail
WakeUp(devID)
if v.properties.dead == "true"
then
-- le node est toujours dead
SendNotif(os.date("%d/%m/%y %H:%M").." : "..dtype.." "..dev.." ID("..devID..") is still dead after unsuccessful wakeup. Next notification at "..os.date("%X", DeadNodes["DV"..devID]+FreqNotif*60*60))
else
-- le node i a été réveillé
dead = dead - 1
-- effacer le node qui a été réveillée si <=9
DisplLabel(dead, " ")
SendNotif(os.date("%d/%m/%y %H:%M").." : "..dtype.." "..dev.." ID("..devID..") was awakened successfully" )
end -- still dead
end -- batterie
end -- InTable
else -- not dead
-- vérification si device est dans la table des noeuds morts
if InTable(devID) == true
then -- dans table
SendNotif(os.date("%d/%m/%y %H:%M").." : "..dtype.." "..dev.." ID("..devID..") is no more dead")
DeadNodes["DV"..devID] = nil
else -- pas dans table
-- check next node
end -- InTable
end -- is dead ?
end -- not in exclude table
end -- for
Status ("Fin")
fibaro:debug("Status = Fin")
fibaro:call(selfID, "setProperty", "ui.DeadNodes.value", dead)
fibaro:call(selfID, "setProperty", "ui.DateCheck.value", os.date("%d/%m/%y %H:%M"))
fibaro:call(selfID, "setProperty", "ui.Devices.value", devices)
if dead >= 1
then
fibaro:call(selfID, "setProperty", "currentIcon", IconeDead)
else
fibaro:call(selfID, "setProperty", "currentIcon", IconeOk)
end
-- sauvegarde de la table dans la VG
DeadNodes = json.encode(DeadNodes)
fibaro:setGlobal("DeadNodes", DeadNodes)
-- affichage du message en bas de l'icône en continu,
Log(dead.. " DeadNodes - Send Notif = " ..SendNotification.. "/" ..FreqNotif.. "h - " ..#exclude.. " excluded devices")
et la version complète (v5.1) pour ceux qui ne l'utilisent pas encore
DeadNodesAnalysis_v5.1.vfib
merci pour le partage, ça àl'air super. Perso, je n'en ai pas besoin, mais beaucoup ici vont aimer ! Un admin pourrait-il déplacer ceci vers les tuto ? (ça le mérite bien!)