Google Git
Sign in
apache / mod_perl / 1_31 / . / Makefile.PL
blob: 90e75264d18d912482cadb69f1f5d0125923d764 [file] [log] [blame]
#!perl
BEGIN {
$Is_Win32 = ($^O eq "MSWin32");
$Is_Cygwin = ($^O =~ m/cygwin/g);
if ($Is_Win32) {
require 5.004_02;
require Win32;
}
elsif ($Is_Cygwin) {
require 5.005_03;
}
else {
require 5.003_97;
}
}
sub MMN_130 () { 19980527 }
use Config ();
use Cwd;
use DirHandle ();
use ExtUtils::MakeMaker;
use File::Basename qw(dirname basename);
use File::Compare ();
use File::Copy qw(cp);
use File::Path qw(mkpath rmtree);
use FileHandle ();
*Config = \%Config::Config unless %Config;
my %vcache = (); #SERVER_VERSION
my %mcache = (); #MODULE_MAGIC_NUMBER
#version 1.5 that ships with 5.003 is broken!
*cp = sub {
system "cp @_";
for (@_) {
-e $_ or die $!;
}
} if $File::Copy::VERSION < 2.0;
my $Is_dougm = defined $ENV{USER} && $ENV{USER} eq "dougm";
my $USE_THREADS;
my $thrlib = join '|', qw(-lpthread);
if ($] < 5.005_60) {
$USE_THREADS = defined $Config{usethreads} &&
$Config{usethreads} eq "define";
}
else {
$USE_THREADS = defined $Config{use5005threads} &&
$Config{use5005threads} eq "define";
}
#hmm, seems the #include flip/flop isn't needed anymore
#so ignore the stuff above for now
$USE_THREADS = $ENV{PERL_USE_THREADS} || 0;
require "./lib/mod_perl.pm";
$VERSION = $mod_perl::VERSION = $mod_perl::VERSION;
{
$VERSION =~ s/(\d\d)(\d\d)$/$1_$2/;
}
{
local *FH;
open FH, "Changes";
while (<FH>) {
if (/^=item.*-(dev|rc\d+)/) {
$VERSION .= "-$1";
last;
}
last if /^=item/;
}
close FH;
}
use subs qw(iedit asrc);
if ($] < 5.004_04) {
print <<EOF;
I see you're building with Perl $]
It is strongly recommended that you upgrade to 5.004_04 or higher,
as there are memory leaks present in lower versions or Perl.
EOF
sleep 1;
}
%Apache::MyConfig::Setup = ();
eval 'require Apache::MyConfig' ;
$APACHE_SRC_DEFAULT = $@ ?
'../apache_x.x/src' :
$Apache::MyConfig::Setup{Apache_Src} ;
#workaround bug in 5.8.0-RC1 where Cwd::cwd creates $ENV{IFS}
#which makes apache configure fall apart on solaris
my $ifs_exists = exists $ENV{IFS};
my $PWD = cwd;
delete $ENV{IFS} unless $ifs_exists;
$ENV{APACHE_CWD} = $PWD;
$ENV{PERL5LIB} = join ':', "$PWD/lib", $ENV{PERL5LIB};
my %SSL = (
"modules/ssl/apache_ssl.c" => "Ben-SSL",
"apache_ssl.c" => "Ben-SSL",
"mod_ssl.h" => "Stronghold",
"modules/modssl" => "Stronghold",
);
unless (-e "t/docs/test.shtml") {
cp "t/docs/test.html", "t/docs/test.shtml";
}
for (qw(.htaccess hooks.txt)) {
my $file = "t/docs/$_";
local *FH;
open FH, ">$file" or
die "can't write test file: $file: $!";
chmod 0666, $file;
close FH;
}
chmod 0644, "t/conf/mod_perl_srm.conf";
mkdir "t/logs", 0777;
chmod 0777, "t/logs";
unless ($Is_Win32) {
system "chmod a+x t/net/perl/* t/net/perl/io/*";
}
#generated by us at one time or another
my(@do_clean) = qw{
t/docs/.htaccess
t/docs/hooks.txt
src/Configuration
lib/Apache/MyConfig.pm
Apache/Apache.xs
Constants/Constants.xs
t/modules/ssi.t
t/logs/error_log
t/conf/srm.conf
t/conf/dev-null
t/logs/httpd.pid
src/modules/perl/mod_perl_version.h
t/net/perl/cgi.pl
t/report
t/TEST
t/httpd
apaci/find_source
apaci/apxs_cflags
apaci/mod_perl.config
};
#t/conf/httpd.conf
#t/net/config.pl
for (@do_clean) { unlink $_ }
unless ($Is_Win32) {
rename "t/conf/httpd.conf", "t/conf/httpd.conf.old";
}
rmtree "t/docs/stacked", 0, 0;
gen_script("t/net/perl/cgi.pl");
gen_script("t/report");
gen_script("t/TEST");
gen_script("apaci/find_source");
gen_script("apaci/apxs_cflags");
gen_script("apaci/perl_config", "$PWD/lib");
gen_script("apaci/load_modules.pl");
write_version_h("src/modules/perl");
my(@test_pre_init) = qq(
test_pre_init:
);
# Automatic setup support
my(@adirs, %seen, %mft_map, %vers_map, $src_dir, $vers, $conf, $ans);
%vers_map = (
'1.1.1' => "Makefile.tmpl",
'1.1.3' => "Makefile.tmpl",
'1.2' => "Makefile.tmpl-1.2",
'1.1.1Xcert-Sentry' => "Makefile.tmpl-XCert",
'1.1.1Ben-SSL' => "Makefile.tmpl-Ben-SSL",
'1.1.3Ben-SSL' => "Makefile.tmpl-Ben-SSL",
'1.2Ben-SSL' => "",
NONE => "",
);
$LIBPERL = "DEFAULT";
$USE_APACI = $USE_DSO = $USE_APXS = 0;
$WITH_APXS = "";
$APACI_ARGS = "";
@APACI_ARGS = ();
$EVERYTHING = $EXPERIMENTAL = 0;
$PERL_DEBUG = "";
$PERL_DESTRUCT_LEVEL = "";
$PERL_STATIC_EXTS = "";
$PERL_USELARGEFILES = 1;
$PERL_EXTRA_CFLAGS = "";
$PERL_EXTRA_LIBS = "";
$SSLCacheServerPort = 8539;
$SSL_BASE = "";
$Port = $ENV{HTTP_PORT} || 8529;
#so Doug can 'make test' different-builds@sametime/samebox
if(!$Is_Win32 and $ENV{RANDOM_PORT} and $$ > 8000 and $$ < 30000) {
$PORT ||= $$;
print "I'll use Port $PORT\n";
}
$PORT ||= $Port;
$TARGET = "";
$DO_HTTPD = $ENV{DO_HTTPD} || 0;
$NO_HTTPD = $ENV{NO_HTTPD} || 0;
$PREP_HTTPD = 0;
$PERL_TRACE = 0;
$ALL_HOOKS = 0;
$APACHE_SRC = "";
$APACHE_PREFIX = "";
$APACHE_HEADER_INSTALL = 1;
$PERL_SECTIONS = 0;
$PERL_SSI = 0;
$ADD_VERSION = 1;
$STATIC = 1;
$DYNAMIC = 0;
$CONFIG = "";
$ADD_MODULE = "";
$PERL_DIRECTIVE_HANDLERS = 0;
$PERL_TABLE_API = 0;
$PERL_LOG_API = 0;
$PERL_URI_API = 0;
$PERL_UTIL_API = 0;
$PERL_FILE_API = 0;
$PERL_CONNECTION_API = 1; #these two were split out late in the game
$PERL_SERVER_API = 1; #so they are on by default
$PERL_RUN_XS = 0;
$MOD_PERL_PREFIX;
my %experimental = map { $_,1 } qw{
PERL_AUTOPRELOAD
PERL_RUN_XS
PERL_MARK_WHERE
DO_INTERNAL_REDIRECT
PERL_TIE_SCRIPTNAME
PERL_STASH_POST_DATA
XS_IMPORT
PERL_SAFE_STARTUP
PERL_DEFAULT_OPMASK
PERL_ORALL_OPMASK
};
my %PassEnv = map { $_,1 } qw(SSL_BASE);
my @mp_args = (keys %PassEnv,
qw(EXPERIMENTAL EVERYTHING DO_HTTPD NO_HTTPD CONFIG ADD_MODULE
APACHE_PREFIX
USE_APACI USE_DSO USE_APXS WITH_APXS APACI_ARGS PREP_HTTPD
ALL_HOOKS ADD_VERSION STATIC DYNAMIC PORT XS_IMPORT));
sub is_mp_arg {
my $arg = shift;
return 1 if $experimental{$arg};
for (@mp_args) {
return 1 if $arg eq $_;
}
return 0;
}
#callback hooks
@callback_hooks = qw{
PERL_DISPATCH
PERL_CHILD_INIT PERL_CHILD_EXIT
PERL_POST_READ_REQUEST PERL_TRANS PERL_HEADER_PARSER
PERL_ACCESS PERL_AUTHEN PERL_AUTHZ
PERL_TYPE PERL_FIXUP
PERL_HANDLER PERL_LOG
PERL_INIT PERL_CLEANUP PERL_RESTART
PERL_STACKED_HANDLERS
PERL_METHOD_HANDLERS
PERL_DIRECTIVE_HANDLERS
PERL_TABLE_API
PERL_LOG_API
PERL_URI_API
PERL_UTIL_API
PERL_FILE_API
PERL_CONNECTION_API
PERL_SERVER_API
};
$callback_alias{PERL_INIT} = "PERL_HEADER_PARSER";
$callback_alias{PERL_CLEANUP} = "PERL_LOG";
%callback_hooks = map { $_,0 } @callback_hooks;
$callback_hooks{PERL_HANDLER} = 1; #PerlHandler always on
%cant_hook = ();
my @mm_args;
{
my ($fh,$file);
for (qw(./ ../ ./. ../.), "$ENV{HOME}/.") {
last if $fh = FileHandle->new($file = $_."makepl_args.mod_perl");
}
if($fh) {
print "Reading Makefile.PL args from $file\n";
while(<$fh>) {
chomp;
s/^\s+//; s/\s+$//;
next if /^#/ || /^$/;
last if /^__END__/;
if (/^APACI_ARGS/) {
s/^APACI_ARGS=//;
push @APACI_ARGS, $_;
}
else {
unshift @ARGV, split /\s+/, $_;
}
}
close $fh;
}
if (@APACI_ARGS) {
unshift @ARGV, "APACI_ARGS=" . join(",", @APACI_ARGS);
}
}
my $vcpp = ($Config{cc} =~ /^cl(\.exe)?$/);
my %win32_args;
my %win32_accept = map {$_ => 1}
qw(APACHE_SRC INSTALL_DLL INSTALL_LIB DEBUG EAPI);
while($_ = shift) {
($k,$v) = split /=/, $_, 2;
if ($vcpp) {
if ($win32_accept{$k}) {
$win32_args{$k} = ($k eq 'DEBUG' or $k eq 'EAPI') ? 1 : $v;
}
else {
push @mm_args, $_;
}
next;
}
unless (/^(PERL|APACHE)/ or is_mp_arg($k)) {
push @mm_args, $_;
}
if ($k eq 'PREFIX') {
require File::Spec;
$MOD_PERL_PREFIX =
File::Spec->catfile(
$v,
$Config{'installstyle'},
'site_perl',
$Config{'version'},
$Config{'archname'}
);
}
$v = 1 unless defined $v;
if($experimental{$k}) {
$experimental{$k}++;
$PERL_EXTRA_CFLAGS .= " -D${k}=1";
}
${$k} = $v, next if defined ${$k};
$callback_hooks{$k} = $v if exists $callback_hooks{$k};
}
my $win32_auto;
if ($vcpp and $win32_args{APACHE_SRC}) {
$EVERYTHING = 1;
my $fixed_apsrc = win32_fix_path($win32_args{APACHE_SRC});
$APACHE_SRC = -d "$fixed_apsrc/include" ? $fixed_apsrc :
(-d "$fixed_apsrc/src/include" ? $fixed_apsrc . '/src' :
die "Cannot find the Apache include directory under $fixed_apsrc");
$win32_auto = 1;
unless ($win32_args{INSTALL_DLL}) {
my $w32_ap_mod = $fixed_apsrc . '/modules';
$win32_args{INSTALL_DLL} = $w32_ap_mod if -d $w32_ap_mod;
}
unless ($win32_args{INSTALL_LIB}) {
my $w32_ap_lib = $fixed_apsrc . '/libexec';
$win32_args{INSTALL_LIB} = $w32_ap_lib if -d $w32_ap_lib;
}
}
my %very_experimental = map {$_,1}
qw(
PERL_DEFAULT_OPMASK PERL_SAFE_STARTUP PERL_ORALL_OPMASK
PERL_STARTUP_DONE_CHECK PERL_DSO_UNLOAD
);
if ($EXPERIMENTAL) {
for (keys %experimental) {
next if $very_experimental{$_}; #have to *really* ask for this one
next if $experimental{$_}++ > 1;
$PERL_EXTRA_CFLAGS .= " -D$_=1";
}
}
if ($experimental{PERL_DEFAULT_OPMASK} > 1) {
$experimental{PERL_SAFE_STARTUP} = 2;
$PERL_EXTRA_CFLAGS .= " -DPERL_SAFE_STARTUP=1";
}
for (keys %PassEnv) {
$ENV{$_} = $$_ if $$_;
}
$USE_APACI = 1 if $USE_DSO;
if (0) {
#if($USE_DSO or $USE_APXS and !$DO_HTTPD) {
print "*" x 65, $/;
print <<EOF;
* WARNING: mod_perl as a DSO is known to fail on most platforms *
* We recommend linking mod_perl static instead *
EOF
print "*" x 65, $/;
my $ans = prompt("Continue?", "n");
if ($ans =~ /^n$/i) {
print "Aborting build process\n";
exit;
}
}
if ($USE_APXS) {
if(-e $USE_APXS and !(-d _)) {
$WITH_APXS = $USE_APXS;
}
if (not -x $WITH_APXS and $USE_APXS and $APACHE_PREFIX) {
for (qw(sbin bin)) {
last if -e ($WITH_APXS = "$APACHE_PREFIX/$_/apxs");
}
}
unless (-x $WITH_APXS) {
chomp($WITH_APXS = `which apxs`);
}
print "Will configure via APXS";
print " (apxs=$WITH_APXS)" if $WITH_APXS;
print "\n";
++$NO_HTTPD;
}
system_sanity_check();
if ($PERL_USELARGEFILES and $] >= 5.006) {
$PERL_EXTRA_CFLAGS .= " $Config{ccflags}";
}
# apache-1.3.xx won't compile with -D_GNU_SOURCE
$PERL_EXTRA_CFLAGS =~ s/-D_GNU_SOURCE//;
if ($USE_APACI) {
print "Will configure via APACI";
if ($USE_DSO) {
print " (DSO enabled)";
}
$NO_HTTPD = 1 if $PREP_HTTPD;
print "\n";
}
@ARGV = @mm_args;
$STATIC = 0 if $DYNAMIC;
$Configuration = $CONFIG || "Configuration";
for (keys %callback_alias) {
$callback_hooks{$callback_alias{$_}}++
if $callback_hooks{$_};
}
if ($EVERYTHING) {
@callback_hooks{qw(PERL_STACKED_HANDLERS PERL_METHOD_HANDLERS)} = (1) x 2;
for (qw(
ALL_HOOKS PERL_SSI PERL_SECTIONS PERL_DIRECTIVE_HANDLERS
PERL_LOG_API PERL_URI_API PERL_UTIL_API PERL_TABLE_API PERL_FILE_API
)) {
$$_ = 1;
}
}
if ($ALL_HOOKS) {
for (@callback_hooks) {
next if /(Api|Table|Handler)s?$/i;
$callback_hooks{$_}++;
}
}
if ($DYNAMIC) {
$PERL_DIRECTIVE_HANDLERS = $PERL_TABLE_API = $PERL_FILE_API =
$PERL_LOG_API = $PERL_URI_API = $PERL_UTIL_API = 1;
}
my @xs_modules = qw {
Apache Apache::Constants
};
if ($Is_Win32) {
$NO_HTTPD = 1;
$PERL_DIRECTIVE_HANDLERS = 1;
}
unless ($NO_HTTPD && !$PREP_HTTPD) {
for $src_dir ($APACHE_SRC, <../apache*/src>,
<../stronghold*/src>, </usr/local/stronghold*/src>,
"../src", "./src")
{
next unless -d $src_dir;
next if $seen{$src_dir}++;
next unless $vers = httpd_version($src_dir);
unless(exists $vers_map{$vers}) {
print STDERR "Apache version '$vers' unsupported\n";
next;
}
$mft_map{$src_dir} = $vers_map{$vers};
#print STDERR "$src_dir -> $vers_map{$vers}\n";
push @adirs, $src_dir;
$modified{$src_dir} = (stat($src_dir))[9];
last if $DO_HTTPD;
}
unless (@adirs) {
print "Enter `q' to stop search\n";
while(1) {
print "Please tell me where I can find your apache src\n" ;
$src_dir = prompt("", $APACHE_SRC_DEFAULT);
last if $src_dir eq "q";
if(-d $src_dir) {
push @adirs, $src_dir;
$mft_map{$src_dir} = $vers_map{httpd_version($src_dir)};
last;
}
else {
print "Can't stat `$src_dir'\n";
}
}
}
}
if ($PERL_DEBUG) {
my $lib = "$Config{archlibexp}/CORE/libperld$Config{lib_ext}";
if (-e $lib) {
$LIBPERL = "-lperld";
$libperl = " -- $LIBPERL";
}
$PERL_EXTRA_CFLAGS .= " -g";
$PERL_TRACE=1;
$PERL_DESTRUCT_LEVEL=2;
print "DEBUG mode...\n";
print "...adding `-g' to EXTRA_CFLAGS\n";
print "...turning on PERL_TRACE\n";
print "...setting PERL_DESTRUCT_LEVEL=2\n";
print "...linking against libperld\n" if $libperl;
sleep(1);
}
$PERL_EXTRA_CFLAGS .= " -DPERL_DESTRUCT_LEVEL=$PERL_DESTRUCT_LEVEL"
if $PERL_DESTRUCT_LEVEL;
for $adir (sort {$modified{$b} <=> $modified{$a}} @adirs) {
$conf = "$adir/$Configuration";
$httpd_h = asrc($adir)."/httpd.h";
if (-e $httpd_h) {
unless($NO_HTTPD and not $DYNAMIC and not $PREP_HTTPD) {
unless($DO_HTTPD) {
$ans = prompt("Configure mod_perl with $adir ?", "y");
next unless $ans =~ /^y$/i;
}
$APACHE_SRC = $adir;
$IsBenSSL = -e "$adir/apache_ssl.c";
last unless(-e $conf || -e "$conf.tmpl"); #building from 'make offsite-tar'
}
#++$NO_HTTPD if $USE_APACI;
my $mmn = magic_number($APACHE_SRC);
if (($mmn < MMN_130) and $USE_APACI) { #1.3.0
print "Sorry, need 1.3.0+ for USE_APACI\n";
$USE_APACI = $USE_DSO = 0;
}
for my $api (qw(LOG URI UTIL FILE TABLE)) {
local $_ = join "_", "PERL", $api, "API";
if (($mmn < MMN_130) and $$_) { #1.3.0
$$_ = 0;
$cant_hook{$_} = "(need 1.3.0 or higher)";
}
}
if ($USE_DSO and $PERL_SSI) {
$PERL_SSI=0;
$cant_hook{PERL_SSI} = "(doesn't work w/ USE_DSO=1)";
}
unless ($DO_HTTPD or $NO_HTTPD) {
$ans = prompt("Shall I build httpd in $adir for you?", "y");
++$NO_HTTPD, ++$PREP_HTTPD unless $ans =~ /^y$/i;
}
if ($NO_HTTPD) {
#must generate Makefile.config for 1.3bx
unless (-e "$adir/Makefile.config") {
my $cfgfile = $CONFIG ? $CONFIG : "Configuration";
print "(cd $adir && ./Configure -file $cfgfile)";
}
}
#copy the source files
if (!$NO_HTTPD or $USE_APACI or $PREP_HTTPD) {
mkpath "$adir/modules/perl";
#ignore make's output here
`(cd $adir/modules/perl && make clean 2> /dev/null)`;
local *MANI;
open MANI, "MANIFEST" or die "open MANIFEST $!";
my $atopdir = dirname($adir);
unlink "$atopdir/perlxsi.c";
#only rm and cp files mod_perl ships with
while(<MANI>) {
next unless m,^src/modules/perl/,; chomp;
#print "rm -f $adir/$_\n";
unlink "$atopdir/$_";
next if not m,.+\.(xs|c|h)$, and $USE_APACI;
next if $DYNAMIC and /\.xs$/;
#print "cp $_ $atopdir/$_\n" if $USE_APACI;
my $dest = "$atopdir/$_";
cp $_, $dest;
#$mani_src{$_}++;
}
close MANI;
cp "src/modules/perl/mod_perl_version.h",
"$atopdir/src/modules/perl/mod_perl_version.h";
if ($USE_APACI) {
open MANI, "MANIFEST" or die "open MANIFEST $!";
while(<MANI>) {
next unless m,^apaci/,; chomp;
s/\.PL$//;
(my $to = $_) =~ s,^apaci/,src/modules/perl/,;
unlink "$atopdir/$to";
print "cp $_ $atopdir/$to\n";
my $dest = "$atopdir/$to";
cp $_, $dest;
chmod 0755, $dest if -x $_;
}
close MANI;
}
}
($APACHE_ROOT = $APACHE_SRC) =~ s,/src/?$,,;
last if $NO_HTTPD; # or $USE_APACI;
unless (-e "src/Configuration" and (-M "src/Configuration" < -M $conf) and not $USE_APACI) {
unless (-e $conf) {
cp "$conf.tmpl", $conf;
}
cp $conf, "src/Configuration";
$conf = "src/Configuration";
conf_fixup("$adir/Makefile.tmpl", $conf);
}
}
unless ($NO_HTTPD || $USE_APACI) {
$conf = "src/Configuration";
my ($dash_make, $cfgfile);
$dash_make = " -make $PWD/src/$mft_map{$adir} "
if $can_dash_make{asrc $adir} and $mft_map{$adir};
#print STDERR "(cd $adir; ./Configure${dash_make} -file $PWD/$conf)\n";
$cfgfile = $CONFIG ? $CONFIG : "$PWD/$conf";
$dash_make ||= "";
system "(cd $adir && ./Configure${dash_make} -file $cfgfile)";
open FH, "$APACHE_SRC/Makefile" or
die "can't open $APACHE_SRC/Makefile $!";
while(<FH>) {
$SSL_BASE ||= $1 if /^\s*SSL_BASE\s*=\s*(.*)/;
$EXTRA_CFLAGS = $1 if /CFLAGS1\s*=\s*(.*)/;
$SSLINCS = $1 if /SSLINCS\s*=\s*(.*)/;
}
close FH;
if ($SSL_BASE) {
$SSL_INCLUDE = " -I$SSL_BASE/include ";
$SSL_CFLAGS = "-DAPACHE_SSL $SSL_INCLUDE";
}
#stronghold
if ($SSLINCS) {
$SSL_INCLUDE = " $SSLINCS ";
$SSL_CFLAGS = "-DAPACHE_SSL $SSL_INCLUDE";
}
}
print "EXTRA_CFLAGS: $EXTRA_CFLAGS\n" if $EXTRA_CFLAGS;
print "SSL_CFLAGS: $SSL_CFLAGS\n" if $SSL_CFLAGS;
last if $APACHE_SRC;
}
if ($PERL_DIRECTIVE_HANDLERS) {
push @xs_modules, "Apache::ModuleConfig";
$callback_hooks{PERL_DIRECTIVE_HANDLERS} = 1;
}
#if($PERL_RUN_XS or $experimental{PERL_RUN_XS} > 1) {
if (0) {
my $mmn = $USE_APXS ? MMN_130 : magic_number($APACHE_SRC);
if($mmn >= MMN_130) {
push @xs_modules, "Apache::PerlRunXS";
}
else {
$PERL_RUN_XS = 0;
$experimental{PERL_RUN_XS} = 0;
print "Sorry, need 1.3.0+ for Apache::PerlRunXS\n";
}
}
for (qw(Log URI Util Connection Server File Table)) {
my $s = "PERL_".uc($_)."_API";
if($$s or $Is_Win32) {
push @xs_modules, "Apache::$_";
$callback_hooks{$s} = 1;
}
}
my @xs_mod_snames = map { (my $s = $_) =~ s/.*:://; $s } @xs_modules;
win32_setup() if $Is_Win32;
if ($DYNAMIC) {
print "Will build Apache::* extensions dynamic\n";
for (@xs_mod_snames) {
cp "src/modules/perl/${_}.xs", "${_}/${_}.xs";
}
}
if ($APACHE_SRC or $USE_APXS) {
++$STATIC if grep { $_ eq lc($Config{osname}) } qw(aix svr4 unixware);
my $mmn = $USE_APXS ? MMN_130 : magic_number($APACHE_SRC);
my $httpdv = $USE_APXS ? 130 : httpd_version($APACHE_SRC,1);
unless ($httpdv >= 130) {
phat_warn("Apache Version 1.3.0 required, aborting...");
exit(1);
}
if ($httpdv >= 130) {
if($callback_hooks{PERL_CHILD_INIT}) {
$My::child_init++;
}
}
else {
$callback_hooks{PERL_CHILD_INIT} = 0;
$cant_hook{PERL_CHILD_INIT} =
"(need 1.3.0 or higher)";
}
if ($mmn >= 19970728) {
$callback_hooks{PERL_CHILD_EXIT} = $My::child_exit =
$callback_hooks{PERL_CHILD_INIT} = $My::child_init = 1;
}
else {
$callback_hooks{PERL_CHILD_EXIT} = 0;
$cant_hook{PERL_CHILD_EXIT} =
"(need 1.3.0 or higher)";
}
unless($mmn >= 19970825) {
$callback_hooks{PERL_POST_READ_REQUEST} = 0;
$cant_hook{PERL_POST_READ_REQUEST} =
"(need 1.3.0 or higher)";
}
setup_for_static() unless $USE_APXS;
iedit "$APACHE_SRC/modules/perl/Makefile",
"s!^PERL\\s*=.*!PERL=$Config{'perlpath'}!" unless $USE_APACI or $USE_APXS;
for (@callback_hooks) {
($k,$v) = ($_,$callback_hooks{$_});
unless ($USE_APACI or $USE_APXS) {
iedit "$APACHE_SRC/modules/perl/Makefile", "s/^$k /#$k /" if $v;
}
$why = ($cant_hook{$k} || "(enable with $k=1)") unless $v;
$k =~ s/([A-Z]+)/ucfirst(lc($1))/ge;
$k =~ s/_//g;
$k .= "Handler" unless $k =~ /(Api|Table|Handler)s?$/;
push @mod_perl_hooks, $k;
print $k . '.' x (28 - length($k));
print $v ? "enabled\n" : "disabled $why\n";
}
unless($httpdv >= 120) {
$PERL_SECTIONS = $PERL_SSI = 0;
$cant_hook{PERL_SECTIONS} = $cant_hook{PERL_SSI} =
"(need 1.2.0 or higher)";
}
$PERL_SSI = 0 if $Is_Win32;
unless ($Is_Win32) {
for (qw(PERL_SECTIONS PERL_SSI), keys %experimental) {
$k = $_;
if ($experimental{$_}) {
next unless $experimental{$_} > 1;
print $k . '.' x (28 - length($k));
print "enabled (experimental)";
}
else {
$why = ($cant_hook{$_} || "(enable with $k=1)") unless $$_;
$k =~ s/([A-Z]+)/ucfirst(lc($1))/ge;
$k =~ s/_//g;
$k =~ s/Ssi$/SSI/; #*shrug*
push @mod_perl_hooks, $k;
print $k . '.' x (28 - length($k));
print $$_ ? "enabled" : "disabled $why\n";
}
print "\n";
unless ($USE_APACI or $USE_APXS) {
iedit "$APACHE_SRC/modules/perl/Makefile", "s/^($_) /#\$1 /"
if $$_;
}
}
}
unless ($USE_APACI or $USE_APXS) {
iedit "$APACHE_SRC/modules/perl/Makefile", "s/^#TRACE/TRACE/" if $PERL_TRACE;
}
my $ssl_name = is_ssl();
if ($ssl_name) {
print "I see you are building with $ssl_name,\nI'll set the SSL flags in mod_perl's Makefile\n";
if ($ssl_name =~ /stronghold/i) {
my $skey;
my $lfile;
my $conf = "$APACHE_SRC/../conf/httpd.conf";
if(-e $conf) {
open FH, $conf;
while(<FH>) {
chomp;
if(/^StrongholdKey/) {
$skey = $_;
last;
}
elsif(s/^StrongholdLicenseFile\s+//) {
$lfile = $_;
unless ($lfile =~ m:^/:) {
$lfile = "$PWD/$APACHE_SRC/../$lfile";
}
}
}
close FH;
}
if ($skey) {
$StrongholdKey = $skey;
print "Using $skey for 'make test'\n";
}
elsif (-e $lfile) {
$StrongholdKey = join " ",
"StrongholdLicenseFile", $lfile;
print "Using $StrongholdKey for 'make test'\n";
}
else {
print "Before running `make test', ",
"you must add your `StrongholdLicenseFile' to t/conf/httpd.conf\n";
}
}
unless ($USE_APACI or $USE_APXS) {
iedit "$APACHE_SRC/modules/perl/Makefile",
"s:^#APACHE_SSL.*:APACHE_SSL = $SSL_CFLAGS:";
}
}
#my $incdir = ($mmn >= 19970825) ? "../../main" : "../..";
my $minc = asrc($APACHE_SRC);
$minc =~ /(main|include)/;
my $incdir = $1 ? "../../$1" : "../..";
my $edit_note = quotemeta(<<EOF);
#### Start of Makefile.PL created section ####
#---------------------------------------------------------------------
# This Makefile is derived from:
# $PWD/src/modules/perl/Makefile
# which comes with the mod_perl distribution and
# written by mod_perl's Makefile.PL.
# Rerunning Makefile.PL overwrites this file. Consequently...
# DO NOT EDIT THIS FILES, EDIT
# $PWD/src/modules/perl/Makefile
# INSTEAD
#---------------------------------------------------------------------
MOD_PERL_VERSION = $VERSION
INCDIR = $incdir
EOF
unless ($USE_APACI or $USE_APXS) {
iedit "$APACHE_SRC/modules/perl/Makefile", "s/^#__ORIGINAL__/$edit_note/";
}
if ($mmn >= 19970912 and not $USE_APACI and not $USE_APXS and not $Is_Win32) { #1.3b1
system "cat $APACHE_SRC/Makefile.config $APACHE_SRC/modules/perl/Makefile > /tmp/mpmf.$$";
system "mv /tmp/mpmf.$$ $APACHE_SRC/modules/perl/Makefile";
}
if ($callback_hooks{PERL_TRANS}) {
push @test_pre_init,
"\t", '$(CP) t/conf/mod_perl_srm.conf t/conf/srm.conf', "\n";
}
unless ($USE_APXS) {
unless (-l "t/httpd" or $Is_Win32) {
system "$Config{lns} $APACHE_SRC/httpd t/httpd";
}
write_extra_tests();
}
}
unless (-e "t/net/config.pl") {
cp "t/net/config.pl.dist", "t/net/config.pl";
}
init_config_pl() if $Is_Win32;
my (%win32_path);
if ($win32_auto) {
require File::Spec;
win32_inc_and_lib();
win32_fix_dsp();
}
write_my_config($APACHE_SRC);
unless($Is_Win32 or -e "t/conf/httpd.conf" or ($NO_HTTPD && !$PREP_HTTPD)) {
init_tests_and_config();
}
init_tests_and_config() if $USE_APXS;
sub init_config_pl {
my $mmn = magic_number($APACHE_SRC) || 0;
my $hf = FileHandle->new(">>t/net/config.pl") or
die "can't open t/net/config.pl $!";
my $apaci_cfg = APACI->init;
my ($k,$v);
my (%all) = %callback_hooks;
while (($k,$v) = each %experimental) {
$all{$k} = ($experimental{$k} > 1) ? 1 : 0;
}
print $hf "%callback_hooks = (\n";
while (($k,$v) = each %all) {
print $hf " $k => $v,\n";
my $yes_no = $v ? "yes" : "no";
print $apaci_cfg "$k = $yes_no\n" if $apaci_cfg;
}
print $hf " MMN => $mmn,\n";
print $hf " USE_DSO => 1,\n" if $USE_DSO;
print $hf ");\n1;\n";
$hf->close;
$apaci_cfg->close if $apaci_cfg;
}
sub init_tests_and_config {
local *FH;
open FH, ">t/conf/dev-null";
print FH "#mod_ssl has a problem with /dev/null\n";
close FH;
cp "t/conf/httpd.conf-dist", "t/conf/httpd.conf";
chmod 0644, "t/conf/httpd.conf";
$uid = $>;
$gid = $);
#use only first value if $) contains more than one
$gid =~ s/^(\d+).*$/$1/;
$User = $Is_Win32 ? "nobody" :
$ENV{APACHE_USER} || (getpwuid($uid) || "#$uid");
$Group = $Is_Win32 ? "nogroup" :
$ENV{APACHE_GROUP} || (getgrgid($gid) || "#$gid");
if ($User eq "root") {
my $other = (getpwnam('nobody'))[0];
$User = $other if $other;
}
if ($User eq "root") {
print "Cannot run tests as User `$User'\n";
$User = prompt("Which User?", "nobody");
$Group = prompt("Which Group?", $Group);
}
print STDERR "Will run tests as User: '$User' Group: '$Group'\n";
if ($Port != $PORT) {
iedit "t/conf/httpd.conf", "s/^(Port) .*/\$1 $PORT/";
iedit "t/net/config.pl", "s/$Port/$PORT/;";
}
if ($experimental{PERL_SAFE_STARTUP} > 1) {
if ($experimental{PERL_DEFAULT_OPMASK} < 2) {
iedit "t/conf/httpd.conf", "s/^#(PerlOpmask)/\$1/";
}
}
init_config_pl();
if ($USE_APACI and not $PREP_HTTPD and not $USE_APXS) {
my $shrpenv = $Config{shrpenv} || "";
$shrpenv .= ' ' if $shrpenv;
my $cmd = "CC=\"${shrpenv}$Config{cc}\" ";
if ($PERL_EXTRA_CFLAGS) {
$cmd .= qq(CFLAGS="$PERL_EXTRA_CFLAGS" );
}
if ($USE_DSO) {
# override apache's notion of this flag
$cmd .= qq(LDFLAGS_SHLIB_EXPORT="$Config{ccdlflags}" );
#if Perl is linked with -lpthread, httpd needs tobe too
if ($Config{libs} =~ /($thrlib)/) {
$PERL_EXTRA_LIBS .= " $1";
}
}
if ($PERL_EXTRA_LIBS) {
$cmd .= qq(LIBS="$PERL_EXTRA_LIBS" );
}
$cmd .= "./configure " .
"--activate-module=src/modules/perl/libperl.a";
# Do not disable the rule EXPAT for Stronghold, since this
# rule is not implementated yet and breaks the configure process.
if (is_ssl() !~ /stronghold/i) {
$cmd .= " --disable-rule=EXPAT";
}
if($USE_DSO) {
$cmd .= " --enable-shared=perl";
}
if($APACI_ARGS) {
$cmd .= " " . join " ", split(',', $APACI_ARGS);
}
if($APACHE_PREFIX and $APACI_ARGS !~ /--prefix=/) {
$cmd .= " --prefix=$APACHE_PREFIX";
}
if ($APACI_ARGS =~ /--target=(\S+)/) {
$TARGET = $1;
}
if($ADD_MODULE) {
for (split ",", $ADD_MODULE) {
if (/^([a-zA-Z0-9][a-zA-Z0-9_]+)$/) {
$cmd .= " --enable-module=$1";
}
elsif (m:(src/modules/[^/]+/[^/]+)$:) {
$cmd .= " --activate-module=$1";
}
}
}
print "(cd $APACHE_ROOT && $cmd)\n";
system "(cd $APACHE_ROOT && $cmd)";
}
if ($USE_APXS) {
my $cmd = "./configure --with-perl=$^X";
$cmd .= " --with-apxs=$WITH_APXS" if $WITH_APXS;
system "(cd apaci && $cmd)";
}
#expand ./t to full path
iedit "t/conf/httpd.conf", "s: \./t(\\S*): $PWD/t\$1:";
for (qw(User Group)) {
$$_ = qq{"$$_"} if $$_ =~ /\s/; # User takes one parameter
iedit "t/conf/httpd.conf", "s/^$_ .*/$_ $$_/";
}
conf_append(<<EOF) if $IsBenSSL;
SSLDisable
SSLCacheServerPort $SSLCacheServerPort
SSLCacheServerPath /tmp
EOF
conf_append($StrongholdKey) if $StrongholdKey;
if (is_ssl() =~ /stronghold/i) {
iedit "t/conf/httpd.conf", "s:^SSL:#SSL:";
}
#phooey!
my $v = httpd_version($APACHE_SRC, 1);
my $mmn = magic_number($APACHE_SRC) || 0;
conf_append("LockFile logs/mod_perl.lock") if $v >= 121 or $mmn >= MMN_130;
conf_append("PerlChildInitHandler My::child_init") if $My::child_init;
conf_append("PerlChildExitHandler My::child_exit") if $My::child_exit;
conf_append("PerlTransHandler My::ProxyTest")
if $callback_hooks{PERL_TRANS} and
$callback_hooks{PERL_STACKED_HANDLERS} and
$mmn > 19980270 and $Is_dougm;
conf_append(<<EOF) if $callback_hooks{PERL_STACKED_HANDLERS};
<Location /chain>
SetHandler perl-script
PerlHandler Stacked::one Stacked::two Stacked::three Stacked::four
</Location>
EOF
}
{
(my $pmv = $VERSION) =~ s/_//g;
$pmv =~ s/-dev$//;
my $hooks = "@mod_perl_hooks";
my $dummy = "hooks=`$hooks'\n" unless $hooks;
cp "lib/mod_perl_hooks.pm.PL", "lib/mod_perl_hooks.pm";
if ($Is_Win32) {
my @args = ($^X, '-spi.bak', '-e', "\"s/sub mod_perl::hooks.*/sub mod_perl::hooks { qw($hooks) }/\"", 'lib/mod_perl_hooks.pm');
system(@args) == 0 or die "@args failed\n";
}
iedit "lib/mod_perl_hooks.pm",
qq(s/sub mod_perl::hooks.*/sub mod_perl::hooks { qw($hooks) }/);
require "lib/mod_perl_hooks.pm";
my @list = mod_perl::hooks();
unless ($Is_Cygwin) { # test doesn't seem to be needed, works for me (Per Einar)
@list == @mod_perl_hooks or die "Edit of lib/mod_perl_hooks.pm failed $!\n";
}
unlink $Is_Win32 ? "lib/mod_perl_hooks.pm.bak" : "lib/mod_perl_hooks.pm~";
}
#checking for LWP code, borrowed from LWP's own Makefile.PL :-)
unless ($Is_Win32) {
print "Checking CGI.pm VERSION..........";
eval {
require CGI;
};
if ($CGI::VERSION >= 2.39) {
print "ok\n";
}
else {
print "I suggest upgrading from $CGI::VERSION to 2.39+\n";
sleep 2;
}
print "Checking for LWP::UserAgent......";
eval {
require LWP::UserAgent;
};
if ($@) {
$no_lwp++;
$missing_modules++;
print "failed\n";
print <<EOT;
$@
The libwww-perl library is needed to run the test suite.
Installation of this library is recommended, but not required.
EOT
sleep(2); # Don't hurry too much
}
else {
print "ok\n";
}
print "Checking for HTML::HeadParser....";
eval {
require HTML::HeadParser;
};
if ($@) {
$no_lwp++;
$missing_modules++;
print "failed\n";
print <<EOT;
$@
The HTML-Parser package is needed (by libwww-perl) to run the test suite.
EOT
sleep(2); # Don't hurry too much
}
else {
print "ok\n";
}
}
sub is_ssl {
my $d = shift || $APACHE_SRC;
for (keys %SSL) {
#warn "looking for $APACHE_SRC/$_\n";
return $SSL{$_} if -e "$d/$_";
}
return 0;
}
sub write_extra_tests {
#ensure we can find blib/
local *FH;
open FH, ">t/docs/blib.pl";
print FH "use lib qw(\n",
(map { "$PWD/$_\n" } qw(blib/lib blib/arch)),
");\n1;\n";
close FH;
for my $f (qw(.htaccess hooks.txt)) {
open FH, ">t/docs/$f";
print FH " ";
close FH;
chmod 0666, "t/docs/$f";#make sure httpd can write to it
}
if ($PERL_SSI) {
cp "t/modules/ssi.test", "t/modules/ssi.t";
}
else {
unlink "t/modules/ssi.t"; # might be there from prior run
}
mkdir "t/docs/subr", 0755;
if ($Is_Win32) {
open FH, ">t/docs/subr/index.html"
or die "Cannot open t/docs/subr/index.html: $!";
print FH scalar(localtime);
close FH;
}
else {
system "date > t/docs/subr/index.html";
}
return unless
$callback_hooks{PERL_STACKED_HANDLERS}
and $callback_hooks{PERL_FIXUP};
local *FH;
my $meth_test;
if ($callback_hooks{PERL_METHOD_HANDLERS}) {
$meth_test = <<'EOF';
#see startup.pl
PerlFixupHandler MyClass->method
PerlFixupHandler $MyClass::Object->method
PerlFixupHandler MyClass
PerlFixupHandler LoadClass
PerlFixupHandler LoadClass->method
EOF
}
my $dir = "t/docs/stacked";
mkdir $dir, 0755;
cp "t/docs/test.html", $dir;
open FH, ">$dir/.htaccess";
print FH <<EOF;
$meth_test
PerlFixupHandler Apache::Constants::OK Apache::Constants::DECLINED MyClass::method
EOF
close FH;
}
cp "t/conf/httpd.conf", "t/httpd.conf";
if ($ENV{TEST_PERL_DIRECTIVES}) {
#push @DIR, 't/TestDirectives';
if($Is_dougm and $USE_THREADS) {
delete $ENV{TEST_PERL_DIRECTIVES};
}
else {
system "(cd t/TestDirectives && $^X Makefile.PL)";
}
}
$TARGET ||= (is_ssl() ? "httpsd" : "httpd");
WriteMakefile(
#DIR => \@DIR,
NAME => "mod_perl",
VERSION => $VERSION,
($] < 5.005 ? () :
(
ABSTRACT => 'Embed a Perl interpreter in the Apache HTTP server',
AUTHOR => 'Doug MacEachern <dougm@pobox.com>',
)),
#should override `CCFLAGS', can't with older perls
#CCDLFLAGS => "$Config{ccdlflags} $EXTRA_CFLAGS",
DEFINE => $EXTRA_CFLAGS,
macro => {
PERL => $Config{'perlpath'},
OPCODE_FILE => "src/opcodes.txt",
APACHE_ROOT => $APACHE_ROOT,
APACHE_SRC => $APACHE_SRC,
ARCHNAME => $Config{archname},
HTTPD => $TARGET,
PORT => $PORT,
PWD => $PWD,
PERL5LIB_ENV => "PERL5LIB=$ENV{PERL5LIB}",
SHRPENV => $Config{shrpenv},
CVSROOT => 'cvs.apache.org:/home/cvs',
},
'dist' => {
COMPRESS=> 'gzip -9f', SUFFIX=>'gz',
CI => qq(ci -u -m\\"See Changes file\\"),
},
clean => {
FILES => "@do_clean",
}
);
print "*** BSDI users: be sure to read the INSTALL `Notes' section ***\n"
if $Config{osname} =~ /bsdos/i;
cleanup_for_static();
sub MY::dist_basics {
my $self = shift;
my $string = $self->MM::dist_basics;
if($USE_APXS) {
$string =~ s/(distclean\s+::\s+)/$1 apxs_distclean /;
}
return $string;
}
sub MY::clean {
my $self = shift;
my $string = $self->MM::clean(@_);
if ($win32_auto) {
$string .= sprintf
qq{\tmsdev src\\modules\\win32\\mod_perl.dsp \\\n} .
qq{\t/MAKE "mod_perl - Win32 %s" /CLEAN\n},
($win32_args{DEBUG} == 1) ? 'Debug' : 'Release';
return $string;
}
unless($NO_HTTPD) {
my $asrc = asrc($APACHE_SRC, "http_main.c");
return $string unless $APACHE_SRC and -e "$asrc/http_main.c";
$string .= "\t-cd \$(APACHE_SRC) && \$(MAKE) clean\n";
}
if ($USE_APXS) {
$string .= "\t-cd ./apaci && \$(MAKE) clean\n";
}
$string;
}
sub MY::install {
my $self = shift;
my $string = $self->MM::install;
my $add = "";
if ($USE_APXS) {
$add = "apxs_install";
}
elsif ($win32_auto and
($win32_args{INSTALL_DLL} or $win32_args{INSTALL_LIB})) {
$add = 'amp_install';
}
elsif ($USE_APACI) {
if ($APACI_ARGS =~ /--prefix=/ or $APACHE_PREFIX) {
$add = "apaci_install";
}
}
if ($add and (!$NO_HTTPD and !$PREP_HTTPD) or $USE_APXS or $win32_auto) {
$string =~ s/(pure_install\s+)(.*)/$1 $add $2/;
}
return $string;
}
sub MY::top_targets {
my $self = shift;
my $string = $self->MM::top_targets;
return $string unless $USE_APXS or $USE_APACI or $APACHE_SRC or $win32_auto;
if ($win32_auto) {
$string =~ s/(pure_all\s+::.*\s+subdirs\s+)(.*)/$1 amp_dll $2/;
$string .= sprintf qq{\namp_dll:\n} .
qq{\tmsdev src\\modules\\win32\\mod_perl.dsp \\\n} .
qq{\t/MAKE "mod_perl - Win32 %s" /USEENV\n},
($win32_args{DEBUG} == 1) ? 'Debug' : 'Release';
if ($win32_args{INSTALL_DLL}) {
$string .= sprintf qq{\namp_install:\n\t\$(CP) "%s" "%s"},
"$win32_path{MODPERL_LIB}/mod_perl.so",
$win32_args{INSTALL_DLL} .
($win32_args{APACHE_VERS} < 1315 ?
'/ApacheModulePerl.dll' : '/mod_perl.so');
}
if ($win32_args{INSTALL_LIB}) {
$string .= sprintf qq{\n\t\$(CP) "%s" "%s"},
"$win32_path{MODPERL_LIB}/mod_perl.lib",
$win32_args{INSTALL_LIB} . '/mod_perl.lib';
}
return $string;
}
if ($USE_APXS) {
$string =~ s/(pure_all\s+::\s+)(.*)/$1 apxs_libperl $2/;
}
elsif ($USE_APACI and !$PREP_HTTPD) {
$string =~ s/(pure_all\s+::\s+)(.*)/$1 apaci_httpd $2/;
}
elsif ($APACHE_SRC) {
return $string unless -f "$APACHE_SRC/$Configuration";
my $asrc = asrc($APACHE_SRC, "http_main.c");
if (-e "$asrc/http_main.c" and !$NO_HTTPD) {
$string =~ s/(pure_all\s+::\s+)(.*)/$1 apache_httpd $2/;
}
}
$string .= <<'EOF';
gen_exports:
$(PERL) -I./lib -MExtUtils::testlib -MApache::Constants::Exports \
-e 'Apache::Constants::Exports->gen_ctags' > Exports.c
gen_op_mask:
$(PERL) -MExtUtils::testlib -MApache::Opcode \
-e 'Apache::Opcode->gen_op_mask' -- $(OPCODE_FILE) > op_mask.c
update_op_mask: gen_op_mask
@$(RM_F) $(APACHE_SRC)/modules/perl/mod_perl_opmask.o
$(CP) op_mask.c $(APACHE_SRC)/modules/perl/op_mask.c
apxs_distclean:
(cd ./apaci && $(MAKE) distclean)
apxs_libperl:
(cd ./apaci && $(PERL5LIB_ENV) $(MAKE))
apxs_install: apxs_libperl
(cd ./apaci && $(MAKE) install;)
apache_httpd: $(APACHE_SRC)/Makefile.tmpl
(cd $(APACHE_SRC) && $(PERL5LIB_ENV) $(SHRPENV) $(MAKE) CC="$(CC)";)
apaci_httpd:
(cd $(APACHE_ROOT) && $(PERL5LIB_ENV) $(MAKE))
apaci_install:
(cd $(APACHE_ROOT) && $(MAKE) install)
tar_Apache:
(cd $(INSTALLSITELIB)/$(ARCHNAME); \
$(TAR) -cf $(PWD)/Apache.tar mod_perl.pm Apache.pm Apache auto/Apache; )
offsite-tar:
$(CP) MANIFEST MANIFEST.orig
echo src/Makefile.config >> MANIFEST
$(CP) $(APACHE_SRC)/Makefile.config src/Makefile.config
mkdir "src/include"
$(PERL) -e 'for (<$(APACHE_SRC)/include/*.h>) {' \
-e 'system "$(CP) $$_ src/include/";' \
-e 's,^$(APACHE_SRC),,;' \
-e 'system "echo src$$_ >> MANIFEST";' \
-e '}'
$(MAKE) dist
$(RM_RF) src/include/
$(RM) src/Makefile.config
$(MV) MANIFEST.orig MANIFEST
EOF
$string;
}
sub MY::pasthru {
my $self = shift;
return unless $APACHE_SRC;
chomp(my $str = $self->MM::pasthru);
join $/, "$str\\",
"\t".'APACHE_SRC="$(APACHE_SRC)"\\',
"\t".'DEFINE="$(DEFINE)"',
"";
}
sub MY::test {
my $self = shift;
my $test = $self->MM::test;
my $mmn = magic_number($APACHE_SRC);
return <<'EOF' if $USE_APXS and not $Is_dougm;
test:
@echo "Can't make test with APXS (yet)"
EOF
return <<'EOF' if $USE_DSO and ($mmn <= 19980527) and not $Is_dougm;
test:
@echo "Can't make test with DSO (yet)"
EOF
my $script = "t/TEST";
$script .= ".win32" if $Is_Win32;
my $my_test = $Is_Win32 ? q(
test: run_tests
) :
q(
test: pure_all start_httpd run_tests kill_httpd
);
my $have_so = $USE_DSO || ($APACI_ARGS =~ /--enable-shared=/);
push @test_pre_init, "\t",
'./apaci/load_modules.pl $(APACHE_SRC)', "\n" if $have_so;
join '', @test_pre_init,
qq(
MP_TEST_SCRIPT=$script
),
q(
TEST_VERBOSE=0
kill_httpd:
kill `cat t/logs/httpd.pid`
@$(RM_F) t/conf/srm.conf
@$(RM_F) t/logs/mod_perl.lock*
$(RM_F) t/logs/httpd.pid
$(RM_F) t/logs/error_log
start_httpd: test_pre_init
@(cd t/conf; test -f httpd.conf || cp httpd.conf-dist httpd.conf)
@(cd t/net; test -f config.pl || cp config.pl.dist config.pl)
@$(TOUCH) t/conf/srm.conf
$(APACHE_SRC)/$(HTTPD) -f `pwd`/t/conf/httpd.conf -X -d `pwd`/t &
@echo httpd listening on port $(PORT)
@echo will write error_log to: t/logs/error_log
@echo "letting apache warm up...\c"
@sleep 2
@echo done
start_httpd_fork:
$(APACHE_SRC)/$(HTTPD) -f `pwd`/t/conf/httpd.conf -d `pwd`/t
rehttpd: kill_httpd start_httpd
run_tests:
$(FULLPERL) $(MP_TEST_SCRIPT) $(TEST_VERBOSE)
),
$my_test,
q(
test_report:
$(MAKE) test | t/report
);
}
use File::Find;
sub MY::subdirs {
my $self = shift;
if ($ENV{TEST_PERL_DIRECTIVES}) {
push @{$self->{DIR}}, "t/TestDirectives";
}
$self->MM::subdirs(@_);
}
sub wanted {
return unless /\.h$/ or /os-inline\.c$/;
(my $d = $File::Find::dir) =~ s:^\Q$APACHE_SRC::;
$d =~ s:^/::;
my $from = "$File::Find::dir/$_";
my $to = '$(INST_ARCHLIB)/' . "auto/Apache/include/";
$to .= "$d/" if $d;
$to .= $_;
$My::self->{PM}->{$from} = $to;
}
sub win32_mph {
return unless /\.h$/ or /os-inline\.c$/;
(my $d = $File::Find::dir) =~ s:^\Q$MODPERL_SRC::;
$d =~ s:^/::;
my $from = "$File::Find::dir/$_";
my $to = '$(INST_ARCHLIB)/' . "auto/Apache/include/modules/perl/";
$to .= "$d/" if $d;
$to .= $_;
$My::self->{PM}->{$from} = $to;
}
sub MY::post_initialize {
my $self = shift;
return unless $APACHE_HEADER_INSTALL;
my ($ap_src, $ap_inc);
if ($APACHE_SRC) {
$ap_src = $APACHE_SRC;
$ap_inc = "$ap_src/include";
}
elsif ($USE_APXS) {
#$base = `$WITH_APXS -q INCLUDEDIR`;
$ap_inc = $ap_src = 'src'; #just install mod_perl headers
}
return unless $ap_src and -d $ap_src;
$My::self = $self;
{
local $APACHE_SRC = $ap_src;
finddepth(\&wanted, $ap_src);
}
if ($Is_Win32) {
local $MODPERL_SRC = win32_fix_path($PWD) . '/src/modules/perl';
finddepth(\&win32_mph, $MODPERL_SRC);
}
$self->{PM}{"Apache/typemap"} = '$(INST_ARCHLIB)/' . "auto/Apache/typemap";
$self->{PM}{"apaci/mod_perl.exp"} = '$(INST_ARCHLIB)/' . "auto/Apache/mod_perl.exp";
for (qw(ap_config_auto.h)) {
my $from = "$ap_inc/$_";
my $to = '$(INST_ARCHLIB)/' . "auto/Apache/include/$_";
unless ($self->{PM}->{$from}) {
$self->{PM}->{$from} = $to;
my @args = ($Config{perlpath}, '-MExtUtils::Command',
'-e', 'touch', $from);
system(@args) == 0
or die "system @args failed: $?";
}
}
'';
}
sub MY::postamble {
return <<'EOF';
tag :
svn copy https://svn.apache.org/repos/asf/perl/modperl/branches/1.x https://svn.apache.org/repos/asf/perl/modperl/tags/$(VERSION_SYM)
@echo update mod_perl.pm VERSION now
EOF
}
#'
sub MY::manifypods {
my $self = shift;
my $ver = $self->{VERSION} || "";
local($_) = $self->MM::manifypods(@_);
s/pod2man\s*$/pod2man --release mod_perl-$ver/m;
$_;
}
sub fold_dots {
my $v = shift;
$v =~ s/\.//g;
$v .= "0" if length $v < 3;
$v;
}
sub vcache {
my ($v,$dir) = @_;
$vcache{$dir} = fold_dots($v);
}
sub httpd_version {
my ($dir, $vnumber) = @_;
local $^W=0;
$dir = asrc($dir) || "";
if ($vnumber) {
return $vcache{$dir} if $vcache{$dir};
}
my $fh = FileHandle->new("$dir/httpd.h") or return;
my ($server, $version, $rest);
my ($fserver, $fversion, $frest);
my ($string, $extra, @vers);
while (<$fh>) {
next unless /^#define/;
s/SERVER_PRODUCT \"/\"Apache/; #1.3.13
next unless s/^#define\s+SERVER_(BASE|)(VERSION|REVISION)\s+"(.*)\s*".*/$3/;
unless (m:/:) {
$_ = "Apache/$_"; #1.3.14, argh
}
chomp ($string = $_);
#print STDERR "Examining SERVER_VERSION '$string'...";
#could be something like:
#Stronghold-1.4b1-dev Ben-SSL/1.3 Apache/1.1.1
@vers = split /\s+/, $string;
foreach (@vers) {
next unless ($fserver,$fversion,$frest) =
m,^([^/]+)/(\d\.\d+\.?\d*)([^ ]*),i;
#print STDERR "match ($fserver,$fversion,$frest)\n";
if ($fserver =~ /Xcert-Sentry/i or $fserver eq "Ben-SSL") {
$extra ||= $fserver;
#print STDERR "I see $fserver/$fversion, ok\n";
next;
}
if ($fserver eq "Apache") {
($server, $version) = ($fserver, $fversion);
if ($version eq '1.2' and $frest =~ s/^b(\d+).*/$1/) {
if ($frest >= 8 and is_ssl($dir)) {
$do_link_swap++;
$can_dash_make{$dir}++;
return $vnumber ? vcache($version,$dir) : "NONE";
}
warn "Apache/1.2b$frest is not supported, upgrade to 1.2.0.\n";
return undef;
}
elsif ($version >= 1.2) {
$do_link_swap++ if is_ssl($dir);
$can_dash_make{$dir}++;
return $vnumber ? vcache($version,$dir) : "NONE";
}
}
else {
#print STDERR "'$fserver/$fversion' unrecognized.\n";
next;
}
print STDERR "Found $fserver '$fversion' in $dir/httpd.h\n";
}
}
$fh->close;
#print STDERR "return $version$extra\n";
return($version.$extra);
}
use lib "./lib";
use Apache::src ();
sub magic_number {
my $d = asrc shift;
my $src = Apache::src->new;
$src->dir($d);
return($mcache{$d} = $src->module_magic_number);
}
sub cleanup_for_static {
return unless $STATIC;
for (@xs_mod_snames) {
rename "${_}/${_}.xs.disabled", "${_}/${_}.xs";
}
}
sub setup_for_static {
my $d = "$APACHE_SRC/modules/perl";
my $mf = "$APACHE_SRC/modules/perl/Makefile";
my @static_src = ();
unless ($USE_APACI) {
iedit $mf, "s/(PERL_STATIC_EXTS) =.*/\$1 = $PERL_STATIC_EXTS/"
if $PERL_STATIC_EXTS;
}
return unless $STATIC;
cp "Apache/typemap", $d;
for (@xs_mod_snames) {
rename "${_}/${_}.xs", "${_}/${_}.xs.disabled" if -e "${_}/${_}.xs";
push @static_src, "$_.c";
}
=pod
my @xs_names = ();
my @xs_files = ();
my $dir = "src/modules/perl";
my $dh = DirHandle->new($dir) or die;
for my $file ($dh->read) {
next unless $file =~ /\.xs$/;
push @xs_names, module_name_from_xs("$dir/$file");
push @xs_files, $file;
unless ($mani_src{"$dir/$file"}) {
cp "$dir/$file", $d;
print "Adding module `$xs_names[-1]' to httpd\n";
}
}
#print "XS_NAMES=@xs_names\n";
#print "XS_FILES=@xs_files\n";
#XXX think about this some more
iedit $mf, "s/^#STATIC_SRC.*/STATIC_SRC = @xs_files/";
iedit $mf, "s/^#STATIC_EXTS.*/STATIC_EXTS = @xs_names/";
=cut
unless ($USE_APACI) {
#XXX: ho,hum, need to generate the whole damn thing
#instead of all these frigging iedits.
if ($DYNAMIC) {
}
else {
iedit $mf, "s/^#STATIC_SRC.*/STATIC_SRC = @static_src/";
iedit $mf, "s/^#STATIC_EXTS.*/STATIC_EXTS = @xs_modules/";
iedit $mf, "s/^#STATIC_/STATIC_/";
}
#bloody hell, make sucks and so does this.
#this has only cause a few people pain, enough.
iedit $mf, "s/ \Q\$(STATIC_SRC)\E/ @static_src/";
}
}
sub module_name_from_xs {
my $file = shift;
my $fh = FileHandle->new($file) or
die "can't open file $file $!";
my ($module, $package, $prefix, %seen);
while (<$fh>) {
if (($module, $package, $prefix) =
/^MODULE\s*=\s*([\w:]+)(?:\s+PACKAGE\s*=\s*([\w:]+))?(?:\s+PREFIX\s*=\s*(\S+))?\s*$/)
{
$seen{$module}++;
}
}
if (keys %seen > 1) {
warn "$module name guess might be incorrect";
}
return (keys %seen)[0];
}
sub asrc {
my $d = shift;
my $file = shift || "httpd.h";
return $d if -e "$d/$file";
return "$d/include" if -e "$d/include/$file";
return "$d/main" if -e "$d/main/$file";
return undef;
}
sub conf_append {
local *CFG;
open CFG, ">>t/conf/httpd.conf" or die "open httpd.conf $!";
print CFG join "\n", @_, "";
close CFG;
}
sub edit_extra_cflags {
my ($cfg) = @_;
my $fh = IO::File->new($cfg) or die "open $cfg $!";
my $repl = "";
my @file = ();
my $ccopts = ccopts();
my $dssv = "-DSERVER_SUBVERSION";
my $ssv = qq($dssv=\\"mod_perl/$VERSION\\" );
my $inc = " $ccopts -I. -I../.. -DUSE_PERL_SSI" if $PERL_SSI;
$inc .= " -DAPACHE_SSL" if is_ssl() and $PERL_SSI;
$inc .= $SSL_INCLUDE if $SSL_INCLUDE;
$inc .= " -DSTRONGHOLD" if is_ssl() =~ /stronghold/i;
$inc .= " $PERL_EXTRA_CFLAGS" if $PERL_EXTRA_CFLAGS;
$inc .= " -DMOD_PERL";
while (<$fh>) {
push @file, $_;
next unless /EXTRA_CFLAGS\s*=/;
next if /mod_perl/;
next if /^#/;
chomp;
$repl = $_;
my $backwhack = "";
if ($repl =~ s/(\\)\s*$//) {
$backwhack = $1;
}
my $mmn = magic_number($APACHE_SRC);
if ($mmn >= 19980507) {
$ADD_VERSION = 0;
}
if ($ADD_VERSION) {
if (/$dssv=/) {
$repl =~
s{
$dssv\s*=\s*(.?)['"](.*?)(.?)["']
}[
qq($dssv="$1"$2 mod_perl/$VERSION$3"")
]ex;
}
else {
$repl .= " $ssv";
}
}
$file[-1] = "$repl $inc $backwhack\n";
}
close $fh;
if ($repl) {
$fh = IO::File->new(">$cfg") or die "open $cfg $!";
print $fh @file;
close $fh;
}
}
sub conf_fixup {
my($mf, $cfg) = @_;
return if $USE_APACI;
my $mmn = magic_number($APACHE_SRC);
#source re-org
my $sro = 1 if $mmn >= 19970825;
edit_extra_cflags($cfg);
$PERL_STATIC_EXTS ||= "";
$libperl ||= "";
my $ldopts = "`$^X $PWD/src/modules/perl/ldopts $PERL_STATIC_EXTS $libperl`";
iedit $cfg,
q{next unless /EXTRA_LIBS\s*=/;}.
q{next if /perl/; chomp;}.
qq{\$_ .= q| $ldopts\n|;};
for (split ",", $ADD_MODULE) {
add_module($cfg,$_);
}
if (is_ssl() =~ /stronghold/i) {
if ($do_link_swap) {
warn "swapping link order in $mf for Stronghold\n";
my $repl = quotemeta('$(REGLIB) $(LIBS)');
iedit $mf, "s:\Q\$(LIBS) \$(REGLIB)\E:$repl:;";
#XXX hack
$repl = quotemeta('CFLAGS=$(CFLAGS)');
iedit $mf, qq(s:\Q\"CFLAGS=\$(CFLAGS)"\E:'$repl':;); #"
}
my $repl = q{AUX_CFLAGS='\$(CFLAGS)'};
iedit $mf, qq{s/AUX_CFLAGS="..CFLAGS."/$repl/};
}
{
my $repl = q{CC='\$(CC)'};
iedit $mf, qq{s/CC=..CC. /$repl /};
}
open (CONF, $cfg) || die "Can't open $cfg: $!";
while (<CONF>) {
$seen_modperl++ if
/^Module\s+perl_module/i ||
/^AddModule\s+.*libperl/;
}
close CONF;
unless ($seen_modperl) {
print "Appending mod_perl to $conf\n";
open(CONF, ">>$cfg") || die "Can't open $cfg: $!";
my $line;
$line = $sro ? "AddModule modules/perl/libperl.a" :
"Module perl_module modules/perl/libperl.a";
print CONF <<EOT;
# Embed a perl interpreter
$line
EOT
close CONF;
}
else {
print "mod_perl already present in $conf\n";
}
}
sub has_module {
my($cfg, $name) = @_;
local *IN;
open IN, $cfg or die "Can't open $cfg $!\n";
while (<IN>) {
if (/^\\w{0,3}Module\\s+.*$name\.[oa]/i) {
close IN;
# print STDERR "has module $name\n";
return 1;
}
}
return 0;
}
sub add_module {
my($cfg, $name) = @_;
iedit $cfg, "s/^#\\s+(\\w{0,3}Module\\s+.*$name\.[oa])/\$1/";
}
sub gen_script {
my $file = shift;
my (@lib) = @_;
local (*IN,*OUT);
open IN, "$file.PL" or die "Couldn't open $file.PL: $!";
open OUT, ">$file" or die "Couldn't open $file: $!";
print OUT "#!$Config{perlpath}\n";
if (@lib) {
print OUT "use lib qw(@lib);\n";
}
print OUT join '', <IN>;
close OUT;
close IN;
chmod 0755, "$file";
}
sub iedit {
my $file = shift;
return if $Is_Win32;
#print STDERR "-e @_\n";
system $^X, "-pi~", "-e", "@_", $file;
}
sub win32_setup {
my $d = "src/modules/perl";
dirent_kludge($d);
cp "Apache/typemap", $d;
chdir $d;
system "$^X -MExtUtils::Embed -e xsinit -- -std @xs_modules $PERL_STATIC_EXTS";
my $lib = $Config{privlibexp};
for (@xs_mod_snames) {
system "$^X $lib/ExtUtils/xsubpp -typemap $lib/ExtUtils/typemap $_.xs > $_.c";
}
chdir "../../../";
open (F, '>t/docs/init.pl')
or die "Cannot open t/docs/init.pl: $!";
print F <<"END";
#!perl
\$Apache::Server::CWD = '$PWD';
END
close F;
}
sub dirent_kludge {
my $d = shift;
local *FH;
open FH, ">$d/dirent.h" or die "can't write $d/dirent.h $!";
print FH <<EOF;
/* major kludge to workaround confilct(s) between perl's dirent.h apache's readdir.h */
#ifdef WIN32
#define _INC_DIRENT
#define DIR void
#endif
EOF
close FH;
}
sub write_version_h {
my $d = shift;
unlink "$d/mod_perl_version.h";
my $pv = perl_version();
local *FH;
open FH, ">$d/mod_perl_version.h" or die "can't write $d/mod_perl_version.h $!";
print FH <<EOF;
#define MOD_PERL_STRING_VERSION "mod_perl/$VERSION"
#define PERLV $pv
EOF
close FH;
}
sub write_my_config {
my $src = shift;
# preparing and writing Configuration to Apache::MyConfig
my %my_config = %callback_hooks;
my @other_hooks = qw(
APACHE_SRC SSL_BASE APXS PERL_USELARGEFILES
PERL_TRACE PERL_DEBUG APACI_ARGS
APACHE_PREFIX DO_HTTPD NO_HTTPD PREP_HTTPD
USE_APACI APACHE_HEADER_INSTALL
PERL_STATIC_EXTS PERL_SSI PERL_SECTIONS USE_APXS WITH_APXS
);
{
no strict 'refs';
for (@other_hooks) {
$my_config{$_} = ${$_};
}
}
if ($win32_auto) {
for (qw(APACHE_INC APACHE_LIB MODPERL_INC MODPERL_LIB)) {
$my_config{$_} = $win32_path{$_};
}
$my_config{APACHE_SRC} = $APACHE_SRC;
}
#need this alias for Apache::src backwards compat
$my_config{'Apache_Src'} = $my_config{'APACHE_SRC'};
$my_config{'APXS'} = delete $my_config{'WITH_APXS'};
my $my_config_dump = join ",\n",
map {
qq{'$_' => } .
($my_config{$_} =~ /^\d+$/ ? $my_config{$_} : qq{'$my_config{$_}'})
}
sort keys %my_config;
local *FH;
open FH, '>lib/Apache/MyConfig.pm' ||
die "Can't open lib/Apache/MyConfig.pm: $!";
print FH <<EOT;
#
# Configuration for mod_perl and Apache::...
#
package Apache::MyConfig;
%Setup = (
$my_config_dump
);
1;
__END__
=head1 NAME
Apache::MyConfig - build options access
=head1 SYNOPSIS
use Apache::MyConfig;
die unless \$Apache::MyConfig::Setup{PERL_FILE_API};
=head1 DESCRIPTION
B<Apache::MyConfig> module provides access to the various hooks
and features set when mod_perl is built. This circumvents the
need to set up a live server just to find out if a certain callback
hook is available.
Itterate through \%Apache::MyConfig::Setup to get obtain build
information then see Appendix B of the Eagle book for more detail
on each key.
EOT
close FH;
}
# obtain the Apache and mod_perl lib and include directories for Win32
sub win32_inc_and_lib {
my $modperl_src = win32_fix_path(cwd) . '/src';
$win32_path{MODPERL_INC} = $modperl_src . '/modules/perl';
$win32_path{MODPERL_LIB} = ($win32_args{DEBUG} == 1) ?
$modperl_src . '/modules/win32/Debug' :
$modperl_src . '/modules/win32/Release';
unless ( -d $win32_args{APACHE_SRC}) {
opendir(DIR, '../') or die "Cannot read parent directory: $!\n";
my @dirs = map {"../$_"}
grep {/apache/ and -d "../$_"} readdir DIR;
closedir DIR or die "Cannot close parent directory: $!\n";
die "Cannot find the apache sources\n"
unless ($win32_args{APACHE_SRC} = find_dir(\@dirs, 'apache source'));
}
$win32_args{APACHE_SRC} = win32_fix_path($win32_args{APACHE_SRC});
if (-d "$win32_args{APACHE_SRC}/libexec") {
$win32_path{APACHE_LIB} = $win32_args{APACHE_SRC} . '/libexec';
$win32_path{APACHE_INC} = $win32_args{APACHE_SRC} . '/include';
$win32_args{APACHE_VERS} = httpd_version($win32_path{APACHE_INC}, 1);
}
else {
$win32_args{APACHE_SRC} .= '/src' unless $win32_args{APACHE_SRC} =~ /src$/;
$win32_path{APACHE_INC} = $win32_args{APACHE_SRC} . '/include';
$win32_args{APACHE_VERS} = httpd_version($win32_path{APACHE_INC}, 1);
$win32_path{APACHE_LIB} = ($win32_args{DEBUG} == 1) ?
$win32_args{APACHE_SRC} .
($win32_args{APACHE_VERS} < 1315 ? '/CoreD' : '/Debug') :
$win32_args{APACHE_SRC} .
($win32_args{APACHE_VERS} < 1315 ? '/CoreR' : '/Release');
}
die "Cannot find ApacheCore.lib under $win32_path{APACHE_LIB}\n"
unless -f "$win32_path{APACHE_LIB}/ApacheCore.lib";
die "Cannot find httpd.h under $win32_path{APACHE_INC}\n"
unless -f "$win32_path{APACHE_INC}/httpd.h";
if ($win32_args{INSTALL_DLL} ) {
$win32_args{INSTALL_DLL} =
win32_fix_path($win32_args{INSTALL_DLL});
unless ( -d $win32_args{INSTALL_DLL}) {
my @dirs = grep {-d}
('\Program Files\Apache Group\Apache\modules',
'\Apache\modules', '\Program Files\Apache\modules');
$win32_args{INSTALL_DLL} = find_dir(\@dirs, 'Apache/modules');
if ($win32_args{INSTALL_DLL} and -d $win32_args{INSTALL_DLL}) {
$win32_args{INSTALL_DLL} =
win32_fix_path($win32_args{INSTALL_DLL});
}
else {
print <<'END';
**** The Apache/modules directory was not found. *******
**** Please install mod_perl.so manually. *******
END
}
}
}
if ($win32_args{INSTALL_LIB} ) {
$win32_args{INSTALL_LIB} =
win32_fix_path($win32_args{INSTALL_LIB});
unless ( -d $win32_args{INSTALL_LIB}) {
my @dirs = grep {-d}
('\Program Files\Apache Group\Apache\libexec',
'\Apache\libexec', '\Program Files\Apache\libexec');
$win32_args{INSTALL_LIB} = find_dir(\@dirs, 'Apache/libexec');
if ($win32_args{INSTALL_LIB} and -d $win32_args{INSTALL_LIB}) {
$win32_args{INSTALL_LIB} =
win32_fix_path($win32_args{INSTALL_LIB});
}
else {
print <<'END';
**** The Apache/libexec directory was not found. *******
**** Please install mod_perl.lib manually. *******
END
}
}
}
}
# fix mod_perl.dsp with the perl and apache inc and lib directories
sub win32_fix_dsp {
my $amp = 'src/modules/win32';
my $dsp = 'mod_perl.dsp';
unless ( -f "$amp/$dsp.orig") {
rename("$amp/$dsp", "$amp/$dsp.orig")
or die "Couldn't rename $amp/$dsp: $!\n";
}
my $perl_inc = win32_fix_path_dsp("$Config{archlibexp}/CORE");
open OLDDSP, "$amp/$dsp.orig"
or die "Couldn't read $amp/$dsp.orig: $!\n";
open NEWDSP, ">$amp/$dsp"
or die "Couldn't create $amp/$dsp: $!\n";
while (<OLDDSP>) {
if (/^SOURCE=.*ApacheCore\.lib/) {
printf NEWDSP "SOURCE=%s\n",
win32_fix_path_dsp("$win32_path{APACHE_LIB}/ApacheCore.lib");
}
elsif (/^SOURCE=.*perl(56)?\.lib/) {
print NEWDSP qq{SOURCE=$perl_inc\\$Config{libperl}\n};
}
elsif (/ADD CPP/) {
my $apache_inc = win32_fix_path_dsp($win32_path{APACHE_INC});
s!/I "\\Perl\\lib\\CORE"!/I "$apache_inc" /I "$apache_inc/../os/win32" /I "$perl_inc"!;
s!(/D "WIN32")!$1 /D "EAPI" ! if $win32_args{EAPI};
if ($] < 5.008006) {
s!(/D "_MSWSOCK_")!/D "_WINSOCK2API_" $1!;
}
print NEWDSP $_;
}
else {
print NEWDSP $_;
}
}
close OLDDSP;
close NEWDSP;
return;
}
# find a directory of type $type, given some possible $dirs
sub find_dir {
my ($dirs, $type) = @_;
my $j = 0;
my $src;
while (1) {
$src = @$dirs > 0 ? $dirs->[$j] : '';
$src = prompt("\nWhere is your $type directory? (q to quit)", $src);
return undef if $src eq 'q';
return $src if -d $src;
print qq{'$src': no such directory\n};
$j = ($j == @$dirs-1) ? 0 : $j + 1;
}
}
# fix a path for Win32 Makefile
sub win32_fix_path {
my $path = shift;
$path = File::Spec->rel2abs($path) if not File::Spec->file_name_is_absolute($path);
$path = Win32::GetShortPathName($path) if $path =~ / /;
$path =~ tr!\\!/!;
$path =~ s!/$!!;
return $path;
}
# fix a path for mod_perl.dsp
sub win32_fix_path_dsp {
local $_ = shift;
tr!/!\\!;
return $_;
}
#in version 1.2505 of Embed.pm we could just import these instead of using ``,
#but it might require lots of people to upgrade
sub ccopts {
unless ($Embed::ccopts) {
$Embed::ccopts = "$Config{ccflags} -I$Config{archlibexp}/CORE";
if ($USE_THREADS) {
$Embed::ccopts .= " -DPERL_THREADS";
}
}
$Embed::ccopts;
}
sub ldopts {
$Embed::ldopts ||= `$^X -MExtUtils::Embed -e ldopts`;
if ($^O eq "aix") {
$Embed::ldopts =~ s,(-bE:)(perl\.exp),$1$Config{archlibexp}/$2,;
}
$Embed::ldopts;
}
sub perl_version {
my $v = "$]";
$v =~ s/\.//g;
$v .= "0" while length($v) < 6;
$v;
}
#for linking third-party xs modules static built w/ MakeMaker's: 'make static'
#must have when the xs module is compiled with profiling `-pg -a' flags
sub add_static_ar {
$PERL_STATIC_AR ||= "";
my $cur = $APACHE_SRC =~ /^../ ? "$PWD/" : "";
for (qw(blib/arch/auto arch/auto)) {
last if -d ($ar_dir = "$APACHE_SRC/modules/perl/$_");
$ar_dir = "";
}
return unless -d $ar_dir;
finddepth(
sub {
return unless /^[A-Z]\w+\.a$/;
(my $rel = $File::Find::dir) =~ s:$APACHE_SRC/?::;
(my $mod = $rel) =~ s:.*auto/::;
$mod =~ s,/,::,;
print "linking static $mod => $rel/$_\n";
$PERL_STATIC_AR .= $cur . "$File::Find::dir/$_ ";
$PERL_STATIC_EXTS .= "$mod ";
}, $ar_dir
);
}
sub APACI::init {
return undef if $Is_Win32;
my $lib_cfg;
if ($USE_APXS) {
$lib_cfg = "apaci/mod_perl.config";
chmod 0644, $lib_cfg;
}
elsif ($USE_APACI) {
$lib_cfg = "$APACHE_SRC/modules/perl/mod_perl.config";
}
else {
return undef;
}
unless (File::Compare::compare($lib_cfg,"apaci/mod_perl.config") == 0) {
#warn "mod_perl.config already edited\n";
#return undef;
}
my $apaci_cfg = FileHandle->new(">$lib_cfg") or
die "can't open $lib_cfg $!";
my @static_src = ();
for (@xs_mod_snames) {
push @static_src, "$_.c";
}
add_static_ar();
my $static_targets = "";
$static_targets = <<EOF unless $DYNAMIC;
PERL_STATIC_EXTS = @xs_modules $PERL_STATIC_EXTS
PERL_STATIC_SRCS = @static_src
EOF
$static_targets .= "PERL_STATIC_AR = $PERL_STATIC_AR\n" if $PERL_STATIC_AR;
print $apaci_cfg <<EOF;
##
## mod_perl.config -- mod_perl shared configuration file
##
# mod_perl version
MOD_PERL_VERSION = $VERSION
# Perl interpreter to use
PERL = $^X
LIBPERL = $LIBPERL
$static_targets
EOF
print $apaci_cfg <<EOF if defined $MOD_PERL_PREFIX;
# mod_perl installation prefix
MOD_PERL_PREFIX = $MOD_PERL_PREFIX
EOF
for (qw(PERL_SECTIONS PERL_SSI PERL_TRACE)) {
my $yes_no = $$_ ? "yes" : "no";
print $apaci_cfg "$_ = $yes_no\n";
}
$yes_no = 'no';
$yes_no = 'yes' if $USE_THREADS;
print $apaci_cfg "PERL_THREADS = $yes_no\n";
return $apaci_cfg;
}
sub phat_warn {
my ($msg, $abort) = @_;
my $level = $abort ? "ERROR" : "WARNING";
warn <<EOF;
************* $level *************
$msg
************* $level *************
EOF
if ($abort) {
exit 1;
}
else {
sleep 5;
}
}
sub system_sanity_check {
return if $Is_Win32;
my $ccflags = $Config{'ccflags'};
for (split /\s+/, $ccflags) {
next unless s/^-I//;
my $header = "$_/ap_mmn.h";
if (-e $header) {
phat_warn(<<EOF);
Apache headers found in unexpected location: ``$_'', suggestions:
*) Remove via ``rpm -e apache''
*) Remove by hand
*) Complain to your os vendor about their poor layout choice
*) Complain to your sysadmin about their poor layout choice
EOF
}
}
my $ld = basename $Config{ld};
if ($^O eq 'hpux' and ($USE_DSO or $USE_APXS) and $ld eq 'ld') {
unless ($ccflags =~ /\+z/i) {
my $switch = $] >= 5.006 ? 'A' : 'D';
phat_warn(<<EOF);
mod_perl is unlikely to link with your libperl, suggestions:
*) Rebuild Perl with Configure -${switch}ccflags=+Z ...
*) Build mod_perl static rather than DSO
EOF
}
}
gdbm_check();
malloc_check();
uselargefiles_check();
dynaloader_check();
shrplib_check();
if ($USE_APXS and $Config{libs} =~ /($thrlib)/) {
my $lib = $1;
phat_warn(<<EOF);
Your Perl is linked with $lib, make sure that your httpd is built with LIBS=$lib
EOF
}
}
sub gdbm_check {
if ($Config{libs} =~ /gdbm/) {
require DynaLoader;
require AutoLoader; #eek
my $found = 0;
my @path = split /\s+/, $Config{libpth};
for (@path) {
last if $found = DynaLoader::dl_findfile($_, "-lgdbm");
}
unless ($found) {
my @maybe = ();
for (@path) {
push @maybe, grep { ! -l $_ } <$_/libgdbm.*>;
}
my $suggest = @maybe ?
"You could just symlink it to $maybe[0]" :
"You might need to install Perl from source";
phat_warn(<<EOF);
Your Perl is configured to link against libgdbm,
but libgdbm.so was not found.
$suggest
EOF
}
}
}
sub uselargefiles_check {
return unless $] >= 5.006 and $Config{uselargefiles}
and $PERL_USELARGEFILES and $USE_APXS;
local $Apache::src::APXS = $WITH_APXS;
my $cflags = Apache::src->new->apxs('-q' => 'CFLAGS') || '';
return if $cflags =~ /LARGEFILE/;
$PERL_USELARGEFILES=0; #just do it since
return; #nobody seems to listen to the warning below
phat_warn(<<EOF);
Your Perl is uselargefiles enabled, but Apache is not, suggestions:
*) Rebuild mod_perl with Makefile.PL PERL_USELARGEFILES=0
*) Rebuild Apache with CFLAGS="-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64"
*) Rebuild Perl with Configure -Uuselargefiles
*) Let mod_perl build Apache (USE_DSO=1 instead of USE_APXS=1)
EOF
}
sub malloc_check {
return unless $USE_DSO or $USE_APXS;
return unless $Config{'usemymalloc'} eq 'y';
my $abort = $^O eq 'solaris';
my $bincompat = $Config{bincompat5005} and
$Config{bincompat5005} eq 'define';
if ($] < 5.006) {
phat_warn(<<EOF, $abort);
Your current configuration will most likely trigger core dumps, suggestions:
*) Do not configure mod_perl as a DSO
*) Upgrade your Perl version to 5.6.0 or higher (w/ -Ubincompat5005)
*) Configure Perl with -Uusemymalloc (not recommended for performance)
EOF
}
elsif ($bincompat) {
phat_warn(<<EOF, $abort);
Your current configuration will most likely trigger core dumps, suggestions:
*) Do not configure mod_perl as a DSO
*) Rebuild Perl without malloc pollution (Configure -Ubincompat5005)
EOF
}
}
sub dynaloader_check {
return unless $^O eq 'aix' and $] <= 5.00503 and ($USE_DSO or $USE_APXS);
phat_warn(<<EOF);
Please make sure that you apply the following patch to the perl
distribution before you install mod_perl, without this patch you will
not be able load any xs modules.
EOF
warn <<EOF;
--- perl5.005_03/ext/DynaLoader/dl_aix.xs.orig Fri Mar 3 17:00:58 2000
+++ perl5.005_03/ext/DynaLoader/dl_aix.xs Sun Apr 2 13:37:05 2000
@@ -74,8 +74,8 @@
} Module, *ModulePtr;
/*
- * We keep a list of all loaded modules to be able to call the fini
- * handlers at atexit() time.
+ * We keep a list of all loaded modules to be able to reference count
+ * duplicate dlopen's.
*/
static ModulePtr modList;
@@ -88,7 +88,6 @@
static void caterr(char *);
static int readExports(ModulePtr);
-static void terminate(void);
static void *findMain(void);
static char *strerror_failed = "(strerror failed)";
@@ -165,7 +164,6 @@
if (!mainModule) {
if ((mainModule = findMain()) == NULL)
return NULL;
- atexit(terminate);
}
/*
* Scan the list of modules if have the module already loaded.
@@ -222,7 +220,16 @@
mp->refCnt = 1;
mp->next = modList;
modList = mp;
- if (loadbind(0, mainModule, mp->entry) == -1) {
+ /*
+ * Assume anonymous exports come from the module this dlopen
+ * is linked into, that holds true as long as dlopen and all
+ * of the perl core are in the same shared object. Also bind
+ * against the main part, in the case a perl is not the main
+ * part, e.g mod_perl as DSO in Apache so perl modules can
+ * also reference Apache symbols.
+ */
+ if (loadbind(0, (void *)dlopen, mp->entry) == -1 ||
+ loadbind(0, mainModule, mp->entry) == -1) {
dlclose(mp);
errvalid++;
strcpy(errbuf, "loadbind: ");
@@ -336,12 +343,6 @@
safefree(mp->name);
safefree(mp);
return result;
-}
-
-static void terminate(void)
-{
- while (modList)
- dlclose(modList);
}
/* Added by Wayne Scott
EOF
}
sub shrplib_check {
return unless $Config{'useshrplib'} and
$Config{'useshrplib'} eq 'define';
my $libperl = $Config{'libperl'} || 'libperl.so';
for my $dir (qw(/lib /usr/lib /usr/local/lib)) {
next unless -e "$dir/$libperl";
my $coredir = "$Config{'archlibexp'}/CORE";
my $corelib = "$coredir/$libperl";
phat_warn(<<EOF);
$dir/$libperl might override
$corelib
This may cause build or runtime errors with mod_perl.
Consider removing $dir/$libperl, it should not be there.
If your vendor has installed $libperl there, complain to them and install
Perl from source if needed.
$libperl should only exist in Perl version/arch directories, for example:
$coredir
EOF
}
}