1 files changed, 35 insertions, 0 deletions
diff --git a/roles/daq-node/bin/fapg-daq-node b/roles/daq-node/bin/fapg-daq-node
new file mode 100755
index 0000000..55a6d59
--- /dev/null
+++ b/roles/daq-node/bin/fapg-daq-node
@@ -0,0 +1,35 @@
+#!/usr/bin/env perl
+# -*- mode: perl-ts; -*-
+
+use 5.40.1;
+use strict;
+use warnings;
+
+use FindBin;
+use lib "${FindBin::Bin}/../lib/perl5";
+
+use FAPG::DAQ::EZO;
+
+=head1 NAME
+
+fapg-daq - read sensor data and send over MQTT
+
+=cut
+
+my $probe = FAPG::DAQ::EZO::identify_probe();
+
+print "Found probe "
+  . $probe->type
+  . " on "
+  . $probe->device
+  . ".\n";
+
+while (1) {
+  my $reading = $probe->get_reading();
+
+  print "Reading: " . $reading->value . " " . $reading->unit . "\n";
+
+  $reading->publish_mqtt();
+
+  sleep 5;
+}