Merge branch 'devel'

This commit is contained in:
Marko Oldenburg 2019-11-27 11:26:29 +01:00
commit 60ae53a9cf

View File

@ -2760,11 +2760,9 @@ sub CreateSunRiseSetShuttersTimer($$) {
); );
readingsEndUpdate( $hash, 1 ); readingsEndUpdate( $hash, 1 );
RemoveInternalTimer( $shutters->getInTimerFuncHash ) RemoveInternalTimer( $shutters->getInTimerFuncHash )
if ( defined( $shutters->getInTimerFuncHash ) ); if ( defined( $shutters->getInTimerFuncHash ) );
## Setzt den Privacy Modus für die Sichtschutzfahrt auf den Status 0 ## Setzt den Privacy Modus für die Sichtschutzfahrt auf den Status 0
## 1 bedeutet das PrivacyDown Timer aktiviert wurde, 2 beudet das er im privacyDown ist ## 1 bedeutet das PrivacyDown Timer aktiviert wurde, 2 beudet das er im privacyDown ist
## also das Rollo in privacy Position steht und VOR der endgültigen Nacht oder Tagfahrt ## also das Rollo in privacy Position steht und VOR der endgültigen Nacht oder Tagfahrt
@ -2795,7 +2793,6 @@ sub CreateSunRiseSetShuttersTimer($$) {
ReadingsVal( $shuttersDev, 'ASC_Time_PrivacyDriveDown', 'none' ) ); ReadingsVal( $shuttersDev, 'ASC_Time_PrivacyDriveDown', 'none' ) );
} }
## kleine Hilfe für InternalTimer damit ich alle benötigten Variablen an die Funktion übergeben kann welche von Internal Timer aufgerufen wird. ## kleine Hilfe für InternalTimer damit ich alle benötigten Variablen an die Funktion übergeben kann welche von Internal Timer aufgerufen wird.
%funcHash = ( %funcHash = (
hash => $hash, hash => $hash,
@ -2806,7 +2803,6 @@ sub CreateSunRiseSetShuttersTimer($$) {
## Ich brauche beim löschen des InternalTimer den Hash welchen ich mitgegeben habe,dieser muss gesichert werden ## Ich brauche beim löschen des InternalTimer den Hash welchen ich mitgegeben habe,dieser muss gesichert werden
$shutters->setInTimerFuncHash( \%funcHash ); $shutters->setInTimerFuncHash( \%funcHash );
InternalTimer( $shuttersSunsetUnixtime, InternalTimer( $shuttersSunsetUnixtime,
'FHEM::AutoShuttersControl::SunSetShuttersAfterTimerFn', \%funcHash ); 'FHEM::AutoShuttersControl::SunSetShuttersAfterTimerFn', \%funcHash );
InternalTimer( $shuttersSunriseUnixtime, InternalTimer( $shuttersSunriseUnixtime,
@ -6007,7 +6003,7 @@ sub getTimeUpEarly {
} }
return ( return (
$val =~ /^(?:[01]\d|2[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/ $val =~ /^(?:[01]?\d|2[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/
? $val ? $val
: '05:00' : '05:00'
); );
@ -6022,7 +6018,7 @@ sub getTimeUpLate {
} }
return ( return (
$val =~ /^(?:[01]\d|2[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/ $val =~ /^(?:[01]?\d|2[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/
? $val ? $val
: '08:30' : '08:30'
); );
@ -6037,7 +6033,7 @@ sub getTimeDownEarly {
} }
return ( return (
$val =~ /^(?:[01]\d|2[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/ $val =~ /^(?:[01]?\d|2[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/
? $val ? $val
: '16:00' : '16:00'
); );
@ -6052,7 +6048,7 @@ sub getTimeDownLate {
} }
return ( return (
$val =~ /^(?:[01]\d|2[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/ $val =~ /^(?:[01]?\d|2[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/
? $val ? $val
: '22:00' : '22:00'
); );
@ -6068,7 +6064,7 @@ sub getTimeUpWeHoliday {
} }
return ( return (
$val =~ /^(?:[01]\d|2[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/ $val =~ /^(?:[01]?\d|2[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/
? $val ? $val
: '08:00' : '08:00'
); );