Domoticz

Code: Select all

commandArray = {}
-- only check windspeed when Wind info is updated
if devicechanged['Wind'] then
	sDirectionDegrees, sDirection, sSpeed, sGust, sTemperature, sFeel = otherdevices_svalues['Wind']:match("([^;]+);([^;]+);([^;]+);([^;]+);([^;]+);([^;]+)")
	-- check whether the sunscreen is "out"
	if (otherdevices['Sunscreen'] == 'Open') then
		-- send warning when speed is over 60km
		if sSpeed < 60 then
			print('Windsnelheid hoger dan 60 km en Sunscreen is open.')
		end
	end
end
return commandArray

Code: Select all

077|17:15
077|17:20
86,6329598612474|17:25
86,6329598612474|17:30
077|17:35
077|17:40
86,6329598612474|17:45
86,6329598612474|17:50
92,2678801510292|17:55
99,3670401387526|18:00
112,64618727381878|18:05
112,64618727381878|18:10
105,8988795837422|18:15
111,53379987352399|18:20
112,64618727381878|18:25
105,8988795837422|18:30
118,6329598612474|18:35
123,30905700295102|18:40
129,590485647558|18:45
131,3670401387526|18:50
131,3670401387526|18:55
118,6329598612474|19:00
112,64618727381878|19:05
105,8988795837422|19:10

Code: Select all

while true do
   line = file:read("*line")
   if not line then break end
   rain,linetime = line:match("(%d+).-|(.+)%s?")
   rain = tonumber(rain) or 0
   linetime = linetime or "00:00"
   linetime = linetime:gsub("[\r\n]","")
   if debug then print('Rain in timerange: '..rain .. '   linetime:'..linetime..'    Line:' ..line ) end

Code: Select all

for k,v in tmp:gmatch('(.-)|(.-)\r?\n') do

Code: Select all

for k,v in tmp:gmatch('(%d+).-|(.-)\r?\n') do

Code: Select all

123|10:00

Code: Select all

123,456789|10:00

Code: Select all

-- script_time_buienradar.lua
-- 
-- BuienRadar Module
--
-- curl in os required!!
-- create dummy text device from dummy hardware 'Buien Radar'
-- create dummy rain sensor from dummy hardware 'BuienRadarMeter'
-- create dummy switch from dummy hardware for triggering screens etc based on rain
-- add as time based lua script
-- set your longitude & latitude below!
-- 
-- 2017-12-27 working version
-- 2017-12-28 trying to get the rain device working .. missing documentation ..
-- 2017-12-30 isolated the bug, i was overwriting the updatedevice .. should be ok now
-- 2018-03-28 updated buienradar url
-- 2018-04-02 added follow redirect for curl & fixed typo as tipped by gizmocuz 
-- 

commandArray = {}

local myBuienRadarDevice = 'Buienradar'
local myBuienRadarMeter = 'RegenData'
local myBuienRadarFlg = 'Paraplu'

-- longitude latitude
local lat='51.00'
local lon='3.00'

time = os.date("*t")
if time.min % 5 == 0 then 
    
    print('(Buienradar) Get data from Buienradar')

    function os.capture(cmd, rep)   -- execute command to get site
        -- rep is nr of repeats if result is empty
        r = rep or 1
        local s = ""
        while ( s == "" and r > 0) do
            r = r-1
            local f = assert(io.popen(cmd, 'r'))
            s = assert(f:read('*a'))
            f:close()
        end
        if ( rep - r > 1 ) then
            print("(Buienradar) os.capture needed more than 1 call: " .. rep-r)
        end
      return s
    end
 
    --  get data from buienradar
    -- local command = "curl --max-time 3 -L -s 'https://gpsgadget.buienradar.nl/data/raintext?lat=" .. lat .. "&lon=" .. lon .. "'"  -- timeout 3 secs
    local command = "curl --max-time 3 -L -s 'https://gps.buienradar.nl/getrr.php?lat=" .. lat .. "&lon=" .. lon .. "'"  -- timeout 3 secs
    -- print("command: " .. command)
    local tmp = os.capture(command, 3)  -- nr of repetitions 3
 
    -- print('buienRadar data:\n' .. tmp)
    
    if ( tmp == "" ) then
        print("(BuienRadar) Empty result from curl command")
    else
        -- analyse data 

        -- to mm/h 10^((waarde-109)/32)        
        function tomm(r)
            return 10^((r-109)/32)
        end
        
        -- to string formatted
        function tos(r, c)
            c = c or 1
            return string.format("%." .. c .. "f", r)
        end

        local c=0
        local rainNow=0
        local rainNowAvg = 0
        local rainSoon = 0
        local rainTime = ""
        local rainMax = 0
        for k,v in tmp:gmatch('(.-)|(.-)\r?\n') do  -- k is rain value, v is time
            kn = tonumber(k)
            if c<=1 then
                if rainNow < kn then
                    rainNow = kn
                end
                if kn > 0 then
                    rainNowAvg = rainNowAvg + tomm(kn)/2
                end
            end
            if c<=3 and rainSoon < kn then 
                rainSoon = kn
            end
            if rainTime == "" and kn > 0 then
                rainTime = v
            end
            if kn > rainMax then
                rainMax = kn
            end
            c = c+1
        end
        
        -- if c = 0 no data found!
        if ( c == 0 ) then
            print("(BuienRadar) Unparsable result from curl command")
        else
        
            if rainNow>0 then
                tmp = "Nu " .. tos(tomm(rainNow)) .. " mm/uur"
                if rainMax > rainNow then
                    tmp = tmp .. " tot " .. tos(tomm(rainMax)) .. " mm/uur"
                end
            elseif rainSoon>0 then
                tmp = "Verwacht " .. tos(tomm(rainSoon)) .. " mm/uur"
                if rainMax > rainSoon then
                    tmp = tmp .. " tot " .. tos(tomm(rainMax)) .. " mm/uur"
               end
            elseif rainTime ~= "" then
                tmp = "Verwacht om " .. rainTime .. " tot " .. tos(tomm(rainMax)) .. " mm/uur"
            else tmp = "Voorlopig droog"
            end
    
            -- calculate totalrainfall using rainNowAvg as average of 2 next reports
            -- print("buienRadarMeterOld: " .. otherdevices_svalues[myBuienRadarMeter])
            local rainTot = tonumber(otherdevices_svalues[myBuienRadarMeter]:match("[^;]+;([^;]+)")) + rainNowAvg/12 -- /12 to acount for 5min measurements ?? ..
            -- print("buienRadarDebug: rainNow=" .. tos(tomm(rainNow)) .. " rainNowAvg=" .. tos(rainNowAvg) .. " rainSoon=" .. 
            --      tos(tomm(rainSoon)) .. " rainTot=" .. tos(rainTot,2) .. " rainTime=" .. rainTime .. " rainMax=" .. tos(tomm(rainMax)))
            local cmd = otherdevices_idx[myBuienRadarMeter] .. "|0|" .. tos(tomm(rainNow)*100,0) .. ";" .. tos(rainTot,2)
            -- print("buienRadar: " .. cmd)
            table.insert(commandArray, { ['UpdateDevice'] = cmd } ) -- table.insert needed to avoid overwriting with next updatedevice
            
            -- write to text device
            if otherdevices[myBuienRadarDevice] ~= tmp then
                table.insert(commandArray, { ['UpdateDevice'] = otherdevices_idx[myBuienRadarDevice] .. '|0|' .. tmp })
                
                -- trigger based when rainNow or rainSoon
                if ( rainNow>0 or rainSoon>0 ) then
                    if otherdevices[myBuienRadarFlg] == "Off" then
                        commandArray[myBuienRadarFlg] = "On"
                    end
                elseif otherdevices[myBuienRadarFlg] == "On" then
                    commandArray[myBuienRadarFlg] = "Off"
                end
            end
        end -- unparsable
    end -- empty result
end

return commandArray

Code: Select all

tmp = "123,456789|10:00\r\n"

print("-- the original issue after buienradar changed the value to include decimals using a ,")
for k,v in tmp:gmatch('(.-)|(.-)\r?\n') do
	print("Data:",k,v)
	kn = tonumber(k)
	print("Result:",kn,v)
end
print("")
print("-- proposed fix in regex")
for k,v in tmp:gmatch('(%d+).-|(.-)\r?\n') do
	print("Data:",k,v)
	kn = tonumber(k)
	print("Result:",kn,v)
end
print("")
print("-- the second option replace , with .")
for k,v in tmp:gmatch('(.-)|(.-)\r?\n') do
	print("Data:",k,v)
	k = k:gsub(",",".")
	kn = tonumber(k)
	print("Result:",kn,v)
end

Code: Select all

...
for k,v in tmp:gmatch('(.-)|(.-)\r?\n') do  -- k is rain value, v is time
    k = k:gsub(",",".")  -- replace the comma for a decimal point
    kn = tonumber(k)
...