Integration with Satel alarm system via ETHM-1

Code:

host, port = '192.168.0.15', 7094
socket = require("socket")
client = socket.tcp()
client:settimeout(1)
client:connect(host, port)
cmd = string.char(0xFE,0xFE,0x7E,0xD8,0x60,0xFE,0x0D)
client:send(cmd)
result = client:receive()
log(result)

Code:

cmd = string.char(0xFE,0xFE,0x09,0xD7,0xEB,0xFE,0x0D)

Code:

0xFE, 0xFE, 0x09, DATA1, DATA2, DATA3, DATA4, CRC_HIGH, CRC_LOW, 0xFE, 0x0D

Code:

function str2hex(str)
    raw_len = string.len(str)
    i = 1
  while i <= raw_len do
    current_hexvalue = '0x' .. string.format("%02x", string.byte(str, i))
    if value then
      value = value .. ', ' .. current_hexvalue
    else
        value = current_hexvalue
    end
    i = i + 1
  end 
  return value
end

socket = require('socket')

client=socket.tcp()
client:connect('192.168.2.9', 7094)
client:settimeout(1)
cmd = string.char(0xFE,0xFE,0x18,0xD7,0xFA,0xFE,0x0D)
log(cmd)
client:send( cmd )
result = client:receive(15)

result_str = lmcore.strtohex(result, true)

result_str1 = str2hex(result)


log(result, result_str, result_str1)

Code:

function str2hex(str)
    raw_len = string.len(str)
    i = 1
  while i <= raw_len do
    current_hexvalue = '0x' .. string.format("%02x", string.byte(str, i))
    if value then
      value = value .. ', ' .. current_hexvalue
    else
        value = current_hexvalue
    end
    i = i + 1
  end 
  return value
end

socket = require('socket')

client=socket.tcp()
client:connect('192.168.2.9', 7094)
client:settimeout(1)
cmd = string.char(0xFE,0xFE,0x18,0xD7,0xFA,0xFE,0x0D)
log(cmd)
client:send( cmd )
result = client:receive(15)

result_str = lmcore.strtohex(result, true)

result_str1 = str2hex(result)


log(result)
log(result_str)
log(result_str1)

Code:

log(result)
log(result_str)
log(result_str1)

Code:

log(result, result_str, result_str1)

Code:

data, err, partial = client:receive('*a')

-- error
if not data then 
  data = partial
end

-- do something with data that's available
if data then
  parsedata(data)
end

client:close()

Code:

Line 0: attempt to call field 'rshift' (a nil value)

Code:

-- Integracja z systemem Satelem po TCP
cmd = string.char(0xFE,0xFE,0x00,0xD7,0xE2,0xFE,0x0D)
bytes = 23

-- function Satel(cmd, bytes)
function satel_send(cmd, bytes)
ethm_ip = '192.168.2.9'
port = 7094

socket = require('socket')
client=socket.tcp()
success, error = client:connect(ethm_ip, port)

if success == 1 and error == nil then
client:settimeout(0.3)
client:send(cmd)
data, error, partial = client:receive(bytes)

-- error
if not data then
data = partial
end

client:close()    

end
  
return data
end  


-- Funkcja odpowiedzialna za wyciągniecie poszczególnych bitów i wstawienie ich do tabeli
function convert(data)
  local res, byte

  res = {}
  for i = 1, #data do
    -- get single byte
    byte = data:byte(i, i)
    byte = string.char(byte)
    bits = hex2bin(byte)
    for b = 1, #bits do
    -- get single bit
    bit = bits:byte(b, b)
    bit = string.char(bit)
    if bit == '0' then
      bin = false
    elseif bit =='1' then
      bin = true
    end
    -- add to result
    res[i*4-(4-b)] = bin
    end
  end
  return res
end


data = satel_send(cmd, bytes)
-- check if some data is available
if data then
data = lmcore.strtohex(data, true)
-- delete first 4 and last 8 chars
data = string.sub(data, 5, (string.len(data) -8))
inputs = convert(data)

else
log('Satel: zajęty')
end

-- update the inputs in the LM database
for i = 1, #inputs do
GA = '0/0/'.. tostring(91+i-1)
grp.update(GA , inputs[i])
end