Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

98_logProxy.pm: added polar to logProxy_sampleDataFn, fixed perl warning

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@7843 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
justme-1968 2015-02-03 12:17:25 +00:00
parent 418678815f
commit 79ea708100
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
FHEM/98_logProxy.pm
View File

@ -77,7 +77,7 @@ logProxy_sampleDataFn($$$$$)
my $desc = "Type,Spec"; my $desc = "Type,Spec";
my $columns = "ConstX,ConstY,Func,FileLog,DbLog"; my $columns = "ConstX,ConstY,Func,Polar,FileLog,DbLog";
my @htmlArr; my @htmlArr;
$max = 16 if($max > 16); $max = 16 if($max > 16);
@ -694,7 +694,7 @@ logProxy_Get($@)
if( $a[$i] =~ m/^(FileLog|DbLog):([^:]*):(.*)/ ) { if( $a[$i] =~ m/^(FileLog|DbLog):([^:]*):(.*)/ ) {
my @options = split( ',', $fld[1] ); my @options = split( ',', $fld[1] );
my $log_dev = $options[0]; my $log_dev = shift(@options);
my $infile = $fld[0] eq "DbLog" ? "HISTORY" : "CURRENT"; my $infile = $fld[0] eq "DbLog" ? "HISTORY" : "CURRENT";
my $column_specs = $3; my $column_specs = $3;
@ -714,7 +714,6 @@ logProxy_Get($@)
next; next;
} }
my @options = @options[1..@options-1];
while (@options) { while (@options) {
my $option = shift(@options); my $option = shift(@options);
while ($option && $option =~ m/={/ && $option !~ m/>}/ ) { while ($option && $option =~ m/={/ && $option !~ m/>}/ ) {
@ -723,7 +722,6 @@ logProxy_Get($@)
$option .= ",". $next; $option .= ",". $next;
} }
#foreach my $option ( @options[1..@options-1] ) {
my ($name,$value) = split( '=', $option, 2 ); my ($name,$value) = split( '=', $option, 2 );
if( $value ) { if( $value ) {