FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 16:56:54 +00:00
Code Issues Releases Wiki Activity

Test with non-FHEM based FileLog

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@3139 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2013-04-30 10:45:14 +00:00
parent 5384865342
commit c766d53f12
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
fhem/FHEM/98_weblink.pm
View File

@ -242,13 +242,14 @@ wl_getRegFromFile($)
while($data = <$fh>) {
my @cols = split(" ", $data);
$maxcols = @cols if(@cols > $maxcols);
my $key = "$cols[1].$cols[2]";
$h{$key} = $data;
$cols[2] = "*" if($cols[2] =~ m/^[-\.\d]+$/);
$h{"$cols[1].$cols[2]"} = $data;
$h{"$cols[1].*"} = "" if($cols[2] ne "*");
}
$fh->close();
return ($maxcols+1,
join(",", sort keys %h),
join("<br>", map { $h{$_} } sort keys %h)),
join("<br>", grep /.+/,map { $h{$_} } sort keys %h)),
close(FH);
}
@ -301,9 +302,9 @@ wl_PEdit($$$$)
$ret .=" <td>Y-Axis,Plot-Type,Style,Width</td></tr>";
my ($colnums, $colregs, $coldata) = wl_getRegFromFile($file);
$colnums = join(",", 4..$colnums);
$colnums = join(",", 3..$colnums);
my $max = @{$conf{lAxis}}+1;
$max = 7 if($max > 7);
$max = 8 if($max > 8);
$max = 1 if(!$conf{lTitle}[0]);
my $r = 0;
for($r=0; $r < $max; $r++) {