Code : Tout sélectionner
--[[
name : horoscope.lua
auteur : papoo
Mise à jour : 31/03/2020
Création : 26/06/2016 =>V1.x https://github.com/papo-o/domoticz_scripts/blob/master/Lua/script_time_horoscope.lua
https://pon.fr/dzvents-horoscope-v2
https://easydomoticz.com/forum/viewtopic.php?f=17&t=9786
github : https://github.com/papo-o/domoticz_scripts/blob/master/dzVents/scripts/horoscope.lua
Principe :
Le script vérifie toutes les x heures les horoscopes du site https://astro.rtl.fr/horoscope-jour-gratuit/
signe par signe et mets à jour les éventuels devices texte associés sur domoticz
Le texte est tronqué à ~ 240 caractères pour ne pas surcharger l'affichage. Les caractères html sont convertis
]]--
local les_horoscopes = {
{ device = 'Horoscope 1', signe = 'belier'},
{ device = 'Horoscope 2', signe = 'capricorne'},
{ device = 'Horoscope 3', signe = 'vierge'},
{ device = 'Horoscope 4', signe = 'balance'},
}
local site_url = 'https://astro.rtl.fr/horoscope-jour-gratuit' -- url
--------------------------------------------
----------- Fin variables à éditer ---------
--------------------------------------------
local scriptName = 'Horoscope'
local scriptVersion = '2.01'
return {
active = true,
on = {
timer = { 'every 6 hours' },--https://www.domoticz.com/wiki/DzVents:_next_generation_LUA_scripting#timer_trigger_rules
httpResponses = { 'belier','taureau','gemeaux','cancer','lion','vierge','balance','scorpion','sagittaire','capricorne','verseau','poissons' } -- Trigger
--httpResponses = { 'cancer','capricorne' } -- Trigger
},
logging = {
level = domoticz.LOG_DEBUG, -- Seulement un niveau peut être actif; commenter les autres
-- level = domoticz.LOG_INFO, -- Only one level can be active; comment others
-- level = domoticz.LOG_ERROR,
-- level = domoticz.LOG_MODULE_EXEC_INFO,
marker = scriptName..' v'..scriptVersion },
execute = function(dz, item)
local function logWrite(str,level) -- Support function for shorthand debug log statements
dz.log(tostring(str),level or dz.LOG_DEBUG)
end
--------------------------------------------
local function TronquerTexte(texte, nb) -- texte à tronquer, Nb maximum de caractère
local sep ="[?;!.]"
local DernierIndex = nil
texte = string.sub(texte, 1, nb)
local p = string.find(texte, sep, 1)
DernierIndex = p
while p do
p = string.find(texte, sep, p + 1)
if p then
DernierIndex = p
end
end
return(string.sub(texte, 1, DernierIndex))
end
--------------------------------------------
function unescape(str)--remplace le code html
if (str) then
local ascii = {
[' '] =' ', ['¡'] ='¡', ['¢'] ='¢', ['£'] ='£', ['¤'] ='¤', ['¥'] ='¥', ['¦'] ='¦', ['§'] ='§', ['¨'] ='¨', ['©'] ='©', ['ª'] ='ª', ['«'] ='«', ['¬'] ='¬', ['­'] ='',
['®'] ='®', ['¯'] ='¯', ['°'] ='°', ['±'] ='±', ['²'] ='²', ['³'] ='³', ['´'] ='´', ['µ'] ='µ', ['¶'] ='¶', ['·'] ='·', ['¸'] ='¸', ['¹'] ='¹', ['º'] ='º', ['»'] ='»',
['¼'] ='¼', ['½'] ='½', ['¾'] ='¾', ['¿'] ='¿', ['À'] ='À', ['Á'] ='Á', ['Â'] ='Â', ['Ã'] ='Ã', ['Ä'] ='Ä', ['Å'] ='Å', ['Æ'] ='Æ', ['Ç'] ='Ç', ['È'] ='È', ['É'] ='É',
['Ê'] ='Ê', ['Ë'] ='Ë', ['Ì'] ='Ì', ['Í'] ='Í', ['Î'] ='Î', ['Ï'] ='Ï', ['Ð'] ='Ð', ['Ñ'] ='Ñ', ['Ò'] ='Ò', ['Ó'] ='Ó', ['Ô'] ='Ô', ['Õ'] ='Õ', ['Ö'] ='Ö', ['×'] ='×',
['Ø'] ='Ø', ['Ù'] ='Ù', ['Ú'] ='Ú', ['Û'] ='Û', ['Ü'] ='Ü', ['Ý'] ='Ý', ['Þ'] ='Þ', ['ß'] ='ß', ['à'] ='à', ['á'] ='á', ['â'] ='â', ['ã'] ='ã', ['ä'] ='ä', ['å'] ='å',
['æ'] ='æ', ['ç'] ='ç', ['è'] ='è', ['é'] ='é', ['ê'] ='ê', ['ë'] ='ë', ['ì'] ='ì', ['í'] ='í', ['î'] ='î', ['ï'] ='ï', ['ð'] ='ð', ['ñ'] ='ñ', ['ò'] ='ò', ['ó'] ='ó',
['ô'] ='ô', ['õ'] ='õ', ['ö'] ='ö', ['÷'] ='÷', ['ø'] ='ø', ['ù'] ='ù', ['ú'] ='ú', ['û'] ='û', ['ü'] ='ü', ['ý'] ='ý', ['þ'] ='þ', ['ÿ'] ='ÿ', ['€'] ='€',['''] = "'" , ['"'] = '"', ['&']='&'
}
for code, char in pairs(ascii) do
str = str:gsub(code, char )
end
return str
end
end
--------------------------------------------
if (item.isTimer) then
for index,record in pairs(les_horoscopes) do-- On parcourt chaque horoscope
device = record.device
if device ~= nil and device ~= '' and dz.devices(device).name ~= nil then
logWrite('--- --- --- traitement '..device..' --- --- --')
signe = record.signe
dz.openURL({--https://www.domoticz.com/wiki/DzVents:_next_generation_LUA_scripting#httpResponses
url = site_url..'/'..signe,
callback = signe
})
end
end --for
end
if (item.isHTTPResponse and item.ok) then
logWrite('--- --- --- traitement --- --- --')
for index,record in pairs(les_horoscopes) do-- On parcourt chaque horoscope
device = record.device
if dz.utils.deviceExists(record.device) then
logWrite('--- --- --- traitement '..device..' --- --- --')
signe = record.signe
if item.trigger == signe then
logWrite('--- --- --- traitement signe '..item.trigger..' --- --- --')
for instance in item.data:gmatch("<body>(.-)</body>") do
div, horoscope=instance:match('<h2>En résumé</h2>(.-)<p class="text">(.-)</p>')
end
horoscope = TronquerTexte(unescape(horoscope), 240)
logWrite(horoscope)
dz.devices(record.device).updateText(horoscope or 'Pas d\'horoscope aujourd\'hui')
end
end
end --for
end
end
}
