99-My dummys tag und hell pflegen
This commit is contained in:
@@ -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");
|
||||
|
||||
|
||||
Reference in New Issue
Block a user