From 8d7196caefbb1bca41f95b8b8f318516bf6a7f7f Mon Sep 17 00:00:00 2001 From: Byte09 <> Date: Thu, 24 Jan 2019 16:13:12 +0000 Subject: [PATCH] 98_MSwitch.pm:Fix - more than one interval https://forum.fhem.de/index.php/topic,86199.msg893282.html#msg893282 git-svn-id: https://svn.fhem.de/fhem/trunk@18404 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/98_MSwitch.pm | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/fhem/FHEM/98_MSwitch.pm b/fhem/FHEM/98_MSwitch.pm index 59e30cddd..736646156 100644 --- a/fhem/FHEM/98_MSwitch.pm +++ b/fhem/FHEM/98_MSwitch.pm @@ -83,7 +83,7 @@ if ( $preconf && $preconf ne "" ) { } my $autoupdate = 'off'; #off/on -my $version = '2.10_test'; +my $version = '2.10'; my $vupdate = 'V2.00' ; # versionsnummer der datenstruktur . änderung der nummer löst MSwitch_VUpdate aus . my $savecount = 30 @@ -7398,10 +7398,14 @@ sub MSwitch_Createtimer($) { $key = '\]'; $option =~ s/$key//ig; - if ( $option =~ -m/(.*?)([0-9]{2}):([0-9]{2})\*([0-9]{2}:[0-9]{2})-([0-9]{2}:[0-9]{2})\|?([0-9]{0,7})(.*)?/ - ) + + + my $y =0; + while ( $option =~ m/(.*?)([0-9]{2}):([0-9]{2})\*([0-9]{2}:[0-9]{2})-([0-9]{2}:[0-9]{2})\|?([0-9]{0,7})(.*)?/) { + $y++; + last if $y > 20; + my $part1 = ''; $part1 = $1 . ' ' if defined $1; my $part6 = '';