HTTP::Proxy traffic calculating

b888 has asked for the wisdom of the Perl Monks concerning the following question:

Greetings

I there any way to log binded incoming/outgoing requests details. For now I made only separate logging (without support chunks either).

$proxy->push_filter(
    request => HTTP::Proxy::BodyFilter::simple->new(
        sub {
            my ( $self, $dataref, $message,
                 $protocol, $buffer ) = @_;
            print "[".time_stamp()."][out ".
                  length($message->as_string() || '').
                  "] ".$message->uri()."\n";
        }
    )
);
$proxy->push_filter(
    response => HTTP::Proxy::BodyFilter::simple->new(
        sub {
            my ( $self, $dataref, $message, $protocol,
                 $buffer ) = @_;
            if( $$dataref ){
                print "[".time_stamp()."][in ".
                     length($$dataref)."]\n";
            }
        }
    )
);
[download]

Comment on HTTP::Proxy traffic calculating Download Code

Replies are listed 'Best First'.
Re: HTTP::Proxy traffic calculating by BooK (Curate) on Feb 22, 2005 at 13:22 UTC
`$message` is a `HTTP::Response` object when your filter is a response filter, so you can access the request via `$message->request()`. This should let you compute your stats in the response filter. Please note that HTTP::Proxy does currently behave well with large request bodies: it loads the whole request body in memory before processing and sending it to the next hop. This is more than often okay, except when you upload very laaaarge files.	[reply]
Re^2: HTTP::Proxy traffic calculating by b888 (Beadle) on Feb 22, 2005 at 14:37 UTC
The main problem is that incoming data (response from external sources) comes to defined filter in chunks. For example for google.com there are 4 chunks, means 4 calls of sub defined in `$proxy->push_filter(response => ...` And $$buffer value seems desapearing in last (always 0-sized) chunk. p.s. Thanks for great component :) Broken code tag repaired by davido.	[reply] [d/l]


Your skill will accomplish what the force of many cannot
	PerlMonks