mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

...

Browse Source
This commit is contained in:
Marc Hoppe
2020-07-31 11:52:23 +02:00
parent 8552092b33
commit ef301a6774
1 changed files with 7 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
fhem/FHEM/99_MyUtils.pm
View File

@@ -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($) sub IsSunny($)
{ {
my ($wett)=@_; my ($wett)=@_;
@@ -219,7 +207,7 @@ sub IsWetterSonneWait($)
$blocktime[2]+=2; # +2Std $blocktime[2]+=2; # +2Std
if($blocktime[2]>23) { $blocktime[2]=23; } # da nachts keine sonne scheint egal if($blocktime[2]>23) { $blocktime[2]=23; } # da nachts keine sonne scheint egal
$blocktimerRunning=1; $blocktimerRunning=1;
#Dbg("son1"); Dbg("Wechsel auf sonnig");
} }
} }
$wettalt=$wett; $wettalt=$wett;
@@ -229,6 +217,7 @@ sub IsWetterSonneWait($)
return(1); return(1);
} else { } else {
$blocktimerRunning=0; $blocktimerRunning=0;
Dbg("Sonnigblockierung Ende");
} }
} }
return(0); return(0);
@@ -288,9 +277,11 @@ sub checkSunIn($$$$$)
#------------------------------------------ #------------------------------------------
# Offene Fenster nicht mit Rollaeden verschliessen # 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 $winstate=Value($r->{win});
my $typ=$r->{typ}; my $typ=$r->{typ};
my $skipRunter=SKIP_NO; my $skipHoch=SKIP_NO; 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($tempI, $tempO)=checkTemps($tempIn, $tempOut, $r->{tempSoll}); # Temperatur klassifizieren
my $sunIn=checkSunIn($twil, $sr, $r->{dir}, $sonneblock, $sunny); # Sonne scheint ins Fenster ? my $sunIn=checkSunIn($twil, $sr, $r->{dir}, $sonneblock, $sunny); # Sonne scheint ins Fenster ?
# Offene Fenster nicht mit Rollaeden verschliessen, zur Schlafenszeit nicht öffnen # Offene Fenster nicht mit Rollaeden verschliessen, zur Schlafenszeit nicht öffnen
my ($skipRunter, $skipHoch)=checkSkip($r, $wach); my ($skipRunter, $skipHoch)=checkSkip($r);
if (!$tag) { if (!$tag) {
$run=RollRunter($r, $skipRunter, $ndelay++); $run=RollRunter($r, $skipRunter, $ndelay++);
} elsif ($dawn) { } elsif ($dawn) {