Open source Home Automation System
https://forum.domoticz.com/
Code: Select all
url='http://gadgets.buienradar.nl/data/raintext?lat='..lat..'&lon='..lon..''Hi Jos,
Code: Select all
-- url='http://gps.buienradar.nl/getrr.php?lat='..lat..'&lon='..lon -- old link
url='https://gadgets.buienradar.nl/data/raintext?lat='..lat..'&lon='..lon
Code: Select all
url='https://gadgets.buienradar.nl/data/raintext/?lat='..lat..'&lon='..lon
its working again. Still not fully satisfied I made some changes to the original code. If you appreciate the changes, enjoy !!! Code: Select all
----------------------------------------------------------------------------------------------------------------
-- IsItGonnaRain( int minutesinfuture)
-- returns: int avarage rainfall for the next minutesinfuture
--
-- Function to get rain prediction from Buienradar.nl (dutch)
--
-- http://gratisweerdata.buienradar.nl/#Buienradar You may use their free service for non-commercial purposes.
-- rewriten by mvroosmalen @ gmx net
-- 30-12-2017 v0.6 modified by MvR removed temp file etc. changed website (default was not working for me)
-- Written in LUA by Hans van der Heijden (h4nsie @ gmail.com)
-- 03-03-2017 v0.5 function removed and start and end time included
-- text output included which shows first rain period and duration
-- 14-11-2016 v0.4 changed lat/lon to max 2 decmals after comma
-- 28-03-2015 v0.3 bug: quotes around url added.
-- 27-03-2015 v0.2 return value is now average for next time
-- 26-03-2015 v0.1 Initial release
-- todo: some error checking on http and file handling (tmp file)
--
-- config ------------------------------------------------------------------------------------------------------
lat='51.11' -- example lat/lon for Tilburg
lon='5.13' -- NOTE: lat and lon should have max 2 decimals after dot to function (requirement Buienradar)
debug=false -- True to log all changes
minuten=10 -- Rain check periode
text_sensor='regeninfo'
IDX_txt_sensor='395' -- IDx text sensor for perminent rain notifications
regen_sensor='Rain expected' -- Rain sensor switch (on/off)
http = require("socket.http")
domoticzurl='192.168.1.xxx:yyy' -- domoticz website
Rain_alert=0.2 -- Alert when maxrain is exceeding .... mm/hour .
-- functions ---------------------------------------------------------------------------------------------------
function Round(num, idp)
local mult = 10^(idp or 0)
return math.floor(num * mult + 0.5) / mult
end
function lines(str)
local t = {}
local function helper(line) table.insert(t, line) return "" end
helper((str:gsub("(.-)\r?\n", helper)))
return t
end
-- Main code ----------------------------------------------------------------------------------------------------
commandArray = {}
-- check if variable geenregen is present, if not create it to store rain status
if (uservariables['geenregen'] == nil) then
commandArray['OpenURL']=domoticzurl..'/json.htm?type=command¶m=saveuservariable&vname='..UrlEncode('geenregen')..'&vtype=2&vvalue=0'
end
time = os.date("*t")
if ((time.min % minuten)==0) then
----- check REGEN ------
-- url='http://gps.buienradar.nl/getrr.php?lat='..lat..'&lon='..lon
-- use
-- url='http://gadgets.buienradar.nl/data/raintext?lat='..lat..'&lon='..lon
-- or
-- url='http://br-gpsgadget-new.azurewebsites.net/data/raintext?lat='..lat..'&lon='..lon
-- isn't working sice 2016/08/29: url is changed in:
url='http://br-gpsgadget-new.azurewebsites.net/data/raintext?lat='..lat..'&lon='..lon
body = http.request(url)
if debug then print(url) end
-- if nothing received then exit
if body == nil then
if debug then print ("rain: no data recieved") end
return commandArray
end
row=lines(body)
if debug then print (body) end
-- check only if more the 4 lines of data are captured
if #row>4 then
starttijd=nil
eindtijd=nil
totalrain=0
gevonden=false
rainlines=0
maxrain=0
-- now analyse the received lines, format is like 000|15:30 per line.
for t=1,#row do
if string.find(row[t],'|')==nil then break end
if debug then print('Line:'..row[t]) end
linetime=string.sub(row[t], 5, 9)
if debug then print('Linetime: '..linetime) end
rain=tonumber(string.sub(row[t], 0, 3))
totalrain = totalrain+rain
if gevonden then rainlines=rainlines+1 end
if debug then print('Rain in timerange: '..rain) end
if debug then print('Total rain now: '..totalrain) end
if ((not gevonden) and (rain>0)) then
starttijd=linetime
rainlines=rainlines+1
gevonden=true
if debug then print('Rain starts at: '..starttijd) end
end
if (gevonden and (rain>maxrain)) then maxrain=rain end
if ((gevonden) and (rain==0)) then
eindtijd=linetime
if debug then print('Rain ends at: '..eindtijd) end
gevonden=false
break
end
end
if gevonden then eindtijd=">"..linetime end
-- Returned value is average rain fall for next time
-- 0 is no rain, 255 is very heavy rain
-- When needed, mm/h is calculated by 10^((value -109)/32) (example: 77 = 0.1 mm/hour)
if (totalrain>0) then
regen=totalrain/rainlines
regen=Round(10^((regen -109)/32),2)
maxrain=Round(10^((maxrain -109)/32),2)
else
regen=0
end
if debug then print('regen = '..regen) end
if (starttijd==nil) then
--print('Geen regen verwacht over '..minuten)
if debug then print('starttijd is empty: geen regen verwacht') end
if tonumber(uservariables['geenregen'])==0 then
commandArray['UpdateDevice']=IDX_txt_sensor..'|0|'..'geen regen verwacht'
commandArray['Variable:geenregen']="1";
end
starttijd=0
if eindtijd==nil then eindtijd=0 end
else
commandArray['UpdateDevice']=IDX_txt_sensor..'|0|'..regen..'mm/h om '..starttijd..' tot '..eindtijd..' Max=' .. maxrain..'mm/h'
if debug then print('Regen verwachting: '..regen..' mm/h om '..starttijd..' tot '..eindtijd) end
commandArray['Variable:geenregen']="0";
if debug then print('starttijd = '..starttijd) end
end
-- Linetime2 holds the full date calculated from the time on a line
linetime2 = os.time{year=os.date('%Y'), month=os.date('%m'), day=os.date('%d'), hour=string.sub(starttijd,1,2), min=string.sub(starttijd,4,5), sec=os.date('%S')}
difference = os.difftime (linetime2,os.time())
-- When a line entry has a time in the future AND is in the given range, then report the rainfall
if ((difference >= 0) and (difference<=minuten*60)) then
if debug then print('Line in time range found') end
commandArray['Variable:geenregen']="0";
if maxrain > Rain_alert and otherdevices[regen_sensor]=='Off' then
commandArray['SendNotification']='Regen verwacht: '..regen..'mm/h om '..starttijd..' tot '..eindtijd..' Max=' .. maxrain..'mm/h'
end
if maxrain > Rain_alert then commandArray['Rain expected']='On' end
end
if regen == 0 and otherdevices[regen_sensor]=='On' then
if debug then print('No rain expected') end
commandArray['SendNotification']='Geen regen meer verwacht'
if tonumber(uservariables['geenregen'])==0 then
commandArray['UpdateDevice']=IDX_txt_sensor..'|0|'..'geen regen verwacht'
commandArray['Variable:geenregen']="1";
end
end
if regen == 0 then commandArray['Rain expected']='Off' end
end
end
return commandArray
Code: Select all
2018-01-24 12:31:00.305 LUA: http://gadgets.buienradar.nl/data/raintext/?lat=52.06&lon=4.39
2018-01-24 12:31:00.420 Error: EventSystem: in /home/pi/domoticz/scripts/lua/script_time_raintext.lua: /home/pi/domoticz/scripts/lua/script_time_raintext.lua:14: attempt to index global 'file' (a nil value)Code: Select all
000|12:30
000|12:35
000|12:40
000|12:45
000|12:50
000|12:55
000|13:00
000|13:05
000|13:10
000|13:15
000|13:20
000|13:25
000|13:30
000|13:35
000|13:40
000|13:45
000|13:50
000|13:55
000|14:00
000|14:05
000|14:10
000|14:15
000|14:20
000|14:25Thanks Mark, I however have no clue on how to doe that...mvroosmalen wrote: ↑Tuesday 23 January 2018 7:51 He mace,
In that case change then commandArray['SendNotification']=....... to code to only send to for example pushbullet or change settings.
s6
Mark
