FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-08 13:24:56 +00:00
Code Issues Releases Wiki Activity

92_FileLog.pm: fix seekto Problem (Forum #45221)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@10111 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2015-12-06 11:06:00 +00:00
parent feda57b204
commit ab53d48738
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
fhem/FHEM/92_FileLog.pm
View File

@ -908,19 +908,22 @@ RESCAN:
}
###############
# this is not elegant
# this is not elegant. Assume, that current seek pos is after a cr/nl
sub
seekBackOneLine($$)
{
my ($fh, $pos) = @_;
my $buf;
$pos -= 2; # skip current CR/NL
while($pos > 0) { # skip current CR/NL
$fh->seek(--$pos, 0);
$fh->read($buf, 1);
last if($buf ne "\n" || $buf ne "\r");
}
$fh->seek($pos, 0);
while($pos > 0 && $fh->read($buf, 1)) {
if($buf eq "\n" || $buf eq "\r") {
$fh->seek(++$pos, 0);
return $pos;
}
return ++$pos if($buf eq "\n" || $buf eq "\r");
$fh->seek(--$pos, 0);
}
return 0;
@ -943,7 +946,7 @@ FileLog_seekTo($$$$$)
my $upper = $fh->tell;
my ($lower, $next, $last) = (0, $upper/2, -1);
while() { # Binary search
for(my $iter=0; $iter<200; $iter++) { # Binary search
if($next == $last) {
$fh->seek($next, 0);
last;