kopia lustrzana https://github.com/martin-ger/esp_mqtt
added serial demo script
rodzic
b9d9e91924
commit
b00189ecb5
|
@ -0,0 +1,59 @@
|
|||
% Sample for a script that communicates with a HomeVision Controller via the serial interface
|
||||
% Incoming MQTT messages result in serial input to the HV Controller.
|
||||
% The controller can initiate MQTT publications via sending "pub,topic,item" to the serial output
|
||||
|
||||
% Config params, overwrite any previous settings from the commandline
|
||||
config bitrate 19200
|
||||
config system_output 0
|
||||
|
||||
on init
|
||||
% Subscribe
|
||||
do
|
||||
subscribe local stat/Woonkmr/POWER
|
||||
subscribe local stat/Buiten/POWER
|
||||
subscribe local stat/SVTest/POWER
|
||||
% ... (additional subscribes, one for each of the remaining devices)
|
||||
% Woonkmr -> flag 32
|
||||
|
||||
on topic local stat/Woonkamer/POWER
|
||||
do
|
||||
if $this_data = "on" then
|
||||
serial_out ",>2001" | #0d
|
||||
else
|
||||
if $this_data = "off" then
|
||||
serial_out ",>2000" | #0d
|
||||
endif
|
||||
endif
|
||||
|
||||
% Buiten -> flag 33
|
||||
on topic local stat/Buiten/POWER
|
||||
do
|
||||
if $this_data = "on" then
|
||||
serial_out ",>2101" | #0d
|
||||
else
|
||||
if $this_data = "off" then
|
||||
serial_out ",>2100" | #0d
|
||||
endif
|
||||
endif
|
||||
|
||||
% SVTest -> flag 34
|
||||
on topic local stat/SVTest/POWER
|
||||
do
|
||||
if $this_data = "on" then
|
||||
serial_out ",>2201" | #0d
|
||||
else
|
||||
if $this_data = "off" then
|
||||
serial_out ",>2200" | #0d
|
||||
endif
|
||||
endif
|
||||
|
||||
%... (additional similar "on topic"s for each remaining device)
|
||||
|
||||
on serial
|
||||
do
|
||||
% parse inputs of the form: pub,{topic},{payload}
|
||||
setvar $topic_str = csvstr($this_serial,1,",")
|
||||
setvar $data_str = csvstr($this_serial,2,",")
|
||||
if csvstr($this_serial,0,",") = "pub" then
|
||||
publish local $topic_str $data_str
|
||||
endif
|
Ładowanie…
Reference in New Issue