script_device_Chauffage_Consigne

-- Script pour forcer la consigne du thermostat des pièces
-- V1.2 : Ajout de la fonction consigne
-- V1.1 : Ajout du double Array
-- V1.0 : Version initiale
--
--
-----------------------------------
-- vvvv Paramètres à éditer vvvv --
--
-- Variables


-- Materiel

local DMode = 'DUSEL-ModeChauffage' -- Switch Marche -- Pour autoriser le fonctionnement du dispositif, permet de couper le script si ça ne tourne pas
local DPrefTh = 'DUTH-' -- Définition du préfixe pour le nom des Thermostats à lire, suivant les modes de chauffage
local Host = 'xxxx:xxxx' -- IP & port du serveur Domoticz

Room = {}; -- Tableau des différentes pièces
Room[1] = {Nom = "TV", IDXTh="3"} -- Tableau des données de la pièce

-- ^^^^ Paramètres à éditer ^^^^ --
-----------------------------------

-- Variables

local VMode = otherdevices[DMode] -- Récupération du mode de Chauffage
local DSetTh = DPrefTh..VMode -- Concaténation préfixe + mode chauffage pour trouver le Thermostat correspondant
local VSetTh = otherdevices[DSetTh] -- Récupération du Thermostat de mode

-- Fonctions

function consigne(IDX,Valeur) -- Permet d'envoyer la consigne au thermostat
    --print ("Adresse de l'équipement : "..Host) -- Pour debug
    --print ("IDx de l'équipement : "..IDX) -- Pour debug
    --print ("Consigne de l'équipement : "..Valeur) -- Pour debug
    commandArray['OpenURL'] = Host..'/json.htm?type=command&param=udevice&idx='..IDX..'&nvalue=0&svalue='..Valeur

end

commandArray = {}

--print ('<font color="Red">Script Device Consigne Chauffage</font>') -- Pour debug

if (devicechanged[DMode] and otherdevices[DMode] ~='Off') then -- Le script ne se déclenche qu'en cas de changement de mode de chauffage à condition de ne pas être coupé
    --print ("Consigne : Changement Mode et On"); -- Pour debug
    --print ("Thermostat à récupérer : "..DSetTh) -- Pour debug

    for i, v in pairs(Room) do
        --print ("Consigne du Thermostat "..DSetTh.." : "..VSetTh) -- Pour debug
        --print ("Pièce : "..v.Nom.." et IDX : "..v.IDXTh) -- Pour debug
        consigne (v.IDXTh,VSetTh)
        print ('<font color="red">Chauffage en mode '..VMode..', Thermostat '..v.Nom..' réglé sur '..VSetTh..'</font>') -- Retour

    end

end

return commandArray