Domoticz

Code: Select all

print(string.format('curl http://%s/happ_thermstat?action=getThermostatInfo', ToonIP)))    
local handle = assert(io.popen(string.format('curl http://%s/happ_thermstat?action=getThermostatInfo', ToonIP)))
 

Code: Select all

2018-03-23 11:52:40.965 Error: EventSystem: in ToonGetInfo: [string "-- Time script runs every minute, intended to..."]:23: unexpected symbol near ')'
2018-03-23 11:52:43.395 Error: EventSystem: in ToonGetInfo: [string "-- Time script runs every minute, intended to..."]:23: unexpected symbol near ')'
2018-03-23 11:52:50.875 Error: EventSystem: in ToonGetInfo: [string "-- Time script runs every minute, intended to..."]:23: unexpected symbol near ')'
2018-03-23 11:52:51.009 Error: EventSystem: in ToonGetInfo: [string "-- Time script runs every minute, intended to..."]:23: unexpected symbol near ')'

Code: Select all

print(string.format('curl http://%s/happ_thermstat?action=getThermostatInfo', ToonIP))

Code: Select all

2018-03-23 12:26:26.785 Error: EventSystem: Warning!, lua script ToonGetInfo has been running for more than 10 seconds

Code: Select all

ThermostatInfo = string.gsub(ThermostatInfo, ",}", "}")

Code: Select all

2018-03-23 13:10:54.466 Error: EventSystem: Warning!, lua script ToonGetInfo has been running for more than 10 seconds

Code: Select all

2018-03-23 14:05:25.535 User: Johan initiated a SetPoint command
2018-03-23 14:05:25.650 dzVents: Setting Toon setpoint to 22.00
2018-03-23 14:05:25.651 EventSystem: Fetching url...
2018-03-23 14:05:25.651 EventSystem: Script event triggered: ToonSetPoint
2018-03-23 14:05:25.660 dzVents: curl http://192.168.1.36/happ_thermstat?action=getThermostatInfo
2018-03-23 14:05:25.751 dzVents: Updating thermostat sensor to new set point: 20
2018-03-23 14:05:25.751 dzVents: Updating Toon burner info
2018-03-23 14:05:25.753 EventSystem: Sending SetPoint to device....
2018-03-23 14:05:35.656 Error: EventSystem: Warning!, lua script ToonGetInfo has been running for more than 10 seconds

Code: Select all

Error: EventSystem: Warning!, lua script ToonGetInfo has been running for more than 10 seconds

Code: Select all

-- This script retrieves data from the Internet without risking to lock the Domoticz event system.

local ResultFile = '/var/tmp/tmpknmi.txt' -- Temporary file to store the servers response
local fetchIntervalMins = 5 -- (Integer) (Minutes, Range 5-60) How often the data shall be retrieved 
local scriptVersion = '1.0.0'
local station = 267
local meanTemperatureInside = 18

local function round(num, idp)
   local mult = 10^(idp or 0)
   return math.floor(num * mult + 0.5) / mult
end

return {
	active = true,
	logging = {
		level = domoticz.LOG_INFO, -- Uncomment to override the dzVents global logging setting
		marker = 'Graaddagen '..scriptVersion
	},
	on = {
		timer = {   'at 6:05-6:07',
		            'at 7:05-7:07',
		            'at 8:05-8:07',
		            'at 9:05-9:07',
		            'at 10:05-10:07',
		            'at 11:05-11:07',
		            'at 12:05-12:07',
		            'at 13:05-13:07',
		            'at 14:05-14:07',
		            'at 15:05-15:07',
		            'at 16:05-16:07',
		            'at 17:05-17:07'
		    } -- warning: don't change the last number 5 and 7; at every minute just for debugging
	},
	execute = function(domoticz, device)

	    -- Only update if last update is yesterday
	    if ( domoticz.devices('Graaddagen').lastUpdate.hoursAgo <= 12 ) then
	        domoticz.log('Update already done today, end script', domoticz.LOG_INFO)
            return	        
	    end
	    
		-- Every 5 minutes, call the URL and exit.
		-- The following minute, return to read the result file 
		local callUrl = false
		if (os.date('*t').min % fetchIntervalMins) == 0 then
			callUrl = true
		elseif ((os.date('*t').min -1) % fetchIntervalMins) ~= 0 then
			--return
		end
        
        previousday = os.date('%Y%m%d', os.time() - 60*60*24)
        
		if callUrl then
			local url = 'http://projects.knmi.nl/klimatologie/daggegevens/getdata_dag.cgi'
			startdate = os.date('%Y%m%d', os.time() - 2*60*60*24)
			local data = 'vars=TG&start='..startdate..'&end='..previousday..'&stns='..station
			domoticz.log('Requesting data from the knmi server...', domoticz.LOG_INFO)
			domoticz.log('URL used: '..url, domoticz.LOG_DEBUG)
			domoticz.log('DATA used: '..data, domoticz.LOG_DEBUG)
			os.execute('curl --data "'..data..'" -s "'..url..'" > '..ResultFile..'&')
			return -- Nothing more to do for now, we'll be back in a minute to read the data!
		end

		---loads a json file with the provided name and returns it as a table (if it exists)
		local function readLuaFromFile(fileName)

		    local month = tonumber(os.date('%m'))
		    if ((month >= 4) and (month <= 9)) then
		        weegfactor = 0.8
		    elseif ((month == 3) or (month == 10)) then
		        weegfactor = 1.0
            else 
                weegfactor = 1.1 		    
            end    
			local file = io.open(fileName, 'r')
			if file then
        	    while true do 
                    local line = file:read("*line")
                    if not line then break end
                    if debug then domoticz.log('Line:'..line, domoticz.LOG_DEBUG) end
                    -- skip lines starting with #
                    if not string.find(line, "#", 1) then
                        linestation, linedate, linegraden = string.match(tostring(line), '([0-9]*),([0-9]*), *([-0-9]*)')
                        domoticz.log('linestation:'..linestation, domoticz.LOG_DEBUG)
                        domoticz.log('linedate:'..linedate, domoticz.LOG_DEBUG)
                        domoticz.log('linegraden:'..linegraden, domoticz.LOG_DEBUG)
                        graden = tonumber(linegraden)/10
                        domoticz.log('graden:'..graden, domoticz.LOG_DEBUG)

            			difference = os.difftime (linedate,previousday)
                        domoticz.log('previousday:'..previousday, domoticz.LOG_DEBUG)
                        domoticz.log('difference date:'..difference, domoticz.LOG_DEBUG)
	                    -- get only line from yesterday
                        if (difference == 0 ) then
                            io.close(file)
                            if graden >= meanTemperatureInside then
                                return 0 
                            end
                            return round((meanTemperatureInside - graden) * weegfactor,0)
                        end
 
                    end
                end			    
				io.close(file)
			end
			return nil
		end

		local graadgraden = readLuaFromFile(ResultFile)
		if not graadgraden then
			domoticz.log('Could not read data from file or not data for yesterday available: '.. ResultFile, domoticz.LOG_ERROR)
			return
		end
		domoticz.log('Result graaddagen: '..graadgraden, domoticz.LOG_INFO)
		--domoticz.devices('Graaddagen').dump()
		domoticz.devices('Graaddagen').updateCustomSensor(graadgraden)
	end
}

Code: Select all

return {
	on = {
		timer = {
			'every minute'
		}
	},
	execute = function(domoticz)
        local ToonThermostatSensorName = domoticz.variables('UV_ToonThermostatSensorName').value -- Sensor showing current setpoint
        local ToonTemperatureSensorName = domoticz.variables('UV_ToonTemperatureSensorName').value -- Sensor showing current room temperature
        local ToonScenesSensorName  = domoticz.variables('UV_ToonScenesSensorName').value -- Sensor showing current program
        local ToonAutoProgramSensorName = domoticz.variables('UV_ToonAutoProgramSensorName').value -- Sensor showing current auto program status
        local ToonProgramInformationSensorName = domoticz.variables('UV_ToonProgramInformationSensorName').value -- Sensor showing displaying program information status
        local ToonIP = domoticz.variables('UV_ToonIP').value
        local DomoticzIP = domoticz.variables('UV_DomoticzIP').value
    
        -- Handle json
        --local json = assert(loadfile "C:\\Program Files (x86)\\Domoticz\\scripts\\lua\\json.lua")()  -- For Windows
        local json = assert(loadfile "/home/pi/domoticz/scripts/lua/JSON.lua")()  -- For Linux
        
        local handle = assert(io.popen(string.format('curl http://%s/happ_thermstat?action=getThermostatInfo', ToonIP)))
--          local handle = assert(domoticz.openURL('http://192.168.1.75/happ_thermstat?action=getThermostatInfo')) 
--        local handle = assert(io.popen(string.format(domoticz.openURL('http://192.168.1.75/happ_thermstat?action=getThermostatInfo'))))
        local ThermostatInfo = handle:read('*all')
        handle:close()
        
        local jsonThermostatInfo = json:decode(ThermostatInfo)
        
        if jsonThermostatInfo == nil then
            return
        end
        
        local currentSetpoint = tonumber(jsonThermostatInfo.currentSetpoint) / 100
        local currentTemperature = tonumber(jsonThermostatInfo.currentTemp) / 100
        local currentProgramState = tonumber(jsonThermostatInfo.programState)
            if currentProgramState == 0 then currentProgramState = 10 -- No
                elseif currentProgramState == 1 then currentProgramState = 20 -- Yes
                elseif currentProgramState == 2 then currentProgramState = 30 -- Temporary       
            end      
        local currentActiveState = tonumber(jsonThermostatInfo.activeState)
            if currentActiveState == -1 then currentActiveState = 50 -- Manual
                elseif currentActiveState == 0 then currentActiveState = 40 -- Comfort
                elseif currentActiveState == 1 then currentActiveState = 30 -- Home
                elseif currentActiveState == 2 then currentActiveState = 20 -- Sleep
                elseif currentActiveState == 3 then currentActiveState = 10 -- Away
            end
        local currentNextTime = jsonThermostatInfo.nextTime
        local currentNextSetPoint = tonumber(jsonThermostatInfo.nextSetpoint) / 100
        local currentBoiletSetPoint = jsonThermostatInfo.currentInternalBoilerSetpoint
        ----
        
        -- Update the thermostat sensor to current setpoint
        if domoticz.devices(ToonThermostatSensorName).setPoint*100 ~= currentSetpoint*100 then
            domoticz.log('Updating thermostat sensor to new set point: ' ..currentSetpoint)
            domoticz.devices(ToonThermostatSensorName).updateSetPoint(currentSetpoint).silent()
        end
        

        -- Update the temperature sensor to current room temperature
--        if domoticz.round(domoticz.devices(ToonTemperatureSensorName).temperature, 1) ~= domoticz.round(currentTemperature, 1) then 
            domoticz.log('Updating the temperature sensor to new value: ' ..currentTemperature)
            domoticz.devices(ToonTemperatureSensorName).updateTemperature(currentTemperature)
--        end
        
        -- Update the toon scene selector sensor to current program state
        if domoticz.devices(ToonScenesSensorName).level ~= currentActiveState then  -- Update toon selector if it has changed
            domoticz.log('Updating Toon Scenes selector to: '..currentActiveState)
            domoticz.devices(ToonScenesSensorName).switchSelector(currentActiveState).silent()
        end
        
        -- Updates the toon auto program switch 
        if domoticz.devices(ToonAutoProgramSensorName).level ~= currentProgramState then -- Update toon auto program selector if it has changed
            domoticz.log('Updating Toon Auto Program selector to: '..currentProgramState)
            domoticz.devices(ToonAutoProgramSensorName).switchSelector(currentProgramState).silent()
        end
        
        -- Updates the toon program information text box
        if currentNextTime == 0 or currentNextSetPoint == 0 then
            ToonProgramInformationSensorValue = 'Op ' ..currentSetpoint.. '°'
        else
            ToonProgramInformationSensorValue = 'Om ' ..os.date('%H:%M', currentNextTime).. ' op ' ..currentNextSetPoint.. '°'
        end
        
        if domoticz.devices(ToonProgramInformationSensorName).text ~= ToonProgramInformationSensorValue then
            domoticz.log('Updating Toon Program Information to: '..ToonProgramInformationSensorValue)
            domoticz.devices(ToonProgramInformationSensorName).updateText(ToonProgramInformationSensorValue)
        end
	end
}