前回の続き。 特定のURLに特定のリファラを持ってアクセスがあった場合、どっか他のサイトにリダイレクト! ってのを作ってみる。 httpd.confはこんな感じ。 PerlSwitches -I/usr/local/apache2/site_perl PerlTransHandler Apache::Trans で、Apache::Transはこんな感じ。 package Apache::Trans; use strict; use APR::Table (); use Apache2::RequestRec (); use Apache2::Const -compile => qw(OK DECLINED REDIRECT); sub handler { my $r = shift; my $headers_table = $r->headers_in; if ($r->uri eq '
![久しぶりにmod_perlプログラミング (3)](https://cdn-ak-scissors.b.st-hatena.com/image/square/4eee10f345ca472cec1ec18bf02e3f728a890f38/height=288;version=1;width=512/https%3A%2F%2Frebecca.ac%2Fmilano%2Fmt%2Fassets_c%2F2013%2F12%2FSITE_ICON-thumb-320x320-5.jpg)