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