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

remove all unless conditions

Browse Source
This commit is contained in:
Marko Oldenburg 2020-06-29 09:58:53 +02:00
parent 109a67e388
commit 4a5b4d9ac1
2 changed files with 45 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
controls_AutoShuttersControl.txt
View File

@ -1,12 +1,12 @@
UPD 2020-06-29_08:37:58 97824 FHEM/73_AutoShuttersControl.pm UPD 2020-06-29_09:05:05 97824 FHEM/73_AutoShuttersControl.pm
UPD 2020-06-29_08:37:18 187109 lib/FHEM/Automation/ShuttersControl.pm UPD 2020-06-29_09:58:24 187022 lib/FHEM/Automation/ShuttersControl.pm
UPD 2020-06-22_09:41:40 2657 lib/FHEM/Automation/ShuttersControl/Dev.pm UPD 2020-06-22_09:41:40 2657 lib/FHEM/Automation/ShuttersControl/Dev.pm
UPD 2020-06-22_09:41:40 2493 lib/FHEM/Automation/ShuttersControl/Roommate.pm UPD 2020-06-22_09:41:40 2493 lib/FHEM/Automation/ShuttersControl/Roommate.pm
UPD 2020-06-29_08:36:08 30157 lib/FHEM/Automation/ShuttersControl/Shutters.pm UPD 2020-06-29_09:05:05 30157 lib/FHEM/Automation/ShuttersControl/Shutters.pm
UPD 2020-06-22_09:41:40 2175 lib/FHEM/Automation/ShuttersControl/Window.pm UPD 2020-06-22_09:41:40 2175 lib/FHEM/Automation/ShuttersControl/Window.pm
UPD 2020-06-22_09:41:40 11454 lib/FHEM/Automation/ShuttersControl/Dev/Attr.pm UPD 2020-06-22_09:41:40 11454 lib/FHEM/Automation/ShuttersControl/Dev/Attr.pm
UPD 2020-06-22_09:41:40 7251 lib/FHEM/Automation/ShuttersControl/Dev/Readings.pm UPD 2020-06-22_09:41:40 7251 lib/FHEM/Automation/ShuttersControl/Dev/Readings.pm
UPD 2020-06-29_08:36:04 52344 lib/FHEM/Automation/ShuttersControl/Shutters/Attr.pm UPD 2020-06-29_09:05:05 52344 lib/FHEM/Automation/ShuttersControl/Shutters/Attr.pm
UPD 2020-06-22_09:41:40 2903 lib/FHEM/Automation/ShuttersControl/Shutters/Readings.pm UPD 2020-06-22_09:41:40 2903 lib/FHEM/Automation/ShuttersControl/Shutters/Readings.pm
UPD 2020-06-22_09:41:40 3972 lib/FHEM/Automation/ShuttersControl/Window/Attr.pm UPD 2020-06-22_09:41:40 3972 lib/FHEM/Automation/ShuttersControl/Window/Attr.pm
UPD 2020-06-22_09:41:40 2288 lib/FHEM/Automation/ShuttersControl/Window/Readings.pm UPD 2020-06-22_09:41:40 2288 lib/FHEM/Automation/ShuttersControl/Window/Readings.pm

82
lib/FHEM/Automation/ShuttersControl.pm
View File

@ -98,7 +98,7 @@ if ($@) {
# JSON preference order # JSON preference order
local $ENV{PERL_JSON_BACKEND} = local $ENV{PERL_JSON_BACKEND} =
'Cpanel::JSON::XS,JSON::XS,JSON::PP,JSON::backportPP' 'Cpanel::JSON::XS,JSON::XS,JSON::PP,JSON::backportPP'
unless ( defined( $ENV{PERL_JSON_BACKEND} ) ); if ( !defined( $ENV{PERL_JSON_BACKEND} ) );
require JSON; require JSON;
import JSON qw( decode_json encode_json ); import JSON qw( decode_json encode_json );
@ -331,7 +331,7 @@ sub Define {
my $hash = shift // return; my $hash = shift // return;
my $aArg = shift // return; my $aArg = shift // return;
return $@ unless ( FHEM::Meta::SetInternals($hash) ); return $@ if ( !FHEM::Meta::SetInternals($hash) );
use version 0.60; our $VERSION = FHEM::Meta::Get( $hash, 'version' ); use version 0.60; our $VERSION = FHEM::Meta::Get( $hash, 'version' );
return 'only one AutoShuttersControl instance allowed' return 'only one AutoShuttersControl instance allowed'
@ -434,32 +434,32 @@ sub Notify {
if ( $ascDev->getASCenable eq 'none' ); if ( $ascDev->getASCenable eq 'none' );
CommandAttr( undef, CommandAttr( undef,
$name . ' devStateIcon { ShuttersControl_DevStateIcon($name) }' ) $name . ' devStateIcon { ShuttersControl_DevStateIcon($name) }' )
unless ( if (
AttrVal( AttrVal(
$name, 'devStateIcon', $name, 'devStateIcon',
'{ ShuttersControl_DevStateIcon($name) }' '{ ShuttersControl_DevStateIcon($name) }'
) eq '{ ShuttersControl_DevStateIcon($name) }' ) ne '{ ShuttersControl_DevStateIcon($name) }'
); );
CommandDeleteAttr( undef, $name . ' event-on-change-reading' ) CommandDeleteAttr( undef, $name . ' event-on-change-reading' )
unless ( if (
AttrVal( $name, 'event-on-change-reading', 'none' ) eq 'none' ); AttrVal( $name, 'event-on-change-reading', 'none' ) ne 'none' );
CommandDeleteAttr( undef, $name . ' event-on-update-reading' ) CommandDeleteAttr( undef, $name . ' event-on-update-reading' )
unless ( if (
AttrVal( $name, 'event-on-update-reading', 'none' ) eq 'none' ); AttrVal( $name, 'event-on-update-reading', 'none' ) ne 'none' );
# Ist der Event ein globaler und passt zum Rest der Abfrage oben wird nach neuen Rolläden Devices gescannt und eine Liste im Rolladenmodul sortiert nach Raum generiert # Ist der Event ein globaler und passt zum Rest der Abfrage oben wird nach neuen Rolläden Devices gescannt und eine Liste im Rolladenmodul sortiert nach Raum generiert
ShuttersDeviceScan($hash) ShuttersDeviceScan($hash)
unless ( ReadingsVal( $name, 'userAttrList', 'none' ) eq 'none' ); if ( ReadingsVal( $name, 'userAttrList', 'none' ) ne 'none' );
} }
return return
unless ( ref( $hash->{helper}{shuttersList} ) eq 'ARRAY' if ( ref( $hash->{helper}{shuttersList} ) ne 'ARRAY'
&& scalar( @{ $hash->{helper}{shuttersList} } ) > 0 ); && scalar( @{ $hash->{helper}{shuttersList} } ) == 0 );
my $posReading = $shutters->getPosCmd; my $posReading = $shutters->getPosCmd;
if ( $devname eq $name ) { if ( $devname eq $name ) {
if ( grep m{^userAttrList:.rolled.out$}xms, @{$events} ) { if ( grep m{^userAttrList:.rolled.out$}xms, @{$events} ) {
unless ( scalar( @{ $hash->{helper}{shuttersList} } ) == 0 ) { if ( scalar( @{ $hash->{helper}{shuttersList} } ) > 0 ) {
WriteReadingsShuttersList($hash); WriteReadingsShuttersList($hash);
UserAttributs_Readings_ForShutters( $hash, 'add' ); UserAttributs_Readings_ForShutters( $hash, 'add' );
InternalTimer( InternalTimer(
@ -771,7 +771,7 @@ sub ShuttersDeviceScan {
CommandDeleteReading( undef, $name . ' .*_nextAstroTimeEvent' ); CommandDeleteReading( undef, $name . ' .*_nextAstroTimeEvent' );
unless ( scalar(@list) > 0 ) { if ( scalar(@list) == 0 ) {
readingsBeginUpdate($hash); readingsBeginUpdate($hash);
readingsBulkUpdate( $hash, 'userAttrList', 'none' ); readingsBulkUpdate( $hash, 'userAttrList', 'none' );
readingsBulkUpdate( $hash, 'state', 'no shutters found' ); readingsBulkUpdate( $hash, 'state', 'no shutters found' );
@ -1902,16 +1902,16 @@ sub EventProcessingBrightness {
); );
return EventProcessingShadingBrightness( $hash, $shuttersDev, $events ) return EventProcessingShadingBrightness( $hash, $shuttersDev, $events )
unless ( if (
( (
$shutters->getDown eq 'brightness' $shutters->getDown ne 'brightness'
|| $shutters->getUp eq 'brightness' && $shutters->getUp ne 'brightness'
) )
|| ( || (
( (
( (
( (
int( gettimeofday() / 86400 ) != int( int( gettimeofday() / 86400 ) == int(
computeAlignTime( '24:00', computeAlignTime( '24:00',
$shutters->getTimeUpEarly ) / 86400 $shutters->getTimeUpEarly ) / 86400
) )
@ -1922,26 +1922,26 @@ sub EventProcessingBrightness {
) )
) )
|| ( || (
int( gettimeofday() / 86400 ) != int( int( gettimeofday() / 86400 ) == int(
computeAlignTime( '24:00', computeAlignTime( '24:00',
$shutters->getTimeUpWeHoliday ) / 86400 $shutters->getTimeUpWeHoliday ) / 86400
) )
&& IsWe() && IsWe()
&& $ascDev->getSunriseTimeWeHoliday eq 'on' && $ascDev->getSunriseTimeWeHoliday eq 'on'
&& $shutters->getTimeUpWeHoliday eq '01:25' && $shutters->getTimeUpWeHoliday ne '01:25'
) )
) )
&& int( gettimeofday() / 86400 ) == int( && int( gettimeofday() / 86400 ) != int(
computeAlignTime( '24:00', $shutters->getTimeUpLate ) / computeAlignTime( '24:00', $shutters->getTimeUpLate ) /
86400 86400
) )
) )
|| ( || (
int( gettimeofday() / 86400 ) != int( int( gettimeofday() / 86400 ) == int(
computeAlignTime( '24:00', $shutters->getTimeDownEarly ) / computeAlignTime( '24:00', $shutters->getTimeDownEarly ) /
86400 86400
) )
&& int( gettimeofday() / 86400 ) == int( && int( gettimeofday() / 86400 ) != int(
computeAlignTime( '24:00', $shutters->getTimeDownLate ) / computeAlignTime( '24:00', $shutters->getTimeDownLate ) /
86400 86400
) )
@ -2089,8 +2089,8 @@ sub EventProcessingBrightness {
$shutters->setLastDrive('brightness privacy day open'); $shutters->setLastDrive('brightness privacy day open');
ShuttersCommandSet( $hash, $shuttersDev, ShuttersCommandSet( $hash, $shuttersDev,
$shutters->getPrivacyUpPos ) $shutters->getPrivacyUpPos )
unless ( if (
!$shutters->getQueryShuttersPos( $shutters->getQueryShuttersPos(
$shutters->getPrivacyUpPos $shutters->getPrivacyUpPos
) )
); );
@ -2243,7 +2243,7 @@ sub EventProcessingBrightness {
} }
else { else {
EventProcessingShadingBrightness( $hash, $shuttersDev, $events ) EventProcessingShadingBrightness( $hash, $shuttersDev, $events )
unless ( $shutters->getPrivacyDownStatus == 2 ); if ( $shutters->getPrivacyDownStatus != 2 );
ASC_Debug( 'EventProcessingBrightness: ' ASC_Debug( 'EventProcessingBrightness: '
. $shutters->getShuttersDev . $shutters->getShuttersDev
@ -2253,7 +2253,7 @@ sub EventProcessingBrightness {
} }
else { else {
EventProcessingShadingBrightness( $hash, $shuttersDev, $events ) EventProcessingShadingBrightness( $hash, $shuttersDev, $events )
unless ( $shutters->getPrivacyDownStatus == 2 ); if ( $shutters->getPrivacyDownStatus != 2 );
ASC_Debug( 'EventProcessingBrightness: ' ASC_Debug( 'EventProcessingBrightness: '
. $shutters->getShuttersDev . $shutters->getShuttersDev
@ -3102,7 +3102,7 @@ sub CreateSunRiseSetShuttersTimer {
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 Privacy Timer aktiviert wurde, 2 beudet das er im privacy 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
$shutters->setPrivacyUpStatus(0) $shutters->setPrivacyUpStatus(0)
if ( !defined( $shutters->getPrivacyUpStatus ) ); if ( !defined( $shutters->getPrivacyUpStatus ) );
@ -3355,8 +3355,8 @@ sub SunSetShuttersAfterTimerFn {
$shutters->setLastDrive('timer privacy night close'); $shutters->setLastDrive('timer privacy night close');
ShuttersCommandSet( $hash, $shuttersDev, ShuttersCommandSet( $hash, $shuttersDev,
$shutters->getPrivacyDownPos ) $shutters->getPrivacyDownPos )
unless ( if (
$shutters->getQueryShuttersPos( $shutters->getPrivacyDownPos ) !$shutters->getQueryShuttersPos( $shutters->getPrivacyDownPos )
); );
} }
else { else {
@ -3378,7 +3378,7 @@ sub SunSetShuttersAfterTimerFn {
} }
} }
unless ( $shutters->getPrivacyDownStatus == 2 ) { if ( $shutters->getPrivacyDownStatus != 2 ) {
$shutters->setSunrise(0); $shutters->setSunrise(0);
$shutters->setSunset(1); $shutters->setSunset(1);
} }
@ -3456,8 +3456,8 @@ sub SunRiseShuttersAfterTimerFn {
$shutters->setLastDrive('timer privacy day open'); $shutters->setLastDrive('timer privacy day open');
ShuttersCommandSet( $hash, $shuttersDev, ShuttersCommandSet( $hash, $shuttersDev,
$shutters->getPrivacyUpPos ) $shutters->getPrivacyUpPos )
unless ( if (
!$shutters->getQueryShuttersPos( $shutters->getQueryShuttersPos(
$shutters->getPrivacyUpPos $shutters->getPrivacyUpPos
) )
); );
@ -3482,7 +3482,7 @@ sub SunRiseShuttersAfterTimerFn {
} }
} }
unless ( $shutters->getPrivacyUpStatus == 2 ) { if ( $shutters->getPrivacyUpStatus != 2 ) {
$shutters->setSunrise(1); $shutters->setSunrise(1);
$shutters->setSunset(0); $shutters->setSunset(0);
} }
@ -4559,11 +4559,11 @@ sub _SetCmdFn {
my $idleDetection = $shutters->getIdleDetection; my $idleDetection = $shutters->getIdleDetection;
return return
unless ( if (
$shutters->getASCenable eq 'on' $shutters->getASCenable eq 'off'
&& $ascDev->getASCenable eq 'on' && $ascDev->getASCenable eq 'off'
&& ( $idleDetection =~ m{^$idleDetectionValue$}xms && ( $idleDetection !~ m{^$idleDetectionValue$}xms
|| $idleDetection eq 'none' ) || $idleDetection ne 'none' )
); );
if ( $shutters->getStatus != $posValue ) { if ( $shutters->getStatus != $posValue ) {
@ -4721,7 +4721,7 @@ sub _setShuttersLastDriveDelayed {
sub ASC_Debug { sub ASC_Debug {
return return
unless ( AttrVal( $ascDev->getName, 'ASC_debug', 0 ) ); if ( !AttrVal( $ascDev->getName, 'ASC_debug', 0 ) );
my $debugMsg = shift; my $debugMsg = shift;
my $debugTimestamp = strftime( "%Y.%m.%e %T", localtime(time) ); my $debugTimestamp = strftime( "%Y.%m.%e %T", localtime(time) );
@ -4773,7 +4773,7 @@ sub PrivacyUpTime {
strftime( "%e.%m.%Y - %H:%M", localtime($privacyUpUnixtime) ), 1 ); strftime( "%e.%m.%Y - %H:%M", localtime($privacyUpUnixtime) ), 1 );
## Setzt den PrivacyUp Modus für die Sichtschutzfahrt auf den Status 1 ## Setzt den PrivacyUp Modus für die Sichtschutzfahrt auf den Status 1
## und gibt die Unixtime für die nächste Fahrt korrekt zurück ## und gibt die Unixtime für die nächste Fahrt korrekt zurück
unless ( $shutters->getPrivacyUpStatus == 2 ) { if ( $shutters->getPrivacyUpStatus != 2 ) {
$shutters->setPrivacyUpStatus(1); $shutters->setPrivacyUpStatus(1);
$shuttersSunriseUnixtime = $privacyUpUnixtime; $shuttersSunriseUnixtime = $privacyUpUnixtime;
} }
@ -4817,7 +4817,7 @@ sub PrivacyDownTime {
1 ); 1 );
## Setzt den PrivacyDown Modus für die Sichtschutzfahrt auf den Status 1 ## Setzt den PrivacyDown Modus für die Sichtschutzfahrt auf den Status 1
## und gibt die Unixtime für die nächste Fahrt korrekt zurück ## und gibt die Unixtime für die nächste Fahrt korrekt zurück
unless ( $shutters->getPrivacyDownStatus == 2 ) { if ( $shutters->getPrivacyDownStatus != 2 ) {
$shutters->setPrivacyDownStatus(1); $shutters->setPrivacyDownStatus(1);
$shuttersSunsetUnixtime = $privacyDownUnixtime; $shuttersSunsetUnixtime = $privacyDownUnixtime;
} }