# BEGIN { $^W = 1 }
BEGIN { require 5.003 }

use ExtUtils::MakeMaker;
use strict;

use FindBin;

# Some MakeMaker's forged some FileHandle methods
require FileHandle unless defined(&FileHandle::new);

eval 'use DBI';
if ($@) {
	print <<EOF;
You do not seem to have DBI installed, so you will not be able to use
retrieve and update database functions for SchemaView.
EOF
} elsif (eval ' $DBI::VERSION < 1.12 ') {
	print <<EOF;
You have the DBI module, but it's the old version. Upgrade to at least 1.12
to use this with SchemaView.
EOF
}

eval 'use Tk';
if ($@) {
	print <<EOF;
You do not seem to have Tk installed, so you will not be able to use this
software. Install Perl/Tk at least 800.014 version.
EOF
} elsif (eval ' $Tk::VERSION < 800.014 ') {
	print <<EOF;
You have the Tk module, but it's the old version. Upgrade to at least 800.014
to use this with SchemaView.
EOF
}

eval 'use XML::Dumper';
if ($@) {
	print <<EOF;
You do not seem to have XML::Dumper installed, so you will not be able to use
open and save functions of this software. Install XML::Dumper at least 0.4
version.
EOF
} elsif (eval ' $XML::Dumper::VERSION < 0.4 ') {
	print <<EOF;
You have the XML::Dumper module, but it's the old version. Upgrade to at
least 0.4 to use this with SchemaView.
EOF
}

my %opts = (
	NAME => 'SchemaView-Plus',
	DISTNAME => 'SchemaView-Plus',
	VERSION_FROM => 'bin/svplus',
	EXE_FILES => [ "bin/svplus" ],
	dist => { DIST_DEFAULT => 'tardist',
		  COMPRESS => 'gzip -9vf', SUFFIX => 'gz',
		  POSTOP => 'mv $(DISTNAME)-$(VERSION).tar.gz ../',
		},
);

if ($ExtUtils::MakeMaker::VERSION >= 5.43) {
	$opts{AUTHOR} = 'Milan Sorm (sorm@pef.mendelu.cz)';
	$opts{ABSTRACT} = 'Retrieve, drawing and printing database schema';
	$opts{PREREQ_PM} = { DBI => '1.12', Tk => 0, 'XML::Parser' => 0,
		'XML::Dumper' => '0.4', FindBin => 0, 'Tk::MListbox' => 0,
		'Tk::ProgressBar' => 0, 'Tk::FontDialog' => 0 };
}

ExtUtils::MakeMaker::WriteMakefile(%opts);

print <<EOF;
+----------------------------------------+
| For using and documentation please run |
|                                        |
|               svplus                   |
|                                        |
| and try use Help -> Hints.             |
+----------------------------------------+
EOF

exit 0;

package MY;

__END__