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