【Project peko】2ch特化型サーバ・ロケーション構築作戦 Part15

[565 動け動けウゴウゴ２ちゃんねる 04/11/22 07:49:03 ID:rH7Qo05H]

<Files *.cgi>
SetHandler perl-script
PerlResponseHandler ModPerl::Registry
PerlOptions +ParseHeaders
Options +ExecCGI
</Files>
Perlrequire "〜/startup.pl"

===startup.pl================================
use Apache2 ();
use subs qw(exit);
*exit = \&ModPerl::Util::exit;

1;
============================================

#!/usr/local/bin/perl

use strict;
use warnings;

if (exists $ENV{MOD_PERL}) {
my $path = $ENV{SCRIPT_FILENAME};
$path =~ s|/[^/]*$||;
chdir($path);
}