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