# This -*- perl -*- script writes the Makefile for RCGI
# $Id: Makefile.PL,v 1.0 1998/3/13 22:30:00 aas Exp $
use ExtUtils::MakeMaker;
require 5.004;
#--- Configuration section ---
#--- End Configuration - You should not have to change anything below this line
die qq{
Your perl is too old for this version of RCGI
Please upgrade your perl.
} if $] < 5.004;
$Verbose = 1;
# Check for non-standard modules that are used by this library.
$| = 1;
my $missing_modules = 0;
print "Checking for HTTP::Request::Common..";
eval {
require HTTP::Request::Common;
# #HTTP::Request::Common->require_version('2.00');
};
if ($@) {
print " failed\n";
$missing_modules++;
print <<EOT;
$@
The HTTP::Request::Common module is needed by RCGI.
EOT
sleep(2); # Don't hurry too much
} else {
print " ok\n";
}
print "Checking for LWP::UserAgent..";
eval {
require LWP::UserAgent;
# #HTTP::Request::Common->require_version('2.00');
};
if ($@) {
print " failed\n";
$missing_modules++;
print <<EOT;
$@
The LWP::UserAgent module is needed by RCGI.
EOT
sleep(2); # Don't hurry too much
} else {
print " ok\n";
}
print "Checking for LWP::Simple..";
eval {
require LWP::Simple;
# #HTTP::Request::Common->require_version('2.00');
};
if ($@) {
print " failed\n";
$missing_modules++;
print <<EOT;
$@
The LWP::Simple module is needed by RCGI.
EOT
sleep(2); # Don't hurry too much
} else {
print " ok\n";
}
print "Checking for URI::URL..";
eval {
require URI::URL;
# #HTTP::Request::Common->require_version('2.00');
};
if ($@) {
print " failed\n";
$missing_modules++;
print <<EOT;
$@
The URI::URL module is needed by RCGI.
EOT
sleep(2); # Don't hurry too much
} else {
print " ok\n";
}
print "Checking for CGI..";
eval {
require CGI;
# #HTTP::Request::Common->require_version('2.00');
};
if ($@) {
print " failed\n";
$missing_modules++;
print <<EOT;
$@
The CGI module is needed by RCGI.
EOT
sleep(2); # Don't hurry too much
} else {
print " ok\n";
}
print "Checking for Data::Dumper..";
eval {
require Data::Dumper;
# #HTTP::Request::Common->require_version('2.00');
};
if ($@) {
print " failed\n";
$missing_modules++;
print <<EOT;
$@
The Data::Dumper module is needed by RCGI.
EOT
sleep(2); # Don't hurry too much
} else {
print " ok\n";
}
WriteMakefile(
'NAME' => 'RCGI',
'DISTNAME' => 'RCGI',
'VERSION_FROM' => 'RCGI.pm',
'PMLIBDIRS' => [ 'Data' ],
'clean' => { FILES => 'RCGI.html' },
'dist' => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
);
package MY;
sub MY::test_via_harness { "" }
sub MY::test_via_script {
my( $self, $perl, $script ) = @_;
my $res;
$res = $self->MM::test_via_script( $perl, $script );
$res =~ s/(test.pl)/$1 -p $perl/;
$res;
}
sub manifypods
{
my $self = shift;
local($_) = $self->SUPER::manifypods(@_);
my($pod2man_exe) = /POD2MAN_EXE\s*\=\s*(.*)\n/m;
$pod2man_exe =~ s/^\s*//;
$pod2man_exe =~ s/\s*$//;
my($pod2html_exe) = $pod2man_exe;
$pod2html_exe =~ s/2man/2html/;
$_
# . "\n\t$pod2html_exe --infile=RCGI.pm --outfile=RCGI.html --index\n\trm -f pod2html-*cache\n";
}
sub MY::postamble {
'
schema_cache ::
@$(PERL) -I$(INST_ARCHLIB) -I$(INST_LIB) \
cache/make_cache_dir.pl
'
}