change package code in mutiple files
This commit is contained in:
Marko Oldenburg
1184
FHEM/73_AutoShuttersControl.pm
Normal file
1184
FHEM/73_AutoShuttersControl.pm
Normal file
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
79
lib/FHEM/Automation/ShuttersControl/Dev.pm
Normal file
79
lib/FHEM/Automation/ShuttersControl/Dev.pm
Normal file
@@ -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;
|
||||||
388
lib/FHEM/Automation/ShuttersControl/Dev/Attr.pm
Normal file
388
lib/FHEM/Automation/ShuttersControl/Dev/Attr.pm
Normal file
@@ -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;
|
||||||
242
lib/FHEM/Automation/ShuttersControl/Dev/Readings.pm
Normal file
242
lib/FHEM/Automation/ShuttersControl/Dev/Readings.pm
Normal file
@@ -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;
|
||||||
76
lib/FHEM/Automation/ShuttersControl/Roommate.pm
Normal file
76
lib/FHEM/Automation/ShuttersControl/Roommate.pm
Normal file
@@ -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;
|
||||||
937
lib/FHEM/Automation/ShuttersControl/Shutters.pm
Normal file
937
lib/FHEM/Automation/ShuttersControl/Shutters.pm
Normal file
@@ -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;
|
||||||
1948
lib/FHEM/Automation/ShuttersControl/Shutters/Attr.pm
Normal file
1948
lib/FHEM/Automation/ShuttersControl/Shutters/Attr.pm
Normal file
File diff suppressed because it is too large
Load Diff
92
lib/FHEM/Automation/ShuttersControl/Shutters/Readings.pm
Normal file
92
lib/FHEM/Automation/ShuttersControl/Shutters/Readings.pm
Normal file
@@ -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;
|
||||||
50
lib/FHEM/Automation/ShuttersControl/Window.pm
Normal file
50
lib/FHEM/Automation/ShuttersControl/Window.pm
Normal file
@@ -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;
|
||||||
129
lib/FHEM/Automation/ShuttersControl/Window/Attr.pm
Normal file
129
lib/FHEM/Automation/ShuttersControl/Window/Attr.pm
Normal file
@@ -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;
|
||||||
65
lib/FHEM/Automation/ShuttersControl/Window/Readings.pm
Normal file
65
lib/FHEM/Automation/ShuttersControl/Window/Readings.pm
Normal file
@@ -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;
|
||||||
Reference in New Issue
Block a user