First version. Saves target t to flash, features cut-off by relay temperature.

2022-09-25 16:35:55 +03:00
parent 7de1b698e9
commit abadb7fe81
7 changed files with 387 additions and 0 deletions
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+
+if (scalar(@ARGV) < 1)
+{
+	die("Usage: make_config.pl HEATER_NAME");
+}
+my $name = shift @ARGV;
+
+Process("heater_v3.things", $name.".things");
+Process("heater_v3.items", $name.".items");
+
+sub Process
+{
+	my $src = shift;
+	my $dst = shift;
+	my $fh;
+	open($fh, "< ".$src);
+	my $ofh;
+	open($ofh, "> ".$dst);
+	while (<$fh>)
+	{
+		$_ =~ s/HEATER_NAME/$name/g;
+		print($ofh $_);
+	}
+	close($fh);
+	close($ofh);
+}