perl/Makefile.PL

   1 # $Id: Makefile.PL,v 1.22 2001/09/14 17:14:24 skimo Exp $
   2
   3 use ExtUtils::MakeMaker;
   4 use IO::File;
   5 use Config;
   6 use Cwd 'cwd';
   7 use Getopt::Long;
   8
   9 @h1 = qw(fastcgi.h fcgiapp.h fcgimisc.h fcgios.h);
  10 @h = (@h1, 'fcgi_config.h');
  11 @o = qw(FCGI.o);
  12 @dist1 = qw(LICENSE.TERMS configure configure.in install.sh);
  13 @dist2 = qw(fcgiapp.c os_unix.c os_win32.c);
  14 @dist3 = (@h1, qw(fcgi_config.h.in fcgi_config_x86.h));
  15
  16 GetOptions ("pure-perl!" => \$pure);
  17 $pure =
  18     (prompt("Do you want to use the pure perl implementation", "no") =~ /^y/)
  19     ? "1" : "0" unless defined $pure;
  20 open(CFG,">FCGI.cfg");
  21 print CFG "\$pure = $pure;1;\n";
  22 close CFG;
  23
  24 if (! $pure) {
  25         my $cwd = cwd();
  26         my $devkit = "$cwd/..";
  27
  28         if (-d "$devkit/libfcgi" && -d "$devkit/include") {
  29                 # devkit
  30                 if (grep { ! -f "$devkit/include/$_" } @dist3
  31                         or grep { ! -f "$devkit/libfcgi/$_" } @dist2)
  32                 {
  33                         warn "This appears to be a FastCGI devkit distribution, " .
  34                                  "but one or more FastCGI library files are missing. \n" .
  35                                  "Please check the integrity of the distribution.\n";
  36                         exit -1;
  37                 }
  38
  39                 # Copy the C lib files down to ensure a compatible build.
  40                 print "Copying C library files from the devkit distribution\n";
  41             use File::Copy qw(copy);
  42
  43                 # TODO: stop or save if a local file has been modified
  44                 foreach (@dist1, @dist2, @dist3) { unlink };
  45                 foreach (@dist1) { copy("$devkit/$_", ".") || die $! };
  46                 foreach (@dist2) { copy("$devkit/libfcgi/$_", ".") || die $! };
  47                 foreach (@dist3) { copy("$devkit/include/$_", ".") || die $! };
  48         }
  49         else {
  50             # CPAN
  51             for $dir ("/usr", "/usr/local") {
  52                 if (-d "$dir/lib/" && -f "$dir/lib/libfcgi.a"
  53                         && -d "$dir/include" && !grep {!-f "$dir/include/$_"} (@h))
  54                 {
  55                     print "Found fcgi library and include files in $dir\n";
  56                     print "Will be using those instead of the included files\n";
  57                     print "Edit Makefile.PL if you don't like it\n";
  58
  59                     $prefix = $dir;
  60                     push @libs, "-L$dir/lib -lfcgi";
  61                     last;
  62                 }
  63             }
  64         }
  65 }
  66
  67 $sys = $^O eq 'MSWin32' ? 'win32' : 'unix';
  68 push @o, "fcgiapp.o", "os_$sys.o" unless $prefix;
  69 $inc = $prefix ? "-I$prefix/include" : '-I.';
  70
  71 push(@extras, CAPI => 'TRUE')
  72      if ($] >= 5.005 and $^O eq 'MSWin32'
  73         and $Config{archname} =~ /-object\b/i);
  74
  75 push(@extras,
  76     ABSTRACT => 'Fast CGI module',
  77     AUTHOR   => 'Sven Verdoolaege (skimo@kotnet.org)')
  78         if ($ExtUtils::MakeMaker::VERSION >= 5.4301);
  79
  80 $plfiles = { 'echo.PL' => 'echo.fpl',
  81              'remote.PL' => 'remote.fpl',
  82              'threaded.PL' => 'threaded.fpl',
  83              'FCGI.PL' => 'FCGI.pm',
  84            };
  85 $plfiles->{'FCGI.XL'} = 'FCGI.xs' unless $pure;
  86 if ($pure) {
  87     push @extras,
  88         LINKTYPE => ' ';
  89 } else {
  90
  91         if ("$sys" eq "win32") {
  92                 @libs = (scalar @libs)
  93                         ? map { "$_ :nosearch -lws2_32" } @libs
  94                         : (':nosearch -lws2_32');
  95                 push @extras, 'DEFINE' => '-DDLLAPI=__declspec(dllexport)';
  96         }
  97
  98     push @extras,
  99         'LIBS'  => [ @libs ],
 100         'OBJECT'        => "@o",
 101         'INC'   => $inc;
 102 }
 103
 104 # See lib/ExtUtils/MakeMaker.pm for details of how to influence
 105 # the contents of the Makefile that is written.
 106
 107 # Work around bug in previous versions of MakeMaker
 108 WriteMakefile(NAME => 'FCGI')
 109     if $ExtUtils::MakeMaker::VERSION <= 5.4302;
 110
 111 $mm = MM->new({
 112     'NAME'              => 'FCGI',
 113     'VERSION_FROM'      => 'FCGI.PL',
 114     'dist'              => { 'COMPRESS' => 'gzip -9f',
 115                              'SUFFIX' => 'gz',
 116                              'PREOP' => '$(CP) '.join(' ',
 117                                 map {"../$_"} @dist1,
 118                                 (map {"libfcgi/$_"} @dist2),
 119                                 map {"include/$_"} @dist3).' $(DISTVNAME);'.
 120                                 '$(CP) MANIFEST MANIFEST.old;'.
 121                                 'echo -e '. join('\\\n',@dist1,@dist2,@dist3) .
 122                                 '>> $(DISTVNAME)/MANIFEST',
 123                               'POSTOP' =>
 124                                 '$(MV) MANIFEST.old MANIFEST',
 125                             },
 126     'clean'             => { FILES => 'config.cache fcgi_config.h' .
 127                                       ' FCGI.xs FCGI.c FCGI.cfg ' .
 128                                       (join ' ', values %$plfiles)},
 129     'PL_FILES'          => $plfiles,
 130     PM                  => {'FCGI.pm' => '$(INST_ARCHLIBDIR)/FCGI.pm'},
 131     @extras,
 132 });
 133 # don't install oldinterface pod
 134 delete $mm->{MAN3PODS}{oldinterface.pod};
 135 $mm->flush;
 136
 137 exit if -f 'fcgi_config.h' or $prefix or $pure;
 138
 139 # CPAN and no installed lib found
 140 if ($sys eq "win32") {
 141     # configure will almost certainly not run on a normal NT install,
 142     # use the pregenerated configuration file
 143
 144     use File::Copy qw(copy);
 145     print "Using prebuilt fcgi_config.h file for Windows\n";
 146     unlink("fcgi_config.h");
 147     die $! unless copy("fcgi_config_x86.h","fcgi_config.h");
 148
 149     # Win can't deal with existence of FCGI.xs or absence of FCGI.c
 150     unlink("FCGI.xs");
 151     open(F, ">FCGI.c"); close(F);
 152     $now = time; $before = $now - 600;
 153     utime $before, $before, "FCGI.c";
 154     utime $now, $now, "FCGI.PL";
 155 } else {
 156     print "Running ./configure for you\n";
 157     print "Please read configure.readme for information on how to run it yourself\n";
 158
 159     $ENV{'CC'} = $Config{'cc'};
 160     system("$Config{sh} configure");
 161 }