%# 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/</g; # hide all the markup
% if($res->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.