X-Git-Url: http://git.rot13.org/?p=vaillant-thermostat;a=blobdiff_plain;f=serial.pl;h=c08a73e1397514479fd3ef093abe0f6e74ab33a0;hp=12a2cbfa345e1481f2ad359bfa482c1b74416e29;hb=720c72fa7b481a1b1e2145491274f897749bb19e;hpb=ba95c2283b358a60aed1daf7eec65d9bef008f8b 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) => $_; }