X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMakefile.PL;h=a7deac4654b59e6c85e096deb559075bf6540475;hb=0525a90d12f0c773dd056b367816d02d17e19c99;hp=0b5650ca23b792e4a607451eaf55599ff827223f;hpb=7bb019694f2c100697483aa804ce0d3b639be567;p=catagits%2Ffcgi2.git

diff --git a/perl/Makefile.PL b/perl/Makefile.PL
index 0b5650c..a7deac4 100644
--- a/perl/Makefile.PL
+++ b/perl/Makefile.PL
@@ -1,4 +1,4 @@
-# $Id: Makefile.PL,v 1.11 2001/06/08 15:09:47 skimo Exp $
+# $Id: Makefile.PL,v 1.32 2001/09/27 12:11:40 skimo Exp $
 
 use ExtUtils::MakeMaker;
 use IO::File;
@@ -6,55 +6,63 @@ use Config;
 use Cwd 'cwd';
 use Getopt::Long;
 
-@h1 = qw(fastcgi.h fcgiapp.h fcgiappmisc.h fcgimisc.h fcgios.h);
+@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);
 @dist2 = qw(fcgiapp.c os_unix.c os_win32.c);
-@dist3 = (@h1, qw(fcgi_config.h.in fcgi_config_x86.h));
+@dist3 = (@h1, qw(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;
+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;
 
-$devkit = cwd() . "/..";
-
-if (-d "$devkit/libfcgi/" 
-    && -d "$devkit/include" && !grep {!-f "$devkit/include/$_"} (@h)) 
-{
-    unless (-f "$devkit/libfcgi/libfcgi.a") {
-	warn "Please compile the library before attempting " .
-	      "to compile the perl module.\n";
-	exit -1;
+$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;
+	}
     }
-    # devkit
-    $prefix = $devkit;
-    push @libs, "-L$devkit/libfcgi -lfcgi";
-} 
-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 (!$libfound && -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;
+	}
+
+	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 $prefix;
-$inc = $prefix ? "-I$prefix/include" : '-I.';
+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'
@@ -75,8 +83,14 @@ 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 ],
+	'LIBS'	=> [ "@libs" ],
 	'OBJECT'	=> "@o",
 	'INC'	=> $inc;
 }
@@ -90,7 +104,7 @@ WriteMakefile(NAME => 'FCGI')
 
 $mm = MM->new({
     'NAME'		=> 'FCGI',
-    'VERSION_FROM'	=> 'FCGI.PL',
+    'VERSION_FROM'	=> 'version.pm',
     'dist'		=> { 'COMPRESS' => 'gzip -9f', 
 		             'SUFFIX' => 'gz',
 			     'PREOP' => '$(CP) '.join(' ',
@@ -114,7 +128,7 @@ $mm = MM->new({
 delete $mm->{MAN3PODS}{oldinterface.pod};
 $mm->flush;
 
-exit if -f 'fcgi_config.h' or $prefix or $pure;
+exit if -f 'fcgi_config.h' or $libfound or $pure;
 
 # CPAN and no installed lib found
 if ($sys eq "win32") {
@@ -124,20 +138,19 @@ if ($sys eq "win32") {
     use File::Copy qw(copy);
     print "Using prebuilt fcgi_config.h file for Windows\n";
     unlink("fcgi_config.h");
-    die $! unless copy("fcgi_config_x86.h","fcgi_config.h");
+    my $confdir = $prefix ? "$prefix/include/" : '';
+    die $! unless copy("$confdir/fcgi_config_x86.h","fcgi_config.h");
 
-    # Win build system also can't deal with existence of FCGI.xs or absence of
-    # FCGI.c
+    # 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");
 }