perl/Makefile.PL

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