rename #2

1 files changed, 38 insertions, 0 deletions

diff --git a/scd4x b/scd4x
new file mode 100755
index 0000000..b5baad5
--- /dev/null
+++ b/scd4x
@@ -0,0 +1,38 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use English;
+use POSIX;
+use JSON;
+use Net::MQTT::Simple;
+
+my $host = shift;
+my $name = shift;
+my $file = shift;
+my $verbose = 1;
+
+my $mqtt = Net::MQTT::Simple->new($host) or die "mqtt init (server $host)";
+my $json = JSON->new->allow_nonref;
+
+sub read_json_file {
+	my $filename = shift;
+	my $content;
+
+	open FILE, '<', $filename or die "read $filename: $!";
+	{ local $/; undef $/; $content = <FILE> }
+	close FILE;
+
+	return $json->decode($content);
+}
+
+for (;;) {
+	my $values = read_json_file($file);
+	for my $key (sort keys %{$values}) {
+		my $topic = $key . "/" . $name;
+		my $value = $values->{$key};
+		printf("%-20s: %s\n", $topic, $value) if $verbose;
+		$mqtt->retain( $topic => $value );
+	}
+	printf("--\n") if $verbose;
+	sleep 60;
+}