Home / What is mod_perl? / | ||||
Example PerlTransHandler | ||||
|
||
Anyone that's looked at web logs will quickly see the usefulness of this little mod_perl script. It catches all requests for favicon.ico and rewrites the request to point to a valid location. No more logs full of 404 errors.
This example is adapted from the mod_perl Developer's Cookbook, chapter 12.
file:Cookbook/Favicon.pm ------------------------ package Cookbook::Favicon; use Apache::Constants qw(DECLINED); use strict; sub handler { my $r = shift; $r->uri('/images/favicon.ico') if $r->uri =~ m!/favicon\.ico$! return DECLINED; } 1;
And configure in httpd.conf with:
PerlModule Cookbook::Favicon PerlTransHandler Cookbook::Favicon
Although this example could easily be accomplished with Apache's
mod_rewrite
module, this example demonstrates how easy it is to
rewrite URLs programatically, using Perl.
|