diff options
-rwxr-xr-x | scd4x | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -12,6 +12,10 @@ my $host = shift; my $json = JSON->new->allow_nonref; my $mqtt; +my $values; +my $pvalues; +my $serial; + sub read_json_file { my $filename = shift; my $content; @@ -27,11 +31,9 @@ if (defined($host)) { $mqtt = Net::MQTT::Simple->new($host) or die "mqtt init (server $host)" } -my $values; -my $pvalues; for (;;) { $values = read_json_file($file); - my $serial = $values->{'serial'}; + $serial = $values->{'serial'}; for my $key ('co2', 'temperature', 'humidity') { next if defined($pvalues->{$key}) and $pvalues->{$key} eq $values->{$key}; my $topic = "sensors/" . $key . "/scd4x/" . $serial; |