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

change antifreez attribut and code

Browse Source
This commit is contained in:
Marko Oldenburg
2018-11-15 21:51:02 +01:00
parent 871b2d7590
commit 8742638b38
1 changed files with 38 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
73_AutoShuttersControl.pm
View File

@@ -194,7 +194,7 @@ my %userAttrList = (
'ASC_ComfortOpen_Pos:0,10,20,30,40,50,60,70,80,90,100' => 'ASC_ComfortOpen_Pos:0,10,20,30,40,50,60,70,80,90,100' =>
[ '', 20, 80 ], [ '', 20, 80 ],
'ASC_GuestRoom:on,off' => 'none', 'ASC_GuestRoom:on,off' => 'none',
'ASC_Antifreeze:off,on' => 'off', 'ASC_Antifreeze:off,soft,hard' => 'off',
'ASC_AntifreezePos:5,10,15,20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95,100' => [ '', 85, 15 ], 'ASC_AntifreezePos:5,10,15,20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95,100' => [ '', 85, 15 ],
'ASC_Partymode:on,off' => 'off', 'ASC_Partymode:on,off' => 'off',
'ASC_Roommate_Device' => 'none', 'ASC_Roommate_Device' => 'none',
@@ -640,11 +640,17 @@ sub ShuttersDeviceScan($) {
delFromDevAttrList( $_, 'ASC_Pos_Cmd' ) delFromDevAttrList( $_, 'ASC_Pos_Cmd' )
; # temporär muss später gelöscht werden ab Version 0.1.93 ; # temporär muss später gelöscht werden ab Version 0.1.93
delFromDevAttrList( $_, 'ASC_lock-out:soft,hard' ) delFromDevAttrList( $_, 'ASC_lock-out:soft,hard' )
; # temporär muss später gelöscht werden ab Version 0.2.1 ; # temporär muss später gelöscht werden ab Version 0.2.0.6
delFromDevAttrList( $_, 'ASC_lock-outCmd:inhibit,blocked' ) delFromDevAttrList( $_, 'ASC_lock-outCmd:inhibit,blocked' )
; # temporär muss später gelöscht werden ab Version 0.2.1 ; # temporär muss später gelöscht werden ab Version 0.2.0.6
delFromDevAttrList( $_, 'ASC_Pos_after_ComfortOpen:0,10,20,30,40,50,60,70,80,90,100' ) delFromDevAttrList( $_, 'ASC_Pos_after_ComfortOpen:0,10,20,30,40,50,60,70,80,90,100' )
; # temporär muss später gelöscht werden ab Version 0.2.1 ; # temporär muss später gelöscht werden ab Version 0.2.0.6
delFromDevAttrList( $_, 'ASC_Antifreeze:off,on' )
if ( AttrVal( $_, 'ASC_Antifreeze', 'on' ) ne 'soft'
and AttrVal( $_, 'ASC_Antifreeze', 'on' ) ne 'hard'
)
; # temporär muss später gelöscht werden ab Version 0.2.0.6
$shuttersList = $shuttersList . ',' . $_; $shuttersList = $shuttersList . ',' . $_;
$shutters->setShuttersDev($_); $shutters->setShuttersDev($_);
@@ -1782,15 +1788,6 @@ sub GetMonitoredDevs($) {
## my little helper ## my little helper
################################# #################################
sub FreezeStatus($) {
my $shuttersDev = shift;
return
( $shutters->getAntiFreeze eq 'on' and
$ascDev->getOutTemp <= $ascDev->getFreezeTemp ?
1 : 0 );
}
sub AutoSearchTwilightDev($) { sub AutoSearchTwilightDev($) {
my $hash = shift; my $hash = shift;
my $name = $hash->{NAME}; my $name = $hash->{NAME};
@@ -2253,11 +2250,20 @@ sub setDriveCmd {
my $offSet = 0; my $offSet = 0;
### antifreeze Routine ### antifreeze Routine
if ( AutoShuttersControl::FreezeStatus($self->{shuttersDev}) if ( ( $shutters->getFreezeStatus
or $shutters->getFreezeStatus == 2)
and $posValue == $shutters->getClosedPos ) and $posValue == $shutters->getClosedPos )
{ {
$posValue = $shutters->getAntiFreezePos; if ( $shutters->getFreezeStatus == 2 ) {
$shutters->setLastDrive($shutters->getLastDrive . ' - antifreeze mode'); $posValue = $shutters->getStatus;
$shutters->setLastDrive('no drive - antifreeze defense');
$shutters->setLastDriveReading;
$ascDev->setStateReading;
}
else {
$posValue = $shutters->getAntiFreezePos;
$shutters->setLastDrive($shutters->getLastDrive . ' - antifreeze mode');
}
} }
my %h = ( my %h = (
@@ -2366,6 +2372,22 @@ sub setInTimerFuncHash {
return 0; return 0;
} }
sub getFreezeStatus {
my $self = shift;
if ( $shutters->getAntiFreeze eq 'soft' and
$ascDev->getOutTemp <= $ascDev->getFreezeTemp )
{
return 1;
}
elsif ( $shutters->getAntiFreeze eq 'hard' and
$ascDev->getOutTemp <= $ascDev->getFreezeTemp )
{
return 2;
}
else { return 0; }
}
sub getShuttersPosCmdValueNegate { sub getShuttersPosCmdValueNegate {
my $self = shift; my $self = shift;