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

bugix crash fhem

Browse Source
This commit is contained in:
Marko Oldenburg
2020-07-02 14:48:46 +02:00
parent bb6f4860f9
commit 857683fbe2
3 changed files with 21 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
controls_AutoShuttersControl.txt
View File

@@ -1,8 +1,8 @@
UPD 2020-07-02_14:06:51 96885 FHEM/73_AutoShuttersControl.pm
UPD 2020-07-02_14:10:44 177312 lib/FHEM/Automation/ShuttersControl.pm
UPD 2020-07-02_14:17:44 177302 lib/FHEM/Automation/ShuttersControl.pm
UPD 2020-06-22_09:41:40 2657 lib/FHEM/Automation/ShuttersControl/Dev.pm
UPD 2020-07-02_14:10:57 2496 lib/FHEM/Automation/ShuttersControl/Roommate.pm
UPD 2020-06-30_12:47:15 30157 lib/FHEM/Automation/ShuttersControl/Shutters.pm
UPD 2020-07-02_14:47:17 30157 lib/FHEM/Automation/ShuttersControl/Shutters.pm
UPD 2020-06-22_09:41:40 2175 lib/FHEM/Automation/ShuttersControl/Window.pm
UPD 2020-06-22_09:41:40 11454 lib/FHEM/Automation/ShuttersControl/Dev/Attr.pm
UPD 2020-06-22_09:41:40 7251 lib/FHEM/Automation/ShuttersControl/Dev/Readings.pm

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

@@ -1348,7 +1348,7 @@ sub EventProcessingRoommate {
&& !$shutters->getSelfDefenseState
)
{
\&FHEM::Automation::ShuttersControl::Shading::ShadingProcessingDriveCommand( $hash, $shuttersDev );
FHEM::Automation::ShuttersControl::Shading::ShadingProcessingDriveCommand( $hash, $shuttersDev );
}
elsif (
!$shutters->getIsDay
@@ -1560,7 +1560,7 @@ sub EventProcessingResidents {
&& $shutters->getShadingMode eq 'absent'
&& $shutters->getRoommatesStatus eq 'none' )
{
\&FHEM::Automation::ShuttersControl::Shading::ShadingProcessingDriveCommand( $hash, $shuttersDev );
FHEM::Automation::ShuttersControl::Shading::ShadingProcessingDriveCommand( $hash, $shuttersDev );
}
elsif (
$shutters->getShadingMode eq 'home'
@@ -1657,7 +1657,7 @@ sub EventProcessingResidents {
&& !$shutters->getSelfDefenseState
)
{
\&FHEM::Automation::ShuttersControl::Shading::ShadingProcessingDriveCommand( $hash, $shuttersDev );
FHEM::Automation::ShuttersControl::Shading::ShadingProcessingDriveCommand( $hash, $shuttersDev );
}
elsif (
$shutters->getShadingMode eq 'absent'
@@ -2373,7 +2373,7 @@ sub EventProcessingShadingBrightness {
&& $shutters->getRainProtectionStatus eq 'unprotected'
&& $shutters->getWindProtectionStatus eq 'unprotected' )
{
\&FHEM::Automation::ShuttersControl::Shading::ShadingProcessing(
FHEM::Automation::ShuttersControl::Shading::ShadingProcessing(
$hash,
$shuttersDev,
$ascDev->getAzimuth,
@@ -2446,7 +2446,7 @@ sub EventProcessingTwilightDevice {
&& $shutters->getRainProtectionStatus eq 'unprotected'
&& $shutters->getWindProtectionStatus eq 'unprotected' )
{
\&FHEM::Automation::ShuttersControl::Shading::ShadingProcessing(
FHEM::Automation::ShuttersControl::Shading::ShadingProcessing(
$hash,
$shuttersDev,
$azimuth,

27
lib/FHEM/Automation/ShuttersControl/Shading.pm
View File

@@ -56,6 +56,7 @@ BEGIN {
readingsBeginUpdate
readingsBulkUpdate
readingsEndUpdate
defs
)
);
}
@@ -73,7 +74,7 @@ sub ShadingProcessing {
$FHEM::Automation::ShuttersControl::shutters->setShuttersDev($shuttersDev);
my $brightness = $FHEM::Automation::ShuttersControl::shutters->getBrightnessAverage;
\&FHEM::Automation::ShuttersControl::ASC_Debug(
FHEM::Automation::ShuttersControl::ASC_Debug(
'ShadingProcessing: '
. $FHEM::Automation::ShuttersControl::shutters->getShuttersDev
. ' - Übergebende Werte - Azimuth:'
@@ -89,7 +90,7 @@ sub ShadingProcessing {
. ', Azimut Endschattung: '
. $azimuthRight
. ', Ist es nach der Zeitblockadezeit: '
. ( IsAfterShuttersTimeBlocking($shuttersDev) ? 'JA' : 'NEIN' )
. ( FHEM::Automation::ShuttersControl::IsAfterShuttersTimeBlocking($shuttersDev) ? 'JA' : 'NEIN' )
. ', Das Rollo ist in der Beschattung und wurde manuell gefahren: '
. ( $FHEM::Automation::ShuttersControl::shutters->getShadingManualDriveStatus ? 'JA' : 'NEIN' )
. ', Ist es nach der Hälfte der Beschattungswartezeit: '
@@ -133,7 +134,7 @@ sub ShadingProcessing {
my $getModeUp = $FHEM::Automation::ShuttersControl::shutters->getModeUp;
my $homemode = $FHEM::Automation::ShuttersControl::shutters->getHomemode;
\&FHEM::Automation::ShuttersControl::ASC_Debug( 'ShadingProcessing: '
FHEM::Automation::ShuttersControl::ASC_Debug( 'ShadingProcessing: '
. $FHEM::Automation::ShuttersControl::shutters->getShuttersDev
. ' - Alle Werte für die weitere Verarbeitung sind korrekt vorhanden und es wird nun mit der Beschattungsverarbeitung begonnen'
);
@@ -151,7 +152,7 @@ sub ShadingProcessing {
# $FHEM::Automation::ShuttersControl::shutters->setShadingLastStatus('in');
$FHEM::Automation::ShuttersControl::shutters->setShadingStatus('out');
\&FHEM::Automation::ShuttersControl::ASC_Debug( 'ShadingProcessing: '
FHEM::Automation::ShuttersControl::ASC_Debug( 'ShadingProcessing: '
. $FHEM::Automation::ShuttersControl::shutters->getShuttersDev
. ' - Es ist Nacht oder die Aussentemperatur unterhalb der Shading Temperatur. Die Beschattung wird Zwangsbeendet'
);
@@ -193,7 +194,7 @@ sub ShadingProcessing {
. ", Zeitstempel: "
. $FHEM::Automation::ShuttersControl::shutters->getShadingStatusTimestamp );
\&FHEM::Automation::ShuttersControl::ASC_Debug( 'ShadingProcessing: '
FHEM::Automation::ShuttersControl::ASC_Debug( 'ShadingProcessing: '
. $FHEM::Automation::ShuttersControl::shutters->getShuttersDev
. ' - Einer der Beschattungsbedingungen wird nicht mehr erfüllt und somit wird der Beschattungsstatus um eine Stufe reduziert. Alter Status: '
. $oldShadingStatus
@@ -233,7 +234,7 @@ sub ShadingProcessing {
. ", Zeitstempel: "
. $FHEM::Automation::ShuttersControl::shutters->getShadingStatusTimestamp );
\&FHEM::Automation::ShuttersControl::ASC_Debug( 'ShadingProcessing: '
FHEM::Automation::ShuttersControl::ASC_Debug( 'ShadingProcessing: '
. $FHEM::Automation::ShuttersControl::shutters->getShuttersDev
. ' - Alle Beschattungsbedingungen wurden erfüllt und somit wird der Beschattungsstatus um eine Stufe angehoben. Alter Status: '
. $oldShadingStatus
@@ -243,7 +244,7 @@ sub ShadingProcessing {
ShadingProcessingDriveCommand( $hash, $shuttersDev )
if (
\&FHEM::Automation::ShuttersControl::IsAfterShuttersTimeBlocking($shuttersDev)
FHEM::Automation::ShuttersControl::IsAfterShuttersTimeBlocking($shuttersDev)
&& !$FHEM::Automation::ShuttersControl::shutters->getShadingManualDriveStatus
&& $FHEM::Automation::ShuttersControl::shutters->getRoommatesStatus ne 'gotosleep'
&& $FHEM::Automation::ShuttersControl::shutters->getRoommatesStatus ne 'asleep'
@@ -319,14 +320,14 @@ sub ShadingProcessingDriveCommand {
if (
$FHEM::Automation::ShuttersControl::shutters->getShadingStatus eq 'in'
&& $getShadingPos != $getStatus
&& ( \&FHEM::Automation::ShuttersControl::CheckIfShuttersWindowRecOpen($shuttersDev) != 2
&& ( FHEM::Automation::ShuttersControl::CheckIfShuttersWindowRecOpen($shuttersDev) != 2
|| $FHEM::Automation::ShuttersControl::shutters->getShuttersPlace ne 'terrace' )
)
{
$FHEM::Automation::ShuttersControl::shutters->setLastDrive('shading in');
ShuttersCommandSet( $hash, $shuttersDev, $getShadingPos );
FHEM::Automation::ShuttersControl::ShuttersCommandSet( $hash, $shuttersDev, $getShadingPos );
\&FHEM::Automation::ShuttersControl::ASC_Debug( 'ShadingProcessingDriveCommand: '
FHEM::Automation::ShuttersControl::ASC_Debug( 'ShadingProcessingDriveCommand: '
. $FHEM::Automation::ShuttersControl::shutters->getShuttersDev
. ' - Der aktuelle Beschattungsstatus ist: '
. $FHEM::Automation::ShuttersControl::shutters->getShadingStatus
@@ -339,7 +340,7 @@ sub ShadingProcessingDriveCommand {
{
$FHEM::Automation::ShuttersControl::shutters->setLastDrive('shading out');
\&FHEM::Automation::ShuttersControl::ShuttersCommandSet(
FHEM::Automation::ShuttersControl::ShuttersCommandSet(
$hash,
$shuttersDev,
(
@@ -357,7 +358,7 @@ sub ShadingProcessingDriveCommand {
)
);
\&FHEM::Automation::ShuttersControl::ASC_Debug( 'ShadingProcessingDriveCommand: '
FHEM::Automation::ShuttersControl::ASC_Debug( 'ShadingProcessingDriveCommand: '
. $FHEM::Automation::ShuttersControl::shutters->getShuttersDev
. ' - Der aktuelle Beschattungsstatus ist: '
. $FHEM::Automation::ShuttersControl::shutters->getShadingStatus
@@ -370,7 +371,7 @@ sub ShadingProcessingDriveCommand {
"AutoShuttersControl ($name) - Shading Processing - In der Routine zum fahren der Rollläden, Shading Wert: "
. $FHEM::Automation::ShuttersControl::shutters->getShadingStatus );
\&FHEM::Automation::ShuttersControl::ASC_Debug(
FHEM::Automation::ShuttersControl::ASC_Debug(
'ShadingProcessingDriveCommand: '
. $FHEM::Automation::ShuttersControl::shutters->getShuttersDev
. ' - Der aktuelle Beschattungsstatus ist: '