Within a PerlCleanupHandler I'm trying to get hold of how much data has
been sent for interrupted transfers. I had used $r->last->bytes_sent in
apache1 but it always just contains the whole filesize in apache2
I'm trying to use apache2 filters to get an accurate result like logio.
I have the below code that appears to work correctly counting out in
intervals of BUFF_LEN, however when the download is ended early it
continues to loop and counts up to the full filesize.
How come it doesn't stop when the download is cancelled? I know it can
be done because logio.c can do it :)
I tried a connection example off the mod_perl site and i got one small
BB, and the next BB showed the full hundred Mb filesize, so also no good
for my purpose.
sub handler : FilterRequestHandler {
my $f = shift;
my $count = 0;
while ($f->read(my $buffer, BUFF_LEN)) {
$count += length($buffer);
warn length($buffer);
$f->print($buffer);
}
warn $count;
my $r = $f->r;
$r->pnotes('count'=>$count);
Apache2::Const::OK;
}
Help greatly appreciated, I can see that these filters are a better way
of doing things, but they're a bit outta my league using them
properly :)
