bin/heat: Accept also 12.34 (besides 12:34).
authorJan Kratochvil <jan@jankratochvil.net>
Fri, 21 Jan 2022 07:56:56 +0000 (08:56 +0100)
committerJan Kratochvil <jan@jankratochvil.net>
Fri, 21 Jan 2022 07:56:56 +0000 (08:56 +0100)
bin/heat

index 77dac14..2320115 100755 (executable)
--- a/bin/heat
+++ b/bin/heat
@@ -92,7 +92,7 @@ sub finish() {
 my $reset=readfile $resetfile if -e $resetfile;
 my($resetminutes,$resetstate);
 sub resetread() {
-  $reset=~/^0?(\d+):0?(\d+) ([01s]|reset)\n$/ or warn "Invalid $resetfile: $reset";
+  $reset=~/^0?(\d+)[:.]0?(\d+) ([01s]|reset)\n$/ or warn "Invalid $resetfile: $reset";
   $resetminutes=$1*60+$2;
   $resetstate=($3 eq "reset"?undef:$3);
 }