view release on metacpan or  search on metacpan

lib/Apache/FilteringProxy.pm  view on Meta::CPAN

	# some servers actually barf with a port of 80 specified...let it default =P 
	my $port_string = "";
	if ($remote_port ne "80") {
		$port_string = ":$remote_port";
	}

	$r->warn("requesting document 'http://$remote_servername$port_string$path' via '".$r->method()."' method") unless ($Apache::FilteringProxy::logging < 2);

	# Create a request object to use to fetch data from the remote server
	my $request = HTTP::Request->new ($r->method, "http://$remote_servername$port_string$path");

	# Copy the headers the client gave us into the new request object
	$r->headers_in->do (sub {
		my $name = shift;
		my $value = shift || "";

		$r->warn("client header: '$name'='$value'") unless ($Apache::FilteringProxy::logging < 2);

		my $bad_header = 0;
		foreach (keys %Apache::FilteringProxy::strip_headers) {