Embedded Systems LogiMachine5 Power User Manual

219
28.
ifnot
pos
then
29.
returnfalse
30.
end
31.
-- get name part
32. name
=
cmd:sub
(
1 + offset, pos - offset
)
:trim
()
33.
if
mode
=='W'then
34. value
=
cmd:sub
(
pos + offset
)
:trim
()
35.
ifnot
value
then
36.
returnfalse
37.
end
38.
-- try decoding value
39. jvalue
=
json.pdecode
(
value
)
40. value
=
jvalue ~
=niland
jvalue
or
value
41.
-- send to bus
42. grp.
write(
name, value
)
43.
-- read request
44.
else
45. obj
=
grp.find
(
name
)
46.
-- send read request and wait for update
47.
if
obj
then
48. obj:
read()
49.
os
.sleep
(1)
50.
-- read new value
51. value
=
grp.getvalue
(
name
)
52.
-- got value, send response
53.
if
value ~
=nilthen
54. jvalue
=
json.pencode
(
value
)
55.
if
obj.name
then
56. name
=string.format('%s (%s)'
, obj.name, obj.address
)
57.
end
58. cmd
=string.format('Value of %s is %s'
, name, jvalue
)
59. modem:sendsms
(
sender, cmd
)
60.
end
61.
end
62.
end
63.
end
64.
end
65.
-- incoming sms handler
66. handler
=function(
sms
)
67. alert
('incoming sms from %s (%s)'
, sms.sender, sms.data
)
68.
-- sms from known number, call parser
69.
iftable
.contains
(
numbers, sms.sender
)then
70. parser
(
sms.data, sms.sender
)
71.
end
72.
end
73.
-- set sms handler
74. modem:setsmshandler
(
handler
)
75.
-- send pin if set
76.
if
pincode
then
77. modem:send
('AT+CPIN='
.. pincode
)

Embedded Systems LogiMachine5 Power Specifications

General

Brand	Embedded Systems
Model	LogiMachine5 Power
Category	Controller
Language	English