From 0dacab3435e2511b8a3099d77ffe55f5ed2b43f4 Mon Sep 17 00:00:00 2001
From: justme-1968 <justme-1968@users.noreply.github.com>
Date: Thu, 3 Sep 2015 10:33:15 +0000
Subject: [PATCH] 98_logProxy.pm: added SVG_regexpFn for longpollSVG: see forum
 http://forum.fhem.de/index.php/topic,40176.0.html

git-svn-id: https://svn.fhem.de/fhem/trunk@9197 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_logProxy.pm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/fhem/FHEM/98_logProxy.pm b/fhem/FHEM/98_logProxy.pm
index af743cfbc..5c817181f 100644
--- a/fhem/FHEM/98_logProxy.pm
+++ b/fhem/FHEM/98_logProxy.pm
@@ -36,6 +36,7 @@ sub logProxy_Initialize($)
   #$hash->{AttrList} = "disable:1 ";
 
   $hash->{SVG_sampleDataFn} = "logProxy_sampleDataFn";
+  $hash->{SVG_regexpFn}     = "logProxy_regexpFn";
 }
 
 
@@ -107,6 +108,28 @@ logProxy_sampleDataFn($$$$$)
 
   return ($desc, \@htmlArr, join("<br>", @example));
 }
+sub
+logProxy_regexpFn($$)
+{
+  my ($name, $filter) = @_;
+
+  my $ret;
+
+  my @a = split( ' ', $filter );
+  for(my $i = 0; $i < int(@a); $i++) {
+    my @fld = split(":", $a[$i]);
+    if( $a[$i] =~ m/^(FileLog|DbLog):([^:]*):(.*)/ ) {
+      my @options = split( ',', $fld[1] );
+      my $log_dev = shift(@options);
+      my $column_specs = $3;
+
+      $ret .= '|' if( $ret );
+      $ret .=  CallFn($log_dev, "SVG_regexpFn", $log_dev, $column_specs);
+    }
+  }
+
+  return $ret;
+}
 
 sub
 logProxy_Set($@)