package Apache::MyFilter; # Apache::MyFilter # mod_perl content filtering # # Created by Wim Kerkhoff # July 19, 2000 # wim@netmaster.com use strict; use Apache; use Apache::Constants qw(:common M_GET); use Apache::Proxy (); sub handler { my $r = shift; # only proceed if this is a proxy request return DECLINED unless $r->proxyreq; my $host = $r->connection->remote_ip() ; my $url = $r->uri; my $allowed = 1; if ($allowed) { proxy_handler($r, $url); } elsif ($allowed == 0) { PrintNotAllowed($r, "Sorry, you can't view this page", $url); } else { return FORBIDDEN; } } sub proxy_handler { my $r = shift; # let mod_proxy do the proxying for us... my $proxyuri = $r->uri; my $status = Apache::Proxy->pass($r, $proxyuri); my $uri = $proxyuri; my $footer =< Proxying provided by Apache::MyFilter;

END $r->print($footer) if ($uri !~ /gif$|png$|jpeg$|jpg$|bmp$|gz|txt/i); return DONE; } sub PrintNotAllowed { my $r = shift; my $message = shift; my $uri = shift; $r->send_cgi_header("Content-Type: text/html\n\n"); $r->print ( < Not Allowed
$message
END return DONE; } 1; __END__