turn debug on with: touch /dev/shm/air-debug

[air-quality] / dsm501.pl

diff --git a/dsm501.pl b/dsm501.pl
index a821aaf..33277e5 100755 (executable)
--- a/dsm501.pl
+++ b/dsm501.pl
@@ -7,7 +7,7 @@ use Time::HiRes;
 use Data::Dump qw(dump);
 
 my $port = shift @ARGV || '/dev/serial/by-path/platform-3f980000.usb-usb-0:1.3:1.0-port0';
-my $influx_url = shift @ARGV || 'http://10.13.37.92:8086/write?consistency=any&db=rot13';
+my $influx_url = shift @ARGV || 'http://10.60.0.92:8086/write?consistency=any&db=rot13';
 my $measurement = $ENV{MEASUREMENT} || 'dsm501';
 
 my $s = new Device::SerialPort( $port ) || die $!;
@@ -31,7 +31,7 @@ while (1) {
                        $string =~ s/[\r\n]+$//;
                        $string =~ s/\s/,/g;
                        my $influx = "$measurement,dc=trnjanska $string $t";
-                       print "$influx\n";
+                       print "$influx\n" if -e '/dev/shm/air-debug';
                        system "curl --silent -XPOST '$influx_url' --data-binary '$influx'"
                } else {
                        warn "SKIP: $string\n";