diff --git a/73_AutoShuttersControl.pm b/73_AutoShuttersControl.pm index cafd015..e78827b 100644 --- a/73_AutoShuttersControl.pm +++ b/73_AutoShuttersControl.pm @@ -338,6 +338,8 @@ sub Notify($$) { if ( $ascDev->getSelfDefense eq 'none' ); readingsSingleUpdate( $hash, 'controlShading', 'off', 0 ) if ( $ascDev->getAutoShuttersControlShading eq 'none' ); + readingsSingleUpdate( $hash, 'ascEnable', 'on', 0 ) + if ( $ascDev->getASCenable eq '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 ShuttersDeviceScan($hash) @@ -504,20 +506,41 @@ sub Set($$@) { return "usage: $cmd" if ( @args > 1 ); readingsSingleUpdate( $hash, $cmd, join( ' ', @args ), 1 ); } + elsif ( lc $cmd eq 'ascenable' ) { + return "usage: $cmd" if ( @args > 1 ); + readingsSingleUpdate( $hash, $cmd, join( ' ', @args ), 1 ); + } + elsif ( lc $cmd eq 'shutterascenabletoggle' ) { + return "usage: $cmd" if ( @args > 1 ); + readingsSingleUpdate( + $defs{ $args[0] }, + 'ASC_Enable', + ( + ReadingsVal( $args[0], 'ASC_Enable', 'off' ) eq 'on' + ? 'off' + : 'on' + ), + 1 + ); + } elsif ( lc $cmd eq 'wiggle' ) { return "usage: $cmd" if ( @args > 1 ); ( $args[0] eq 'all' ? wiggleAll($hash) : wiggle( $hash, $args[0] ) ); } else { - my $list = "scanForShutters:noArg"; + my $list = 'scanForShutters:noArg'; $list .= -" renewSetSunriseSunsetTimer:noArg partyMode:on,off hardLockOut:on,off sunriseTimeWeHoliday:on,off controlShading:on,off selfDefense:on,off wiggle:all," +' renewSetSunriseSunsetTimer:noArg partyMode:on,off hardLockOut:on,off sunriseTimeWeHoliday:on,off controlShading:on,off selfDefense:on,off ascEnable:on,off wiggle:all,' . join( ',', @{ $hash->{helper}{shuttersList} } ) if ( ReadingsVal( $name, 'userAttrList', 'none' ) eq 'rolled out' ); - $list .= " createNewNotifyDev:noArg" + $list .= ' createNewNotifyDev:noArg' if ( ReadingsVal( $name, 'userAttrList', 'none' ) eq 'rolled out' and AttrVal( $name, 'ASC_expert', 0 ) == 1 ); + $list .= + ' shutterASCenableToggle:' + . join( ',', @{ $hash->{helper}{shuttersList} } ) + if ( ReadingsVal( $name, 'userAttrList', 'none' ) eq 'rolled out' ); return "Unknown argument $cmd,choose one of $list"; } @@ -596,6 +619,8 @@ sub ShuttersDeviceScan($) { $shutters->setShadingStatus( ( $shutters->getStatus != $shutters->getShadingPos ? 'out' : 'in' ) ); + readingsSingleUpdate( $defs{$_}, 'ASC_Enable', 'on', 0 ) + if ( ReadingsVal( $_, 'ASC_Enable', 'none' ) eq 'none' ); } ### Temporär und muss später entfernt werden @@ -1356,10 +1381,12 @@ sub EventProcessingBrightness($@) { computeAlignTime( '24:00', $shutters->getTimeUpEarly ) / 86400 ) - and ( not IsWe() - or (IsWe() - and $ascDev->getSunriseTimeWeHoliday eq 'off') - ) ) + and ( + not IsWe() + or ( IsWe() + and $ascDev->getSunriseTimeWeHoliday eq 'off' ) + ) + ) or ( int( gettimeofday() / 86400 ) != int( computeAlignTime( '24:00', @@ -1435,10 +1462,12 @@ sub EventProcessingBrightness($@) { computeAlignTime( '24:00', $shutters->getTimeUpEarly ) / 86400 ) - and ( not IsWe() - or (IsWe() - and $ascDev->getSunriseTimeWeHoliday eq 'off') - ) ) + and ( + not IsWe() + or ( IsWe() + and $ascDev->getSunriseTimeWeHoliday eq 'off' ) + ) + ) or ( int( gettimeofday() / 86400 ) != int( computeAlignTime( '24:00', @@ -2096,12 +2125,10 @@ sub ShuttersCommandSet($$$) { or $shutters->getComfortOpenPos != $posValue ) and $shutters->getVentilateOpen eq 'on' ) - or ( - CheckIfShuttersWindowRecOpen($shuttersDev) == 2 + or ( CheckIfShuttersWindowRecOpen($shuttersDev) == 2 and $shutters->getSubTyp eq 'threestate' and $ascDev->getAutoShuttersControlComfort eq 'on' - and $shutters->getVentilateOpen eq 'off' - ) + and $shutters->getVentilateOpen eq 'off' ) or ( CheckIfShuttersWindowRecOpen($shuttersDev) == 2 and ( $shutters->getLockOut eq 'soft' @@ -2341,7 +2368,7 @@ sub SunSetShuttersAfterTimerFn($) { $shutters->setSunset(1); $shutters->setSunrise(0); - + my $posValue; if ( CheckIfShuttersWindowRecOpen($shuttersDev) == 0 or $shutters->getVentilateOpen eq 'off' ) @@ -2391,7 +2418,7 @@ sub SunRiseShuttersAfterTimerFn($) { my $hash = $funcHash->{hash}; my $shuttersDev = $funcHash->{shuttersdevice}; $shutters->setShuttersDev($shuttersDev); - + $shutters->setSunset(0); $shutters->setSunrise(1); @@ -3286,7 +3313,8 @@ sub SetCmdFn($) { if ( defined( $h->{lastDrive} ) ); return - unless ( $shutters->getASC != 0 ); + unless ( $shutters->getASCenable eq 'on' + and $ascDev->getASCenable eq 'on' ); if ( $shutters->getStatus != $posValue ) { $shutters->setLastPos( $shutters->getStatus ); @@ -3857,13 +3885,6 @@ BEGIN { ); } -sub getASC { - ## Dient der Erkennung des Rolladen, 0 bedeutet soll nicht erkannt werden beim ersten Scan und soll nicht bediehnt werden wenn Events kommen - my $self = shift; - - return AttrVal( $self->{shuttersDev}, 'ASC', 0 ); -} - sub getAntiFreezePos { my $self = shift; @@ -4391,6 +4412,12 @@ sub getDelayCmd { return $self->{ $self->{shuttersDev} }{delayCmd}; } +sub getASCenable { + my $self = shift; + + return ReadingsVal( $self->{shuttersDev}, 'ASC_Enable', 'on' ); +} + ## Klasse Fenster (Window) und die Subklassen Attr und Readings ## package ASC_Window; our @ISA = qw(ASC_Window::Attr ASC_Window::Readings); @@ -4658,6 +4685,13 @@ sub getElevation { return $elevation; } +sub getASCenable { + my $self = shift; + my $name = $self->{name}; + + return ReadingsVal( $name, 'ascEnable', 'none' ); +} + ## Subklasse Attr ## package ASC_Dev::Attr; @@ -5197,7 +5231,9 @@ sub getblockAscDrivesAfterManual {
  • ..._lastPosValue - letzte Position des Rollladen
  • ..._lastDelayPosValue - letzter abgesetzter Fahrbefehl, welcher beim nächsten zulässigen Event ausgeführt wird.
  • partyMode - on/off - aktiviert den globalen Partymodus: Alle Rollladen Devices, welche das Attribut ASC_Partymode auf on gestellt haben, werden nicht mehr gesteuert. Der letzte Schaltbefehl, der durch ein Fensterevent oder Bewohnerstatus an die Rollläden gesendet wurde, wird beim off setzen durch set ASC-Device partyMode off ausgeführt
    • -
  • lockOut - on/off - für das Aktivieren des Aussperrschutzes gemäß des entsprechenden Attributs ASC_LockOut im jeweiligen Rollladen. (siehe Beschreibung bei den Attributen für die Rollladendevices)
    • +
  • ascEnable - on/off, globale ASC Steuerung bei den Rolllos aktiv oder inaktiv +
  • controlShading - on/off, globale Beschattungsfunktion aktiv oder inaktiv +
  • hardLockOut - on/off - für das Aktivieren des Aussperrschutzes gemäß des entsprechenden Attributs ASC_LockOut im jeweiligen Rollladen. (siehe Beschreibung bei den Attributen für die Rollladendevices)
  • room_... - Auflistung aller Rollläden, welche in den jeweiligen Rämen gefunden wurde,Bsp.: room_Schlafzimmer,Terrasse
  • state - Status des Devices: active,enabled,disabled oder Info zur letzten Fahrt
  • sunriseTimeWeHoliday - on/off - wird das Rollladen Device Attribut ASC_Time_Up_WE_Holiday beachtet oder nicht
    • @@ -5205,6 +5241,7 @@ sub getblockAscDrivesAfterManual {
    In den Rollläden Devices