%# Ooooh...this is neato. % if(defined $CGI->param('url')) { % my($myreq) = $r->clone; % $myreq->uri(URI::Escape::uri_unescape($CGI->param('url'))); % $myreq->header("Host" => $myreq->uri->host_port); % &FilterProxy::handle_filtering($myreq, $myreq, -10); # call FilterProxy::Header % my($res) = $FilterProxy::agent->request($myreq); # Use Source's UserAgent object % &FilterProxy::handle_filtering($myreq, $res, 1,2,3); # Decode content (FilterProxy::Compress) % ${$res->content_ref} =~ s/>/>/g; # We're not changing mime-type, so % ${$res->content_ref} =~ s/is_redirect) { The request was redirected to: "><% $res->header("Location") %>
% }
<% $res->content %>
% } else {

FilterProxy::Source Config

Back to FilterProxy main configuration.

Source has no configuration. (it just views source...how complicated can it be?)

Pass a URL as the 'url' parameter in order to view source. % }


Source was written by John Waymouth, and retooled by Bob McElrath. Please see the README, BUGS, and any relevant module documentation before mailing me with problems.