[LUA] Probabilité de pluie (et neige)

[Keros]

Ce sont les 3 " cote à cote qui génèrent cette erreur. Elle est pourtant visible dans le code sur le site de papoo : https://pon.fr/probabilite-de-pluie-et-de-neige-en-lua (tout le code est en commentaire) à partir de la ligne 75.

Tu peux essayer ceci (pas tester) :

Code : Tout sélectionner

value = string.gsub(value, "/"", """); -- '"' -> """

[denis_brasseur]

Ou bien peux être comme ceci :

Code : Tout sélectionner

value = string.gsub(value, "\"", '"')

Je regarde ce soir en rentrant la syntaxe de ma version

[Gardaux]

Merci pour votre réponse.
Mon 2ème soucis c'est que je n'ai aucune erreur mais mes dispositifs (Proba pluie 1H, Proba pluie 2H,....), ne se mettent pas à jour ni ceux de la neige…

Vous auriez une idée ?

Merci

[Keros]

Il aurait été bien que tu nous dises quel est la syntaxe qui fonctionne. Cela permettrait d'aider les autres qui auraient le même problème.

Il y a milles raisons pour que tes dispositifs ne se mettent pas à jour. Regarde dans ma signature, j'ai écrit quelques conseils pour déboguer un script.

Et puis, sans voir ton code, on ne peut pas t'aider

[Gardaux]

Voici le code qui s'exécute (l'API est masquée ainsi que MaVille)

Code : Tout sélectionner

--[[
name : script_time_probabilite_pluie.lua
auteur : papoo
Date de mise à jour : 09/04/2018
date de création : 09/08/2016
Principe : Ce script a pour but d'interroger l'API du site https://www.wunderground.com/ toutes les heures afin de 
récuperer les calculs de probabilités de pluie et de neige sur 36 heures pour une ville donnée. Cette API utilise une clé gratuite pour 500 requêtes par heure
Il faut donc s'inscrire sur weatherunderground pour avoir accès à cette API 
avant l'utilisation de ce script, pensez à créer une variable utilisateur de type chaine pour y stocker votre clé API
pour créer/modifier une variable utilisateur : domoticz => Réglages => Plus d'options => Variables utilisateur
http://pon.fr/probabilite-de-pluie-et-de-neige-en-lua/
http://easydomoticz.com/forum/viewtopic.php?f=17&t=2301#p20893
https://github.com/papo-o/domoticz_scripts/blob/master/Lua/script_time_probabilite_pluie.lua

Ce script utilise Lua-Simple-XML-Parser https://github.com/Cluain/Lua-Simple-XML-Parser
--]]
--------------------------------------------
------------ Variables à éditer ------------
-------------------------------------------- 

local debugging = true                              -- true pour voir les logs dans la console log Dz ou false pour ne pas les voir
local script_actif = true                           -- active (true) ou désactive (false) ce script simplement
local delai = 60                                    -- délai d'exécution de ce script en minutes de 1 à 59
local pays='FRANCE'                                 -- Votre pays, nécessaire pour l'API
local api_wu = '********************************'   -- Nom de la variable utilisateur contenant l'API Weather Underground de 16 caractères préalablement créé (variable de type chaine)
local ville='MaVille'             -- Votre ville ou commune 
                                                    -- L'api fournie 36 probabilités de pluie, 1 par heure.  
local proba_pluie_h = {}                            -- Ajoutez, modifiez ou supprimez les variables proba_pluie_h[] 
                                                    -- en changeant le N° entre [] correspondant à l'heure souhaitée pour l'associer au device concerné dans dz
proba_pluie_h[1]=664                                -- renseigner l'idx du device % probabilité pluie à 1 heure associé, nil si non utilisé 
proba_pluie_h[2]=667                                -- renseigner l'idx du device % probabilité pluie à 2 heures associé, nil si non utilisé
proba_pluie_h[4]=1068                               -- renseigner l'idx du device % probabilité pluie à 4 heures associé, nil si non utilisé
proba_pluie_h[6]=1067                               -- renseigner l'idx du device % probabilité pluie à 6 heures associé, nil si non utilisé
proba_pluie_h[12]=665                               -- renseigner l'idx du device % probabilité pluie à 12 heures associé, nil si non utilisé
proba_pluie_h[24]=666                               -- renseigner l'idx du device % probabilité pluie à 24 heures associé, nil si non utilisé

                                                    -- L'api fournie 36 probabilités de neige, 1 par heure.
local proba_neige_h={}                              -- comme pour la pluie Ajoutez, modifiez ou supprimez les variables proba_neige_h[] 
                                                    -- en changeant le N° entre [] correspondant à l'heure souhaitée pour l'associer au device concerné dans dz 
proba_neige_h[1]=1069                               -- renseigner l'idx du device % probabilité neige à 1 heure associé, nil si non utilisé 
proba_neige_h[3]=1070                               -- renseigner l'idx du device % probabilité neige à 2 heures associé, nil si non utilisé
proba_neige_h[6]=1071                               -- renseigner l'idx du device % probabilité neige à 4 heures associé, nil si non utilisé
proba_neige_h[12]=1072                              -- renseigner l'idx du device % probabilité neige à 6 heures associé, nil si non utilisé
proba_neige_h[24]=1073                              -- renseigner l'idx du device % probabilité neige à 12 heures associé, nil si non utilisé
proba_neige_h[36]=1074                              -- renseigner l'idx du device % probabilité neige à 24 heures associé, nil si non utilisé

local seuil_notification= nil                       -- pourcentage au delà duquel vous souhaitez être notifié, nil si non utilisé

--------------------------------------------
----------- Fin variables à éditer ---------
-------------------------------------------- 
local nom_script = 'Probabilite Pluie'
local version = '1.21'
local pluie
local neige

-- chemin vers le dossier lua et curl
if (package.config:sub(1,1) == '/') then
    -- system linux
    luaDir = debug.getinfo(1).source:match("@?(.*/)")
    curl = '/usr/bin/curl -m 8 '                                    -- ne pas oublier l'espace à la fin
else
    -- system windows
    luaDir = string.gsub(debug.getinfo(1).source:match("@?(.*\\)"),'\\','\\\\')
    -- download curl : https://bintray.com/vszakats/generic/download_file?file_path=curl-7.54.0-win32-mingw.7z
    curl = 'c:\\Programs\\Curl\\curl.exe '                          -- ne pas oublier l'espace à la fin
end
--------------------------------------------
---------------- Fonctions -----------------
-------------------------------------------- 
package.path = package.path..";/home/pi/domoticz/scripts/lua/fonctions/?.lua"   -- ligne à commenter en cas d'utilisation des fonctions directement dans ce script
require('fonctions_perso')                                                      -- ligne à commenter en cas d'utilisation des fonctions directement dans ce script

-- ci-dessous les lignes à décommenter en cas d'utilisation des fonctions directement dans ce script( supprimer --[[ et --]])
--[[function voir_les_logs (s, debugging) -- nécessite la variable local debugging
    if (debugging) then 
        if s ~= nil then
        print (s)
        else
        print ("aucune valeur affichable")
        end
    end
end -- usage voir_les_logs("=========== ".. nom_script .." (v".. version ..") ===========",debugging)
--]]
--------------------------------------------
-- Lua-Simple-XML-Parser
--------------------------------------------
    XmlParser = {};
    self = {};

    function XmlParser:ToXmlString(value)
        value = string.gsub(value, "&", "&"); -- '&' -> "&"
        value = string.gsub(value, "<", "&lt;"); -- '<' -> "&lt;"
        value = string.gsub(value, ">", "&gt;"); -- '>' -> "&gt;"
        value = string.gsub(value, "\"", "&quot;"); -- '"' -> "&quot;"
        value = string.gsub(value, "([^%w%&%;%p%\t% ])",
            function(c)
                return string.format("&#x%X;", string.byte(c))
            end);
        return value;
    end

    function XmlParser:FromXmlString(value)
        value = string.gsub(value, "&#x([%x]+)%;",
            function(h)
                return string.char(tonumber(h, 16))
            end);
        value = string.gsub(value, "&#([0-9]+)%;",
            function(h)
                return string.char(tonumber(h, 10))
            end);
        value = string.gsub(value, "&quot;", "\"");
        value = string.gsub(value, "&apos;", "'");
        value = string.gsub(value, "&gt;", ">");
        value = string.gsub(value, "&lt;", "<");
        value = string.gsub(value, "&amp;", "&");
        return value;
    end

    function XmlParser:ParseArgs(node, s)
        string.gsub(s, "(%w+)=([\"'])(.-)%2", function(w, _, a)
            node:addProperty(w, self:FromXmlString(a))
        end)
    end

    function XmlParser:ParseXmlText(xmlText)
        local stack = {}
        local top = newNode()
        table.insert(stack, top)
        local ni, c, label, xarg, empty
        local i, j = 1, 1
        while true do
            ni, j, c, label, xarg, empty = string.find(xmlText, "<(%/?)([%w_:]+)(.-)(%/?)>", i)
            if not ni then break end
            local text = string.sub(xmlText, i, ni - 1);
            if not string.find(text, "^%s*$") then
                local lVal = (top:value() or "") .. self:FromXmlString(text)
                stack[#stack]:setValue(lVal)
            end
            if empty == "/" then -- empty element tag
                local lNode = newNode(label)
                self:ParseArgs(lNode, xarg)
                top:addChild(lNode)
            elseif c == "" then -- start tag
                local lNode = newNode(label)
                self:ParseArgs(lNode, xarg)
                table.insert(stack, lNode)
        top = lNode
            else -- end tag
                local toclose = table.remove(stack) -- remove top

                top = stack[#stack]
                if #stack < 1 then
                    error("XmlParser: nothing to close with " .. label)
                end
                if toclose:name() ~= label then
                    error("XmlParser: trying to close " .. toclose.name .. " with " .. label)
                end
                top:addChild(toclose)
            end
            i = j + 1
        end
        local text = string.sub(xmlText, i);
        if #stack > 1 then
            error("XmlParser: unclosed " .. stack[#stack]:name())
        end
        return top
    end

    function XmlParser:loadFile(xmlFilename, base)
        if not base then
            base = system.ResourceDirectory
        end

        local path = system.pathForFile(xmlFilename, base)
        local hFile, err = io.open(path, "r");

        if hFile and not err then
            local xmlText = hFile:read("*a"); -- read file content
            io.close(hFile);
            return self:ParseXmlText(xmlText), nil;
        else
            print(err)
            return nil
        end
    end

function newNode(name)
    local node = {}
    node.___value = nil
    node.___name = name
    node.___children = {}
    node.___props = {}

    function node:value() return self.___value end
    function node:setValue(val) self.___value = val end
    function node:name() return self.___name end
    function node:setName(name) self.___name = name end
    function node:children() return self.___children end
    function node:numChildren() return #self.___children end
    function node:addChild(child)
        if self[child:name()] ~= nil then
            if type(self[child:name()].name) == "function" then
                local tempTable = {}
                table.insert(tempTable, self[child:name()])
                self[child:name()] = tempTable
            end
            table.insert(self[child:name()], child)
        else
            self[child:name()] = child
        end
        table.insert(self.___children, child)
    end

    function node:properties() return self.___props end
    function node:numProperties() return #self.___props end
    function node:addProperty(name, value)
        local lName = "@" .. name
        if self[lName] ~= nil then
            if type(self[lName]) == "string" then
                local tempTable = {}
                table.insert(tempTable, self[lName])
                self[lName] = tempTable
            end
            table.insert(self[lName], value)
        else
            self[lName] = value
        end
        table.insert(self.___props, { name = name, value = self[name] })
    end

    return node
end
--------------------------------------------
-------------- Fin Fonctions ---------------
-------------------------------------------- 
commandArray = {}
if script_actif == true then
    time=os.date("*t")

    if ((time.min-1) % delai) == 0 then -- toutes les xx minutes en commençant par xx:01.  xx définissable via la variable delai
        voir_les_logs("=========== ".. nom_script .." (v".. version ..") ===========",debugging)
    local APIKEY = uservariables[api_wu]

        local rid = assert(io.popen("curl http://api.wunderground.com/api/"..APIKEY.."/hourly/lang:FR/q/"..pays.."/"..ville..".xml"))
        voir_les_logs("--- --- --- http://api.wunderground.com/api/"..APIKEY.."/hourly/lang:FR/q/"..pays.."/"..ville..".xml",debugging)
        local testXml = rid:read('*all')
        rid:close()                    

    local parsedXml = XmlParser:ParseXmlText(testXml)
        if parsedXml then 
            local abr = parsedXml.response.hourly_forecast  
            for i in pairs(abr:children()) do 
                    if proba_pluie_h[i] ~= nil then 
                        pluie = tonumber(abr:children()[i]:children()[19]:value())
                        voir_les_logs("--- --- --- Probabilite de pluie a ".. i .."h => " .. pluie,debugging)
                        commandArray[#commandArray+1] = {['UpdateDevice'] = proba_pluie_h[i]..'|0|'.. pluie}
                        if seuil_notification ~= nil and pluie > seuil_notification then
                        commandArray[#commandArray+1] = {['SendNotification'] = 'Alerte : '.. pluie ..' % de probabilité de pluie dans '.. i ..'heure(s)'}
                        
                        end
                    end
                    if proba_neige_h[i] ~=nil then
                        neige = tonumber(abr:children()[i]:children()[18]:children()[2]:value())
                        voir_les_logs("--- --- --- probabilite de neige a ".. i .."h => " .. neige,debugging)
                        commandArray[#commandArray+1] = {['UpdateDevice'] = proba_neige_h[i]..'|0|'.. neige}
                        if seuil_notification ~= nil and neige > seuil_notification then
                        commandArray[#commandArray+1] = {['SendNotification'] = 'Alerte : '.. neige ..' % de probabilité de neige dans '.. i ..'heure(s)'}
                        end
                        --print(abr:children()[i]:children()[4]:value())
                    end
            end
        end 
        voir_les_logs("========= Fin ".. nom_script .." (v".. version ..") =========",debugging)
    end -- if time
end    
return commandArray

Merci

[Keros]

Tu ne vois peut-être pas les erreurs car tu n'as pas activé la fonction Voir les logs

[Gardaux]

Je pense que mon problème vient le la clé API qui n'est plus distribué par WU.

[Keros]

Pour le tester, tu fais afficher le Json dans ton navigateur et tu verras vite si tu as accès aux infos ou pas.

[Gardaux]

J'ai changé mon fusil d'épaule et je suis passé sur la version DarkSky qui fonctionne super bien….
viewtopic.php?f=17&t=7136&p=58822#p58822

[Keros]

Mais malheureusement pas pour longtemps : viewtopic.php?f=16&t=9800