require 5.005;
use strict;
use Config;
use ExtUtils::MakeMaker;
use constant RUNNING_ON_WINDOWS => ($^O =~ /^(?:mswin|dos|os2)/oi);
my @ATT_KEYS = (
'SYSCONFDIR', 'PERLSYSCONFDIR', 'SITESYSCONFDIR', 'VENDORSYSCONFDIR',
'DATADIR', 'INSTALLDATA', 'INSTALLSITEDATA', 'INSTALLVENDORDATA',
'CONFDIR', 'INSTALLCONF', 'INSTALLSITECONF', 'INSTALLVENDORCONF',
'DEFRULESDIR', 'LOCALRULESDIR',
'PERL_BIN', 'PERL_VERSION', 'PERL_WARN', 'PERL_TAINT',
'ENABLE_SSL', 'CONTACT_ADDRESS', 'RUN_RAZOR_TESTS', 'RUN_RAZOR2_TESTS');
sub parse_arg {
my($val, $name) = (@_);
if ($val =~ /^($name)=["']?(.*?)["']?$/) {
return $2;
} else {
return undef;
}
}
sub bool {
my($val, $def) = (@_, undef, undef);
$def = 0 unless defined $def;
return bool($def) unless defined $val;
$val =~ s/^\s+|\s+$//g;
return 0 if $val =~ /^(0|N(o)?|Off)$/i;
return 1 if $val =~ /^(1|Y(es)?|On)$/i;
return bool($def);
}
sub yesno {
my($val, $def) = (@_, undef, undef);
return 'yes' if bool($val, $def);
return 'no';
}
my %opt = (
'enable_ssl' => undef,
'contact_address' => undef,
'run_razor_tests' => undef,
'destdir' => undef,
'__cruft' => undef,
'ignore_cruft' => undef,
);
ARGV: foreach (@ARGV) {
foreach my $key (keys %opt) {
my $val;
$val = parse_arg($_, uc($key));
if (defined $val) {
$opt{$key} = $val;
next ARGV;
}
if (defined parse_arg($_, qr/INST_(?:PREFIX|SITELIB|SYSCONFDIR)|[A-Z_]+_RULES_DIR/)) {
$opt{'__cruft'} = 1;
}
}
}
my($mm_version, $mm_has_destdir, $mm_has_good_destdir, $mm_needs_destdir, $mm_has_pm_filter);
$mm_version = $ExtUtils::MakeMaker::VERSION;
$mm_has_destdir = $ExtUtils::MakeMaker::Recognized_Att_Keys{DESTDIR};
$mm_has_good_destdir = $mm_version >= 6.11;
$mm_needs_destdir = $opt{'destdir'} && !$mm_has_destdir;
$mm_has_destdir ||= $mm_needs_destdir;
push(@ATT_KEYS, 'DESTDIR') if $mm_has_destdir;
$mm_has_pm_filter = $mm_version > 5.45 || ($mm_version == 5.45 && $] > 5.006);
foreach my $key (@ATT_KEYS) {
$ExtUtils::MakeMaker::Recognized_Att_Keys{$key} = 1;
}
my @rulesfiles = map { s,^rules/,,; $_ } (<rules/*.cf>);
my $rulesfiles = join(' ', (grep { /^[0-6][0-9]_/ } @rulesfiles), qw(user_prefs.template triplets.txt languages));
my @SPAMD_EXE_FILES = ();
if (!RUNNING_ON_WINDOWS) {
@SPAMD_EXE_FILES = ('spamd/spamc$(EXE_EXT)', 'spamd/spamd');
}
my %makefile = (
'NAME' => 'Mail::SpamAssassin',
'VERSION_FROM' => 'lib/Mail/SpamAssassin.pm',
'EXE_FILES' => [
'spamassassin', 'sa-learn',
@SPAMD_EXE_FILES
],
'MAN1PODS' => {
'spamassassin' => '$(INST_MAN1DIR)/spamassassin.$(MAN1EXT)',
'sa-learn' => '$(INST_MAN1DIR)/sa-learn.$(MAN1EXT)',
'spamd/spamc.pod' => '$(INST_MAN1DIR)/spamc.$(MAN1EXT)',
'spamd/spamd' => '$(INST_MAN1DIR)/spamd.$(MAN1EXT)',
},
'PL_FILES' => { },
'PMLIBDIRS' => [ 'lib' ],
'PM_FILTER' => '$(PERL) build/preprocessor -Mconditional $(FIXBYTES) -Mvars -DVERSION="$(VERSION)" -DPREFIX="$(I_PREFIX)"',
'macro' => {
RULES => $rulesfiles,
},
'PREREQ_PM' => {
'ExtUtils::MakeMaker' => 5.45 *0, 'File::Spec' => 0.8, 'File::Copy' => 2.02, 'Pod::Usage' => 1.10, 'HTML::Parser' => 3.24, 'Text::Wrap' => 98.112902, 'Sys::Hostname' => 0,
'Time::Local' => 0,
'Errno' => 0,
},
'dist' => {
COMPRESS => 'gzip -9f', SUFFIX => 'gz',
DIST_DEFAULT => 'tardist'
},
'clean' => { FILES => join(' ' =>
'doc', 'pod2htm*',
'spamassassin', 'sa-learn',
'spamd/spamd', 'spamd/spamc$(EXE_EXT)',
'spamd/libspamc.so', 'spamd/libsslspamc.so',
'spamd/binaries.mk', 'spamd/config.h', 'spamd/config.status',
'spamd/config.cache', 'spamd/config.log', 'spamd/autom4te.cache',
'qmail/qmail-spamc',
't/do_razor2', 't/log'
)
},
'AUTHOR' => 'Justin Mason <jm@jmason.org>',
'ABSTRACT' => 'identify spam mail using text analysis',
'NORECURS' => 1,
'NO_META' => 1,
);
delete $makefile{'NO_META'} if $mm_version < 6.06_03;
if (bool($opt{'__cruft'}, 0) and not bool($opt{'ignore_cruft'}, 0)) {
my $error = <<OLD_CRUFT;
***********************************************************************
You attempted to use one of the following unsupported variables:
INST_PREFIX
INST_SITELIB
INST_SYSCONFDIR
DEF_RULES_DIR
LOCAL_RULES_DIR
Please read INSTALL and PACKAGING for new usage instructions.
Thanks and sorry for any inconvenience.
***********************************************************************
OLD_CRUFT
$error =~ s/^ {4}//gm;
die $error;
}
if ($mm_needs_destdir) {
my $error = <<DESTDIR_HACK;
***********************************************************************
ExtUtils::MakeMaker ${mm_version} doesn't include support for DESTDIR,
so if you want to be on the safe side, you might want to upgrade your
ExtUtils::MakeMaker to version 6.11 or later. It is available via CPAN.
You can use either the CPAN shell or go to
<http://search.cpan.org/search?module=ExtUtils::MakeMaker>
to get an up-to-date version.
This should only be necessary if you are creating binary packages.
***********************************************************************
DESTDIR_HACK
$error =~ s/^ {4}//gm;
warn $error;
}
elsif ($opt{'destdir'} and !$mm_has_good_destdir) {
my $error = <<DESTDIR_BUG;
***********************************************************************
ExtUtils::MakeMaker ${mm_version} contains bugs that may cause problems
in the \"make\" process. It is recommended that you upgrade
ExtUtils::MakeMaker to version 6.11 or later. It is available via CPAN.
You can use either the CPAN shell or go to
<http://search.cpan.org/search?module=ExtUtils::MakeMaker>
to get an up-to-date version.
This should only be necessary if you are creating binary packages.
***********************************************************************
DESTDIR_BUG
$error =~ s/^ {4}//gm;
warn $error;
}
if (!$mm_has_pm_filter) {
my $error = <<ANCIENT_VERSION;
***********************************************************************
Your version of ExtUtils::MakeMaker does not support PM_FILTER.
The \"make\" process will almost certainly have many warnings and it is
very likely to fail.
You can use either the CPAN shell or go to
<http://search.cpan.org/search?module=ExtUtils::MakeMaker>
to get an up-to-date version.
Perl 5.6.1 and later versions also include recent versions by default.
***********************************************************************
ANCIENT_VERSION
$error =~ s/^ {4}//gm;
warn $error;
$makefile{SKIP} = [ 'pm_to_blib' ];
$makefile{macro}{PM_FILTER} = $makefile{PM_FILTER};
delete $makefile{PM_FILTER};
}
unless($Config{installman1dir}) {
delete $makefile{MAN1PODS};
}
$makefile{'macro'}{'ENABLE_SSL'} = yesno($opt{'enable_ssl'});
$opt{'contact_address'} = "temp\@temp.host.com";
if (!defined $opt{'contact_address'}) {
$opt{'contact_address'} = prompt(
"What email address or URL should be used in the suspected-spam report\n".
"text for users who want more information on your filter installation?\n".
"(In particular, ISPs should change this to a local Postmaster contact)\n".
"default text:", "the administrator of that system"
);
print "\n";
}
$makefile{'macro'}{'CONTACT_ADDRESS'} = $opt{'contact_address'};
if (!defined $opt{'run_razor_tests'}) {
my $got_razor2 = eval { require Razor2::Client::Agent };
if ($got_razor2) {
$opt{'run_razor_tests'} = prompt(
"Run Razor v2 tests (these may fail due to network problems)? (y/n)",
'n'
);
print "\n";
}
}
$opt{'run_razor_tests'} = bool($opt{'run_razor_tests'});
if ($opt{'run_razor_tests'}) {
open(FLAG, "> t/do_razor2");
close(FLAG);
}
else {
unlink("t/do_razor2");
}
$makefile{'macro'}{'TEST_RUN_RAZOR'} = yesno($opt{'run_razor_tests'});
WriteMakefile(%makefile);
print "Makefile written by ExtUtils::MakeMaker ${mm_version}\n";
package MY;
use vars qw(
$MY_GLOBALS_ARE_SANE
@REPOSITORIES
$MACRO_RE
$EQ_RE
$EQ
$SELF
);
sub init_MY_globals {
my $self = shift;
$SELF = $self;
return if $MY_GLOBALS_ARE_SANE;
$MY_GLOBALS_ARE_SANE = 1;
@REPOSITORIES = qw(
PERL
SITE
VENDOR
);
$MACRO_RE = qr/[A-Z0-9_]+/;
$EQ_RE = qr/\s*:?=\s*/;
$EQ = undef;
}
sub clean_MY_globals {
my $self = shift;
$SELF = undef;
}
sub set_EQ_from_line {
my($line) = (@_);
return if defined($EQ);
$line =~ /\S(${EQ_RE})/;
$EQ = $1;
}
sub float_to_version {
my($ver) = (@_);
if ($ver =~ /^\d\.\d+$/) {
$ver = sprintf("%1.6f", $ver);
$ver =~ s/[.0]+([1-9]+)/.$1/g;
}
return $ver;
}
sub macro_ref {
my($name) = (@_);
return sprintf('$(%s)', $name);
}
sub macro_def {
my($name, $val) = (@_, undef);
$val = $SELF->{$name} unless defined $val;
die unless defined $EQ;
return $name . $EQ . $val;
}
sub line_has_macro_def {
my($line, $name) = (@_, undef);
$name = $MACRO_RE unless defined $name;
return $line =~ /^($name)${EQ_RE}/;
}
sub get_macro_name_from_line {
my($line) = (@_);
$line =~ /^(${MACRO_RE})${EQ_RE}/;
return $1;
}
sub get_macro {
my($name) = (@_);
return $SELF->{$name};
}
sub get_expanded_macro {
my($name) = (@_);
my($val);
$val = get_macro($name);
while ($val =~ s/\Q$(\E(${MACRO_RE})\Q)\E/$SELF->{$1} || ''/ge) {};
return $val;
}
sub set_macro {
my($name, $val) = (@_);
$SELF->{$name} = $val;
}
sub repository {
my($repository) = (@_);
return '' if $repository eq 'PERL';
return $repository;
}
sub _set_macro_SYSCONFDIR {
my($repository) = (@_);
my($macro);
$macro = $repository . "SYSCONFDIR";
return if get_macro($macro);
if (get_macro('SYSCONFDIR')) {
set_macro($macro, macro_ref('SYSCONFDIR'));
return;
}
my($rprefix);
$rprefix = get_expanded_macro("${repository}PREFIX");
set_macro($macro,
($rprefix =~ m{^$}) ? '' :
($rprefix =~ m{^/usr(/local)?/?$}) ? '/etc' :
($rprefix =~ m{^/opt(/|$)}) ? '/etc/opt' :
macro_ref("${repository}PREFIX") . '/etc'
);
}
sub _set_macro_DATADIR {
my($repository) = (@_);
my($macro);
$macro = "INSTALL" . repository($repository) . "DATA";
return if get_macro($macro);
foreach my $omacro (qw(DATADIR DEFRULESDIR)) {
if (get_macro($omacro)) {
set_macro($macro, get_macro($omacro));
return;
}
}
set_macro($macro,
macro_ref("${repository}PREFIX") . '/usr/share/spamassassin'
);
}
sub _set_macro_CONFDIR {
my($repository) = (@_);
my($macro);
$macro = "INSTALL" . repository($repository) . "CONF";
return if get_macro($macro);
foreach my $omacro (qw(CONFDIR LOCALRULESDIR)) {
if (get_macro($omacro)) {
set_macro($macro, get_macro($omacro));
return;
}
}
set_macro($macro,
macro_ref("${repository}SYSCONFDIR") . '/mail/spamassassin'
);
}
sub _set_macro_PERL_BIN {
return if get_macro('PERL_BIN');
set_macro('PERL_BIN', macro_ref('FULLPERL'));
}
sub _set_macro_PERL_VERSION {
return if get_macro('PERL_VERSION');
my($perl, $ver);
$perl = get_expanded_macro('PERL_BIN');
if (-x $perl) {
$ver = qx{$perl -V:version};
$ver =~ s/^version='([0-9.]+).*$/$1/s;
}
$ver = $] unless $ver;
set_macro('PERL_VERSION', float_to_version($ver));
}
sub _set_macro_PERL_yesno {
my($macro) = (@_);
my($val);
$macro = 'PERL_' . $macro;
$val = "";
if (get_macro($macro)) {
$val = ::yesno(get_macro($macro));
}
set_macro($macro, $val);
}
sub _set_macro_PERL_WARN {
_set_macro_PERL_yesno('WARN');
}
sub _set_macro_PERL_TAINT {
_set_macro_PERL_yesno('TAINT');
}
sub MY::libscan {
my $self = shift;
my($path) = @_;
init_MY_globals($self);
return q{} if $path =~ m{
(^|/)(\.svn|CVS)(/|$)|
[/.](orig|old|rej|diff|patch|bak|backup|my)$
}ix;
clean_MY_globals($self);
return $path; }
sub MY::install {
my $self = shift;
my @code = split(/\n/, $self->SUPER::install(@_));
init_MY_globals($self);
foreach (@code) {
s/^(install(?:_[a-z]+)?\s*::?\s*.*)$/$1 conf__install data__install/;
next if !$mm_needs_destdir;
next if /installed into/;
s/\Q$(\E(INSTALL(?!DIRS)${MACRO_RE})\Q)\E/\$(DEST$1)/g;
}
clean_MY_globals($self);
return join("\n", @code);
}
sub MY::constants {
my $self = shift;
my @code = split(/\n/, $self->SUPER::constants(@_));
init_MY_globals($self);
foreach my $line (@code) {
next if $line =~ /^\s* next unless line_has_macro_def($line);
set_EQ_from_line($line);
if (line_has_macro_def($line, 'PREFIX')) {
foreach my $r (@REPOSITORIES) {
my $rprefix = "${r}PREFIX";
if (!defined(get_macro($rprefix))) {
set_macro($rprefix, macro_ref('PREFIX'));
$line .= "\n" . macro_def($rprefix);
}
}
}
if ($mm_needs_destdir) {
if (line_has_macro_def($line, 'INSTALLDIRS')) {
$line .= "\n" . macro_def('DESTDIR');
}
elsif (line_has_macro_def($line, qr/INSTALL${MACRO_RE}/)) {
my $macro = get_macro_name_from_line($line);
$line .= "\n" . macro_def('DEST' . $macro,
macro_ref('DESTDIR') . macro_ref($macro));
}
}
}
{
set_macro('SYSCONFDIR', "") unless get_macro('SYSCONFDIR');
foreach my $r (@REPOSITORIES) {
_set_macro_SYSCONFDIR($r);
_set_macro_DATADIR($r);
_set_macro_CONFDIR($r);
}
push(@code, qq{});
push(@code, macro_def('SYSCONFDIR'));
foreach my $r (@REPOSITORIES) {
push(@code, macro_def($r . 'SYSCONFDIR'));
}
foreach my $m (qw(DATA CONF)) {
foreach my $r (@REPOSITORIES) {
my $macro = 'INSTALL' . repository($r) . $m;
push(@code, macro_def($macro));
push(@code, macro_def('DEST' . $macro,
macro_ref('DESTDIR') . macro_ref($macro)))
if $mm_has_destdir;
}
}
}
{
_set_macro_PERL_BIN;
_set_macro_PERL_VERSION;
_set_macro_PERL_WARN;
_set_macro_PERL_TAINT;
push(@code, qq{});
foreach my $m (qw(BIN VERSION WARN TAINT)) {
push(@code, macro_def('PERL_' . $m));
}
}
clean_MY_globals($self);
return join("\n", @code);
}
sub MY::postamble {
my $self = shift;
my @code = ();
init_MY_globals($self);
my($repository);
$repository = uc($SELF->{INSTALLDIRS}) || 'SITE';
foreach my $macro (qw(PREFIX SYSCONFDIR)) {
push(@code, macro_def('I_' . $macro,
macro_ref($repository . $macro)));
}
foreach my $macro (qw(DATA CONF LIB)) {
push(@code, macro_def('I_' . $macro . 'DIR',
macro_ref('INSTALL' . repository($repository) . $macro)));
if ($mm_has_destdir) {
push(@code, macro_def('B_' . $macro . 'DIR',
macro_ref('DESTINSTALL' . repository($repository) . $macro)));
} else {
push(@code, macro_def('B_' . $macro . 'DIR',
macro_ref('I_' . $macro . 'DIR')));
}
}
my $code = join("\n", @code);
@code = ();
$code .= <<' EOD';
PREPROCESS = $(PERL) build/preprocessor
FIXVARS = -Mvars \
-DVERSION="$(VERSION)" \
-DPREFIX="$(I_PREFIX)" \
-DDEF_RULES_DIR="$(I_DATADIR)" \
-DLOCAL_RULES_DIR="$(I_CONFDIR)" \
-DINSTALLSITELIB="$(I_LIBDIR)" \
-DCONTACT_ADDRESS="$(CONTACT_ADDRESS)"
FIXBYTES = -Mbytes \
-DPERL_VERSION="$(PERL_VERSION)"
FIXBANG = -Msharpbang \
-DPERL_BIN="$(PERL_BIN)" \
-DPERL_WARN="$(PERL_WARN)" \
-DPERL_TAINT="$(PERL_TAINT)"
SPAMC_SOURCES = spamd/spamc.c spamd/libspamc.c spamd/utils.c qmail/qmail-spamc.c
EOD
if (!$mm_has_pm_filter) {
$code .= <<' EOD';
pm_to_blib: $(TO_INST_PM)
@ $(PERL) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" \
"-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -Ibuild \
-MExtUtils::Install -Mpreprocessor \
-e "ExtUtils::Install::Post545::pm_to_blib({qw{$(PM_TO_BLIB)}}, '$(INST_LIB)/auto', '$(PM_FILTER)')"
EOD
}
$code .= <<' EOD';
spamassassin: spamassassin.raw
$(PREPROCESS) $(FIXBYTES) $(FIXVARS) $(FIXBANG) -m$(PERM_RWX) -i$? -o$@
sa-learn: sa-learn.raw
$(PREPROCESS) $(FIXBYTES) $(FIXVARS) $(FIXBANG) -m$(PERM_RWX) -i$? -o$@
spamd/spamd: spamd/spamd.raw
$(PREPROCESS) $(FIXBYTES) $(FIXVARS) $(FIXBANG) -m$(PERM_RWX) -i$? -o$@
spamd/libspamc.so: spamd/binaries.mk $(SPAMC_SOURCES)
$(MAKE) -f spamd/binaries.mk $@
spamd/libspamc.dll: spamd/binaries.mk $(SPAMC_SOURCES)
$(MAKE) -f spamd/binaries.mk $@
spamd/spamc$(EXE_EXT): spamd/binaries.mk $(SPAMC_SOURCES)
$(MAKE) -f spamd/binaries.mk $@
spamd/libsslspamc.so: spamd/binaries.mk $(SPAMC_SOURCES)
$(MAKE) -f spamd/binaries.mk $@
spamd/libsslspamc.dll: spamd/binaries.mk $(SPAMC_SOURCES)
$(MAKE) -f spamd/binaries.mk $@
qmail/qmail-spamc: spamd/binaries.mk $(SPAMC_SOURCES)
$(MAKE) -f spamd/binaries.mk $@
spamd/binaries.mk: spamd/configure
cd spamd; ./configure --prefix="$(I_PREFIX)" --sysconfdir="$(I_SYSCONFDIR)" --datadir="$(I_DATADIR)" --mandir="/user/share/man" --enable-ssl="$(ENABLE_SSL)"
conf__install:
-$(MKPATH) $(B_CONFDIR)
$(PERL) -MFile::Spec -MFile::Copy \
-e "copy(q{rules/local.cf}, q{$(B_CONFDIR)/local.cf}) unless -f q{$(B_CONFDIR)/local.cf};"
data__install:
-$(MKPATH) $(B_DATADIR)
$(PERL) -e "map unlink, <$(B_DATADIR)/*>"
$(PREPROCESS) $(FIXVARS) -m$(PERM_RW) -Irules -O$(B_DATADIR) $(RULES)
$(CHMOD) $(PERM_RWX) $(B_DATADIR)
text_html_doc: made-doc-stamp
$(NOOP)
doc:
$(MKPATH) $@
made-doc-stamp: doc $(MAN1PODS) $(MAN3PODS) $(EXTRAPODS)
$(PERL) build/convert_pods_to_doc $(MAN1PODS) $(MAN3PODS) $(EXTRAPODS)
$(TOUCH) made-doc-stamp
$(RM_F) pod2htm*
EOD
clean_MY_globals($self);
return $code;
}