bin/heat: Accept also 12.34 (besides 12:34).

[nethome.git] / bin / heat

diff --git a/bin/heat b/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);
 }