From e49d0f66485ebbad575bab0cc70268a1ba392031 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Mon, 22 Mar 2021 18:52:55 +0100 Subject: [PATCH] set mqtt server and port --- zc-send | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/zc-send b/zc-send index 3e188ca..b7fe2c8 100755 --- a/zc-send +++ b/zc-send @@ -54,6 +54,11 @@ if ( $ARGV[0] =~ m/interval/ ) { print "Set alarm arming $rel_zero\n"; $raw = write_parameter_frame( "\x3a" => "\x11" . pack('C',$rel_zero) ); +} elsif ( $ARGV[0] =~ m/mqtt/ ) { + my @mqtt = qw(185 201 196 30 1883); + print "Set server port ", join(' ', @mqtt), "\n"; + $raw = write_parameter_frame( "\x14" => "\x06" . pack('CCCCs',@mqtt) ); + } else { print "read_parameter_frame\n"; $raw = read_parameter_frame( "\x00" => "\x04\xe8\x03\x00\x00", -- 2.20.1