view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

# -*- perl -*-

use strict;
use ExtUtils::MakeMaker;
use Getopt::Long ();

use vars qw($opt_config);
Getopt::Long::GetOptions('config');

my $ok = 1;
my %prereq =
    ( 'Data::Dumper' => 0,
      'HTML::EP' => 0,
      'File::Spec' => 0,
      );

my $cfg;
if (-f "lib/Wizard/Examples/Apache/Config.pm") {
    $cfg = eval { require "lib/Wizard/Examples/Apache/Config.pm" };
}
if (!$cfg  ||  $opt_config) {
    my $prefsfile = $cfg->{'apache-prefs-file'} || '/etc/httpd/wwwAdmin/prefs';
    $cfg->{'apache-prefs-file'} =
	prompt("Enter path of the Apache Wizard prefs file:", $prefsfile);
}
die "Failed to create directory lib/Wizard/Examples/Apache: $!"
    unless ((-d "lib/Wizard/Examples/Apache")  or
	    mkdir("lib/Wizard/Examples/Apache", 0755));
eval {
    require Data::Dumper;
    my $dump = Data::Dumper->new([$cfg],
				 ["Wizard::Examples::Apache::Config::config"]);
    $dump->Indent(1);
    if (!open(FILE, ">lib/Wizard/Examples/Apache/Config.pm")  or
	!(print FILE ("package Wizard::Examples::Apache::Config;\n",
		      $dump->Dump()))  or
	!close(FILE)) {
	die "Failed to create file lib/Wizard/Examples/Apache/Config.pm: $!";
    }
};

my $icfg;
if (-f "lib/Wizard/Examples/ISDN/Config.pm") {
    $icfg = eval { require "lib/Wizard/Examples/ISDN/Config.pm" };
}
if (!$icfg  ||  $opt_config) {
    my $prefsfile = $icfg->{'isdn-prefs-file'} || '/etc/sysconfig/isdn/prefs';
    $icfg->{'isdn-prefs-file'} =
	prompt("Enter path of the ISDN Wizard prefs file:", $prefsfile);
}
die "Failed to create directory lib/Wizard/Examples/ISDN: $!"
    unless ((-d "lib/Wizard/Examples/ISDN")  or
	    mkdir("lib/Wizard/Examples/ISDN", 0755));
eval {
    my $dump = Data::Dumper->new([$icfg],
				 ["Wizard::Examples::Apache::ISDN::config"]);
    $dump->Indent(1);
    if (!open(FILE, ">lib/Wizard/Examples/ISDN/Config.pm")  or
	!(print FILE ("package Wizard::Examples::ISDN::Config;\n",
		      $dump->Dump()))  or
	!close(FILE)) {
	die "Failed to create file lib/Wizard/Examples/ISDN/Config.pm: $!";
    }
};

my %opts = ('NAME'         => 'Wizard',
	    'VERSION_FROM' => 'lib/Wizard.pm',
	    'EXE_FILES'    => [ 'wizard', 'apacheAdmin' ],
	    'dist'         => { 'SUFFIX'       => ".gz",
				'DIST_DEFAULT' => 'all tardist',
				'COMPRESS'     => "gzip -9f" },
	    'clean'        => { 'FILES' => '$(EXE_FILES)' });
if ($ExtUtils::MakeMaker::VERSION >= 5.43) {
    $opts{ABSTRACT_FROM} = 'lib/Wizard.pm';
    $opts{AUTHOR} = 'Jochen Wiedmann (joe@ispsoft.de) and Amarendran R. Subramanian (amar@ispsoft.de)';
    $opts{PREREQ_PM} = \%prereq;
}


WriteMakefile(%opts);


package MY;

sub libscan {
    my $self = shift;  my $path = shift;
    return undef if $path =~ /\~$/; # Emacs backup file
    $path;
}