diff --git a/fhem/CHANGED b/fhem/CHANGED index 12ecfe279..bf6667716 100644 --- a/fhem/CHANGED +++ b/fhem/CHANGED @@ -1,5 +1,6 @@ # Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # Do not insert empty lines here, update check depends on it. + - bugfix: 73_AutoShuttersControl: fix setter Readings in ShuttersControl.pm - change: 73_AutoShuttersControl: change Attribut ASC_advDate to ASC_advStartDate. Add Attribut ASC_advEndDate - change: 50_Signalbot: new favorite feature and bug fixes diff --git a/fhem/FHEM/73_AutoShuttersControl.pm b/fhem/FHEM/73_AutoShuttersControl.pm index f6840ebec..2a7c95048 100644 --- a/fhem/FHEM/73_AutoShuttersControl.pm +++ b/fhem/FHEM/73_AutoShuttersControl.pm @@ -1462,7 +1462,7 @@ __END__ ], "release_status": "stable", "license": "GPL_2", - "version": "v0.10.20", + "version": "v0.10.21", "author": [ "Marko Oldenburg " ], diff --git a/fhem/lib/FHEM/Automation/ShuttersControl.pm b/fhem/lib/FHEM/Automation/ShuttersControl.pm index a887296c8..5cca303bb 100644 --- a/fhem/lib/FHEM/Automation/ShuttersControl.pm +++ b/fhem/lib/FHEM/Automation/ShuttersControl.pm @@ -519,40 +519,38 @@ sub Set { my $cmd = shift @$aArg // return qq{"set $name" needs at least one argument}; - $cmd = lc($cmd); - given ($cmd) { - when ('renewalltimer') { + when ('renewAllTimer') { return "usage: $cmd" if ( scalar( @{$aArg} ) != 0 ); RenewSunRiseSetShuttersTimer($hash); } - when ('renewtimer') { + when ('renewTimer') { return "usage: $cmd" if ( scalar( @{$aArg} ) > 1 ); CreateSunRiseSetShuttersTimer( $hash, $aArg->[0] ); } - when ('scanforshutters') { + when ('scanForShutters') { return "usage: $cmd" if ( scalar( @{$aArg} ) != 0 ); ShuttersDeviceScan($hash); } - when ('createnewnotifydev') { + when ('createNewNotifyDev') { return "usage: $cmd" if ( scalar( @{$aArg} ) != 0 ); CreateNewNotifyDev($hash); } - when ('partymode') { + when ('partyMode') { return "usage: $cmd" if ( scalar( @{$aArg} ) > 1 ); ::readingsSingleUpdate( $hash, $cmd, $aArg->[0], 1 ) if ( $aArg->[0] ne ::ReadingsVal( $name, 'partyMode', 0 ) ); } - when ('hardlockout') { + when ('hardLockOut') { return "usage: $cmd" if ( scalar( @{$aArg} ) > 1 ); ::readingsSingleUpdate( $hash, $cmd, $aArg->[0], 1 ); HardewareBlockForShutters( $hash, $aArg->[0] ); } - when ('sunrisetimeweholiday') { + when ('sunriseTimeWeHoliday') { return "usage: $cmd" if ( scalar( @{$aArg} ) > 1 ); ::readingsSingleUpdate( $hash, $cmd, $aArg->[0], 1 ); } - when ('controlshading') { + when ('controlShading') { return "usage: $cmd" if ( scalar( @{$aArg} ) > 1 ); my $response = CheckASC_ConditionsForShadingFn( $hash, $aArg->[0] ); @@ -568,19 +566,19 @@ sub Set { 1 ); } - when ('selfdefense') { + when ('selfDefense') { return "usage: $cmd" if ( scalar( @{$aArg} ) > 1 ); ::readingsSingleUpdate( $hash, $cmd, $aArg->[0], 1 ); } - when ('ascenable') { + when ('ascEnable') { return "usage: $cmd" if ( scalar( @{$aArg} ) > 1 ); ::readingsSingleUpdate( $hash, $cmd, $aArg->[0], 1 ); } - when ('advdrivedown') { + when ('advDriveDown') { return "usage: $cmd" if ( scalar( @{$aArg} ) != 0 ); EventProcessingAdvShuttersClose($hash); } - when ('shutterascenabletoggle') { + when ('shutterASCenableToggle') { return "usage: $cmd" if ( scalar( @{$aArg} ) > 1 ); ::readingsSingleUpdate( $defs{ $aArg->[0] },