FHEM/mod-GardenaSmart
1
0
Fork 0
Code Issues 2 Pull Requests Releases 3 Wiki Activity

add disabledForInterval syntax check and Interval Value greater than 0

Browse Source
This commit is contained in:
Marko Oldenburg 2017-09-28 07:52:28 +02:00
parent 94f20f661a
commit ab026bdc1b
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
73_GardenaSmartBridge.pm
View File

@ -68,7 +68,7 @@ eval "use JSON;1" or $missingModul .= "JSON ";
eval "use IO::Socket::SSL;1" or $missingModul .= "IO::Socket::SSL "; eval "use IO::Socket::SSL;1" or $missingModul .= "IO::Socket::SSL ";
my $version = "0.2.5"; my $version = "0.2.6";
@ -208,9 +208,12 @@ sub GardenaSmartBridge_Attr(@) {
} }
elsif( $attrName eq "disabledForIntervals" ) { elsif( $attrName eq "disabledForIntervals" ) {
#return "check disabledForIntervals Syntax HH:MM-HH:MM or 'HH:MM-HH:MM HH:MM-HH:MM ...'"
#unless($attrVal =~ /^((\d{2}:\d{2})-(\d{2}:\d{2})\s?)+$/);
if( $cmd eq "set" ) { if( $cmd eq "set" ) {
return "check disabledForIntervals Syntax HH:MM-HH:MM or 'HH:MM-HH:MM HH:MM-HH:MM ...'"
unless($attrVal =~ /^((\d{2}:\d{2})-(\d{2}:\d{2})\s?)+$/);
Log3 $name, 3, "GardenaSmartBridge ($name) - disabledForIntervals"; Log3 $name, 3, "GardenaSmartBridge ($name) - disabledForIntervals";
readingsSingleUpdate ( $hash, "state", "inactive", 1 );
} }
elsif( $cmd eq "del" ) { elsif( $cmd eq "del" ) {
@ -221,6 +224,8 @@ sub GardenaSmartBridge_Attr(@) {
elsif( $attrName eq "interval" ) { elsif( $attrName eq "interval" ) {
if( $cmd eq "set" ) { if( $cmd eq "set" ) {
return "Interval must be greater than 0"
unless($attrVal > 0);
$hash->{INTERVAL} = $attrVal; $hash->{INTERVAL} = $attrVal;
RemoveInternalTimer($hash); RemoveInternalTimer($hash);
Log3 $name, 3, "GardenaSmartBridge ($name) - set interval: $attrVal"; Log3 $name, 3, "GardenaSmartBridge ($name) - set interval: $attrVal";