From 1ce97ddd7022023910e728b9cc0558d33a595efb Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Tue, 8 Dec 2015 06:55:48 +0000
Subject: [PATCH] 92_FileLog.pm: remove FileLog regexp Parts patch (Forum
 #32706)

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@10129 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/92_FileLog.pm | 11 ++---------
 1 file changed, 2 insertions(+), 9 deletions(-)

diff --git a/fhem/FHEM/92_FileLog.pm b/fhem/FHEM/92_FileLog.pm
index 563c5db00..c3b6a4e8c 100755
--- a/fhem/FHEM/92_FileLog.pm
+++ b/fhem/FHEM/92_FileLog.pm
@@ -367,15 +367,8 @@ FileLog_fhemwebFn($$$$)
 
   $ret .= "<br>Regexp parts";
   $ret .= "<br><table class=\"block wide\">";
-  
-  my $regexp= $hash->{REGEXP};
-  my @ra= ();
-  while($regexp =~ /^(.+?:.+?)\|(.+?:.+)$/) {
-    push @ra, $1;
-    $regexp= $2;
-  }
-  push @ra, $regexp;
-  if(@ra > 0) {
+  my @ra = split(/\|/, $hash->{REGEXP});
+  if(@ra > 1) {
     foreach my $r (@ra) {
       $ret .= "<tr class=\"".(($row++&1)?"odd":"even")."\">";
       my $cmd = "cmd.X= set $d removeRegexpPart&val.X=$r"; # =.set: avoid JS