fix syntax error bug in Attribut Sub
This commit is contained in:
@ -170,7 +170,7 @@ sub SmartPi_Attr(@) {
|
|||||||
Log3 $name, 3, "SmartPi ($name) - enabled";
|
Log3 $name, 3, "SmartPi ($name) - enabled";
|
||||||
}
|
}
|
||||||
|
|
||||||
elsif( $attrName eq "disabledForIntervals" ) {
|
} elsif( $attrName eq "disabledForIntervals" ) {
|
||||||
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 ...'"
|
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?)+$/);
|
unless($attrVal =~ /^((\d{2}:\d{2})-(\d{2}:\d{2})\s?)+$/);
|
||||||
@ -182,7 +182,6 @@ sub SmartPi_Attr(@) {
|
|||||||
Log3 $name, 3, "SmartPi ($name) - enabled";
|
Log3 $name, 3, "SmartPi ($name) - enabled";
|
||||||
readingsSingleUpdate ( $hash, "state", "active", 1 );
|
readingsSingleUpdate ( $hash, "state", "active", 1 );
|
||||||
}
|
}
|
||||||
}
|
|
||||||
|
|
||||||
} elsif( $attrName eq "interval" ) {
|
} elsif( $attrName eq "interval" ) {
|
||||||
if( $cmd eq "set" ) {
|
if( $cmd eq "set" ) {
|
||||||
|
Reference in New Issue
Block a user