use ExtUtils::MakeMaker;
use IO::File;
use Config;
use Cwd 'cwd';
use Getopt::Long;
@h1 = qw(fastcgi.h fcgiapp.h fcgimisc.h fcgios.h);
@h = (@h1, 'fcgi_config.h');
@o = qw(FCGI.o);
@dist1 = qw(LICENSE.TERMS);
@dist2 = qw(fcgiapp.c os_unix.c os_win32.c);
@dist3 = (@h1, qw(fcgi_config_x86.h));
GetOptions ("pure-perl!" => \$pure,
"use-installed:s" => \$useinstalled);
$pure = "0" unless defined $pure;
open(CFG,">FCGI.cfg");
print CFG "\$pure = $pure;1;\n";
close CFG;
$libfound = 0;
@libs = ();
if (! $pure) {
my $cwd = cwd();
my $devkit = "$cwd/..";
if (defined $useinstalled) {
require ExtUtils::Liblist;
my $libspec = $useinstalled ? "-L$useinstalled/lib " : "";
$libspec .= "-lfcgi";
my @l = MM->ext($libspec);
if ($l[0] || $l[1] || $l[2]) {
$prefix = "$useinstalled/include" if $useinstalled;
$libfound = 1;
push @libs, $libspec;
}
}
if (!$libfound && -d "$devkit/libfcgi" && -d "$devkit/include") {
if (grep { ! -f "$devkit/include/$_" } @dist3
or grep { ! -f "$devkit/libfcgi/$_" } @dist2)
{
warn "This appears to be a FastCGI devkit distribution, " .
"but one or more FastCGI library files are missing. \n" .
"Please check the integrity of the distribution.\n";
exit -1;
}
my $extrarules = join "\n",
map { $b = $_; $b =~ s/\.c$//; my $s="$devkit/libfcgi/$b.c";
"$b\$(OBJ_EXT): $s\n\t".
'$(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) '."$s\n"; }
@dist2;
eval 'package MY; sub postamble { $extrarules; }';
$prefix = $devkit;
}
}
$sys = $^O eq 'MSWin32' ? 'win32' : 'unix';
push @o, "fcgiapp.o", "os_$sys.o" unless $libfound;
$inc = '-I.' unless $libfound;
$inc .= " -I$prefix/include" if $prefix;
push(@extras, CAPI => 'TRUE')
if ($] >= 5.005 and $^O eq 'MSWin32'
and $Config{archname} =~ /-object\b/i);
push(@extras,
ABSTRACT => 'Fast CGI module',
AUTHOR => 'Sven Verdoolaege (skimo@kotnet.org)')
if ($ExtUtils::MakeMaker::VERSION >= 5.4301);
$plfiles = { 'echo.PL' => 'echo.fpl',
'remote.PL' => 'remote.fpl',
'threaded.PL' => 'threaded.fpl',
'FCGI.PL' => 'FCGI.pm',
};
$plfiles->{'FCGI.XL'} = 'FCGI.xs' unless $pure;
if ($pure) {
push @extras,
LINKTYPE => ' ';
} else {
if ("$sys" eq "win32") {
push @libs, ":nosearch -lws2_32";
push @extras, 'DEFINE' => '-DDLLAPI=__declspec(dllexport)';
}
push @extras,
'LIBS' => [ "@libs" ],
'OBJECT' => "@o",
'INC' => $inc;
}
WriteMakefile(NAME => 'FCGI')
if $ExtUtils::MakeMaker::VERSION <= 5.4302;
$mm = MM->new({
'NAME' => 'FCGI',
'VERSION_FROM' => 'version.pm',
'dist' => { 'COMPRESS' => 'gzip -9f',
'SUFFIX' => 'gz',
'PREOP' => '$(CP) '.join(' ',
map {"../$_"} @dist1,
(map {"libfcgi/$_"} @dist2),
map {"include/$_"} @dist3).' $(DISTVNAME);'.
'$(CP) MANIFEST MANIFEST.old;'.
'echo -e '. join('\\\n',@dist1,@dist2,@dist3) .
'>> $(DISTVNAME)/MANIFEST',
'POSTOP' =>
'$(MV) MANIFEST.old MANIFEST',
},
'clean' => { FILES => 'config.cache fcgi_config.h' .
' FCGI.xs FCGI.c FCGI.cfg ' .
(join ' ', values %$plfiles)},
'PL_FILES' => $plfiles,
PM => {'FCGI.pm' => '$(INST_ARCHLIBDIR)/FCGI.pm'},
@extras,
});
delete $mm->{MAN3PODS}{oldinterface.pod};
$mm->flush;
exit if -f 'fcgi_config.h' or $libfound or $pure;
if ($sys eq "win32") {
use File::Copy qw(copy);
print "Using prebuilt fcgi_config.h file for Windows\n";
unlink("fcgi_config.h");
my $confdir = $prefix ? "$prefix/include/" : '';
die $! unless copy("${confdir}fcgi_config_x86.h","fcgi_config.h");
unlink("FCGI.xs");
open(F, ">FCGI.c"); close(F);
$now = time; $before = $now - 600;
utime $before, $before, "FCGI.c";
utime $now, $now, "FCGI.PL";
} else {
print "Running ./configure for you\n";
print "Please read configure.readme for information on how to run it yourself\n";
$ENV{'CC'} = $Config{'cc'};
system("$Config{sh} configure");
}