Domoticz

Code: Select all

--todo:
-- beter explanation
-- pushover integration
-- buienradar als crosscheck   (apart script wat de virtuele sensors op 0 tot 255 zet.
-- alert/debug   when nill values.
-- making loggin better readable
-- When in debug modus control the same only for a virtual sunscreen/blind
-- use the sombody @ home virtual switch
-- make coding more readable and maybe easier (with functions or something)
-- Questions or ideas?   contact : remco84  @   Gmail.com

--------------------------------------------------------------------------------
--      Variable
----------------------------------------------------------------------------------------------------------------
Version       = 0.027
Version_Type  = 'Beta'
   -- config ---------------------------------------------------------
TH_Wind       = uservariables["TH_Wind"] + 0		-- Treshold wind
TH_Gust       = uservariables["TH_Gust"] + 0   		-- Treshold windstoten
TH_Rain       = uservariables["TH_Rain"] + 0		-- Treshold regen/neerslag
TH_Uv_Close   = uservariables["TH_Uv_Close"] + 0 	-- 2.5 	-- treshold voor Uv close
TH_Uv_Open    = uservariables["TH_Uv_Open"] + 0		-- 1.5 	-- treshold voor Uv open   
TH_Tp_Close   = uservariables["TH_Tp_Close"] + 0	-- 20  	-- treshold voor Temperature close
TH_Tp_Open    = uservariables["TH_Tp_Open"] + 0		-- 19  	-- treshold voor Temperature close

ActionClose   = 'On'
ActionOpen    = 'Off'
UseVoice      = 'N'
ManualTime    = uservariables["Zonnescherm_ManualTime"]			-- 'D'  D=Daytime / A=All
Debugging     = uservariables["Zonnescherm_Debugging"]			-- 'Y'
Man_to_Auto   = uservariables["Man_to_Auto"] + 0				-- 240  Minutes manual override
SwitchTime    = uservariables["Zonnescherm_SwitchTime"] + 0		-- 10
LogAction     = uservariables["Zonnescherm_LogAction"]			-- 'Y' 	A=All, Y=Only on change
Notifications = uservariables["Zonnescherm_Notifications"]  	-- N-no Y= enabled

LogFile       = '/var/log/Sunscreen.log'
DeviceName    = 'Zonnescherm'
DeviceNameDebug    = 'ZonneschermDebug'
DeviceManual  = 'Zonnescherm - Manual'
IemandThuis = 'IemandThuis'
--TelegramName  = uservariables["TelegramName"]

-- Retrieve values from devices
Wu_Dev_Temp = otherdevices_svalues['WU Temperature']
Wu_Dev_Rain = otherdevices_svalues['WU Rain']
Wu_Dev_UvMe = otherdevices_svalues['WU UV']
Wu_Dev_UvMe = otherdevices_svalues['WU UV']
   -- config ------------------------
commandArray = {}
print ("______________________________________________________________________")
print (">> Sunscreen LUA Conditions.....v" .. Version .. "....." .. Version_Type)
if Debugging=='Y' then print("Zonnescherm_Debugging =   true") DeviceName = DeviceNameDebug else print("Debugging = false") end
if (otherdevices[DeviceName]) == 'Open' then print("Zonnescherm device: " .. DeviceName .. " is open") else print("Zonnescherm device: " .. DeviceName .. " is gesloten") end

-- Split values from devices
Part=1
for match in (Wu_Dev_Temp..';'):gmatch("(.-)"..';') do
   if Part==3 then Wu_Wind = tonumber(match) end
   if Part==4 then Wu_Gust = tonumber(match) end
   if Part==5 then Wu_Temp = tonumber(match) end
   Part=Part+1
end

Part=1
for match in (Wu_Dev_Rain..';'):gmatch("(.-)"..';') do
   if Part==2 then Wu_Rain = tonumber(match) end
   Part=Part+1
end

Part=1
for match in (Wu_Dev_UvMe ..';'):gmatch("(.-)"..';') do
   if Part==1 then Wu_Uv = tonumber(match) end
   Part=Part+1
end

if LogAction=='Y' or LogAction=='A' then
   f=io.open(LogFile,"a")
end
--
-- Calculate pre results
--
if (timeofday['Daytime'])   then Res_Dayl=1 else Res_Dayl=0 end
if Wu_Wind <= TH_Wind       then Res_Wind=1 else Res_Wind=0 end
if Wu_Gust <= TH_Gust       then Res_Gust=1 else Res_Gust=0 end
if Wu_Rain <= TH_Rain       then Res_Rain=1 else Res_Rain=0 end
if Wu_Uv   >= TH_Uv_Close   then Res_UvCl=1 else Res_UvCl=0 end
if Wu_Temp >= TH_Tp_Close   then Res_TpCl=1 else Res_TpCl=0 end
if Wu_Uv   <= TH_Uv_Open    then Res_UvOp=1 else Res_UvOp=0 end
if Wu_Temp <= TH_Tp_Open    then Res_TpOp=1 else Res_TpOp=0 end
--
-- Print decision info in the log
--
print ( "These conditions are valid when sunscreen is up: " )
if (timeofday['Daytime']) then 
   print (  Res_Dayl .. " - Daytime   : True" )
else
   print (  Res_Dayl .. " - Daytime   : False" )
end
print ( Res_Wind .. " - Wind        : " .. Wu_Wind .. " <= Th : " .. TH_Wind )
print ( Res_Gust .. " - Gust        : " .. Wu_Gust .. " <= Th : " .. TH_Gust )
print ( Res_Rain .. " - Rain        : " .. Wu_Rain .. " <= Th : " .. TH_Rain )
print ( Res_UvCl .. " - UV Close    : " .. Wu_Uv   .. " >= Th : " .. TH_Uv_Close )
print ( Res_TpCl .. " - Temp Close  : " .. Wu_Temp .. " >= Th : " .. TH_Tp_Close )
print ( "These conditions are valid when sunscreen is down: " )
print ( Res_UvOp .. " - UV Open     : " .. Wu_Uv   .. " <= Th : " .. TH_Uv_Open )
print ( Res_TpOp .. " - Temp Open   : " .. Wu_Temp .. " <= Th : " .. TH_Tp_Open )


-- Manual override for x minutes

if (otherdevices[DeviceManual]) == 'On' then
   now = os.date("*t") 
        T1  = os.time(now)

   Man_to_Auto = Man_to_Auto * 60
   s = otherdevices_lastupdate[DeviceManual]
        year = string.sub(s, 1, 4)
        month = string.sub(s, 6, 7)
        day = string.sub(s, 9, 10)
        hour = string.sub(s, 12, 13)
        minutes = string.sub(s, 15, 16)
        seconds = string.sub(s, 18, 19)
   
        T2 = os.time{year=year, month=month, day=day, hour=hour, min=minutes, sec=seconds}

   if os.difftime (T1,T2) > Man_to_Auto then
   commandArray[DeviceManual] = 'Off'   
        end

        if ManualTime~="D" and Res_Dayl==0 then
        --
        -- Outside daytime period, turn manual override off
        --
   commandArray[DeviceManual] = 'Off'   
        end
end

if (otherdevices[DeviceName]) == 'Open' then
   print ("Current state: Up / Open")
   if Res_Dayl + Res_Wind + Res_Gust + Res_Rain + Res_UvCl + Res_TpCl == 6 then
     if (otherdevices[DeviceManual]) == 'On' then
         print ("Sunscreen Manual Control")
     else
         t1 = os.time()
         s = otherdevices_lastupdate[DeviceName]
         year = string.sub(s, 1, 4)
         month = string.sub(s, 6, 7)
         day = string.sub(s, 9, 10)
         hour = string.sub(s, 12, 13)
         minutes = string.sub(s, 15, 16)
         seconds = string.sub(s, 18, 19)
         t2 = os.time{year=year, month=month, day=day, hour=hour, min=minutes, sec=seconds}
         difference = (os.difftime (t1, t2))
         if difference <= SwitchTime then
             print ("Recent open, wait for switchtime")
         else
             -- Close
             print ("Action: Naar beneden")
             commandArray[DeviceName] = ActionClose
 			 if UseVoice=='Y' then
				 os.execute('su pi ./home/pi/domoticz/scripts/sh/dspeak.sh "SunDown" ')
			 end
			 if LogAction=='Y' or LogAction=='A' then
				 f:write(os.date("%Y-%m-%d;%H:%M:%S") .. ";DOWN;" .. Version .. ";" .. Res_Dayl .. ";" .. Res_Wind .. ";" .. Res_Gust .. ";" .. Res_Rain .. ";" .. Res_UvCl .. ";" .. Res_TpCl .. ";" .. Res_UvOp .. ";" .. Res_TpOp .. ";" .. Wu_Wind .. ";" .. Wu_Gust .. ";" .. Wu_Rain .. ";" .. Wu_Uv .. ";" .. Wu_Temp)
                 f:write("\n")
             end
             if Notifications == 'N' then else
				commandArray['SendNotification']='Zonnescherm#Zonnescherm gaat uit (naar beneden)!#0#pushover'
             end
         end
     end
   else
      print ("Action: None")
   end
end

if (otherdevices[DeviceName]) == 'Closed' then
   print ("Current state: naar beneden")
   if Res_Dayl + Res_Wind + Res_Gust + Res_Rain < 4 or Res_UvOp==1 or Res_TpOp==1 then
		 if (otherdevices[DeviceManual]) == 'On' then
			 print ("Sunscreen Manual")
		 else
			 -- Open
			 print ("Action: Up / Open")
			 commandArray[DeviceName] = ActionOpen
			 if UseVoice=='Y' then
				 os.execute('su pi ./home/pi/domoticz/scripts/sh/dspeak.sh "SunUp" ')
			 end
			 if LogAction=='Y' or LogAction=='A' then
				 f:write(os.date("%Y-%m-%d;%H:%M:%S") .. ";OPEN;" .. Version .. ";" .. Res_Dayl .. ";" .. Res_Wind .. ";" .. Res_Gust .. ";" .. Res_Rain .. ";" .. Res_UvCl .. ";" .. Res_TpCl .. ";" .. Res_UvOp .. ";" .. Res_TpOp .. ";" .. Wu_Wind .. ";" .. Wu_Gust .. ";" .. Wu_Rain .. ";" .. Wu_Uv .. ";" .. Wu_Temp)
				 f:write("\n")
			 end
			 if Notifications == 'N' then else
				commandArray['SendNotification']='Zonnescherm#Zonnescherm gaat in (omhoog)!#0#pushover'
			 end
		 end
   else
      print ("  Action: None")
   end
end
if LogAction=='A' then
--	 DateTime ; State ; Version ; Res_Dayl ; Res_Wind ; Res_Gust ; Res_Rain ; Res_UvCl ; Res_TpCl ; Res_UvOp ; Res_TpOp ; Wu_Wind ; Wu_Gust ; Wu_Rain ; Wu_Uv ; Wu_Temp
     f:write(os.date("%Y-%m-%d;%H:%M:%S") .. ";IDLE;" .. Version .. ";" .. Res_Dayl .. ";" .. Res_Wind .. ";" .. Res_Gust .. ";" .. Res_Rain .. ";" .. Res_UvCl .. ";" .. Res_TpCl .. ";" .. Res_UvOp .. ";" .. Res_TpOp .. ";" .. Wu_Wind .. ";" .. Wu_Gust .. ";" .. Wu_Rain .. ";" .. Wu_Uv .. ";" .. Wu_Temp)
     f:write("\n")
	 f:close()
end
print ("______________________________________________________________________")
return commandArray

Code: Select all

commandArray = {}

--Weatherstation data:
sWeatherTemp, sWeatherHumidity, sWeatherUV, sWeatherPressure, sWeatherUV2 = otherdevices_svalues['Barometer']:match("([^;]+);([^;]+);([^;]+);([^;]+);([^;]+)")
sWeatherTemp = tonumber(sWeatherTemp);
sWeatherHumidity = tonumber(sWeatherHumidity);
sWeatherPressure = tonumber(sWeatherPressure);
sWeatherUV = tonumber(sWeatherUV);
sWeatherUV2 = tonumber(sWeatherUV2);

print("______________________________________________________________________________________")
print("Weather station: Temperature is " .. sWeatherTemp .. " ");
print("Weather station: Humidity is " .. sWeatherHumidity .. " ");
print("Weather station: Pressure is " .. sWeatherPressure .. " ");
print("Weather station: UV is " .. sWeatherUV .. " ");
print("Weather station: UV2 is " .. sWeatherUV2 .. " ");
print("______________________________________________________________________________________")

------------------------------------------------------------------------

--Windmeter data:
sWindDirectionDegrees, sWindDirection, sWindSpeed, sWindGust, sWindTemperature, sWindFeel = otherdevices_svalues['Wind']:match("([^;]+);([^;]+);([^;]+);([^;]+);([^;]+);([^;]+)")

sWindDirectionDegrees = tonumber(sWindDirectionDegrees);
sWindDirection = (sWindDirection);
sWindSpeed = tonumber(sWindSpeed);
sWindGust = tonumber(sWindGust);
sWindTemperature = tonumber(sWindTemperature);
sWindFeel = tonumber(sWindFeel);

print("______________________________________________________________________________________")
print("Windmeter: Winddirection (in degrees) is: " .. sWindDirectionDegrees .. " ");
print("Windmeter: Winddirection is: " .. sWindDirection .. " ");
print("Windmeter: Windspeed is: " .. sWindSpeed .. " ");
print("Windmeter: Windgust is: " .. sWindGust .. " ");
print("Windmeter: Windtemperature is: " .. sWindTemperature .. " ");
print("Windmeter: Windfeel is: " .. sWindFeel .. " ");
print("______________________________________________________________________________________")

------------------------------------------------------------------------

--Rainmeter data:
sRainmeterCurrent, sRainmeterTotal = otherdevices_svalues['Regen']:match("([^;]+);([^;]+)")

sRainmeterCurrent = tonumber(sRainmeterCurrent);
sRainmeterTotal = tonumber(sRainmeterTotal);

print("______________________________________________________________________________________")
print("Rainmeter: Actual rain is: " .. sRainmeterCurrent .. " ");
print("Rainmeter: Total rain is: " .. sRainmeterTotal .. " ");
print("______________________________________________________________________________________")
------------------------------------------------------------------------

--UV data:
sSolar = otherdevices_svalues['Solar']:match("([^;]+)")

--sUV = tonumber(sUV);
sSolar = tonumber(sSolar);

--print("UV: UV Strength is: " .. sUV .." ");
print("UV: Solar radiation is: " .. sSolar .." ");

------------------------------------------------------------------------

--Sunscreen thresholds:
        -- Windspeed            = 100.0 (value is multiplied by 100)
        -- Rain                 =  0.0
        -- UV                   =  2.0
        -- Temperature          = 12.0
        -- Closed       = Down  = On
        -- Open         = Up    = Off

------------------------------------------------------------------------

if (timeofday['Daytime'])
        then
                print('It is past sunrise, monitoring variables for sunscreen')
        if (otherdevices['Zonnescherm'] == 'Open' )
        then
                print ('Sunscreen is up')
        else
                print ('Sunscreen is down')

end

if (otherdevices['Zonnescherm manual override']  == 'Off')
		then
				print('Manual override is turned off, follow the rest of the script')
		else
				print('Manual override is turned on, goto the end of the script and do nothing')
				goto done
end

if (otherdevices['Zonnescherm']   == 'Open'
		and sRainmeterCurrent   == 0
        and sWeatherTemp        > 12.0
		and sSolar				> 100
        and sWindSpeed          < 50
        and sWindGust           < 150)

then

        print ('Sun is shining, all thresholds OK, lowering sunscreen')
		print('______________________________________________________________________________________')
        commandArray['SendNotification']='Sunscreen#Sunscreen down --> Sun is shining'
        commandArray['Zonnescherm']='On'

				elseif (otherdevices['Zonnescherm'] == 'Closed' and sRainmeterCurrent > 0)
                then
                print ('It is raining, raising sunscreen')
				print('______________________________________________________________________________________')
                commandArray['SendNotification']='Sunscreen#Sunscreen up --> It is raining'
                commandArray['Zonnescherm']='Off'

        elseif (otherdevices['Zonnescherm'] == 'Closed' and sWeatherTemp <11.0 and otherdevices['Zonnescherm manual override'] == 'Off')
                then
                print ('Temperature too low, raising sunscreen')
				print('______________________________________________________________________________________')
                commandArray['SendNotification']='Sunscreen#Sunscreen up --> It is too cold'
                commandArray['Zonnescherm']='Off'

       elseif (otherdevices['Zonnescherm'] == 'Closed' and sSolar < 80 and otherdevices['Zonnescherm manual override'] == 'Off')
                then
                print ('Sun not shining too bright, raising sunscreen')
				print('______________________________________________________________________________________')
                commandArray['SendNotification']='Sunscreen#Sunscreen up --> Sunshine not too bright'
                commandArray['Zonnescherm']='Off'

        elseif (otherdevices['Zonnescherm'] == 'Closed' and sWindSpeed > 50)
                then
                print ('Windspeed too high, raising sunscreen')
				print('______________________________________________________________________________________')
                commandArray['SendNotification']='Sunscreen#Sunscreen up --> Windspeed too high'
                commandArray['Zonnescherm']='Off'

        elseif (otherdevices['Zonnescherm'] == 'Closed' and sWindGust > 150)
                then
                print ('Windgust too high, raising sunscreen')
				print('______________________________________________________________________________________')
                commandArray['SendNotification']='Sunscreen#Sunscreen up --> Windgust too high'
                commandArray['Zonnescherm']='Off'

else
        print('Sunscreen status OK --> No action')
		print('______________________________________________________________________________________')
end

::done::
		print("At the end of the script")
		print("______________________________________________________________________________________")
		
elseif (timeofday['Nighttime']
        and otherdevices['Zonnescherm'] == 'Closed')
        then
                print('It is night, raising sunscreen')
				print('______________________________________________________________________________________')
                commandArray['SendNotification']='Sunscreen#Sunscreen up --> It is night'
                commandArray['Zonnescherm']='Off'
        else
                print('Sunscreen already up --> No action')
		print('______________________________________________________________________________________')
end

return commandArray

Code: Select all

import requests0 as requests
r=requests.get('http://api.wunderground.com/api/<your_api_key>/hourly/lang:NL/pws:IGELDERL103/q/NL/Nijmegen.json')
chance_of_rain=r.json
print chance_of_rain['hourly_forecast'][0]['pop']

Code: Select all

#!/bin/bash

# Domoticz server
SERVER="<username>:<passwd>@<ip>:8080"

# Get Chance of rain
POP=`python /home/pi/scripts/pop.py`

# Sensor parameters
SVALUE=$POP

# Send data
curl -s -i -H "Accept: application/json" "http://$SERVER/json.htm?type=command&param=udevice&idx=242&nvalue=$SVALUE&svalue=$SVALUE"

Code: Select all

weather: [
{
id: 800,
main: "Clear",
description: "onbewolkt",
icon: "02d"
}
],

Code: Select all

#!/bin/bash

# Domoticz server
SERVER="<username>:<password>@<domoticz-ip>:8080"

# Get temperature
WC=`python /home/pi/scripts/weercode.py`

# Sensor parameters
SVALUE=$WC

# Send data
curl -s -i -H "Accept: application/json" "http://$SERVER/json.htm?type=command&param=udevice&idx=<virtual sensor ID>&nvalue=$SVALUE&svalue=$SVALUE"

Code: Select all

import requests0 as requests
r=requests.get('http://api.openweathermap.org/data/2.5/weather?q=<city>,nl&lang=nl&units=metric&mode=json&API=<your_api_key>')
weatherid=r.json
print weatherid['weather'][0]['id']

Code: Select all

weercode = tonumber(otherdevices_svalues['Weercode'])
wolken = tonumber(otherdevices_svalues['Clouds_percentage'])
if ((weercode ==800 or weercode ==801 or weercode ==904) or (weercode ==802 and wolken <= 0.40)) then

Code: Select all

import requests0 as requests
r=requests.get('https://api.forecast.io/forecast/<your_api_key>/<LATITUDE,LONGITUDE>')
clouds=r.json
print clouds['currently']['cloudCover']

Code: Select all

-- Time Sunscreen
-- Check the (weather)conditions for controlling the Suncreen.
--
-- Release notes:
--  *104 12-07-2015 Using user variables instead of the normal variables
--  *105 15-07-2015 Open/Closed commando variabel, Start bash shell after change
--  *106 23-07-2015 Buienradar, Layout logfile, logfile name with ~d / ~m 
--------------------------------------------------------------------------------
-- Variable
--
Script		  = 'Time Sunscreen'						--
Version       = 106										--
VersionLog	  = 106										--
Version_Type  = 'Beta 01'								--
Man_or_Auto   = 'Auto'									-- Default

package.path = package.path .. ';' .. '/home/pi/domoticz/scripts/lua/?.lua'
My = require('MyFunc')
--------------------------------------------------------------------------------
-- Functions
--
function SendANotification()
	commandArray['SendNotification']='Sunscreen ' .. NewState .. '#Sunscreen ' .. DeviceName .. ' was in state ' .. CurState .. ' new state is ' .. NewState .. ', reason for change is ' .. My.EnumClear(Reason) .. ' / '.. os.date("%Y-%m-%d;%H:%M:%S").. '#0#pushover'
end

function LogActions()
	LogFile=string.gsub(LogFile,"~d",os.date("%Y-%m-%d"))
	LogFile=string.gsub(LogFile,"~m",os.date("%Y-%m"))
	
	if not My.File_exists(LogFile) then
	 f=io.open(LogFile,"a")
	 f:write("Datum ; Tijd ; DeviceName ; Man_or_Auto ; Current State ; New state ;  Reason up ; Version #".. VersionLog .."# ; Version Type ; " ..
	         "Result_Daytime ; Result_Hour ; Result_Wind ; Result_Gust ; Result_Wu_Rain ; Result_Br_Rain ; Result_UvClose ; Result_Temperature_Close ; Result_UvOp ; Result_TemperatureOp ; Result ; "..
			 "Nu_Hour <".. TH_Hour .." ; Wu_Wind <=".. TH_Wind .. "; Wu_Gust <=".. TH_Gust .. "; Wu_Rain <=".. TH_Wu_Rain .. "; Br_Rain <=".. TH_Br_Rain .. " ; Wu_Uv <=".. TH_Uv_Close .. "/" .. TH_Uv_Open .. "; Wu_Temperature <=".. TH_Tp_Close .. "/".. TH_Tp_Open .. "; "..
			 "Uv Sim ; SwManStart ; SwManEnd ; Switch manual ; SwManDif ; Notifications ; LogAction ; SwitchTime ; SwitchDiff ; " .. 
			 LogCap01 .. ";" .. LogCap02 .. ";" .. LogCap03)
     f:write("\r\n")
	 else
	 f=io.open(LogFile,"r")
	 c=f:read("*line")
	 if string.match(c, "#" ..VersionLog .. "#") then
	 else
		print(".  Version of logfile ".. LogFile .." is not correct.")
	 end
	 f:close()
	 f=io.open(LogFile,"a")
   end
    f:write(os.date("%Y-%m-%d;%H:%M:%S") .. ";" .. DeviceName .. ";" .. Man_or_Auto .. ";" .. CurState .. ";" .. NewState .. ";" .. My.EnumClear(Reason) ..  ";" .. Version .. ";" .. Version_Type .. ";" .. 
	          Res_Dayl .. ";" .. Res_Hour .. ";" .. Res_Wind .. ";" .. Res_Gust .. ";" .. Res_WuRain .. ";" .. Res_BrRain .. ";" .. Res_UvCl .. ";" .. Res_TpCl .. ";" .. Res_UvOp .. ";" .. Res_TpOp .. ";".. Result .. ";" .. 
			  Nu_Hour .. ";" .. Wu_Wind .. ";" .. Wu_Gust .. ";" .. Wu_Rain .. ";" .. Br_Rain .. ";".. Wu_Uv .. ";" .. Wu_Temp .. ";" .. 
			  Uv_Sim .. ";"  .. SwManStart .. ";" .. SwManEnd .. ";" .. Man_to_Auto .. ";" .. SwManDif .. ";" .. Notifications .. ";" .. LogAction .. ";" .. SwitchTime .. ";" .. SwitchDiff .. ";" .. 
			  LogAdd01 .. ";" .. LogAdd02 .. ";" .. LogAdd03)
    f:write("\r\n")
    f:close()
end
--------------------------------------------------------------------------------

commandArray = {}
print ("______________________________________________________________________")
print (">> ".. Script .. ".......v" .. Version .. "....." .. Version_Type)

-- User variables
--
UserVarErr     = 0
RunFast        = My.GetUserVar("SUN_RunFast") 		  	-- 5
RunSlow        = My.GetUserVar("SUN_RunSlow") 		  	-- 5
RunLast        = My.GetUserVar("SUN_RunLast")        	-- 2015-07-29 18:30:00

if (timeofday['Daytime']) then RunEveryxMin=RunFast else RunEveryxMin=RunSlow end
TDiff = My.Round(My.TimeDiff(os.time(),RunLast)/60,0)
if TDiff < RunEveryxMin then 
	print (".  Wait : ".. TDiff .. " / " .. RunEveryxMin)
	goto done
end
nu=tostring(os.date ("%Y-%m-%d %H:%M:%S"))
commandArray['Variable:SUN_RunLast'] = nu
print (".  ")
DeviceLuaMstr  = My.GetUserVar("LUA_MasterSW")		    -- LUA_MasterSW
lat			   = My.GetUserVar("Gen_Latitude") + 0 		-- 
lon			   = My.GetUserVar("Gen_Longitude") + 0		--
LogFile        = My.GetUserVar("SUN_LogFile")			-- /home/pi/log/Sunscreen.csv
DeviceName     = My.GetUserVar("SUN_DeviceName")		-- Sunscreen
DeviceManual   = My.GetUserVar("SUN_DeviceManual")		-- Sunscreen - Manual
DeviceAtHome   = My.GetUserVar("SUN_DeviceAtHome")		-- Not in use
DeviceTemp	   = My.GetUserVar("SUN_DeviceTemp")		-- 45.00;NE;0;0;23.1;23.1	In most cases this is the wind device. Temperature is on position 5
DeviceRain     = My.GetUserVar("SUN_DeviceRain")		-- 0;0.0					Weather undergMy.Round Rain device
DeviceUvme     = My.GetUserVar("SUN_DeviceUvme")		-- 0.0;0.0					Weather undergMy.Round Uv device
DeviceBuien    = My.GetUserVar("SUN_DeviceBuien")		-- 2						Buienradar (under construction) 
DeviceAddVal01 = My.GetUserVar("SUN_AddValue01")		-- Temp_Livingroom
DeviceAddVal02 = My.GetUserVar("SUN_AddValue02")		-- Temp_Bedroom
DeviceAddVal03 = My.GetUserVar("SUN_AddValue03")		-- x
InstVersion    = My.GetUserVar("SUN_InstVersion")   	-- 104
ActionClose    = My.GetUserVar("SUN_ActionClose")		-- On
ActionOpen     = My.GetUserVar("SUN_ActionOpen")		-- Off
ShAfterAction  = My.GetUserVar("SUN_ShAfterAction")		-- sudo /home/pi/domoticz/scripts/bash/log-dropbox.sh
TH_Wind        = My.GetUserVar("SUN_TH_Wind") + 0		-- Treshold wind
TH_Gust        = My.GetUserVar("SUN_TH_Gust") + 0   	-- Treshold windstoten
TH_Wu_Rain        = My.GetUserVar("SUN_TH_Wu_Rain") + 0	-- Treshold regen/neerslag
TH_Br_Rain     = My.GetUserVar("SUN_TH_Br_Rain") + 0	-- Treshold regen/neerslag
TH_Uv_Close    = My.GetUserVar("SUN_TH_Uv_Close") + 0 	-- 2.5 	-- treshold voor Uv close
TH_Uv_Open     = My.GetUserVar("SUN_TH_Uv_Open") + 0	-- 1.5 	-- treshold voor Uv open   
TH_Tp_Close    = My.GetUserVar("SUN_TH_Tp_Close") + 0	-- 20  	-- treshold voor Temperature close
TH_Tp_Open     = My.GetUserVar("SUN_TH_Tp_Open") + 0	-- 19  	-- treshold voor Temperature close
TH_Hour        = My.GetUserVar("SUN_TH_Hour") + 0		-- Treshold hour
ManualTime     = My.GetUserVar("SUN_ManualTime")		-- 'D'  D=Daytime / A=All
Debugging      = My.GetUserVar("SUN_Debugging")			-- 'Y'
Man_to_Auto    = My.GetUserVar("SUN_Man_to_Auto") + 0	-- 240  Minutes manual override
SwitchTime     = My.GetUserVar("SUN_SwitchTime") + 0	-- 10
LogAction      = My.GetUserVar("SUN_LogAction")			-- 'Y' 	A=All, Y=Only on change
Notifications  = My.GetUserVar("SUN_Notifications")		-- 'Y'  Y=Yes, N=No

if UserVarErr> 0 then
	print (".  Please check user variables.")
	print (".  ")
end
InstV=tonumber(InstVersion)
if InstV==nil then InstV=100 end
if InstV < Version then
	print (".  ")
	print (".  Registered version : " .. InstV .. " , running version : " .. Version )
	print (".  Not able to update automatically.")
	print (".  ")
	-- commandArray['Variable:SUN_InstVersion']= tostring(Version)
	goto done
end
if UserVarErr> 0 then goto done end

if (otherdevices[DeviceLuaMstr]) == 'Off' then
	print (".  LUA Master switch is off")
	goto done
end

-- Variable
-- 
if (string.len(DeviceAddVal01)) > 1 then
	LogCap01	  = DeviceAddVal01					--
	LogAdd01      = My.GetValue(otherdevices_svalues[DeviceAddVal01],1)
else
	LogCap01	  = "nvt"					--
	LogAdd01      = 0
end
if (string.len(DeviceAddVal02)) > 1 then
	LogCap02	  = DeviceAddVal02						--
	LogAdd02      = My.GetValue(otherdevices_svalues[DeviceAddVal02],1)
else
	LogCap02	  = "nvt"					--
	LogAdd02      = 0
end
if (string.len(DeviceAddVal03)) > 1 then
	LogCap03	  = DeviceAddVal03								--
	LogAdd03      = My.GetValue(otherdevices_svalues[DeviceAddVal03],1)				
else
	LogCap03	  = "nvt"					--
	LogAdd03      = 0
end


--
-- Retrieve values from weather devices
--
Wu_Dev_Temp = otherdevices_svalues[DeviceTemp]
Wu_Dev_Rain = otherdevices_svalues[DeviceRain]
Wu_Dev_UvMe = otherdevices_svalues[DeviceUvme]
Br_Dev_Rain = otherdevices_svalues[DeviceBuien]
--
-- Split values from devices
--
Wu_Wind = My.GetValue(Wu_Dev_Temp,3)
Wu_Gust = My.GetValue(Wu_Dev_Temp,4)
Wu_Temp = My.GetValue(Wu_Dev_Temp,5)
Wu_Rain = My.GetValue(Wu_Dev_Rain,2)
Wu_Uv = My.GetValue(Wu_Dev_UvMe,1) 

Nu_Hour=tonumber(os.date('%H',time))
Reason="" 
Reascl="" 
Reasop="" 
Uv_Wim=""
--
-- Special correction for hot days
--
Uv_Sim=""
if Wu_Uv < TH_Uv_Close and Wu_Temp >= 20 and Nu_Hour >= 7 and Nu_Hour <= 9 then 
	Wu_Uv = TH_Uv_Close 
	Uv_Sim = "01 Hot day rule" 
end
if Wu_Uv < TH_Uv_Close and Wu_Uv >= 0.1 and  Wu_Temp >= 20 and Nu_Hour >= 9 and Nu_Hour <= 11 then 
	Wu_Uv = TH_Uv_Close 
	Uv_Sim = "02 Hot day rule"
end
--
-- Calculate pre results
-- Redenen om niet naar beneden te gaan
RainPrediction = My.Round(My.IsItGonnaRain(15, lat, lon),1)
-- Br_Rain=My.Round(10^((RainPrediction-109)/32),1)
Br_Rain = RainPrediction

if (timeofday['Daytime'])   then Res_Dayl=1   else Res_Dayl=0 Reason=Reason .. "Sunrise ," end
if Nu_Hour < TH_Hour        then Res_Hour=1   else Res_Hour=0 Reason=Reason .. "Hour " .. Nu_Hour .. " ," end
if Wu_Wind <= TH_Wind       then Res_Wind=1   else Res_Wind=0 Reason=Reason .. "Wu Wind " .. Wu_Wind .. " ," end
if Wu_Gust <= TH_Gust       then Res_Gust=1   else Res_Gust=0 Reason=Reason .. "Wu Gust " .. Wu_Gust .. " ," end
if Wu_Rain <= TH_Wu_Rain    then Res_WuRain=1 else Res_WuRain=0 Reason=Reason .. "Wu Rain " .. Wu_Rain .. " ," end
if Br_Rain <= TH_Br_Rain    then Res_BrRain=1 else Res_BrRain=0 Reason=Reason .. "Br Rain " .. Br_Rain .. " ," end
-- Redenen om niet naar beneden te gaan
if Wu_Uv   >= TH_Uv_Close   then Res_UvCl=1   else Res_UvCl=0 Reascl=Reascl .. "Wu Uv Closed " .. Wu_Uv .. " ," end
if Wu_Temp >= TH_Tp_Close   then Res_TpCl=1   else Res_TpCl=0 Reascl=Reascl .. "Wu Temp Closed " .. Wu_Temp .. " ," end
-- Redenen om niet naar beneden te blijven (dus scherm omhoog)
if Wu_Uv   >= TH_Uv_Open    then Res_UvOp=1   else Res_UvOp=0 Reasop=Reasop .. "Wu Uv Open " .. Wu_Uv .. " ," end
if Wu_Temp >= TH_Tp_Open    then Res_TpOp=1   else Res_TpOp=0 Reasop=Reasop .. "Wu Temp Open " .. Wu_Temp .. " ," end
--
-- Print decision info in the log
--
if (otherdevices[DeviceName]) == 'Open' then
	print ( ".  These conditions are valid when sunscreen is Up / Open: " )
else
	print ( ".  These conditions are valid when sunscreen is Down / Closed: " )
end
if (timeofday['Daytime']) then 
	print ( ".  " .. Res_Dayl .. " - Daytime   : True" )
else
	print ( ".  " .. Res_Dayl .. " - Daytime   : False" )
end
	print ( ".  " .. Res_Hour ..   " - Wu Hour  : " .. Nu_Hour .. " <= Th : " .. TH_Hour )
	print ( ".  " .. Res_Wind ..   " - Wu Wind  : " .. Wu_Wind .. " <= Th : " .. TH_Wind )
	print ( ".  " .. Res_Gust ..   " - Wu Gust  : " .. Wu_Gust .. " <= Th : " .. TH_Gust )
	print ( ".  " .. Res_WuRain .. " - Wu Rain  : " .. Wu_Rain .. " <= Th : " .. TH_Wu_Rain )
	print ( ".  " .. Res_BrRain .. " - Br Rain  : " .. Br_Rain .. " <= Th : " .. TH_Br_Rain )
if (otherdevices[DeviceName]) == 'Open' then
	print ( ".  " .. Res_UvCl ..   " - Wu Uv-i  : " .. Wu_Uv   .. " >= Th : " .. TH_Uv_Close .. " (Up / Open)")
	print ( ".  " .. Res_TpCl ..   " - Wu Temp  : " .. Wu_Temp .. " >= Th : " .. TH_Tp_Close .. " (Up / Open)")
	Reason=Reason .. Reascl
	Result = Res_Dayl + Res_Hour + Res_Wind + Res_Gust + Res_WuRain + Res_UvCl + Res_TpCl + Res_BrRain
else
	print ( ".  " .. Res_UvOp ..   " - Wu Uv-i  : " .. Wu_Uv   .. " >= Th : " .. TH_Uv_Open .. " (Down / Closed)")
	print ( ".  " .. Res_TpOp ..   " - Wu Temp  : " .. Wu_Temp .. " >= Th : " .. TH_Tp_Open .. " (Down / Closed)")
	Reason=Reason .. Reasop
	Result = Res_Dayl + Res_Hour + Res_Wind + Res_Gust + Res_WuRain + Res_UvOp + Res_TpOp + Res_BrRain
end
	print ( ".  " .. Result .. " / 8 score.")
if (Wu_Rain<1 and Br_Rain>1) or (Br_Rain<1 and Wu_Rain>1) then 
	print ( ".  Difference between WU and Buienradar result.  WU : " .. Res_WuRain .. " Buienradar : " .. Res_BrRain)
end
	
--
-- Manual override for x minutes
--
SwManStart = otherdevices[DeviceManual]
TDiff = My.Round(My.TimeDiff(os.time(),otherdevices_lastupdate[DeviceManual])/60,0)
if (otherdevices[DeviceManual]) == 'On' then
	print (".  Last change manual state : " .. TDiff .. " minutes ago.")
	if TDiff >= Man_to_Auto then
		-- To long in manual mode, switch to auto
		print(".  Turn Manual switch off")
		commandArray[DeviceManual] = 'Off'   
	end

	if ManualTime~="D" and Res_Dayl==0 then
		-- Outside daytime period, turn manual override off
		print(".  Turn Manual switch off, outside daytime")
		commandArray[DeviceManual] = 'Off'   
	end
end

SwitchDiff = My.Round(My.TimeDiff(os.time(),otherdevices_lastupdate[DeviceName])/60,0)
-- print (".  Last change screen state : " .. SwitchDiff .. " minutes ago.")		
SwManEnd = otherdevices[DeviceManual]
SwManDif = TDiff

--
-- Current state Up / Open			Change to  		Down / Closed	?
--
if (otherdevices[DeviceName]) == 'Open' then
	CurState="Up / Open"
	if Res_Dayl + Res_Hour + Res_Wind + Res_Gust + Res_WuRain + Res_UvCl + Res_TpCl + Res_BrRain == 8 then
		if (otherdevices[DeviceManual]) == 'On' then
			print (".  Sunscreen Manual")
			Man_or_Auto = 'Manual'
			Reason=Reason .. " (Manual) , "
		else
			if SwitchDiff <= SwitchTime then
				print (".  Recent open, wait for switchtime")
				Reason=Reason .. "Recent open , "
			else
				-- Closed
				NewState = "Down / Closed"
				print (".  Action: Change to state : " .. NewState)
				commandArray[DeviceName] = ActionClose
				if Reason == "" then Reason = "No reason ," end
				if Notifications == 'Y' then SendANotification() end
				if LogAction == 'Y' or LogAction == 'A' then LogActions() end
				if (string.len(ShAfterAction)) > 1 then os.execute(ShAfterAction) end
			end
		end
	else
		if (otherdevices[DeviceManual]) == 'On' then
			print (".  Sunscreen Manual")
			Man_or_Auto = 'Manual'
			Reason=Reason .. " (Manual) , "
		end
		print (".  Action: None, Reason to stay in state Up / Open :")
	end
end


--
-- Current state Down / Closed		Change to 		Up / Open		?
--
if (otherdevices[DeviceName]) == 'Closed' or (otherdevices[DeviceName]) == 'Stopped' then
	if (otherdevices[DeviceName]) == 'Closed' then CurState = "Down / Closed" else CurState="Stopped" end
	if Res_Dayl + Res_Hour + Res_Wind + Res_Gust + Res_WuRain + Res_UvOp + Res_TpOp + Res_BrRain < 8 then
		if (otherdevices[DeviceManual]) == 'On' then
			print (".  Sunscreen Manual")
			Man_or_Auto = 'Manual'
			Reason=Reason .. "Manual , "
		else
				-- Open
				NewState = "Up / Open"
				print (".  Action: Change to state : " .. NewState)
				commandArray[DeviceName] = ActionOpen
				if Reason == "" then Reason = "No reason ," end
				if Notifications == 'Y' then SendANotification() end
				if LogAction == 'Y' or LogAction == 'A' then LogActions() end
				if (string.len(ShAfterAction)) > 1 then os.execute(ShAfterAction) end
		end
	else
		print (".  Action: None (Down / Closed)")
		end
end

NewState = "Idle"
if Reason == "" then Reason = "No reason ," end
print ( ".  Reason: " .. My.EnumClear(Reason))
if LogAction=='A' then LogActions() end
::done::
print ("______________________________________________________________________")
return commandArray

Code: Select all

commandArray = {}

PRINT_MODE = true                   -- when true print all used values
SCREEN_NAME = 'Zonwering'           -- name sunscreen

-- declare some constants
-- adjust to your specific situation
TH_GUST = 60               -- gust limit that will close screen
TH_WIND = 40               -- windspeed that will close the screen
TH_Rain       = 0.1           -- Treshold regen/neerslag
TH_Uv_Close   = 1.9          -- treshold voor Uv close
TH_Uv_Open    = 0.9          -- treshold voor Uv open   
TH_Tp_Close   = 24          -- treshold voor outside Temperature to close
TH_Tp_Open    = 12          -- treshold voor outside Temperature to open
TH_Tp_Binnen_Close  = 20          -- treshold voor inside Temperature to close
TH_Tp_Binnen_Open  = 17          -- treshold voor inside Temperature to open
SwitchTime    = 5          -- timer between open/close actoin
RainTime      = 10           -- timer after rainfall where the screen is not allowed to open
ManualTime    = 60           -- timer after manual operation where the screen will not be controlled automatically (also to be set in zonwering device script)

-- screen closing trigger for the evening
TH_Close = NightTime        -- "NightTime" or "CloseTime" will select if the screen closes at a set time of after sunset
-- ifscreen should be closed at a fixed time
CloseTimeHour     = 23		-- time when sunscreen should be closed (hour)
CloseTimeMinute   = 59		-- time when sunscreen should be closed (minute)

-- declare sensor names
SENSOR_WIND_NAME = 'Wind'     -- exact device name of the wind sensor
SENSOR_UV_NAME = 'UV'     -- exact device name of the UV sensor
SENSOR_RAIN_NAME = 'Regen'     -- exact device name of the rain meter
SENSOR_RAINON_NAME = 'Regent'     -- exact device name of the rain sensor
SENSOR_TEMP_NAME = 'Buiten'     -- exact device name of the outdoor temperature sensor
SENSOR_TEMPBINNEN_NAME = 'Woonkamer'  -- exact device name of the indoor temperature sensor
SETPOINT_TEMPBINNEN_NAME = 'WoonkamerSetpoint'  -- exact device name of the indoor temperature setpoint


-- get the global variables:
TempTriggerClose = tonumber(uservariables['TempTrigger']) --status if high temperature limit was exceeded before
TempTriggerBinnenClose = tonumber(uservariables['TempTriggerBinnen']) --status if high temperature limit was exceeded before
UVTriggerClose = tonumber(uservariables['UVTrigger']) --status if high UV limit was exceeded before
WindGust = tonumber(uservariables['WindGust']) --get old windgust value
WindSpeed = tonumber(uservariables['WindSpeed']) --get old windspeed value
RainTmin1 = tonumber(uservariables['RainTmin1']) --get old rain value
RainTimer = tonumber(uservariables['RainTimer']) --get rain timer
ManualTimer = tonumber(uservariables['ManualTimer']) --get manual timer

-- Retrieve values from devices
Wu_Dev_Wind = otherdevices_svalues[SENSOR_WIND_NAME]
Wu_Dev_Rain = otherdevices_svalues[SENSOR_RAIN_NAME]
Wu_Dev_UV = otherdevices_svalues[SENSOR_UV_NAME]
Wu_Dev_Temp = otherdevices_svalues[SENSOR_TEMP_NAME]
Wu_Dev_TempBinnen = otherdevices_svalues[SENSOR_TEMPBINNEN_NAME]
Wu_Dev_SetpBinnen = otherdevices_svalues[SETPOINT_TEMPBINNEN_NAME]

-- check for manual mode
if PRINT_MODE == true then
	print ('ManualTimer: ' .. ManualTimer)
end
if (ManualTimer == 1) then
	commandArray['ZonweringManual'] = 'Off'
	ManualTimer = 0
    if PRINT_MODE == true then
	    print ('Switching off Zonweringmanual switch')
    end
end
if (ManualTimer >= 1) then
	ManualTimer = ManualTimer - 1
    if PRINT_MODE == true then
	    print ('Deducting 1 from Zonwering manual timer to :' .. ManualTimer)
    end
end

-- break up wind meter in separate values
Part=1
for match in (Wu_Dev_Wind..';'):gmatch("(.-)"..';') do
   if Part==3 then Wu_WindSpeed = tonumber(match) end
   if Part==4 then Wu_WindGust = tonumber(match) end
   Part=Part+1
end

-- break up rain meter in separate values
Part=1
for match in (Wu_Dev_Rain..';'):gmatch("(.-)"..';') do
   if Part==2 then Wu_Rain = tonumber(match) end
   Part=Part+1
end

-- break up UV meter in separate values
Part=1
for match in (Wu_Dev_UV ..';'):gmatch("(.-)"..';') do
   if Part==1 then Wu_UV = tonumber(match) end
   Part=Part+1
end

-- break up temperature meter in separate values
Part=1
for match in (Wu_Dev_Temp ..';'):gmatch("(.-)"..';') do
   if Part==1 then Wu_Temp = tonumber(match) end
   Part=Part+1
end

-- convert temperature livingroom into numbers
Wu_TempBinnen = tonumber(Wu_Dev_TempBinnen)

-- convert temperaturesetpoint livingroom into numbers
Wu_SetpBinnen = tonumber(Wu_Dev_SetpBinnen)

if PRINT_MODE == true then
 print('Data collected')
 print('Wu_Dev_TempBuiten: ' .. Wu_Dev_Temp)
 print('Wu_Dev_TempBinnen: ' .. Wu_Dev_TempBinnen)
 print('Wu_Dev_SetpointBinnen: ' .. Wu_Dev_SetpBinnen)
 print('Wu_Dev_Wind: ' .. Wu_Dev_Wind)
 print('Wu_Dev_Rain: ' .. Wu_Dev_Rain)
 print('Wu_Dev_UV: ' .. Wu_Dev_UV)
 print(' ')
 print('New values >>>>>>>>>>>')
 print('TempBuiten: ' .. Wu_Temp .. '   TresholdClose = ' .. TH_Tp_Close)
 print('TempBinnen: ' .. Wu_TempBinnen .. '   TresholdClose = ' .. TH_Tp_Binnen_Close)
 print('SetpointBinnen: ' .. Wu_SetpBinnen)
 print('Gust: ' .. Wu_WindGust .. '   TresholdClose = ' .. TH_GUST)
 print('Speed: ' .. Wu_WindSpeed .. '   TresholdClose = ' .. TH_WIND)
 print('Rain: ' .. Wu_Rain .. '   TresholdClose = ' .. TH_Rain)
 print('RainTmin1: ' .. RainTmin1)
 print('UV: ' .. Wu_UV .. '   TresholdClose = ' .. TH_Uv_Close)
	if (otherdevices[SCREEN_NAME]) == 'Open' then print("scherm: In") end
	if (otherdevices[SCREEN_NAME]) == 'Closed' then print("scherm: Uit") end

end

-- check temperature outside trigger
if (Wu_Temp >= TH_Tp_Close) then TempTriggerClose = 1 end
if (Wu_Temp <= TH_Tp_Open) then TempTriggerOpen = 0 else TempTriggerOpen = 1 end

-- check temperature inside trigger
if (Wu_TempBinnen >= TH_Tp_Binnen_Close) then TempTriggerBinnenClose = 1 end
if (Wu_TempBinnen <= TH_Tp_Binnen_Open) then TempTriggerBinnenOpen = 0 else TempTriggerBinnenOpen = 1 end

-- check if heating is on (setpoint bigger than actual)
if (Wu_SetpBinnen >= Wu_TempBinnen) then HeaterOff = 0 else HeaterOff=1 end
    
-- check UV trigger
if (Wu_UV >= TH_Uv_Close) then UVTriggerClose = 1 end
if (Wu_UV <= TH_Uv_Open) then UVTriggerOpen = 0 else UVTriggerOpen = 1 end

-- check for new rainfall
Add_Rain=Wu_Rain-RainTmin1

-- Check to set rain timer
if (Add_Rain >= TH_Rain) then 
	RainTimer = RainTime
	end

-- Update rain timer	
if (RainTimer > 0) then
	Res_RainTimer = 0
	RainTimer = RainTimer - 1
else
	Res_RainTimer = 1
end

-- check tresholds 
if Wu_WindSpeed <= TH_WIND       then Res_Wind=1 else Res_Wind=0 end
if Wu_WindGust <= TH_GUST       then Res_Gust=1 else Res_Gust=0 end
if Add_Rain < TH_Rain       then Res_Rain=1 else Res_Rain=0 end
if otherdevices[SENSOR_RAINON_NAME] == 'Off' then Res_RainOn=0 else Res_RainOn=1 end
if (timeofday['Daytime'])   then Res_Dayl=1 else Res_Dayl=0 end

if PRINT_MODE == true then
 print(' ')
 print('New triggers set >>>>>>>>>>>')
 print('Close triggers')
 print('TempTriggerBuienClose: ' .. TempTriggerClose)
 print('TempTriggerBinnenClose: ' .. TempTriggerBinnenClose)
 print('UVTriggerClose: ' .. UVTriggerClose)
 print('RainTimer: ' .. RainTimer)
 print('Res_RainTimer: ' .. Res_RainTimer)
 print(' ')
 print('Open triggers')
 print('UVTriggerOpen: ' .. UVTriggerOpen .. '   (not used)')
 print('TempTriggerOpen: ' .. TempTriggerOpen)
 print('TempTriggerBinnenOpen: ' .. TempTriggerBinnenOpen)
 print('Heating inside off: ' .. HeaterOff)
 print('Res_Wind: ' .. Res_Wind)
 print('Res_Gust: ' .. Res_Gust)
 print('Res_Rain: ' .. Res_Rain)    
 print('Add_Rain: ' .. Add_Rain)
 print('Res_RainOn: ' .. Res_RainOn)
 print('Res_Dayl: ' .. Res_Dayl)
end

--decide if to close the screen
if (otherdevices[SCREEN_NAME]) ~= 'Open' then
    if PRINT_MODE == true then
        print('Screen is out, check if it needs to be closed')
    end
    if Res_Wind + Res_Gust + Res_Rain + Res_RainOn + Res_RainTimer + TempTriggerOpen + TempTriggerBinnenOpen + HeaterOff < 8 then
        commandArray['ZonweringAuto'] = 'On' 	    
        commandArray['SchermOff'] = 'On'
        if PRINT_MODE == true then
    	    print('Closing screen due to weather')
        end
	    -- write info to file
        file = io.open("/home/pi/domoticz/log/zonwering.log", "a")
        io.output(file)
        tlog = os.time()
        io.write(tlog.. ",CloseWeather," .. Wu_Temp .. "," .. Wu_TempBinnen .. "," .. Wu_SetpBinnen .. "," .. Wu_WindGust .. "," .. Wu_WindSpeed .. "," .. Wu_Rain .. "," .. RainTmin1 .. "," .. Wu_UV .. "," .. Res_RainOn .. "\n")
        io.close(file)
	    ManualTimer = 0
    	commandArray['Variable:ManualTimer'] = tostring(ManualTimer)
    else
        if PRINT_MODE == true then
            print('Screen can remain out, no change needed')
        end
    end
end

--decide if to put the screen down
if (otherdevices[SCREEN_NAME]) ~= 'Closed' then
    if (ManualTimer == 0) then
        if PRINT_MODE == true then
            print('Check if screeen needs to be operated automatically')
        end
    if (UVTriggerClose + TempTriggerClose + TempTriggerBinnenClose + Res_Dayl ==4) then
        if PRINT_MODE == true then
            print('Triggers to open screen are all valid, checking close screen triggers')
        end
	    if Res_Wind + Res_Gust + Res_Rain + Res_RainOn + Res_RainTimer  + TempTriggerOpen + TempTriggerBinnenOpen + HeaterOff == 8 then
		    t1 = os.time()
	            s = otherdevices_lastupdate[SCREEN_NAME]
            	year = string.sub(s, 1, 4)
	            month = string.sub(s, 6, 7)
            	day = string.sub(s, 9, 10)
	            hour = string.sub(s, 12, 13)
            	minutes = string.sub(s, 15, 16)
	            seconds = string.sub(s, 18, 19)
            	t2 = os.time{year=year, month=month, day=day, hour=hour, min=minutes, sec=seconds}
	            difference = (os.difftime (t1, t2))
    	if PRINT_MODE == true then
	    	print('Screen is allowed to open, close triggers are not valid')
		    print('t1: ' .. t1)
    		print('s: ' .. s)
	    	print('year: ' .. year)
		    print('month: ' .. month)
    		print('day: ' .. day)
	    	print('hour: ' .. hour)
		    print('minutes: ' .. minutes)
    		print('seconds: ' .. seconds)
	    	print('t2: ' .. t2)
		    print('difference: ' .. difference)
    		print('SwitchTime: ' .. SwitchTime)
	    end
    	if difference <= SwitchTime then
	       	print('Switch time history: ' .. difference)
    	    print('Recent closed manually, wait for switchtime')
    	else
	    	if (otherdevices[SCREEN_NAME]) == 'Open' then
                commandArray['ZonweringAuto'] = 'On' 	    
	            commandArray['SchermOn'] = 'On'
    		    print('Opening screen')
	            -- write info to file
                file = io.open("/home/pi/domoticz/log/zonwering.log", "a")
                io.output(file)
                tlog = os.time()
                io.write(tlog.. ",OpenAuto," .. Wu_Temp .. "," .. Wu_TempBinnen .. "," .. Wu_SetpBinnen .. "," .. Wu_WindGust .. "," .. Wu_WindSpeed .. "," .. Wu_Rain .. "," .. RainTmin1 .. "," .. Wu_UV .. "," .. Res_RainOn .. "\n")
                io.close(file)
		        else
	    	        print('Screen is already open')
        		end
	        end
        else
            if PRINT_MODE == true then
    	        print('screen not opened due to weather')
	        end
        end
        else 
    	    if PRINT_MODE == true then
     	        print('Triggers to open the screen are not active')
            end
        end
    else
	    if PRINT_MODE == true then
    	    print('Manual timer active, not checking screen triggers')
        end
    end
else
    if PRINT_MODE == true then
	    print('Screen already fully down, no need to check triggers')
    end
end

-- check if it is time to close the screen (option 1)
time = os.date("*t")
if (time.hour == CloseTimeHour and time.min == CloseTimeMinute) and ((otherdevices[SCREEN_NAME]) ~= 'Open') and (TH_Close == CloseTime) then
	print('Closing screen due to time trigger')
    commandArray['ZonweringAuto'] = 'On' 	    
    commandArray['SchermOff'] = 'On'
	-- write info to file
    file = io.open("/home/pi/domoticz/log/zonwering.log", "a")
    io.output(file)
    tlog = os.time()
    io.write(tlog.. ",CloseTime," .. Wu_Temp .. "," .. Wu_TempBinnen .. "," .. Wu_SetpBinnen .. "," .. Wu_WindGust .. "," .. Wu_WindSpeed .. "," .. Wu_Rain .. "," .. RainTmin1 .. "," .. Wu_UV .. "," .. Res_RainOn .. "\n")
    io.close(file)
    --reset triggers at night
	TempTriggerClose = 0
	TempTriggerBinnenClose = 0
	UVTriggerClose = 0
end

-- check if is daytime is over and to close the screen (option 2)
if (Res_Dayl==0) and ((otherdevices[SCREEN_NAME]) ~= 'Open') and (TH_Close == NightTime) then
	print('Closing screen due to sunset')
    commandArray['ZonweringAuto'] = 'On' 	    
    commandArray['SchermOff'] = 'On'
	-- write info to file
    file = io.open("/home/pi/domoticz/log/zonwering.log", "a")
    io.output(file)
    tlog = os.time()
    io.write(tlog.. ",CloseSunset," .. Wu_Temp .. "," .. Wu_TempBinnen .. "," .. Wu_SetpBinnen .. "," .. Wu_WindGust .. "," .. Wu_WindSpeed .. "," .. Wu_Rain .. "," .. RainTmin1 .. "," .. Wu_UV .. "," .. Res_RainOn .. "\n")
    io.close(file)
    --reset triggers at night
	TempTriggerClose = 0
	TempTriggerBinnenClose = 0
	UVTriggerClose = 0
end

--copy current rain to RainTmin1
RainTmin1 = Wu_Rain

-- save the globals
commandArray['Variable:WindGust'] = tostring(Wu_WindGust)
commandArray['Variable:WindSpeed'] = tostring(Wu_WindSpeed)
commandArray['Variable:TempTrigger'] = tostring(TempTriggerClose)
commandArray['Variable:TempTriggerBinnen'] = tostring(TempTriggerBinnenClose)
commandArray['Variable:UVTrigger'] = tostring(UVTriggerClose)
commandArray['Variable:RainTmin1'] = tostring(RainTmin1)
commandArray['Variable:RainTimer'] = tostring(RainTimer)
commandArray['Variable:ManualTimer'] = tostring(ManualTimer)

return commandArray