Mailing-List: contact modperl-help@perl.apache.org; run by ezmlm
Precedence: bulk
Received-SPF: pass (hermes.apache.org: local policy)
Message-ID: <41B8C1EA.4000803@modperlcookbook.org>
Date: Thu, 09 Dec 2004 16:21:46 -0500
From: Geoffrey Young <geoff@modperlcookbook.org>
User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.3) Gecko/20040927
MIME-Version: 1.0
To: Stas Bekman <stas@stason.org>
CC: Malcolm J Harwood <mjhlist-modperl@liminalflux.net>,
   modperl@perl.apache.org
Subject: Re: bytes_received?
References: <200412091041.56654.mjhlist-modperl@liminalflux.net>
 <41B8ABAE.1020100@stason.org>
In-Reply-To: <41B8ABAE.1020100@stason.org>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit


Stas Bekman wrote:
> Malcolm J Harwood wrote:
> 
>> Is there an equivalent of Apache::RequestRec::bytes_sent for the size
>> of the incoming request? (I have a situation where I need to log the
>> size of the data transfer each way to a db). I've searched through the
>> docs (and google) and not found anything.
> 
> 
> 
>> The closest I've found to getting this is "length $r->as_string;"
>> which is ugly and likely very inefficient. Is there a better way? 
> 
> 
> $ENV{CONTENT_LENGTH} or $r->headers_in->{CONTENT_LENGTH}? Of course it's
> not guaranteed that it'll be set.

I don't think those are the same.  the Content-Length header is an entity
header - for the request it should represent the size of the message body IIRC.

I think what Malcolm is after is the size of the initial request, message
body, headers, and all, which there just doesn't seem to be an easy way to
get to.

Malcolm: keep in mind that $r->as_string may not be accurate, since it
simply loops through all the header tables, including the outbound headers -
if someone has put something in headers_out, even before the content has
been sent, it will show up.

you might be able to glean the size from a combination of $r->the_request,
$r->headers_in, and $r->content_length.

HTH

--Geoff

-- 
Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html