FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-01-31 12:49:34 +00:00
Code Issues Releases Wiki Activity

73_AutoShuttersControl: fix incompatibilities with older perl version

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@20518 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
LeonGaultier 2019-11-16 13:33:58 +00:00
parent 5a7a9e7433
commit fb56c2db36
2 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fhem/CHANGED
View File

@ -1,5 +1,7 @@
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
# Do not insert empty lines here, update check depends on it. # Do not insert empty lines here, update check depends on it.
- bugfix: 73_AutoShuttersControl: fix incompatibilities with older perl
version
- feature: 93_DbLog: new attribute defaultMinInterval, - feature: 93_DbLog: new attribute defaultMinInterval,
Forum: topic,65860.msg972352.html#msg972352 Forum: topic,65860.msg972352.html#msg972352
- feature: 73_AutoShuttersControl: new version 0.8, meany new features - feature: 73_AutoShuttersControl: new version 0.8, meany new features

28
fhem/FHEM/73_AutoShuttersControl.pm
View File

@ -5028,7 +5028,7 @@ sub getAntiFreezePos {
}[ AttrVal( $self->{shuttersDev}, 'ASC', 2 ) ] }[ AttrVal( $self->{shuttersDev}, 'ASC', 2 ) ]
); );
if ( FHEM::AutoShuttersControl::_perlCodeCheck($val) ) { if ( defined( FHEM::AutoShuttersControl::_perlCodeCheck($val) ) ) {
$val = FHEM::AutoShuttersControl::_perlCodeCheck($val); $val = FHEM::AutoShuttersControl::_perlCodeCheck($val);
} }
@ -5179,7 +5179,7 @@ sub getPrivacyUpPos {
my $self = shift; my $self = shift;
my $val = AttrVal( $self->{shuttersDev}, 'ASC_PrivacyUp_Pos', 50 ); my $val = AttrVal( $self->{shuttersDev}, 'ASC_PrivacyUp_Pos', 50 );
if ( FHEM::AutoShuttersControl::_perlCodeCheck($val) ) { if ( defined( FHEM::AutoShuttersControl::_perlCodeCheck($val) ) ) {
$val = FHEM::AutoShuttersControl::_perlCodeCheck($val); $val = FHEM::AutoShuttersControl::_perlCodeCheck($val);
} }
@ -5190,7 +5190,7 @@ sub getPrivacyDownPos {
my $self = shift; my $self = shift;
my $val = AttrVal( $self->{shuttersDev}, 'ASC_PrivacyDown_Pos', 50 ); my $val = AttrVal( $self->{shuttersDev}, 'ASC_PrivacyDown_Pos', 50 );
if ( FHEM::AutoShuttersControl::_perlCodeCheck($val) ) { if ( defined( FHEM::AutoShuttersControl::_perlCodeCheck($val) ) ) {
$val = FHEM::AutoShuttersControl::_perlCodeCheck($val); $val = FHEM::AutoShuttersControl::_perlCodeCheck($val);
} }
@ -5220,7 +5220,7 @@ sub getAdv {
return ( return (
AttrVal( $self->{shuttersDev}, 'ASC_Adv', 'off' ) eq 'on' AttrVal( $self->{shuttersDev}, 'ASC_Adv', 'off' ) eq 'on'
? ( FHEM::AutoShuttersControl::_IsAdv ? 1 : 0 ) ? ( FHEM::AutoShuttersControl::_IsAdv == 1 ? 1 : 0 )
: 0 : 0
); );
} }
@ -5232,7 +5232,7 @@ sub getShadingPos {
$userAttrList{'ASC_Shading_Pos:10,20,30,40,50,60,70,80,90,100'} $userAttrList{'ASC_Shading_Pos:10,20,30,40,50,60,70,80,90,100'}
[ AttrVal( $self->{shuttersDev}, 'ASC', 2 ) ] ); [ AttrVal( $self->{shuttersDev}, 'ASC', 2 ) ] );
if ( FHEM::AutoShuttersControl::_perlCodeCheck($val) ) { if ( defined( FHEM::AutoShuttersControl::_perlCodeCheck($val) ) ) {
$val = FHEM::AutoShuttersControl::_perlCodeCheck($val); $val = FHEM::AutoShuttersControl::_perlCodeCheck($val);
} }
@ -5770,7 +5770,7 @@ sub getVentilatePos {
$userAttrList{'ASC_Ventilate_Pos:10,20,30,40,50,60,70,80,90,100'} $userAttrList{'ASC_Ventilate_Pos:10,20,30,40,50,60,70,80,90,100'}
[ AttrVal( $self->{shuttersDev}, 'ASC', 2 ) ] ); [ AttrVal( $self->{shuttersDev}, 'ASC', 2 ) ] );
if ( FHEM::AutoShuttersControl::_perlCodeCheck($val) ) { if ( defined( FHEM::AutoShuttersControl::_perlCodeCheck($val) ) ) {
$val = FHEM::AutoShuttersControl::_perlCodeCheck($val); $val = FHEM::AutoShuttersControl::_perlCodeCheck($val);
} }
@ -5801,7 +5801,7 @@ sub getSleepPos {
my $self = shift; my $self = shift;
my $val = AttrVal( $self->{shuttersDev}, 'ASC_Sleep_Pos', -1 ); my $val = AttrVal( $self->{shuttersDev}, 'ASC_Sleep_Pos', -1 );
if ( FHEM::AutoShuttersControl::_perlCodeCheck($val) ) { if ( defined( FHEM::AutoShuttersControl::_perlCodeCheck($val) ) ) {
$val = FHEM::AutoShuttersControl::_perlCodeCheck($val); $val = FHEM::AutoShuttersControl::_perlCodeCheck($val);
} }
@ -5820,7 +5820,7 @@ sub getComfortOpenPos {
$userAttrList{'ASC_ComfortOpen_Pos:0,10,20,30,40,50,60,70,80,90,100'} $userAttrList{'ASC_ComfortOpen_Pos:0,10,20,30,40,50,60,70,80,90,100'}
[ AttrVal( $self->{shuttersDev}, 'ASC', 2 ) ] ); [ AttrVal( $self->{shuttersDev}, 'ASC', 2 ) ] );
if ( FHEM::AutoShuttersControl::_perlCodeCheck($val) ) { if ( defined( FHEM::AutoShuttersControl::_perlCodeCheck($val) ) ) {
$val = FHEM::AutoShuttersControl::_perlCodeCheck($val); $val = FHEM::AutoShuttersControl::_perlCodeCheck($val);
} }
@ -6001,7 +6001,7 @@ sub getTimeUpEarly {
my $self = shift; my $self = shift;
my $val = AttrVal( $self->{shuttersDev}, 'ASC_Time_Up_Early', '05:00' ); my $val = AttrVal( $self->{shuttersDev}, 'ASC_Time_Up_Early', '05:00' );
if ( FHEM::AutoShuttersControl::_perlCodeCheck($val) ) { if ( defined( FHEM::AutoShuttersControl::_perlCodeCheck($val) ) ) {
$val = FHEM::AutoShuttersControl::_perlCodeCheck($val); $val = FHEM::AutoShuttersControl::_perlCodeCheck($val);
} }
@ -6016,7 +6016,7 @@ sub getTimeUpLate {
my $self = shift; my $self = shift;
my $val = AttrVal( $self->{shuttersDev}, 'ASC_Time_Up_Late', '08:30' ); my $val = AttrVal( $self->{shuttersDev}, 'ASC_Time_Up_Late', '08:30' );
if ( FHEM::AutoShuttersControl::_perlCodeCheck($val) ) { if ( defined( FHEM::AutoShuttersControl::_perlCodeCheck($val) ) ) {
$val = FHEM::AutoShuttersControl::_perlCodeCheck($val); $val = FHEM::AutoShuttersControl::_perlCodeCheck($val);
} }
@ -6031,7 +6031,7 @@ sub getTimeDownEarly {
my $self = shift; my $self = shift;
my $val = AttrVal( $self->{shuttersDev}, 'ASC_Time_Down_Early', '16:00' ); my $val = AttrVal( $self->{shuttersDev}, 'ASC_Time_Down_Early', '16:00' );
if ( FHEM::AutoShuttersControl::_perlCodeCheck($val) ) { if ( defined( FHEM::AutoShuttersControl::_perlCodeCheck($val) ) ) {
$val = FHEM::AutoShuttersControl::_perlCodeCheck($val); $val = FHEM::AutoShuttersControl::_perlCodeCheck($val);
} }
@ -6046,7 +6046,7 @@ sub getTimeDownLate {
my $self = shift; my $self = shift;
my $val = AttrVal( $self->{shuttersDev}, 'ASC_Time_Down_Late', '22:00' ); my $val = AttrVal( $self->{shuttersDev}, 'ASC_Time_Down_Late', '22:00' );
if ( FHEM::AutoShuttersControl::_perlCodeCheck($val) ) { if ( defined( FHEM::AutoShuttersControl::_perlCodeCheck($val) ) ) {
$val = FHEM::AutoShuttersControl::_perlCodeCheck($val); $val = FHEM::AutoShuttersControl::_perlCodeCheck($val);
} }
@ -6062,7 +6062,7 @@ sub getTimeUpWeHoliday {
my $val = my $val =
AttrVal( $self->{shuttersDev}, 'ASC_Time_Up_WE_Holiday', '08:00' ); AttrVal( $self->{shuttersDev}, 'ASC_Time_Up_WE_Holiday', '08:00' );
if ( FHEM::AutoShuttersControl::_perlCodeCheck($val) ) { if ( defined( FHEM::AutoShuttersControl::_perlCodeCheck($val) ) ) {
$val = FHEM::AutoShuttersControl::_perlCodeCheck($val); $val = FHEM::AutoShuttersControl::_perlCodeCheck($val);
} }
@ -7779,7 +7779,7 @@ sub getblockAscDrivesAfterManual {
], ],
"release_status": "under develop", "release_status": "under develop",
"license": "GPL_2", "license": "GPL_2",
"version": "v0.8.0", "version": "v0.8.1",
"author": [ "author": [
"Marko Oldenburg <leongaultier@gmail.com>" "Marko Oldenburg <leongaultier@gmail.com>"
], ],