99-My dummys tag und hell pflegen

This commit is contained in:
2016-03-27 20:59:34 +02:00
committed by Marc Hoppe
parent 7578929636
commit 2b6bf795bc

View File

@@ -279,10 +279,18 @@ sub RollCheck() {
my $tempOut=ReadingsVal("wetter", "temp_c", 99);
my $twil=Value("twil");
if($twil>=3 && $twil<10) { # civil
if ($twil>=3 && $twil<10) { # civil
$tag=1;
myfhem("set tag 1");
} else {
myfhem("set tag 0");
}
my $light=ReadingsVal("twil", "light", 0);
if ($light>=5) { # weather
myfhem("set hell 1");
} else {
myfhem("set hell 0");
}
my $wett=ReadingsVal("wetter", "code", 99);
my $sr=Value("sonnenrichtung");