X-Git-Url: http://git.rot13.org/?p=air-quality;a=blobdiff_plain;f=zph02.pl;h=0e329fd21376519631700bceec5df9950bd2e968;hp=aeaaffbb686518eb449507712e22f7316095b511;hb=bcefa9e3896d896801b4361aa7a03c17eae60ad3;hpb=7e3b678057733cd6d152a1955733f9d34805b176 diff --git a/zph02.pl b/zph02.pl index aeaaffb..0e329fd 100755 --- a/zph02.pl +++ b/zph02.pl @@ -6,8 +6,7 @@ use Device::SerialPort; use Time::HiRes; use Data::Dump qw(dump); -my $port = shift @ARGV || '/dev/ttyUSB1'; -$port = '/dev/serial/by-path/pci-0000:00:1a.7-usb-0:5.4:1.0-port0'; +my $port = shift @ARGV || '/dev/serial/by-path/pci-0000:00:1a.7-usb-0:5.3.4:1.0'; 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'; @@ -23,6 +22,11 @@ $s->read_const_time(10); while (1) { + alarm 3; + # Usb serial which I'm using is buggy and blocks from time to time. + # This will ensure that we have passed here every 3 seconds + # or we will be killed and systemd will restart us + my ($len, $string) = $s->read(9); my $t = int( Time::HiRes::time() * 1_000_000_000 ); die $! if ! defined($len);