change package code in mutiple files

lib/FHEM/Automation/ShuttersControl/Dev.pm

@@ -0,0 +1,79 @@
+###############################################################################
+#
+# Developed with Kate
+#
+#  (c) 2018-2020 Copyright: Marko Oldenburg (leongaultier at gmail dot com)
+#  All rights reserved
+#
+#   Special thanks goes to:
+#       - Bernd (Cluni) this module is based on the logic of his script "Rollladensteuerung für HM/ROLLO inkl. Abschattung und Komfortfunktionen in Perl" (https://forum.fhem.de/index.php/topic,73964.0.html)
+#       - Beta-User for many tests, many suggestions and good discussions
+#       - pc1246 write english commandref
+#       - FunkOdyssey commandref style
+#       - sledge fix many typo in commandref
+#       - many User that use with modul and report bugs
+#       - Christoph (christoph.kaiser.in) Patch that expand RegEx for Window Events
+#       - Julian (Loredo) expand Residents Events for new Residents functions
+#       - Christoph (Christoph Morrison) for fix Commandref, many suggestions and good discussions
+#
+#
+#  This script is free software; you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License as published by
+#  the Free Software Foundation; either version 2 of the License,or
+#  any later version.
+#
+#  The GNU General Public License can be found at
+#  http://www.gnu.org/copyleft/gpl.html.
+#  A copy is found in the textfile GPL.txt and important notices to the license
+#  from the author is found in LICENSE.txt distributed with these scripts.
+#
+#  This script is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#
+#
+# $Id$
+#
+###############################################################################
+
+## Klasse ASC_Dev plus Subklassen ASC_Attr_Dev und ASC_Readings_Dev##
+package FHEM::Automation::ShuttersControl::Dev;
+our @ISA = qw(FHEM::Automation::ShuttersControl::Dev::Readings FHEM::Automation::ShuttersControl::Dev::Attr);
+
+use strict;
+use warnings;
+use utf8;
+
+sub new {
+    my $class = shift;
+
+    my $self = { name => undef, };
+
+    bless $self, $class;
+    return $self;
+}
+
+sub setName {
+    my $self = shift;
+    my $name = shift;
+
+    $self->{name} = $name if ( defined($name) );
+    return $self->{name};
+}
+
+sub setDefault {
+    my $self       = shift;
+    my $defaultarg = shift;
+
+    $self->{defaultarg} = $defaultarg if ( defined($defaultarg) );
+    return $self->{defaultarg};
+}
+
+sub getName {
+    my $self = shift;
+    return $self->{name};
+}
+
+
+1;

lib/FHEM/Automation/ShuttersControl/Dev/Attr.pm

@@ -0,0 +1,388 @@
+###############################################################################
+#
+# Developed with Kate
+#
+#  (c) 2018-2020 Copyright: Marko Oldenburg (leongaultier at gmail dot com)
+#  All rights reserved
+#
+#   Special thanks goes to:
+#       - Bernd (Cluni) this module is based on the logic of his script "Rollladensteuerung für HM/ROLLO inkl. Abschattung und Komfortfunktionen in Perl" (https://forum.fhem.de/index.php/topic,73964.0.html)
+#       - Beta-User for many tests, many suggestions and good discussions
+#       - pc1246 write english commandref
+#       - FunkOdyssey commandref style
+#       - sledge fix many typo in commandref
+#       - many User that use with modul and report bugs
+#       - Christoph (christoph.kaiser.in) Patch that expand RegEx for Window Events
+#       - Julian (Loredo) expand Residents Events for new Residents functions
+#       - Christoph (Christoph Morrison) for fix Commandref, many suggestions and good discussions
+#
+#
+#  This script is free software; you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License as published by
+#  the Free Software Foundation; either version 2 of the License,or
+#  any later version.
+#
+#  The GNU General Public License can be found at
+#  http://www.gnu.org/copyleft/gpl.html.
+#  A copy is found in the textfile GPL.txt and important notices to the license
+#  from the author is found in LICENSE.txt distributed with these scripts.
+#
+#  This script is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#
+#
+# $Id$
+#
+###############################################################################
+
+## Subklasse Attr ##
+package ASC_Dev::Attr;
+
+use strict;
+use warnings;
+use utf8;
+
+use GPUtils qw(GP_Import);
+
+## Import der FHEM Funktionen
+BEGIN {
+    GP_Import(
+        qw(
+          AttrVal
+          gettimeofday)
+    );
+}
+
+sub getShuttersOffset {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return AttrVal( $name, 'ASC_shuttersDriveDelay', -1 );
+}
+
+sub getBrightnessMinVal {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return $self->{ASC_brightness}->{triggermin}
+      if ( exists( $self->{ASC_brightness}->{LASTGETTIME} )
+        && ( gettimeofday() - $self->{ASC_brightness}->{LASTGETTIME} ) < 2 );
+    $ascDev->getBrightnessMaxVal;
+
+    return $self->{ASC_brightness}->{triggermin};
+}
+
+sub getBrightnessMaxVal {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return $self->{ASC_brightness}->{triggermax}
+      if ( exists( $self->{ASC_brightness}->{LASTGETTIME} )
+        && ( gettimeofday() - $self->{ASC_brightness}->{LASTGETTIME} ) < 2 );
+    $self->{ASC_brightness}->{LASTGETTIME} = int( gettimeofday() );
+
+    my ( $triggermax, $triggermin ) =
+      FHEM::Automation::ShuttersControl::GetAttrValues( $name,
+        'ASC_brightnessDriveUpDown', '800:500' );
+
+    ## erwartetes Ergebnis
+    # max:min
+
+    $self->{ASC_brightness}->{triggermin} = $triggermin;
+    $self->{ASC_brightness}->{triggermax} = $triggermax;
+
+    return $self->{ASC_brightness}->{triggermax};
+}
+
+sub _getTwilightDevice {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return AttrVal( $name, 'ASC_twilightDevice', 'none' );
+}
+
+sub getAutoAstroModeEvening {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return AttrVal( $name, 'ASC_autoAstroModeEvening', 'REAL' );
+}
+
+sub getAutoAstroModeEveningHorizon {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return AttrVal( $name, 'ASC_autoAstroModeEveningHorizon', 0 );
+}
+
+sub getAutoAstroModeMorning {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return AttrVal( $name, 'ASC_autoAstroModeMorning', 'REAL' );
+}
+
+sub getAutoAstroModeMorningHorizon {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return AttrVal( $name, 'ASC_autoAstroModeMorningHorizon', 0 );
+}
+
+sub getAutoShuttersControlMorning {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return AttrVal( $name, 'ASC_autoShuttersControlMorning', 'on' );
+}
+
+sub getAutoShuttersControlEvening {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return AttrVal( $name, 'ASC_autoShuttersControlEvening', 'on' );
+}
+
+sub getAutoShuttersControlComfort {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return AttrVal( $name, 'ASC_autoShuttersControlComfort', 'off' );
+}
+
+sub getFreezeTemp {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return AttrVal( $name, 'ASC_freezeTemp', 3 );
+}
+
+sub getSlatDriveCmdInverse {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return AttrVal( $name, 'ASC_slatDriveCmdInverse', 0 );
+}
+
+sub _getTempSensor {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return $self->{ASC_tempSensor}->{device}
+      if ( exists( $self->{ASC_tempSensor}->{LASTGETTIME} )
+        && ( gettimeofday() - $self->{ASC_tempSensor}->{LASTGETTIME} ) < 2 );
+    $self->{ASC_tempSensor}->{LASTGETTIME} = int( gettimeofday() );
+    my ( $device, $reading ) =
+      FHEM::Automation::ShuttersControl::GetAttrValues( $name, 'ASC_tempSensor',
+        'none' );
+
+    ## erwartetes Ergebnis
+    # DEVICE:READING
+    $self->{ASC_tempSensor}->{device} = $device;
+    $self->{ASC_tempSensor}->{reading} =
+      ( $reading ne 'none' ? $reading : 'temperature' );
+
+    return $self->{ASC_tempSensor}->{device};
+}
+
+sub getTempSensorReading {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return $self->{ASC_tempSensor}->{reading}
+      if ( exists( $self->{ASC_tempSensor}->{LASTGETTIME} )
+        && ( gettimeofday() - $self->{ASC_tempSensor}->{LASTGETTIME} ) < 2 );
+    $ascDev->_getTempSensor;
+    return $self->{ASC_tempSensor}->{reading};
+}
+
+sub _getResidentsDev {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return $self->{ASC_residentsDev}->{device}
+      if ( exists( $self->{ASC_residentsDev}->{LASTGETTIME} )
+        && ( gettimeofday() - $self->{ASC_residentsDev}->{LASTGETTIME} ) < 2 );
+    $self->{ASC_residentsDev}->{LASTGETTIME} = int( gettimeofday() );
+    my ( $device, $reading ) =
+      FHEM::Automation::ShuttersControl::GetAttrValues( $name, 'ASC_residentsDev',
+        'none' );
+
+    $self->{ASC_residentsDev}->{device} = $device;
+    $self->{ASC_residentsDev}->{reading} =
+      ( $reading ne 'none' ? $reading : 'state' );
+
+    return $self->{ASC_residentsDev}->{device};
+}
+
+sub getResidentsReading {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return $self->{ASC_residentsDev}->{reading}
+      if ( exists( $self->{ASC_residentsDev}->{LASTGETTIME} )
+        && ( gettimeofday() - $self->{ASC_residentsDev}->{LASTGETTIME} ) < 2 );
+    $ascDev->_getResidentsDev;
+    return $self->{ASC_residentsDev}->{reading};
+}
+
+sub _getRainSensor {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return $self->{ASC_rainSensor}->{device}
+      if ( exists( $self->{ASC_rainSensor}->{LASTGETTIME} )
+        && ( gettimeofday() - $self->{ASC_rainSensor}->{LASTGETTIME} ) < 2 );
+    $self->{ASC_rainSensor}->{LASTGETTIME} = int( gettimeofday() );
+    my ( $device, $reading, $max, $hyst, $pos, $wait ) =
+      FHEM::Automation::ShuttersControl::GetAttrValues( $name, 'ASC_rainSensor',
+        'none' );
+
+    ## erwartetes Ergebnis
+    # DEVICE:READING MAX:HYST
+
+    return $device if ( $device eq 'none' );
+    $self->{ASC_rainSensor}->{device} = $device;
+    $self->{ASC_rainSensor}->{reading} =
+      ( $reading ne 'none' ? $reading : 'state' );
+    $self->{ASC_rainSensor}->{triggermax} = ( $max ne 'none' ? $max : 1000 );
+    $self->{ASC_rainSensor}->{triggerhyst} = (
+          $hyst ne 'none'
+        ? $max - $hyst
+        : ( $self->{ASC_rainSensor}->{triggermax} * 0 )
+    );
+    $self->{ASC_rainSensor}->{shuttersClosedPos} =
+      ( $pos ne 'none' ? $pos : $shutters->getClosedPos );
+    $self->{ASC_rainSensor}->{waitingTime} =
+      ( $pos ne 'none' ? $wait : 900 );
+
+    return $self->{ASC_rainSensor}->{device};
+}
+
+sub getRainSensorReading {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return $self->{ASC_rainSensor}->{reading}
+      if ( exists( $self->{ASC_rainSensor}->{LASTGETTIME} )
+        && ( gettimeofday() - $self->{ASC_rainSensor}->{LASTGETTIME} ) < 2 );
+    $ascDev->_getRainSensor;
+    return $self->{ASC_rainSensor}->{reading};
+}
+
+sub getRainTriggerMax {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return $self->{ASC_rainSensor}->{triggermax}
+      if ( exists( $self->{ASC_rainSensor}->{LASTGETTIME} )
+        && ( gettimeofday() - $self->{ASC_rainSensor}->{LASTGETTIME} ) < 2 );
+    $ascDev->_getRainSensor;
+    return $self->{ASC_rainSensor}->{triggermax};
+}
+
+sub getRainTriggerMin {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return $self->{ASC_rainSensor}->{triggerhyst}
+      if ( exists( $self->{ASC_rainSensor}->{LASTGETTIME} )
+        && ( gettimeofday() - $self->{ASC_rainSensor}->{LASTGETTIME} ) < 2 );
+    $ascDev->_getRainSensor;
+    return $self->{ASC_rainSensor}->{triggerhyst};
+}
+
+sub getRainSensorShuttersClosedPos {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return $self->{ASC_rainSensor}->{shuttersClosedPos}
+      if ( exists( $self->{ASC_rainSensor}->{LASTGETTIME} )
+        && ( gettimeofday() - $self->{ASC_rainSensor}->{LASTGETTIME} ) < 2 );
+    $ascDev->_getRainSensor;
+    return $self->{ASC_rainSensor}->{shuttersClosedPos};
+}
+
+sub getRainWaitingTime {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return $self->{ASC_rainSensor}->{waitingTime}
+      if ( exists( $self->{ASC_rainSensor}->{LASTGETTIME} )
+        && ( gettimeofday() - $self->{ASC_rainSensor}->{LASTGETTIME} ) < 2 );
+    $ascDev->_getRainSensor;
+    return $self->{ASC_rainSensor}->{waitingTime};
+}
+
+sub _getWindSensor {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return $self->{ASC_windSensor}->{device}
+      if ( exists( $self->{ASC_windSensor}->{LASTGETTIME} )
+        && ( gettimeofday() - $self->{ASC_windSensor}->{LASTGETTIME} ) < 2 );
+    $self->{ASC_windSensor}->{LASTGETTIME} = int( gettimeofday() );
+    my ( $device, $reading ) =
+      FHEM::Automation::ShuttersControl::GetAttrValues( $name, 'ASC_windSensor',
+        'none' );
+
+    return $device if ( $device eq 'none' );
+    $self->{ASC_windSensor}->{device} = $device;
+    $self->{ASC_windSensor}->{reading} =
+      ( $reading ne 'none' ? $reading : 'wind' );
+
+    return $self->{ASC_windSensor}->{device};
+}
+
+sub getWindSensorReading {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return $self->{ASC_windSensor}->{reading}
+      if ( exists( $self->{ASC_windSensor}->{LASTGETTIME} )
+        && ( gettimeofday() - $self->{ASC_windSensor}->{LASTGETTIME} ) < 2 );
+    $ascDev->_getWindSensor;
+    return (
+        defined( $self->{ASC_windSensor}->{reading} )
+        ? $self->{ASC_windSensor}->{reading}
+        : 'wind'
+    );
+}
+
+sub getBlockAscDrivesAfterManual {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return AttrVal( $name, 'ASC_blockAscDrivesAfterManual', 0 );
+}
+
+
+1;

lib/FHEM/Automation/ShuttersControl/Dev/Readings.pm

@@ -0,0 +1,242 @@
+###############################################################################
+#
+# Developed with Kate
+#
+#  (c) 2018-2020 Copyright: Marko Oldenburg (leongaultier at gmail dot com)
+#  All rights reserved
+#
+#   Special thanks goes to:
+#       - Bernd (Cluni) this module is based on the logic of his script "Rollladensteuerung für HM/ROLLO inkl. Abschattung und Komfortfunktionen in Perl" (https://forum.fhem.de/index.php/topic,73964.0.html)
+#       - Beta-User for many tests, many suggestions and good discussions
+#       - pc1246 write english commandref
+#       - FunkOdyssey commandref style
+#       - sledge fix many typo in commandref
+#       - many User that use with modul and report bugs
+#       - Christoph (christoph.kaiser.in) Patch that expand RegEx for Window Events
+#       - Julian (Loredo) expand Residents Events for new Residents functions
+#       - Christoph (Christoph Morrison) for fix Commandref, many suggestions and good discussions
+#
+#
+#  This script is free software; you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License as published by
+#  the Free Software Foundation; either version 2 of the License,or
+#  any later version.
+#
+#  The GNU General Public License can be found at
+#  http://www.gnu.org/copyleft/gpl.html.
+#  A copy is found in the textfile GPL.txt and important notices to the license
+#  from the author is found in LICENSE.txt distributed with these scripts.
+#
+#  This script is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#
+#
+# $Id$
+#
+###############################################################################
+
+## Subklasse Readings ##
+package FHEM::Automation::ShuttersControl::Dev::Readings;
+
+use strict;
+use warnings;
+use utf8;
+
+use GPUtils qw(GP_Import);
+
+## Import der FHEM Funktionen
+BEGIN {
+    GP_Import(
+        qw(
+          readingsSingleUpdate
+          ReadingsVal
+          defs)
+    );
+}
+
+sub setDelayCmdReading {
+    my $self = shift;
+
+    my $name = $self->{name};
+    my $hash = $defs{$name};
+
+    readingsSingleUpdate( $hash,
+        $shutters->getShuttersDev . '_lastDelayPosValue',
+        $shutters->getDelayCmd, 1 );
+    return;
+}
+
+sub setStateReading {
+    my $self  = shift;
+    my $value = shift;
+
+    my $name = $self->{name};
+    my $hash = $defs{$name};
+
+    readingsSingleUpdate( $hash, 'state',
+        ( defined($value) ? $value : $shutters->getLastDrive ), 1 );
+    return;
+}
+
+sub setPosReading {
+    my $self = shift;
+
+    my $name = $self->{name};
+    my $hash = $defs{$name};
+
+    readingsSingleUpdate( $hash, $shutters->getShuttersDev . '_PosValue',
+        $shutters->getStatus, 1 );
+    return;
+}
+
+sub setLastPosReading {
+    my $self = shift;
+
+    my $name = $self->{name};
+    my $hash = $defs{$name};
+
+    readingsSingleUpdate( $hash, $shutters->getShuttersDev . '_lastPosValue',
+        $shutters->getLastPos, 1 );
+    return;
+}
+
+sub getPartyMode {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return ReadingsVal( $name, 'partyMode', 'off' );
+}
+
+sub getHardLockOut {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return ReadingsVal( $name, 'hardLockOut', 'none' );
+}
+
+sub getSunriseTimeWeHoliday {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return ReadingsVal( $name, 'sunriseTimeWeHoliday', 'none' );
+}
+
+sub getMonitoredDevs {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    $self->{monitoredDevs} = ReadingsVal( $name, '.monitoredDevs', 'none' );
+    return $self->{monitoredDevs};
+}
+
+sub getOutTemp {
+    my $self = shift;
+
+    return ReadingsVal( $ascDev->_getTempSensor, $ascDev->getTempSensorReading,
+        -100 );
+}
+
+sub getResidentsStatus {
+    my $self = shift;
+
+    my $val =
+      ReadingsVal( $ascDev->_getResidentsDev, $ascDev->getResidentsReading,
+        'none' );
+
+    if ( $val =~ m{^(?:(.+)_)?(.+)$}xms ) {
+        return ( $1, $2 ) if (wantarray);
+        return $1 && $1 eq 'pet' ? 'absent' : $2;
+    }
+    elsif (
+        ReadingsVal( $ascDev->_getResidentsDev, 'homealoneType', '-' ) eq
+        'PET' )
+    {
+        return ( 'pet', 'absent' ) if (wantarray);
+        return 'absent';
+    }
+    else {
+        return ( undef, $val ) if (wantarray);
+        return $val;
+    }
+}
+
+sub getResidentsLastStatus {
+    my $self = shift;
+
+    my $val = ReadingsVal( $ascDev->_getResidentsDev, 'lastState', 'none' );
+
+    if ( $val =~ m{^(?:(.+)_)?(.+)$}xms ) {
+        return ( $1, $2 ) if (wantarray);
+        return $1 && $1 eq 'pet' ? 'absent' : $2;
+    }
+    elsif (
+        ReadingsVal( $ascDev->_getResidentsDev, 'lastHomealoneType', '-' ) eq
+        'PET' )
+    {
+        return ( 'pet', 'absent' ) if (wantarray);
+        return 'absent';
+    }
+    else {
+        return ( undef, $val ) if (wantarray);
+        return $val;
+    }
+}
+
+sub getAutoShuttersControlShading {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return ReadingsVal( $name, 'controlShading', 'none' );
+}
+
+sub getSelfDefense {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return ReadingsVal( $name, 'selfDefense', 'none' );
+}
+
+sub getAzimuth {
+    my $self = shift;
+
+    my $azimuth;
+
+    $azimuth = ReadingsVal( $ascDev->_getTwilightDevice, 'azimuth', -1 )
+      if ( $defs{ $ascDev->_getTwilightDevice }->{TYPE} eq 'Twilight' );
+    $azimuth = ReadingsVal( $ascDev->_getTwilightDevice, 'SunAz', -1 )
+      if ( $defs{ $ascDev->_getTwilightDevice }->{TYPE} eq 'Astro' );
+
+    return $azimuth;
+}
+
+sub getElevation {
+    my $self = shift;
+
+    my $elevation;
+
+    $elevation = ReadingsVal( $ascDev->_getTwilightDevice, 'elevation', -1 )
+      if ( $defs{ $ascDev->_getTwilightDevice }->{TYPE} eq 'Twilight' );
+    $elevation = ReadingsVal( $ascDev->_getTwilightDevice, 'SunAlt', -1 )
+      if ( $defs{ $ascDev->_getTwilightDevice }->{TYPE} eq 'Astro' );
+
+    return $elevation;
+}
+
+sub getASCenable {
+    my $self = shift;
+
+    my $name = $self->{name};
+
+    return ReadingsVal( $name, 'ascEnable', 'none' );
+}
+
+
+1;

lib/FHEM/Automation/ShuttersControl/Roommate.pm

@@ -0,0 +1,76 @@
+###############################################################################
+#
+# Developed with Kate
+#
+#  (c) 2018-2020 Copyright: Marko Oldenburg (leongaultier at gmail dot com)
+#  All rights reserved
+#
+#   Special thanks goes to:
+#       - Bernd (Cluni) this module is based on the logic of his script "Rollladensteuerung für HM/ROLLO inkl. Abschattung und Komfortfunktionen in Perl" (https://forum.fhem.de/index.php/topic,73964.0.html)
+#       - Beta-User for many tests, many suggestions and good discussions
+#       - pc1246 write english commandref
+#       - FunkOdyssey commandref style
+#       - sledge fix many typo in commandref
+#       - many User that use with modul and report bugs
+#       - Christoph (christoph.kaiser.in) Patch that expand RegEx for Window Events
+#       - Julian (Loredo) expand Residents Events for new Residents functions
+#       - Christoph (Christoph Morrison) for fix Commandref, many suggestions and good discussions
+#
+#
+#  This script is free software; you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License as published by
+#  the Free Software Foundation; either version 2 of the License,or
+#  any later version.
+#
+#  The GNU General Public License can be found at
+#  http://www.gnu.org/copyleft/gpl.html.
+#  A copy is found in the textfile GPL.txt and important notices to the license
+#  from the author is found in LICENSE.txt distributed with these scripts.
+#
+#  This script is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#
+#
+# $Id$
+#
+###############################################################################
+
+## Klasse ASC_Roommate ##
+package FHEM::Automation::ShuttersControl::Roommate;
+
+use strict;
+use warnings;
+use utf8;
+
+use GPUtils qw(GP_Import);
+
+## Import der FHEM Funktionen
+BEGIN {
+    GP_Import(
+        qw(
+          ReadingsVal)
+    );
+}
+
+sub _getRoommateStatus {
+    my $self = shift;
+
+    my $roommate = $self->{roommate};
+
+    return ReadingsVal( $roommate, $shutters->getRoommatesReading, 'none' );
+}
+
+sub _getRoommateLastStatus {
+    my $self = shift;
+
+    my $roommate = $self->{roommate};
+    my $default  = $self->{defaultarg};
+
+    $default = 'none' if ( !defined($default) );
+    return ReadingsVal( $roommate, 'lastState', $default );
+}
+
+
+1;

lib/FHEM/Automation/ShuttersControl/Shutters.pm

@@ -0,0 +1,937 @@
+###############################################################################
+#
+# Developed with Kate
+#
+#  (c) 2018-2020 Copyright: Marko Oldenburg (leongaultier at gmail dot com)
+#  All rights reserved
+#
+#   Special thanks goes to:
+#       - Bernd (Cluni) this module is based on the logic of his script "Rollladensteuerung für HM/ROLLO inkl. Abschattung und Komfortfunktionen in Perl" (https://forum.fhem.de/index.php/topic,73964.0.html)
+#       - Beta-User for many tests, many suggestions and good discussions
+#       - pc1246 write english commandref
+#       - FunkOdyssey commandref style
+#       - sledge fix many typo in commandref
+#       - many User that use with modul and report bugs
+#       - Christoph (christoph.kaiser.in) Patch that expand RegEx for Window Events
+#       - Julian (Loredo) expand Residents Events for new Residents functions
+#       - Christoph (Christoph Morrison) for fix Commandref, many suggestions and good discussions
+#
+#
+#  This script is free software; you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License as published by
+#  the Free Software Foundation; either version 2 of the License,or
+#  any later version.
+#
+#  The GNU General Public License can be found at
+#  http://www.gnu.org/copyleft/gpl.html.
+#  A copy is found in the textfile GPL.txt and important notices to the license
+#  from the author is found in LICENSE.txt distributed with these scripts.
+#
+#  This script is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#
+#
+# $Id$
+#
+###############################################################################
+
+######################################
+######################################
+########## Begin der Klassendeklarierungen für OOP (Objektorientierte Programmierung) #########################
+## Klasse Rolläden (Shutters) und die Subklassen Attr und Readings ##
+## desweiteren wird noch die Klasse ASC_Roommate mit eingebunden
+
+package FHEM::Automation::ShuttersControl::Shutters;
+our @ISA =
+  qw(FHEM::Automation::ShuttersControl::Shutters::Readings FHEM::Automation::ShuttersControl::Shutters::Attr FHEM::Automation::ShuttersControl::Roommate FHEM::Automation::ShuttersControl::Window);
+
+use strict;
+use warnings;
+use utf8;
+
+use GPUtils qw(GP_Import);
+
+## Import der FHEM Funktionen
+BEGIN {
+    GP_Import(
+        qw(
+          defs
+          ReadingsVal
+          readingsSingleUpdate
+          gettimeofday
+          InternalTimer
+          CommandSet
+          Log3)
+    );
+}
+
+sub new {
+    my $class = shift;
+    my $self  = {
+        shuttersDev => undef,
+        defaultarg  => undef,
+        roommate    => undef,
+    };
+
+    bless $self, $class;
+    return $self;
+}
+
+sub setShuttersDev {
+    my $self        = shift;
+    my $shuttersDev = shift;
+
+    $self->{shuttersDev} = $shuttersDev if ( defined($shuttersDev) );
+    return $self->{shuttersDev};
+}
+
+sub getShuttersDev {
+    my $self = shift;
+
+    return $self->{shuttersDev};
+}
+
+sub setAttrUpdateChanges {
+    my ( $self, $attr, $value ) = @_;
+
+    $self->{ $self->{shuttersDev} }{AttrUpdateChanges}{$attr} = $value;
+    return;
+}
+
+sub setHardLockOut {
+    my $self = shift;
+    my $cmd  = shift;
+
+    if (   $shutters->getLockOut eq 'hard'
+        && $shutters->getLockOutCmd ne 'none' )
+    {
+        CommandSet( undef, $self->{shuttersDev} . ' inhibit ' . $cmd )
+          if ( $shutters->getLockOutCmd eq 'inhibit' );
+        CommandSet( undef,
+            $self->{shuttersDev} . ' '
+              . ( $cmd eq 'on' ? 'blocked' : 'unblocked' ) )
+          if ( $shutters->getLockOutCmd eq 'blocked' );
+        CommandSet( undef,
+            $self->{shuttersDev} . ' '
+              . ( $cmd eq 'on' ? 'protectionOn' : 'protectionOff' ) )
+          if ( $shutters->getLockOutCmd eq 'protected' );
+    }
+    return;
+}
+
+sub setNoDelay {
+    my $self    = shift;
+    my $noDelay = shift;
+
+    $self->{ $self->{shuttersDev} }{noDelay} = $noDelay;
+    return;
+}
+
+sub setSelfDefenseAbsent {
+    my ( $self, $timerrun, $active, $timerhash ) = @_;
+
+    $self->{ $self->{shuttersDev} }{selfDefenseAbsent}{timerrun}  = $timerrun;
+    $self->{ $self->{shuttersDev} }{selfDefenseAbsent}{active}    = $active;
+    $self->{ $self->{shuttersDev} }{selfDefenseAbsent}{timerhash} = $timerhash
+      if ( defined($timerhash) );
+    return;
+}
+
+sub setDriveCmd {
+    my $self     = shift;
+    my $posValue = shift;
+
+    my $offSet;
+    my $offSetStart;
+
+    if (
+        ( $shutters->getPartyMode eq 'on' && $ascDev->getPartyMode eq 'on' )
+        || (   $shutters->getAdv
+            && !$shutters->getQueryShuttersPos($posValue)
+            && !$shutters->getAdvDelay
+            && !$shutters->getExternalTriggerState
+            && !$shutters->getSelfDefenseState )
+      )
+    {
+        $shutters->setDelayCmd($posValue);
+        $ascDev->setDelayCmdReading;
+        $shutters->setNoDelay(0);
+        $shutters->setExternalTriggerState(0)
+          if ( $shutters->getExternalTriggerState );
+
+        FHEM::AutoShuttersControl::ASC_Debug( 'setDriveCmd: '
+              . $shutters->getShuttersDev
+              . ' - Die Fahrt wird zurückgestellt. Grund kann ein geöffnetes Fenster sein oder ein aktivierter Party Modus oder Weihnachtszeit'
+        );
+    }
+    else {
+        $shutters->setAdvDelay(0)
+          if ( $shutters->getAdvDelay );
+        $shutters->setDelayCmd('none')
+          if ( $shutters->getDelayCmd ne 'none' )
+          ; # setzt den Wert auf none da der Rolladen nun gesteuert werden kann.
+        $shutters->setExternalTriggerState(0)
+          if ( $shutters->getExternalTriggerState );
+
+        ### antifreeze Routine
+        if ( $shutters->getAntiFreezeStatus > 0 ) {
+            if ( $shutters->getAntiFreezeStatus != 1 ) {
+
+                $posValue = $shutters->getStatus;
+                $shutters->setLastDrive('no drive - antifreeze defense');
+                $shutters->setLastDriveReading;
+                $ascDev->setStateReading;
+            }
+            elsif ( $posValue == $shutters->getClosedPos ) {
+                $posValue = $shutters->getAntiFreezePos;
+                $shutters->setLastDrive(
+                    $shutters->getLastDrive . ' - antifreeze mode' );
+            }
+        }
+
+        my %h = (
+            shuttersDev => $self->{shuttersDev},
+            posValue    => $posValue,
+        );
+
+        $offSet = $shutters->getDelay        if ( $shutters->getDelay > -1 );
+        $offSet = $ascDev->getShuttersOffset if ( $shutters->getDelay < 0 );
+        $offSetStart = $shutters->getDelayStart;
+
+        if (   $shutters->getSelfDefenseAbsent
+            && !$shutters->getSelfDefenseAbsentTimerrun
+            && $shutters->getSelfDefenseMode ne 'off'
+            && $shutters->getSelfDefenseState
+            && $ascDev->getSelfDefense eq 'on' )
+        {
+            InternalTimer(
+                gettimeofday() + $shutters->getSelfDefenseAbsentDelay,
+                \&FHEM::Automation::ShuttersControl::_SetCmdFn, \%h );
+            $shutters->setSelfDefenseAbsent( 1, 0, \%h );
+        }
+        elsif ( $offSetStart > 0 && !$shutters->getNoDelay ) {
+            InternalTimer(
+                gettimeofday() +
+                  int( rand($offSet) + $shutters->getDelayStart ),
+                \&FHEM::Automation::ShuttersControl::_SetCmdFn, \%h
+            );
+
+            FHEM::AutoShuttersControl::ASC_Debug( 'FnSetDriveCmd: '
+                  . $shutters->getShuttersDev
+                  . ' - versetztes fahren' );
+        }
+        elsif ( $offSetStart < 1 || $shutters->getNoDelay ) {
+            FHEM::Automation::ShuttersControl::_SetCmdFn( \%h );
+            FHEM::AutoShuttersControl::ASC_Debug( 'FnSetDriveCmd: '
+                  . $shutters->getShuttersDev
+                  . ' - NICHT versetztes fahren' );
+        }
+
+        FHEM::AutoShuttersControl::ASC_Debug( 'FnSetDriveCmd: '
+              . $shutters->getShuttersDev
+              . ' - NoDelay: '
+              . ( $shutters->getNoDelay ? 'JA' : 'NEIN' ) );
+        $shutters->setNoDelay(0);
+    }
+
+    return;
+}
+
+sub setSunsetUnixTime {
+    my $self     = shift;
+    my $unixtime = shift;
+
+    $self->{ $self->{shuttersDev} }{sunsettime} = $unixtime;
+    return;
+}
+
+sub setSunset {
+    my $self  = shift;
+    my $value = shift;
+
+    $self->{ $self->{shuttersDev} }{sunset} = $value;
+    return;
+}
+
+sub setSunriseUnixTime {
+    my $self     = shift;
+    my $unixtime = shift;
+
+    $self->{ $self->{shuttersDev} }{sunrisetime} = $unixtime;
+    return;
+}
+
+sub setSunrise {
+    my $self  = shift;
+    my $value = shift;
+
+    $self->{ $self->{shuttersDev} }{sunrise} = $value;
+    return;
+}
+
+sub setDelayCmd {
+    my $self     = shift;
+    my $posValue = shift;
+
+    $self->{ $self->{shuttersDev} }{delayCmd} = $posValue;
+    return;
+}
+
+sub setLastDrive {
+    my $self      = shift;
+    my $lastDrive = shift;
+
+    $self->{ $self->{shuttersDev} }{lastDrive} = $lastDrive;
+    return;
+}
+
+sub setPosSetCmd {
+    my $self      = shift;
+    my $posSetCmd = shift;
+
+    $self->{ $self->{shuttersDev} }{posSetCmd} = $posSetCmd;
+    return;
+}
+
+sub setLastDriveReading {
+    my $self            = shift;
+    my $shuttersDevHash = $defs{ $self->{shuttersDev} };
+
+    my %h = (
+        devHash   => $shuttersDevHash,
+        lastDrive => $shutters->getLastDrive,
+    );
+
+    InternalTimer( gettimeofday() + 0.1,
+        \&FHEM::Automation::ShuttersControl::_setShuttersLastDriveDelayed, \%h );
+    return;
+}
+
+sub setLastPos {
+
+# letzte ermittelte Position bevor die Position des Rolladen über ASC geändert wurde
+    my $self     = shift;
+    my $position = shift;
+
+    $self->{ $self->{shuttersDev} }{lastPos}{VAL} = $position
+      if ( defined($position) );
+    $self->{ $self->{shuttersDev} }{lastPos}{TIME} = int( gettimeofday() )
+      if ( defined( $self->{ $self->{shuttersDev} }{lastPos} ) );
+    return;
+}
+
+sub setLastManPos {
+    my $self     = shift;
+    my $position = shift;
+
+    $self->{ $self->{shuttersDev} }{lastManPos}{VAL} = $position
+      if ( defined($position) );
+    $self->{ $self->{shuttersDev} }{lastManPos}{TIME} = int( gettimeofday() )
+      if ( defined( $self->{ $self->{shuttersDev} }{lastManPos} )
+        && defined( $self->{ $self->{shuttersDev} }{lastManPos}{TIME} ) );
+    $self->{ $self->{shuttersDev} }{lastManPos}{TIME} =
+      int( gettimeofday() ) - 86400
+      if ( defined( $self->{ $self->{shuttersDev} }{lastManPos} )
+        && !defined( $self->{ $self->{shuttersDev} }{lastManPos}{TIME} ) );
+    return;
+}
+
+sub setDefault {
+    my $self       = shift;
+    my $defaultarg = shift;
+
+    $self->{defaultarg} = $defaultarg if ( defined($defaultarg) );
+    return $self->{defaultarg};
+}
+
+sub setRoommate {
+    my $self     = shift;
+    my $roommate = shift;
+
+    $self->{roommate} = $roommate if ( defined($roommate) );
+    return $self->{roommate};
+}
+
+sub setInTimerFuncHash {
+    my $self            = shift;
+    my $inTimerFuncHash = shift;
+
+    $self->{ $self->{shuttersDev} }{inTimerFuncHash} = $inTimerFuncHash
+      if ( defined($inTimerFuncHash) );
+    return;
+}
+
+sub setPrivacyDownStatus {
+    my $self        = shift;
+    my $statusValue = shift;
+
+    $self->{ $self->{shuttersDev} }->{privacyDownStatus} = $statusValue;
+    return;
+}
+
+sub setPrivacyUpStatus {
+    my $self        = shift;
+    my $statusValue = shift;
+
+    $self->{ $self->{shuttersDev} }->{privacyUpStatus} = $statusValue;
+    return;
+}
+
+sub setSelfDefenseState {
+    my $self  = shift;
+    my $value = shift;
+
+    $self->{ $self->{shuttersDev} }{selfDefenseState} = $value;
+    return;
+}
+
+sub setAdvDelay {
+    my $self     = shift;
+    my $advDelay = shift;
+
+    $self->{ $self->{shuttersDev} }->{AdvDelay} = $advDelay;
+    return;
+}
+
+sub getHomemode {
+    my $self = shift;
+
+    my $homemode = $shutters->getRoommatesStatus;
+    $homemode = $ascDev->getResidentsStatus
+      if ( $homemode eq 'none' );
+    return $homemode;
+}
+
+sub getAdvDelay {
+    my $self = shift;
+
+    return (
+        defined( $self->{ $self->{shuttersDev} }->{AdvDelay} )
+        ? $self->{ $self->{shuttersDev} }->{AdvDelay}
+        : 0
+    );
+}
+
+sub getPrivacyDownStatus {
+    my $self = shift;
+
+    return (
+        defined( $self->{ $self->{shuttersDev} }->{privacyDownStatus} )
+        ? $self->{ $self->{shuttersDev} }->{privacyDownStatus}
+        : undef
+    );
+}
+
+sub getPrivacyUpStatus {
+    my $self = shift;
+
+    return (
+        defined( $self->{ $self->{shuttersDev} }->{privacyUpStatus} )
+        ? $self->{ $self->{shuttersDev} }->{privacyUpStatus}
+        : undef
+    );
+}
+
+sub getAttrUpdateChanges {
+    my $self = shift;
+    my $attr = shift;
+
+    return (
+        defined( $self->{ $self->{shuttersDev} }{AttrUpdateChanges} )
+          && defined(
+            $self->{ $self->{shuttersDev} }{AttrUpdateChanges}{$attr} )
+        ? $self->{ $self->{shuttersDev} }{AttrUpdateChanges}{$attr}
+        : 'none'
+    );
+}
+
+sub getIsDay {
+    my $self = shift;
+
+    return FHEM::AutoShuttersControl::_IsDay( $self->{shuttersDev} );
+}
+
+sub getAntiFreezeStatus {
+    use POSIX qw(strftime);
+    my $self = shift;
+    my $daytime = strftime( "%P", localtime() );
+    $daytime = (
+        defined($daytime) && $daytime
+        ? $daytime
+        : ( strftime( "%k", localtime() ) < 12 ? 'am' : 'pm' )
+    );
+    my $outTemp = $ascDev->getOutTemp;
+
+#     $outTemp = $shutters->getOutTemp if ( $shutters->getOutTemp != -100 );        sollte raus das der Sensor im Rollo auch ein Innentemperatursensor sein kann.
+
+    if (   $shutters->getAntiFreeze ne 'off'
+        && $outTemp <= $ascDev->getFreezeTemp )
+    {
+
+        if ( $shutters->getAntiFreeze eq 'soft' ) {
+            return 1;
+        }
+        elsif ( $shutters->getAntiFreeze eq $daytime ) {
+            return 2;
+        }
+        elsif ( $shutters->getAntiFreeze eq 'hard' ) {
+            return 3;
+        }
+    }
+    else { return 0; }
+}
+
+sub getShuttersPosCmdValueNegate {
+    my $self = shift;
+
+    return ( $shutters->getOpenPos < $shutters->getClosedPos ? 1 : 0 );
+}
+
+sub getQueryShuttersPos
+{ # Es wird geschaut ob die aktuelle Position des Rollos unterhalb der Zielposition ist
+    my $self     = shift;
+    my $posValue = shift; #   wenn dem so ist wird 1 zurück gegeben ansonsten 0
+
+    return (
+          $shutters->getShuttersPosCmdValueNegate
+        ? $shutters->getStatus > $posValue
+        : $shutters->getStatus < $posValue
+    );
+}
+
+sub getPosSetCmd {
+    my $self = shift;
+
+    return (
+        defined( $self->{ $self->{shuttersDev} }{posSetCmd} )
+        ? $self->{ $self->{shuttersDev} }{posSetCmd}
+        : $shutters->getPosCmd
+    );
+}
+
+sub getNoDelay {
+    my $self = shift;
+
+    return $self->{ $self->{shuttersDev} }{noDelay};
+}
+
+sub getSelfDefenseState {
+    my $self = shift;
+
+    return (
+        defined( $self->{ $self->{shuttersDev} }{selfDefenseState} )
+        ? $self->{ $self->{shuttersDev} }{selfDefenseState}
+        : 0
+    );
+}
+
+sub getSelfDefenseAbsent {
+    my $self = shift;
+
+    return $self->{ $self->{shuttersDev} }{selfDefenseAbsent}{active};
+}
+
+sub getSelfDefenseAbsentTimerrun {
+    my $self = shift;
+
+    return $self->{ $self->{shuttersDev} }{selfDefenseAbsent}{timerrun};
+}
+
+sub getSelfDefenseAbsentTimerhash {
+    my $self = shift;
+
+    return (
+        defined(
+            $self->{ $self->{shuttersDev} }{selfDefenseAbsent}{timerhash}
+          )
+        ? $self->{ $self->{shuttersDev} }{selfDefenseAbsent}{timerhash}
+        : undef
+    );
+}
+
+sub getLastDrive {
+    my $self = shift;
+
+    $self->{ $self->{shuttersDev} }{lastDrive} =
+      ReadingsVal( $self->{shuttersDev}, 'ASC_ShuttersLastDrive', 'none' )
+      if ( !defined( $self->{ $self->{shuttersDev} }{lastDrive} ) );
+
+    return $self->{ $self->{shuttersDev} }{lastDrive};
+}
+
+sub getLastPos
+{ # letzte ermittelte Position bevor die Position des Rolladen über ASC geändert wurde
+    my $self = shift;
+
+    return (
+        defined( $self->{ $self->{shuttersDev} }{lastPos} )
+          && defined( $self->{ $self->{shuttersDev} }{lastPos}{VAL} )
+        ? $self->{ $self->{shuttersDev} }{lastPos}{VAL}
+        : 50
+    );
+}
+
+sub getLastPosTimestamp {
+    my $self = shift;
+
+    return (
+        defined( $self->{ $self->{shuttersDev} } )
+          && defined( $self->{ $self->{shuttersDev} }{lastPos} )
+          && defined( $self->{ $self->{shuttersDev} }{lastPos}{TIME} )
+        ? $self->{ $self->{shuttersDev} }{lastPos}{TIME}
+        : 0
+    );
+}
+
+sub getLastManPos
+{ # letzte ermittelte Position bevor die Position des Rolladen manuell (nicht über ASC) geändert wurde
+    my $self = shift;
+
+    return (
+        defined( $self->{ $self->{shuttersDev} }{lastManPos} )
+          && defined( $self->{ $self->{shuttersDev} }{lastManPos}{VAL} )
+        ? $self->{ $self->{shuttersDev} }{lastManPos}{VAL}
+        : 50
+    );
+}
+
+sub getLastManPosTimestamp {
+    my $self = shift;
+
+    return (
+        defined( $self->{ $self->{shuttersDev} } )
+          && defined( $self->{ $self->{shuttersDev} }{lastManPos} )
+          && defined( $self->{ $self->{shuttersDev} }{lastManPos}{TIME} )
+        ? $self->{ $self->{shuttersDev} }{lastManPos}{TIME}
+        : 0
+    );
+}
+
+sub getInTimerFuncHash {
+    my $self = shift;
+
+    return $self->{ $self->{shuttersDev} }{inTimerFuncHash};
+}
+
+sub getSunsetUnixTime {
+    my $self = shift;
+
+    return $self->{ $self->{shuttersDev} }{sunsettime};
+}
+
+sub getSunset {
+    my $self = shift;
+
+    return (
+        defined( $self->{ $self->{shuttersDev} }{sunset} )
+        ? $self->{ $self->{shuttersDev} }{sunset}
+        : 0
+    );
+}
+
+sub getSunriseUnixTime {
+    my $self = shift;
+
+    return $self->{ $self->{shuttersDev} }{sunrisetime};
+}
+
+sub getSunrise {
+    my $self = shift;
+
+    return (
+        defined( $self->{ $self->{shuttersDev} }{sunrise} )
+        ? $self->{ $self->{shuttersDev} }{sunrise}
+        : 0
+    );
+}
+
+sub getRoommatesStatus {
+    my $self = shift;
+
+    my $loop = 0;
+    my @roState;
+    my %statePrio = (
+        'asleep'    => 1,
+        'gotosleep' => 2,
+        'awoken'    => 3,
+        'home'      => 4,
+        'absent'    => 5,
+        'gone'      => 6,
+        'none'      => 7
+    );
+    my $minPrio = 10;
+
+    for my $ro ( split( ",", $shutters->getRoommates ) ) {
+        $shutters->setRoommate($ro);
+        my $currentPrio = $statePrio{ $shutters->_getRoommateStatus };
+        $minPrio = $currentPrio if ( $minPrio > $currentPrio );
+    }
+
+    my %revStatePrio = reverse %statePrio;
+    return $revStatePrio{$minPrio};
+}
+
+sub getRoommatesLastStatus {
+    my $self = shift;
+
+    my $loop = 0;
+    my @roState;
+    my %statePrio = (
+        'asleep'    => 1,
+        'gotosleep' => 2,
+        'awoken'    => 3,
+        'home'      => 6,
+        'absent'    => 5,
+        'gone'      => 4,
+        'none'      => 7
+    );
+    my $minPrio = 10;
+
+    for my $ro ( split( ",", $shutters->getRoommates ) ) {
+        $shutters->setRoommate($ro);
+        my $currentPrio = $statePrio{ $shutters->_getRoommateLastStatus };
+        $minPrio = $currentPrio if ( $minPrio > $currentPrio );
+    }
+
+    my %revStatePrio = reverse %statePrio;
+    return $revStatePrio{$minPrio};
+}
+
+sub getOutTemp {
+    my $self = shift;
+
+    return ReadingsVal( $shutters->_getTempSensor,
+        $shutters->getTempSensorReading, -100 );
+}
+
+sub getIdleDetection {
+    my $self = shift;
+
+    return ReadingsVal( $self->{shuttersDev},
+        $shutters->_getIdleDetectionReading, 'none' );
+}
+
+### Begin Beschattung Objekt mit Daten befüllen
+sub setShadingStatus {
+    my $self  = shift;
+    my $value = shift; ### Werte für value = in, out, in reserved, out reserved
+
+    return
+      if ( defined($value)
+        && exists( $self->{ $self->{shuttersDev} }{ShadingStatus}{VAL} )
+        && $self->{ $self->{shuttersDev} }{ShadingStatus}{VAL} eq $value );
+
+    $shutters->setShadingLastStatus( ( $value eq 'in' ? 'out' : 'in' ) )
+      if ( $value eq 'in'
+        || $value eq 'out' );
+
+    $self->{ $self->{shuttersDev} }{ShadingStatus}{VAL} = $value
+      if ( defined($value) );
+    $self->{ $self->{shuttersDev} }{ShadingStatus}{TIME} = int( gettimeofday() )
+      if ( defined( $self->{ $self->{shuttersDev} }{ShadingStatus} ) );
+
+    return;
+}
+
+sub setShadingLastStatus {
+    my $self  = shift;
+    my $value = shift;    ### Werte für value = in, out
+
+    return
+      if ( defined($value)
+        && exists( $self->{ $self->{shuttersDev} }{ShadingLastStatus}{VAL} )
+        && $self->{ $self->{shuttersDev} }{ShadingLastStatus}{VAL} eq $value );
+
+    $self->{ $self->{shuttersDev} }{ShadingLastStatus}{VAL} = $value
+      if ( defined($value) );
+    $self->{ $self->{shuttersDev} }{ShadingLastStatus}{TIME} =
+      int( gettimeofday() )
+      if ( defined( $self->{ $self->{shuttersDev} }{ShadingLastStatus} ) );
+    $self->{ $self->{shuttersDev} }{ShadingManualDriveStatus}{VAL} = 0
+      if ( $value eq 'out' );
+
+    return;
+}
+
+sub setShadingManualDriveStatus {
+    my $self  = shift;
+    my $value = shift;    ### Werte für value = 0, 1
+
+    $self->{ $self->{shuttersDev} }{ShadingManualDriveStatus}{VAL} = $value
+      if ( defined($value) );
+
+    return;
+}
+
+sub setWindProtectionStatus {    # Werte protected, unprotected
+    my $self  = shift;
+    my $value = shift;
+
+    $self->{ $self->{shuttersDev} }->{ASC_WindParameters}->{VAL} = $value
+      if ( defined($value) );
+
+    return;
+}
+
+sub setRainProtectionStatus {    # Werte protected, unprotected
+    my $self  = shift;
+    my $value = shift;
+
+    $self->{ $self->{shuttersDev} }->{RainProtection}->{VAL} = $value
+      if ( defined($value) );
+    return;
+}
+
+sub setExternalTriggerState {
+    my $self  = shift;
+    my $value = shift;
+
+    $self->{ $self->{shuttersDev} }->{ASC_ExternalTrigger}->{event} = $value
+      if ( defined($value) );
+
+    return;
+}
+
+sub setPushBrightnessInArray {
+    my $self  = shift;
+    my $value = shift;
+
+    unshift(
+        @{ $self->{ $self->{shuttersDev} }->{BrightnessAverageArray}->{VAL} },
+        $value
+    );
+    pop( @{ $self->{ $self->{shuttersDev} }->{BrightnessAverageArray}->{VAL} } )
+      if (
+        scalar(
+            @{
+                $self->{ $self->{shuttersDev} }->{BrightnessAverageArray}->{VAL}
+            }
+        ) > $shutters->getMaxBrightnessAverageArrayObjects
+      );
+
+    return;
+}
+
+sub getBrightnessAverage {
+    my $self = shift;
+
+    return FHEM::AutoShuttersControl::_averageBrightness(
+        @{ $self->{ $self->{shuttersDev} }->{BrightnessAverageArray}->{VAL} } )
+      if (
+        ref( $self->{ $self->{shuttersDev} }->{BrightnessAverageArray}->{VAL} )
+        eq 'ARRAY'
+        && scalar(
+            @{
+                $self->{ $self->{shuttersDev} }->{BrightnessAverageArray}->{VAL}
+            }
+        ) > 0
+      );
+
+    return;
+}
+
+sub getShadingStatus {   # Werte für value = in, out, in reserved, out reserved
+    my $self = shift;
+
+    return (
+        defined( $self->{ $self->{shuttersDev} }{ShadingStatus} )
+          && defined( $self->{ $self->{shuttersDev} }{ShadingStatus}{VAL} )
+        ? $self->{ $self->{shuttersDev} }{ShadingStatus}{VAL}
+        : 'out'
+    );
+}
+
+sub getShadingLastStatus {    # Werte für value = in, out
+    my $self = shift;
+
+    return (
+        defined( $self->{ $self->{shuttersDev} }{ShadingLastStatus} )
+          && defined( $self->{ $self->{shuttersDev} }{ShadingLastStatus}{VAL} )
+        ? $self->{ $self->{shuttersDev} }{ShadingLastStatus}{VAL}
+        : 'out'
+    );
+}
+
+sub getShadingManualDriveStatus {    # Werte für value = 0, 1
+    my $self = shift;
+
+    return (
+        defined( $self->{ $self->{shuttersDev} }{ShadingManualDriveStatus} )
+          && defined(
+            $self->{ $self->{shuttersDev} }{ShadingManualDriveStatus}{VAL}
+          )
+        ? $self->{ $self->{shuttersDev} }{ShadingManualDriveStatus}{VAL}
+        : 0
+    );
+}
+
+sub getIfInShading {
+    my $self = shift;
+
+    return (
+        (
+                 $shutters->getShadingMode ne 'off'
+              && $shutters->getShadingLastStatus eq 'out'
+        ) ? 1 : 0
+    );
+}
+
+sub getWindProtectionStatus {    # Werte protected, unprotected
+    my $self = shift;
+
+    return (
+        (
+            defined( $self->{ $self->{shuttersDev} }->{ASC_WindParameters} )
+              && defined(
+                $self->{ $self->{shuttersDev} }->{ASC_WindParameters}->{VAL}
+              )
+        )
+        ? $self->{ $self->{shuttersDev} }->{ASC_WindParameters}->{VAL}
+        : 'unprotected'
+    );
+}
+
+sub getRainProtectionStatus {    # Werte protected, unprotected
+    my $self = shift;
+
+    return (
+        (
+            defined( $self->{ $self->{shuttersDev} }->{RainProtection} )
+              && defined(
+                $self->{ $self->{shuttersDev} }->{RainProtection}->{VAL}
+              )
+        )
+        ? $self->{ $self->{shuttersDev} }->{RainProtection}->{VAL}
+        : 'unprotected'
+    );
+}
+
+sub getShadingStatusTimestamp {
+    my $self = shift;
+
+    return (
+        defined( $self->{ $self->{shuttersDev} } )
+          && defined( $self->{ $self->{shuttersDev} }{ShadingStatus} )
+          && defined( $self->{ $self->{shuttersDev} }{ShadingStatus}{TIME} )
+        ? $self->{ $self->{shuttersDev} }{ShadingStatus}{TIME}
+        : 0
+    );
+}
+
+sub getShadingLastStatusTimestamp {
+    my $self = shift;
+
+    return (
+        defined( $self->{ $self->{shuttersDev} } )
+          && defined( $self->{ $self->{shuttersDev} }{ShadingLastStatus} )
+          && defined( $self->{ $self->{shuttersDev} }{ShadingLastStatus}{TIME} )
+        ? $self->{ $self->{shuttersDev} }{ShadingLastStatus}{TIME}
+        : 0
+    );
+}
+### Ende Beschattung
+
+
+1;

lib/FHEM/Automation/ShuttersControl/Shutters/Readings.pm

@@ -0,0 +1,92 @@
+###############################################################################
+#
+# Developed with Kate
+#
+#  (c) 2018-2020 Copyright: Marko Oldenburg (leongaultier at gmail dot com)
+#  All rights reserved
+#
+#   Special thanks goes to:
+#       - Bernd (Cluni) this module is based on the logic of his script "Rollladensteuerung für HM/ROLLO inkl. Abschattung und Komfortfunktionen in Perl" (https://forum.fhem.de/index.php/topic,73964.0.html)
+#       - Beta-User for many tests, many suggestions and good discussions
+#       - pc1246 write english commandref
+#       - FunkOdyssey commandref style
+#       - sledge fix many typo in commandref
+#       - many User that use with modul and report bugs
+#       - Christoph (christoph.kaiser.in) Patch that expand RegEx for Window Events
+#       - Julian (Loredo) expand Residents Events for new Residents functions
+#       - Christoph (Christoph Morrison) for fix Commandref, many suggestions and good discussions
+#
+#
+#  This script is free software; you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License as published by
+#  the Free Software Foundation; either version 2 of the License,or
+#  any later version.
+#
+#  The GNU General Public License can be found at
+#  http://www.gnu.org/copyleft/gpl.html.
+#  A copy is found in the textfile GPL.txt and important notices to the license
+#  from the author is found in LICENSE.txt distributed with these scripts.
+#
+#  This script is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#
+#
+# $Id$
+#
+###############################################################################
+
+
+## Subklasse Readings von ASC_Shutters ##
+package FHEM::Automation::ShuttersControl::Shutters::Readings;
+
+use strict;
+use warnings;
+use utf8;
+
+use GPUtils qw(GP_Import);
+
+## Import der FHEM Funktionen
+BEGIN {
+    GP_Import(
+        qw(
+          ReadingsVal
+          ReadingsNum)
+    );
+}
+
+sub getBrightness {
+    my $self = shift;
+
+    return ReadingsNum( $shutters->_getBrightnessSensor,
+        $shutters->getBrightnessReading, -1 );
+}
+
+sub getWindStatus {
+    my $self = shift;
+
+    return ReadingsVal( $ascDev->_getWindSensor,
+        $ascDev->getWindSensorReading, -1 );
+}
+
+sub getStatus {
+    my $self = shift;
+
+    return ReadingsNum( $self->{shuttersDev}, $shutters->getPosCmd, 0 );
+}
+
+sub getDelayCmd {
+    my $self = shift;
+
+    return $self->{ $self->{shuttersDev} }{delayCmd};
+}
+
+sub getASCenable {
+    my $self = shift;
+
+    return ReadingsVal( $self->{shuttersDev}, 'ASC_Enable', 'on' );
+}
+
+
+1;

lib/FHEM/Automation/ShuttersControl/Window.pm

@@ -0,0 +1,50 @@
+###############################################################################
+#
+# Developed with Kate
+#
+#  (c) 2018-2020 Copyright: Marko Oldenburg (leongaultier at gmail dot com)
+#  All rights reserved
+#
+#   Special thanks goes to:
+#       - Bernd (Cluni) this module is based on the logic of his script "Rollladensteuerung für HM/ROLLO inkl. Abschattung und Komfortfunktionen in Perl" (https://forum.fhem.de/index.php/topic,73964.0.html)
+#       - Beta-User for many tests, many suggestions and good discussions
+#       - pc1246 write english commandref
+#       - FunkOdyssey commandref style
+#       - sledge fix many typo in commandref
+#       - many User that use with modul and report bugs
+#       - Christoph (christoph.kaiser.in) Patch that expand RegEx for Window Events
+#       - Julian (Loredo) expand Residents Events for new Residents functions
+#       - Christoph (Christoph Morrison) for fix Commandref, many suggestions and good discussions
+#
+#
+#  This script is free software; you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License as published by
+#  the Free Software Foundation; either version 2 of the License,or
+#  any later version.
+#
+#  The GNU General Public License can be found at
+#  http://www.gnu.org/copyleft/gpl.html.
+#  A copy is found in the textfile GPL.txt and important notices to the license
+#  from the author is found in LICENSE.txt distributed with these scripts.
+#
+#  This script is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#
+#
+# $Id$
+#
+###############################################################################
+
+## Klasse Fenster (Window) und die Subklassen Attr und Readings ##
+package FHEM::Automation::ShuttersControl::Window;
+
+use strict;
+use warnings;
+use utf8;
+
+our @ISA = qw(FHEM::Automation::ShuttersControl::Window::Attr FHEM::Automation::ShuttersControl::Window::Readings);
+
+
+1;

lib/FHEM/Automation/ShuttersControl/Window/Attr.pm

@@ -0,0 +1,129 @@
+###############################################################################
+#
+# Developed with Kate
+#
+#  (c) 2018-2020 Copyright: Marko Oldenburg (leongaultier at gmail dot com)
+#  All rights reserved
+#
+#   Special thanks goes to:
+#       - Bernd (Cluni) this module is based on the logic of his script "Rollladensteuerung für HM/ROLLO inkl. Abschattung und Komfortfunktionen in Perl" (https://forum.fhem.de/index.php/topic,73964.0.html)
+#       - Beta-User for many tests, many suggestions and good discussions
+#       - pc1246 write english commandref
+#       - FunkOdyssey commandref style
+#       - sledge fix many typo in commandref
+#       - many User that use with modul and report bugs
+#       - Christoph (christoph.kaiser.in) Patch that expand RegEx for Window Events
+#       - Julian (Loredo) expand Residents Events for new Residents functions
+#       - Christoph (Christoph Morrison) for fix Commandref, many suggestions and good discussions
+#
+#
+#  This script is free software; you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License as published by
+#  the Free Software Foundation; either version 2 of the License,or
+#  any later version.
+#
+#  The GNU General Public License can be found at
+#  http://www.gnu.org/copyleft/gpl.html.
+#  A copy is found in the textfile GPL.txt and important notices to the license
+#  from the author is found in LICENSE.txt distributed with these scripts.
+#
+#  This script is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#
+#
+# $Id$
+#
+###############################################################################
+
+## Subklasse Attr von Klasse ASC_Window ##
+package FHEM::Automation::ShuttersControl::Window::Attr;
+
+use strict;
+use warnings;
+use utf8;
+
+use GPUtils qw(GP_Import);
+
+## Import der FHEM Funktionen
+BEGIN {
+    GP_Import(
+        qw(
+          AttrVal
+          gettimeofday)
+    );
+}
+
+sub setSubTyp {
+    my $self    = shift;
+    my $attrVal = shift;
+
+    _setAttributs( $self->{shuttersDev}, 'ASC_WindowRec_subType', $attrVal );
+
+    return;
+}
+
+sub getSubTyp {
+    my $self = shift;
+
+    return AttrVal( $self->{shuttersDev}, 'ASC_WindowRec_subType', 'twostate' );
+}
+
+sub setWinDev {
+    my $self    = shift;
+    my $attrVal = shift;
+
+    _setAttributs( $self->{shuttersDev}, 'ASC_WindowRec', $attrVal );
+
+    return;
+}
+
+sub _getWinDev {
+    my $self = shift;
+
+    return $self->{ $self->{shuttersDev} }->{ASC_WindowRec}->{device}
+      if (
+        exists(
+            $self->{ $self->{shuttersDev} }->{ASC_WindowRec}->{LASTGETTIME}
+        )
+        && ( gettimeofday() -
+            $self->{ $self->{shuttersDev} }->{ASC_WindowRec}->{LASTGETTIME} ) <
+        2
+      );
+    $self->{ $self->{shuttersDev} }->{ASC_WindowRec}->{LASTGETTIME} =
+      int( gettimeofday() );
+    my ( $device, $reading ) =
+      FHEM::Automation::ShuttersControl::GetAttrValues( $self->{shuttersDev},
+        'ASC_WindowRec', 'none' );
+
+    ### erwartetes Ergebnis
+    # DEVICE:READING VALUEACTIVE:VALUEINACTIVE POSACTIVE:POSINACTIVE
+
+    $self->{ $self->{shuttersDev} }->{ASC_WindowRec}->{device} =
+      $device;
+    $self->{ $self->{shuttersDev} }->{ASC_WindowRec}->{reading} =
+      ( $reading ne 'none' ? $reading : 'state' );
+
+    return $self->{ $self->{shuttersDev} }->{ASC_WindowRec}->{device};
+}
+
+sub getWinDevReading {
+    my $self = shift;
+
+    return $self->{ $self->{shuttersDev} }->{ASC_WindowRec}->{reading}
+      if (
+        exists(
+            $self->{ $self->{shuttersDev} }->{ASC_WindowRec}->{LASTGETTIME}
+        )
+        && ( gettimeofday() -
+            $self->{ $self->{shuttersDev} }->{ASC_WindowRec}->{LASTGETTIME} ) <
+        2
+      );
+    $shutters->_getWinDev;
+
+    return $self->{ $self->{shuttersDev} }->{ASC_WindowRec}->{reading};
+}
+
+
+1;

lib/FHEM/Automation/ShuttersControl/Window/Readings.pm

@@ -0,0 +1,65 @@
+###############################################################################
+#
+# Developed with Kate
+#
+#  (c) 2018-2020 Copyright: Marko Oldenburg (leongaultier at gmail dot com)
+#  All rights reserved
+#
+#   Special thanks goes to:
+#       - Bernd (Cluni) this module is based on the logic of his script "Rollladensteuerung für HM/ROLLO inkl. Abschattung und Komfortfunktionen in Perl" (https://forum.fhem.de/index.php/topic,73964.0.html)
+#       - Beta-User for many tests, many suggestions and good discussions
+#       - pc1246 write english commandref
+#       - FunkOdyssey commandref style
+#       - sledge fix many typo in commandref
+#       - many User that use with modul and report bugs
+#       - Christoph (christoph.kaiser.in) Patch that expand RegEx for Window Events
+#       - Julian (Loredo) expand Residents Events for new Residents functions
+#       - Christoph (Christoph Morrison) for fix Commandref, many suggestions and good discussions
+#
+#
+#  This script is free software; you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License as published by
+#  the Free Software Foundation; either version 2 of the License,or
+#  any later version.
+#
+#  The GNU General Public License can be found at
+#  http://www.gnu.org/copyleft/gpl.html.
+#  A copy is found in the textfile GPL.txt and important notices to the license
+#  from the author is found in LICENSE.txt distributed with these scripts.
+#
+#  This script is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#
+#
+# $Id$
+#
+###############################################################################
+
+## Subklasse Readings von Klasse ASC_Window ##
+package FHEM::Automation::ShuttersControl::Window::Readings;
+
+use strict;
+use warnings;
+use utf8;
+
+use GPUtils qw(GP_Import);
+
+## Import der FHEM Funktionen
+BEGIN {
+    GP_Import(
+        qw(
+          ReadingsVal)
+    );
+}
+
+sub getWinStatus {
+    my $self = shift;
+
+    return ReadingsVal( $shutters->_getWinDev, $shutters->getWinDevReading,
+        'closed' );
+}
+
+
+1;