#!/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;
}