diff --git a/fhem/contrib/Alarm/95_Alarm.pm b/fhem/contrib/Alarm/95_Alarm.pm index c52ecc54d..6c3887f67 100644 --- a/fhem/contrib/Alarm/95_Alarm.pm +++ b/fhem/contrib/Alarm/95_Alarm.pm @@ -40,7 +40,7 @@ my $alarmname = "Alarms"; # link text my $alarmhiddenroom = "AlarmRoom"; # hidden room my $alarmpublicroom = "Alarm"; # public room my $alarmno = 8; -my $alarmversion = "1.1"; +my $alarmversion = "1.2"; ######################################################################################### # @@ -404,7 +404,7 @@ sub Alarm_CreateNotifiers($){ } if( (index($aval[0],"alarm".$level) != -1) && ($aval[3] eq "off") ){ $cmd .= '('.$aval[1].')|'; - # Log3 $hash,1,"[Alarm $level] Adding sensor $d to cancel notifier"; + #Log3 $hash,1,"[Alarm $level] Adding sensor $d to cancel notifier"; } } } @@ -478,7 +478,12 @@ sub Alarm_CreateNotifiers($){ $nonum++; my @tarr = split(':',$aval[3]); if( int(@tarr) == 1){ - $cmd .= sprintf('define alarm%1ddly%1d at +00:00:%02d %s;',$level,$nonum,$aval[3],$aval[1]); + if( $aval[3] > 59 ){ + Log3 $hash,3,"[Alarm $level] Invalid delay specification for actor $d: $aval[3] > 59"; + $cmd = ''; + } else { + $cmd .= sprintf('define alarm%1ddly%1d at +00:00:%02d %s;',$level,$nonum,$aval[3],$aval[1]); + } }elsif( int(@tarr) == 2){ $cmd .= sprintf('define alarm%1ddly%1d at +00:%02d:%02d %s;',$level,$nonum,$tarr[0],$tarr[1],$aval[1]); } @@ -594,8 +599,8 @@ sub Alarm_Html($) $row=1; $ret .= "
Notify to Alarm Level | ". - "Notify on RegExp Message Part I | Action | |||||||||
Notify to Alarm Level ".join(" ",(0..($alarmno-1)))." | ". + "Notify on RegExp Message Part I | Action | |||||||||
Actors | |||||||||||
|