#!/usr/local/bin/perl -w
#
# Makefile.PL
#
# $Id: Makefile.PL,v 1.3 2003/02/16 10:17:16 awolf Exp $
# $Revision: 1.3 $
# $Author: awolf $
# $Date: 2003/02/16 10:17:16 $
#
######################################################################

use 5.6.0;
use strict;
use warnings;

use ExtUtils::MakeMaker;

my $NAME     = 'DNS-Config';
my $VERSION  = '0.66';

#--- Prototypes ---#
sub check_makefile_exists( );

#--------------------------------------------#

die "Exiting due to existing makefile..." if check_makefile_exists();

WriteMakefile(
	'NAME'      => $NAME,
	'VERSION'   => $VERSION,
	'DISTNAME'  => $NAME,
	($] >= 5.005 ? (
		AUTHOR    => 'Andy Wolf <zonemaster@users.sourceforge.net>',
		ABSTRACT  => 'Generic config with specific file adaptors'
	) : ()),
	'MAN3PODS' => { }
);

exit 0;

#--- Check for existing Makefile ---#
sub check_makefile_exists( ) {
	my $answer = 0;
	
	if (-e 'Makefile') {
		warn <<END;
There is already a Makefile.  To avoid weird problems it is
recommended you run 'make distclean' to clear out old built files
before generating a new Makefile.

END

		$answer = ExtUtils::MakeMaker::prompt('Do you wish to continue anyway ?', 'no');
		
	}

	return ($answer =~ /^n[o]*$/i) ? 1 : 0;
}

1;