FHEM/mod-AutoShuttersControl
1
0
Fork 0
Code Issues 12 Pull Requests Releases 9 Wiki Activity

code Style

Browse Source
This commit is contained in:
Marko Oldenburg
2019-10-25 10:44:35 +02:00
parent ab5966fc79
commit c0260bf7e5
1 changed files with 36 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
73_AutoShuttersControl.pm
View File

@ -2643,25 +2643,24 @@ 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 );
## Abfrage für die Sichtschutzfahrt am Morgen vor dem eigentlichen kompletten öffnen ## Abfrage für die Sichtschutzfahrt am Morgen vor dem eigentlichen kompletten öffnen
if ( $shutters->getPrivacyUpTime > 0 if ( $shutters->getPrivacyUpTime > 0
and $shutters->getUp ne 'brightness' ) and $shutters->getUp ne 'brightness' )
{ {
$shuttersSunriseUnixtime = PrivacyUpTime($shuttersDevHash,$shuttersSunriseUnixtime); $shuttersSunriseUnixtime =
PrivacyUpTime( $shuttersDevHash, $shuttersSunriseUnixtime );
} }
else { else {
CommandDeleteReading( undef, CommandDeleteReading( undef, $shuttersDev . ' ASC_Time_PrivacyDriveUp' )
$shuttersDev . ' ASC_Time_PrivacyDriveUp' ) if ( ReadingsVal( $shuttersDev, 'ASC_Time_PrivacyDriveUp', 'none' ) );
if (
ReadingsVal( $shuttersDev, 'ASC_Time_PrivacyDriveUp', 'none' ) );
} }
## Abfrage für die Sichtschutzfahrt am Abend vor dem eigentlichen kompletten schließen ## Abfrage für die Sichtschutzfahrt am Abend vor dem eigentlichen kompletten schließen
if ( $shutters->getPrivacyDownTime > 0 if ( $shutters->getPrivacyDownTime > 0
and $shutters->getDown ne 'brightness' ) and $shutters->getDown ne 'brightness' )
{ {
$shuttersSunsetUnixtime = PrivacyDownTime($shuttersDevHash,$shuttersSunsetUnixtime); $shuttersSunsetUnixtime =
PrivacyDownTime( $shuttersDevHash, $shuttersSunsetUnixtime );
} }
else { else {
CommandDeleteReading( undef, CommandDeleteReading( undef,
@ -2679,7 +2678,7 @@ sub CreateSunRiseSetShuttersTimer($$) {
} }
sub PrivacyUpTime($$) { sub PrivacyUpTime($$) {
my ($shuttersDevHash,$shuttersSunriseUnixtime) = @_; my ( $shuttersDevHash, $shuttersSunriseUnixtime ) = @_;
if ( ( $shuttersSunriseUnixtime - $shutters->getPrivacyUpTime ) > if ( ( $shuttersSunriseUnixtime - $shutters->getPrivacyUpTime ) >
( gettimeofday() + 1 ) ) ( gettimeofday() + 1 ) )
@ -2689,21 +2688,18 @@ sub PrivacyUpTime($$) {
readingsSingleUpdate( readingsSingleUpdate(
$shuttersDevHash, $shuttersDevHash,
'ASC_Time_PrivacyDriveUp', 'ASC_Time_PrivacyDriveUp',
strftime( strftime( "%e.%m.%Y - %H:%M", localtime($shuttersSunriseUnixtime) ),
"%e.%m.%Y - %H:%M",
localtime($shuttersSunriseUnixtime)
),
0 0
); );
## Setzt den PrivacyDown Modus für die Sichtschutzfahrt auf den Status 1 ## Setzt den PrivacyDown Modus für die Sichtschutzfahrt auf den Status 1
$shutters->setPrivacyUpStatus(1); $shutters->setPrivacyUpStatus(1);
} }
return $shuttersSunriseUnixtime return $shuttersSunriseUnixtime;
} }
sub PrivacyDownTime($$) { sub PrivacyDownTime($$) {
my ($shuttersDevHash,$shuttersSunsetUnixtime) = @_; my ( $shuttersDevHash, $shuttersSunsetUnixtime ) = @_;
if ( ( $shuttersSunsetUnixtime - $shutters->getPrivacyDownTime ) > if ( ( $shuttersSunsetUnixtime - $shutters->getPrivacyDownTime ) >
( gettimeofday() + 1 ) ) ( gettimeofday() + 1 ) )
@ -2713,17 +2709,14 @@ sub PrivacyDownTime($$) {
readingsSingleUpdate( readingsSingleUpdate(
$shuttersDevHash, $shuttersDevHash,
'ASC_Time_PrivacyDriveDown', 'ASC_Time_PrivacyDriveDown',
strftime( strftime( "%e.%m.%Y - %H:%M", localtime($shuttersSunsetUnixtime) ),
"%e.%m.%Y - %H:%M",
localtime($shuttersSunsetUnixtime)
),
0 0
); );
## Setzt den PrivacyDown Modus für die Sichtschutzfahrt auf den Status 1 ## Setzt den PrivacyDown Modus für die Sichtschutzfahrt auf den Status 1
$shutters->setPrivacyDownStatus(1); $shutters->setPrivacyDownStatus(1);
} }
return $shuttersSunsetUnixtime return $shuttersSunsetUnixtime;
} }
## Funktion zum neu setzen der Timer und der Readings für Sunset/Rise ## Funktion zum neu setzen der Timer und der Readings für Sunset/Rise
@ -2995,7 +2988,9 @@ sub SunRiseShuttersAfterTimerFn($) {
ShuttersCommandSet( $hash, $shuttersDev, ShuttersCommandSet( $hash, $shuttersDev,
$shutters->getPrivacyUpPos ) $shutters->getPrivacyUpPos )
unless ( unless (
$shutters->getQueryShuttersPos( $shutters->getPrivacyUpPos ) $shutters->getQueryShuttersPos(
$shutters->getPrivacyUpPos
)
); );
} }
else { else {