diff --git a/fhem/FHEM/99_MyUtils.pm b/fhem/FHEM/99_MyUtils.pm index cd0391a56..4b0d18674 100644 --- a/fhem/FHEM/99_MyUtils.pm +++ b/fhem/FHEM/99_MyUtils.pm @@ -169,18 +169,6 @@ sub RollRunter($$$) #------------------------------------------ -sub getWeather($) -{ - my ($wett)=@_; - if($wett==30|| $wett==32 || $wett==34 || $wett==36) { # sonnig, heiter, heiss - return(WEATHER_SUNNY); - } - # cloudy: 26, 27, 28 29 - return(WEATHER_BAD); -} - -#------------------------------------------ - sub IsSunny($) { my ($wett)=@_; @@ -219,7 +207,7 @@ sub IsWetterSonneWait($) $blocktime[2]+=2; # +2Std if($blocktime[2]>23) { $blocktime[2]=23; } # da nachts keine sonne scheint egal $blocktimerRunning=1; - #Dbg("son1"); + Dbg("Wechsel auf sonnig"); } } $wettalt=$wett; @@ -229,6 +217,7 @@ sub IsWetterSonneWait($) return(1); } else { $blocktimerRunning=0; + Dbg("Sonnigblockierung Ende"); } } return(0); @@ -288,9 +277,11 @@ sub checkSunIn($$$$$) #------------------------------------------ # Offene Fenster nicht mit Rollaeden verschliessen -sub checkSkip($$) +sub checkSkip($) { - my ($r, $wach)=@_; + my ($r)=@_; + + my $wach=Value("wach"); my $winstate=Value($r->{win}); my $typ=$r->{typ}; my $skipRunter=SKIP_NO; my $skipHoch=SKIP_NO; @@ -352,7 +343,7 @@ sub RollCheck() my($tempI, $tempO)=checkTemps($tempIn, $tempOut, $r->{tempSoll}); # Temperatur klassifizieren my $sunIn=checkSunIn($twil, $sr, $r->{dir}, $sonneblock, $sunny); # Sonne scheint ins Fenster ? # Offene Fenster nicht mit Rollaeden verschliessen, zur Schlafenszeit nicht öffnen - my ($skipRunter, $skipHoch)=checkSkip($r, $wach); + my ($skipRunter, $skipHoch)=checkSkip($r); if (!$tag) { $run=RollRunter($r, $skipRunter, $ndelay++); } elsif ($dawn) {