X-Git-Url: http://git.rot13.org/?p=air-quality;a=blobdiff_plain;f=mh-z19b.pl;h=8307838938b064d1361a93e8976d24db38fa9317;hp=94abb05e5327fc41e15b4acff72619db8140a6dd;hb=32bcafc453e010a0115903d346d4d3d6acdc33a0;hpb=452f7e0d2461923ab031789c222268779b6f80d9 diff --git a/mh-z19b.pl b/mh-z19b.pl index 94abb05..8307838 100755 --- a/mh-z19b.pl +++ b/mh-z19b.pl @@ -6,10 +6,8 @@ use Device::SerialPort; use Time::HiRes; use Data::Dump qw(dump); -my $port = shift @ARGV || '/dev/ttyUSB0'; -$port = '/dev/ttyUSB5'; -my $influx_url = shift @ARGV || 'http://10.13.37.229:8186/write?db=telegraf'; -$influx_url = 'http://10.13.37.92:8086/write?db=rot13'; +my $port = shift @ARGV || '/dev/serial/by-path/platform-3f980000.usb-usb-0:1.5:1.2'; +my $influx_url = shift @ARGV || 'http://10.13.37.92:8086/write?consistency=any&db=rot13'; my $s = new Device::SerialPort( $port ) || die $!; $s->baudrate(9600); @@ -46,7 +44,10 @@ while (1) { if ( $v[0] == 0xff && $sum == $checksum ) { my $influx = "mh-z19b,dc=trnjanska co2=$co2 $t"; print "$influx\n"; - system "curl --silent -XPOST '$influx_url' --data-binary '$influx'" + system "curl --max-time 2 --silent -XPOST '$influx_url' --data-binary '$influx'"; + system "mosquitto_pub -h rpi2 -t 'air/mh-z19b/co2' -m $co2"; + } else { + die "checksum error"; } sleep 1; $s->write("\xFF\x01\x86\x00\x00\x00\x00\x00\x79");