add disabledForInterval syntax check and Interval Value greater than 0

This commit is contained in:
Marko Oldenburg 2017-09-28 07:52:28 +02:00
parent 94f20f661a
commit ab026bdc1b

View File

@ -68,7 +68,7 @@ eval "use JSON;1" or $missingModul .= "JSON ";
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" ) {
#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" ) {
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";
readingsSingleUpdate ( $hash, "state", "inactive", 1 );
}
elsif( $cmd eq "del" ) {
@ -221,6 +224,8 @@ sub GardenaSmartBridge_Attr(@) {
elsif( $attrName eq "interval" ) {
if( $cmd eq "set" ) {
return "Interval must be greater than 0"
unless($attrVal > 0);
$hash->{INTERVAL} = $attrVal;
RemoveInternalTimer($hash);
Log3 $name, 3, "GardenaSmartBridge ($name) - set interval: $attrVal";