{package HTTP::Proxy::HeaderFilter::contentrange;

use HTTP::Proxy;
use base HTTP::Proxy::HeaderFilter;
use strict;

sub filter(){
	my ( $self, $headers, $message) = @_;

	if (
	    $message->isa('HTTP::Response') and
	    $message->code == 200 and
	    $range = $message->request->header('Content-Range')
	){
	    #Let's fix that nasty behaviour! ;-)
	    $message->code(206);
	    $message->header('Content-Range' => $range);

	    #XXX: Find a way to calc content-lenght
	    $message->remove_header('Content-Length');

	    #Mark this for body processing!
	    $self->SUPER::proxy->stash($message->uri => 1);
	}

}
1;

}