From: Dobrica Pavlinusic Date: Tue, 15 May 2018 15:25:39 +0000 (+0200) Subject: changed serial port path and send mqtt DHT22 errors X-Git-Url: http://git.rot13.org/?p=vaillant-thermostat;a=commitdiff_plain;h=720c72fa7b481a1b1e2145491274f897749bb19e changed serial port path and send mqtt DHT22 errors --- diff --git a/serial.pl b/serial.pl index 12a2cbf..c08a73e 100755 --- a/serial.pl +++ b/serial.pl @@ -7,7 +7,7 @@ use Time::HiRes qw(time); my $read_len = 255; -my $path = shift @ARGV || '/dev/serial/by-path/platform-20980000.usb-usb-0:1.3.1:1.0-port0'; +my $path = shift @ARGV || '/dev/serial/by-path/platform-20980000.usb-usb-0:1.2:1.0-port0'; $|=1; @@ -68,8 +68,9 @@ while (1) { _mqtt_pub "stat/boiler/" . chr(ord('a') + $_) => $d[$_] foreach 0 .. $#d; } - my @v = split(/\s+/, $temp, 3); - my @n = qw( DS18B20/temperature DHT22/temperature DHT22/humidity ); + my @v = split(/\s+/, $temp, 4); + my @n = qw( DS18B20/temperature DHT22/temperature DHT22/humidity DHT22/errors ); + @n = qw( DS18B20/temperature DHT22/temperature DHT22/humidity DHT22/errors ) if $#v == 1; # no DS18B20 foreach (@v) { _mqtt_pub "stat/boiler/" . shift(@n) => $_; }