Domoticz

Code: Select all

2016-10-03 09:21:00.588 Error: EventSystem: in /root/domoticz/scripts/lua/script_time_max.lua: /root/domoticz/scripts/lua/script_time_max.lua:132: attempt to concatenate field '?' (a nil value)

Code: Select all

        table.insert(commandArray, { ['UpdateDevice'] = otherdevices_idx[room]..'|0|'..temp})

Code: Select all

 2016-10-04 17:15:01.042 Error: EventSystem: in /home/linaro/domoticz/scripts/lua/script_time_max.lua: /home/linaro/domoticz/scripts/lua/script_time_max.lua:1: unexpected symbol near '[' 

Code: Select all

2016-10-07 11:17:01.022 Error: EventSystem: in script_time_max.lua: [string "package.loadlib("core.so", "*")..."]:139: attempt to concatenate field '?' (a nil value)

Code: Select all

local useWMT = false

Code: Select all

local useWMT = true

Code: Select all

pi@raspberrypi:~/domoticz/scripts$ lua script_time_max.lua
lua: script_time_max.lua:129: attempt to index global 'otherdevices_svalues' (a nil value)
stack traceback:
        script_time_max.lua:129: in function 'maxCmd_L'
        script_time_max.lua:213: in main chunk
        [C]: in ?

Code: Select all

pi@raspberrypi:~/domoticz/scripts$ lua max.lua
Rooms
-----
Schlafzimmer    0EB2AA
Flur    0EB427
Bad     0EAF39
GWC     0EB385
Kueche  0EB573
Wohnzimmer
        0AEEC4

Devices
-------
GWC-Thermostat  0EB385
Flur-Thermostat 0EB427
SZ-Fenster      0EB2AA
Bad-Termostat   0EAF39
SZ-Wandthermostat       0EE884
SZ-Balkontuere  0F1707
WZ-Fenster rechts       0AEEC4
WZ-Fenster Strasse      0AED89
Eco Taster      0810A7
WZ-Fenster links        0AEEC2
Kueche-Thermostat       0EB573
WZ-Fensterkontakt       073B4A
SZ-Balkon       0EAFDC
WZ-Wandthermostat       09128A
WZ-Couch        0EB389
PuTTYPuTTYPuTTYPuTTY
Device status
-------------
Valve   WZ-Fenster links        Setpoint=15     Temp=0  Valve pos=0     Battery=OK      Mode=Manual
Thermostat      SZ-Wandthermostat       Setpoint=16     Temp=19.9       Valve pos=-1    Battery=OK      Mode=Manual
Valve   SZ-Fenster      Setpoint=16     Temp=0  Valve pos=0     Battery=OK      Mode=Manual
Valve   WZ-Fenster Strasse      Setpoint=15     Temp=0  Valve pos=0     Battery=OK      Mode=Manual
Valve   Kueche-Thermostat       Setpoint=5      Temp=17.5       Valve pos=0     Battery=OK      Mode=Manual
Valve   Flur-Thermostat Setpoint=5      Temp=0  Valve pos=0     Battery=OK      Mode=Manual
Valve   WZ-Couch        Setpoint=15     Temp=0  Valve pos=0     Battery=OK      Mode=Manual
Valve   WZ-Fenster rechts       Setpoint=15     Temp=0  Valve pos=0     Battery=OK      Mode=Manual
Valve   Eco Taster      Setpoint=15     PuTTYTemp=0     Valve pos=0     Battery=OK      Mode=Auto
Valve   SZ-Balkon       Setpoint=16     Temp=0  Valve pos=0     Battery=OK      Mode=Manual
Thermostat      WZ-Wandthermostat       Setpoint=15     Temp=19.1       Valve pos=-1    Battery=OK      Mode=Manual
Thermostat      WZ-Fensterkontakt       Setpoint=15     Temp=19.1       Valve pos=-1    Battery=OK      Mode=Auto
Thermostat      SZ-Balkontuere  Setpoint=15     Temp=19.1       Valve pos=-1    Battery=OK      Mode=Auto
Valve   Bad-Termostat   Setpoint=5      Temp=18.5       Valve pos=0     Battery=OK      Mode=Manual
Valve   GWC-Thermostat  Setpoint=5      Temp=0PuTTY     Valve pos=0     Battery=OK      Mode=Manual

Code: Select all

2016-10-11 07:52:00.868 Error: EventSystem: in /home/pi/domoticz/scripts/lua/script_time_max.lua: /home/pi/domoticz/scripts/lua/script_time_max.lua:122: attempt to compare nil with number

Code: Select all

      if temp < 5 then temp = temp + 25.5 end --necessary for me since first two digits seem to be unused?

Code: Select all

				if name ~= "EcoTaster" and name ~= "Switch-SZ" and name ~= "Switch-WZ" then
					if setpoint_Domoticz ~= setpoint then
						if age(otherdevices_lastupdate[name]) > 60 then 												--Domoticz thermostat value must be updated
							table.insert(commandArray, { ['UpdateDevice'] = otherdevices_idx[name]..'|0|'..setpoint})
							if Debug=="YES" then print("Domoticz setpoint updated") end
						else 																							--Max! setpoint must be updated
							MaxCmdSend(adr, room_num, "manual", setpoint_Domoticz)
							if Debug=="YES" then print("MAX! setpoint updated") end
						end
					end
				end

Code: Select all

if temp < 5 then temp = temp + 25.5 end 																		--necessary for me since first two digits seem to be unused?

Code: Select all

--./script_time_max.lua
----------------------------------------------------------------------------------------------------------
-- Script parameters 
----------------------------------------------------------------------------------------------------------
package.loadlib("core.so", "*")
local Socket = require "socket"
local Basexx = require "basexx"
local Rooms = {}
local Devices = {}
local Room_nums = {}

local MaxIP = "192.168.66.30"
local MaxPort = 62910
local useWMT = false 				--# Set to true if there is a wall mounted thermostat in every room, then this one will be used for setpoint getting/setting

Debug = "YES"                    	--# Turn debugging on ("YES") or off ("NO")
 
----------------------------------------------------------------------------------------------------------
-- Script functions
----------------------------------------------------------------------------------------------------------
function age(timestring)
    t = {}
    t.year = string.sub(timestring,1,4)
    t.month = string.sub(timestring,6,7)
    t.day = string.sub(timestring,9,10)
    t.hour = string.sub(timestring,12,13)
    t.min = string.sub(timestring,15,16)
    t.sec = string.sub(timestring,18,19)
    return os.difftime(os.time(),os.time(t))
end
function maxCmd_H(data)
	--if Debug=="YES" then print('H='..data) end
end
function maxCmd_M(data)
	i = 0
	j = 0
	
	while true do    				--find next comma
		i = string.find(data, ",", i+1)
		if not i then break end
		j = i
	end
	
	s   = data:sub(j+1)
	dec = Basexx.from_base64(s)
	num_rooms = string.byte(dec,3)
	pos=4
	
	for i=1, num_rooms do
		room_num = string.byte(dec, pos)
		name_len = string.byte(dec, pos+1)
		pos  = pos+2
		name = dec:sub(pos, pos+name_len-1)
		pos  = pos+name_len
		adr  = Basexx.to_hex(dec:sub(pos, pos+2))
		Rooms[room_num] = name
		pos = pos+3
	end
	
	num_devs = string.byte(dec, pos)
	
	for i=1, num_devs do
		dtype = string.byte(dec, pos+1)
		adr   = Basexx.to_hex(dec:sub(pos+2, pos+4))
		snum  = dec:sub(pos+5, pos+14)
		name_len = string.byte(dec, pos+15)
		pos  = pos+16
		name = dec:sub(pos, pos+name_len-1)
		pos  = pos+name_len
		room_num = string.byte(dec, pos)
		Room_nums[adr] = room_num
		Devices[adr] = name
	end
end
function maxCmd_C(data)
	--if Debug=="YES" then print('C='..data) end
end
function maxCmd_L(data)
	pos = 1
	dec = Basexx.from_base64(data)
	L_hex = Basexx.to_hex(dec)
	L_len = string.len(L_hex)

	while (pos < L_len) do
		s = L_hex:sub(pos,(pos+1))
		data_len  = tonumber(s,16) + 1
		hex  = L_hex:sub(pos,pos+(data_len*2))
		adr  = hex:sub(3,8)
		room_num = string.format("%02X", Room_nums[adr])
		room = Rooms[Room_nums[adr]]
		name = Devices[adr]
		if not name then name=adr end
		valve_info = tonumber(hex:sub(13,14),16)
		batt = bit32.extract(valve_info,7,1)
		bst  = bit32.extract(valve_info,3,1)
		mode = bit32.extract(valve_info,0,2)
		if (batt==0) then sbat="OK" else sbat="Low"	end
		if (mode==0) then
			smode="Auto"
		elseif (mode==1) then
			smode="Manual"
		elseif (mode==2) then
			smode="Holiday"
		elseif (mode==3) then 
			smode="Boost"
		end

        if (data_len == 13) then -- WallMountedThermostat (dev_type 3)
            valve_pos = -1
            s = hex:sub(17,18)
            setpoint = tonumber(s,16) / 2
            s = hex:sub(23,26)
            temp = tonumber(s,16) / 10
            dtype = "Thermostat"
        elseif (data_len == 12) then -- HeatingThermostat (dev_type 1 or 2)
            s = hex:sub(15,16)
            valve_pos = tonumber(s,16)
            s = hex:sub(17,18)
            setpoint = tonumber(s,16) / 2
            if (mode ~= 2) then
                s = hex:sub(19,22)
                temp = tonumber(s,16) / 10
            else
                temp = 0
            end
            dtype = "Valve"
        end

        --Temperaturdevices den Status aktualisieren
	    if temp ~= 0 and dtype == "Valve" then 
	        table.insert(commandArray, { ['UpdateDevice'] = otherdevices_idx[name.." (Valve)"]..'|0|'..temp..';'..valve_pos..';0'})
        elseif  temp ~= 0 and dtype == "Thermostat" then
            table.insert(commandArray, { ['UpdateDevice'] = otherdevices_idx[room]..'|0|'..temp})
        end
        
        if smode=="Manual" then
			--Update virtual devices in Domoticz and update MAX! setpoints if necessary
			if Debug=="YES" then print(dtype.."  "..name.."  Setpoint="..setpoint.."  Temp="..temp.."  Valve pos="..valve_pos) end
			if dtype == "Valve" then
				--table.insert(commandArray, { ['UpdateDevice'] = otherdevices_idx[name.." (Valve)"]..'|0|'..temp..';'..valve_pos..';0'})
				if not useWMT and tonumber(otherdevices_svalues[name])~=nil then 																							--Use valve to check setpoint mismatch
					setpoint_Domoticz = tonumber(otherdevices_svalues[name])
					---if name ~= "EcoTaster" and name ~= "Switch-SZ" and name ~= "Switch-WZ" then
						if setpoint_Domoticz ~= setpoint then
					        print(otherdevices_lastupdate[name])
					        print(age(otherdevices_lastupdate[name]))
							if otherdevices_lastupdate[name]~=nil and age(otherdevices_lastupdate[name]) > 120 then 		--Domoticz thermostat value must be updated
								table.insert(commandArray, { ['UpdateDevice'] = otherdevices_idx[name]..'|0|'..setpoint})
								if Debug=="YES" then print("Domoticz setpoint updated") end
							else        																				--Max! setpoint must be updated
								MaxCmdSend(adr, room_num, "manual", setpoint_Domoticz)
								if Debug=="YES" then print("MAX!Valve setpoint updated") end
							end
						end
					---end
				end   
			elseif dtype == "Thermostat" then
				--table.insert(commandArray, { ['UpdateDevice'] = otherdevices_idx[room]..'|0|'..temp})
				setpoint_Domoticz = tonumber(otherdevices_svalues[name])
				if setpoint_Domoticz ~= setpoint then
					print(otherdevices_lastupdate[name])
					print(age(otherdevices_lastupdate[name]))
					if otherdevices_lastupdate[name]~=nil and age(otherdevices_lastupdate[name]) > 120 then 				--Domoticz thermostat value must be updated
					    table.insert(commandArray, { ['UpdateDevice'] = otherdevices_idx[name]..'|0|'..setpoint})
					    if Debug=="YES" then print("Domoticz setpoint updated") end
					else 																								--Max! setpoint must be updated
					    MaxCmdSend(adr, room_num, "manual", setpoint_Domoticz)
					    if Debug=="YES" then print("MAX!WMT setpoint updated") end
					end
				end
			end
		end	
		dtype=""
		name=""
		setpoint=""
		temp=""
		valve_pos=""
		pos = pos + (data_len*2)
	end
end
function MaxCmdSend(id, room, mode, setpoint)
	bits  = setpoint * 2
	smode = string.upper(mode)
	if smode == 'MANUAL' then
		bits = 64 + bits
	elseif smode == 'BOOST' then
		bits = 192 + bits
	elseif smode == 'VACATION' then
		bits = 128 + bits
	end

	hex = "000440000000"..id..room..string.format("%x",bits)
	sendStr = Basexx.to_base64(Basexx.from_hex(hex))
	i, status = tcp:send("s:"..sendStr.."\r\n")

	if not i then
		print("MAX! TCP send failed - "..status)
		return
	end
end

----------------------------------------------------------------------------------------------------------
-- CommandArray
----------------------------------------------------------------------------------------------------------
commandArray = {}
    local m = os.date('%M')
    if (m % 2 == 0) then
        --print("The 3 minute script interval reached")
    	tcp = Socket.connect(MaxIP, MaxPort)
    
    	if not tcp then
    	   print("MAX! Socket connect failed for "..MaxIP..':'..MaxPort)
    	   return
    	end
    
    	tcp:settimeout(2)
    	local time = os.date("*t")
    
    	while (time.min ~= 0) do
    		s, status, partial = tcp:receive()
    		if (status) then
    			print("MAX! TCP receive - "..status)
    			break
    		end
    		  
    		local line = (s or partial)
    		local cmd  = line:sub(1,1)
    		local data = line:sub(3)
    	   
    		if (cmd == 'H') then
    			maxCmd_H(data)
    		elseif (cmd == 'M') then
    			maxCmd_M(data)
    		elseif (cmd == 'C') then
    			maxCmd_C(data)
    		elseif (cmd == 'L') then
    			maxCmd_L(data)
    			break
    		end
    	end
    	tcp:close()
    end
return commandArray