From 79ea708100fe3858aac23c6a4546b5854e8a06a4 Mon Sep 17 00:00:00 2001
From: justme-1968 <justme-1968@users.noreply.github.com>
Date: Tue, 3 Feb 2015 12:17:25 +0000
Subject: [PATCH] 98_logProxy.pm: added polar to logProxy_sampleDataFn, fixed
 perl warning

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

diff --git a/FHEM/98_logProxy.pm b/FHEM/98_logProxy.pm
index e274826b5..c0ab2b21a 100644
--- a/FHEM/98_logProxy.pm
+++ b/FHEM/98_logProxy.pm
@@ -77,7 +77,7 @@ logProxy_sampleDataFn($$$$$)
 
   my $desc = "Type,Spec";
 
-  my $columns = "ConstX,ConstY,Func,FileLog,DbLog";
+  my $columns = "ConstX,ConstY,Func,Polar,FileLog,DbLog";
 
   my @htmlArr;
   $max = 16 if($max > 16);
@@ -694,7 +694,7 @@ logProxy_Get($@)
 
     if( $a[$i] =~ m/^(FileLog|DbLog):([^:]*):(.*)/ ) {
       my @options = split( ',', $fld[1] );
-      my $log_dev = $options[0];
+      my $log_dev = shift(@options);
       my $infile = $fld[0] eq "DbLog" ? "HISTORY" : "CURRENT";
       my $column_specs = $3;
 
@@ -714,7 +714,6 @@ logProxy_Get($@)
         next;
       }
 
-      my @options = @options[1..@options-1];
       while (@options) {
         my $option = shift(@options);
         while ($option && $option =~ m/={/ && $option !~ m/>}/ ) {
@@ -723,7 +722,6 @@ logProxy_Get($@)
           $option .= ",". $next;
         }
 
-      #foreach my $option ( @options[1..@options-1] ) {
         my ($name,$value) = split( '=', $option, 2 );
 
         if( $value ) {
@@ -1200,7 +1198,7 @@ logProxy_Get($@)
             <ul>
               <code>#logProxy DbLog:dbLog,scale2reading={year=>'temperature_avg_day',month=>'temperature_avg_day'}:s300ht_1:temperature::</code><br>
             </ul><br>
-            
+
             <br></li>
         </ul>