use strict;
use ExtUtils::MakeMaker qw( WriteMakefile prompt );
use File::stat;
use File::Path;
use File::Spec;
use FindBin qw($Bin);
use lib "$Bin/lib";
my $term;
WriteMakefile(
'NAME' => 'GSM::SMS',
'VERSION_FROM' => 'lib/GSM/SMS/NBS.pm',
'ABSTRACT' => 'Perl Modules For Smart Messaging',
'PREREQ_PM' => {
'Test::More' => 0,
'Log::Agent' => 0,
'MIME::Base64' => 0,
'Data::Dumper' => 0,
'Image::Magick' => 0,
'LWP::UserAgent' => 0,
'File::Temp' => 0,
'HTTP::Request' => 0,
'URI::URL' => 0,
'URI::Escape' => 0,
'LWP::Simple' => 0,
'File::stat' => 0,
'File::Path' => 0
},
'CONFIGURE' => \&configure,
'dist' => {
PREOP => 'pod2text docs/README.pod > $(DISTVNAME)/README',
DIST_DEFAULT => 'all_tardist',
COMPRESS => 'gzip -9f'
}
);
sub configure {
require GSM::SMS::Config;
my $config = GSM::SMS::Config::_config_wizard();
if ($config) {
my $config_file = File::Spec->catfile(
$Bin, "lib", "GSM", "SMS", "Config", "Default.pm"
);
open OUT, ">$config_file" or die "$!: $config_file";
print OUT $config;
close OUT;
print "Configuration done.\n";
}
return {};
}