-# $Id: Makefile.PL,v 1.13 2001/08/28 19:14:21 robs Exp $
+# $Id: Makefile.PL,v 1.25 2001/09/21 16:14:11 skimo Exp $
use ExtUtils::MakeMaker;
use IO::File;
@h1 = qw(fastcgi.h fcgiapp.h fcgimisc.h fcgios.h);
@h = (@h1, 'fcgi_config.h');
@o = qw(FCGI.o);
-@dist1 = qw(LICENSE.TERMS acconfig.h);
+@dist1 = qw(LICENSE.TERMS configure configure.in install.sh missing
+ config.sub config.guess ltmain.sh);
@dist2 = qw(fcgiapp.c os_unix.c os_win32.c);
@dist3 = (@h1, qw(fcgi_config.h.in fcgi_config_x86.h));
GetOptions ("pure-perl!" => \$pure);
-$pure =
- (prompt("Do you want to use the pure perl implementation", "no") =~ /^y/)
- ? "1" : "0" unless defined $pure;
+$pure = "0" unless defined $pure;
open(CFG,">FCGI.cfg");
print CFG "\$pure = $pure;1;\n";
close CFG;
-$devkit = cwd() . "/..";
-
-if (-d "$devkit/libfcgi/"
- && -d "$devkit/include" && !grep {!-f "$devkit/include/$_"} (@h))
-{
- # devkit
- $prefix = $devkit;
-
- if (-f "$devkit/libfcgi/libfcgi.a") {
- push @libs, "-L$devkit/libfcgi -lfcgi";
- }
- elsif (-f "$devkit/libfcgi/Release/libfcgi.dll") {
- push @libs, "-L$devkit/libfcgi/Release -lfcgi";
- }
- elsif (-f "$devkit/libfcgi/Debug/libfcgi.dll") {
- push @libs, "-L$devkit/libfcgi/Debug -lfcgi";
- }
- else {
- warn "Please compile the library before attempting " .
- "to compile the perl module.\n";
- exit -1;
- }
-}
-else {
- # CPAN
- for $dir ("/usr", "/usr/local") {
- if (-d "$dir/lib/" && -f "$dir/lib/libfcgi.a"
- && -d "$dir/include" && !grep {!-f "$dir/include/$_"} (@h))
- {
- print "Found fcgi library and include files in $dir\n";
- print "Will be using that instead of included files\n";
- print "Edit Makefile.PL if you don't like it\n";
-
- $prefix = $dir;
- push @libs, "-L$dir/lib -lfcgi";
- last;
- }
- }
+if (! $pure) {
+ my $cwd = cwd();
+ my $devkit = "$cwd/..";
+
+ if (-d "$devkit/libfcgi" && -d "$devkit/include") {
+ # devkit
+ 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;
+ }
+
+ # Copy the C lib files down to ensure a compatible build.
+ print "Copying C library files from the devkit distribution\n";
+ use File::Copy qw(copy);
+
+ # TODO: stop or save if a local file has been modified
+ foreach (@dist1, @dist2, @dist3) { unlink };
+ foreach (@dist1) { copy("$devkit/$_", ".") || die $! };
+ foreach (@dist2) { copy("$devkit/libfcgi/$_", ".") || die $! };
+ foreach (@dist3) { copy("$devkit/include/$_", ".") || die $! };
+ }
+ else {
+ # CPAN
+ for $dir ("/usr", "/usr/local") {
+ if (-d "$dir/lib/" && -f "$dir/lib/libfcgi.a"
+ && -d "$dir/include" && !grep {!-f "$dir/include/$_"} (@h))
+ {
+ print "Found fcgi library and include files in $dir\n";
+ print "Will be using those instead of the included files\n";
+ print "Edit Makefile.PL if you don't like it\n";
+
+ $prefix = $dir;
+ push @libs, "-L$dir/lib -lfcgi";
+ last;
+ }
+ }
+ }
}
$sys = $^O eq 'MSWin32' ? 'win32' : 'unix';
push @extras,
LINKTYPE => ' ';
} else {
+
+ if ("$sys" eq "win32") {
+ @libs = (scalar @libs)
+ ? map { "$_ :nosearch -lws2_32" } @libs
+ : (':nosearch -lws2_32');
+ push @extras, 'DEFINE' => '-DDLLAPI=__declspec(dllexport)';
+ }
+
push @extras,
'LIBS' => [ @libs ],
'OBJECT' => "@o",
$mm = MM->new({
'NAME' => 'FCGI',
- 'VERSION_FROM' => 'FCGI.PL',
+ 'VERSION_FROM' => 'version.pm',
'dist' => { 'COMPRESS' => 'gzip -9f',
'SUFFIX' => 'gz',
'PREOP' => '$(CP) '.join(' ',
delete $mm->{MAN3PODS}{oldinterface.pod};
$mm->flush;
-if ($sys eq "win32") {
- # Win can't deal with existence of FCGI.xs or absence of FCGI.c
- unlink("FCGI.xs");
- open(F, ">FCGI.c"); close(F);
- $now = time; $before = $now - 600;
- utime $before, $before, "FCGI.c";
- utime $now, $now, "FCGI.PL";
-}
-
exit if -f 'fcgi_config.h' or $prefix or $pure;
# CPAN and no installed lib found
print "Using prebuilt fcgi_config.h file for Windows\n";
unlink("fcgi_config.h");
die $! unless copy("fcgi_config_x86.h","fcgi_config.h");
+
+ # Win can't deal with existence of FCGI.xs or absence of FCGI.c
+ 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("./configure");
+ system("$Config{sh} configure");
}