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 e497b4912a
commit 4d4e200357

View File

@@ -281,8 +281,16 @@ sub RollCheck() {
my $twil=Value("twil"); my $twil=Value("twil");
if ($twil>=3 && $twil<10) { # civil if ($twil>=3 && $twil<10) { # civil
$tag=1; $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 $wett=ReadingsVal("wetter", "code", 99);
my $sr=Value("sonnenrichtung"); my $sr=Value("sonnenrichtung");