{package HTTP::Proxy::BodyFilter::contentRange;

use HTTP::Proxy;
use base HTTP::Proxy::BodyFilter;
use strict;


use base HTTP::Proxy::BodyFilter;

}

sub filter{
	my ($self, $dataref, $message, $protocol, $buffer) = @_;

	#Was this response marked for processing?
	if ( SUPER::proxy->stash($message->uri) == 1 ){

	    ######
	    # TO IMPLEMENT
	    # Parse Content-Range and select data to send.
	    ######

	    #XXX:  Wouldn't be wise to save content to a temp file and avoid
	    # filling up memory. Maybe use HPB::save?

	   #Delete entry from process table
	   delete SUPER->proxy->stash{$message->uri};
	}
}

1;
}