version 1.5, 2007/02/05 23:10:37 |
version 1.9, 2009/07/08 18:36:55 |
|
|
use warnings; |
use warnings; |
use Module::Build; |
use Module::Build; |
use File::Spec; |
use File::Spec; |
# $RedRiver: Build.PL,v 1.4 2007/02/05 21:36:42 andrew Exp $ |
|
|
|
my $cfg_file = File::Spec->catfile('t', 'tests.cfg'); |
# $RedRiver: Build.PL,v 1.8 2007/02/06 21:19:40 andrew Exp $ |
|
|
|
my $cfg_file = File::Spec->catfile( 't', 'tests.cfg' ); |
|
|
my $builder = Module::Build->new( |
my $builder = Module::Build->new( |
module_name => 'Net::Telnet::Trango', |
module_name => 'Net::Telnet::Trango', |
license => 'perl', |
license => 'perl', |
dist_author => 'Andrew Fresh <andrew@cpan.org>', |
dist_author => 'Andrew Fresh <andrew@cpan.org>', |
dist_version_from => 'lib/Net/Telnet/Trango.pm', |
dist_version_from => 'lib/Net/Telnet/Trango.pm', |
|
requires => { |
|
'perl' => '5.6.1', |
|
'Net::Telnet' => '0', |
|
}, |
build_requires => { |
build_requires => { |
'Test::More' => 0, |
'Test::More' => '0', |
}, |
}, |
add_to_cleanup => [ 'Net-Telnet-Trango-*', $cfg_file ], |
add_to_cleanup => [ 'Net-Telnet-Trango-*', $cfg_file ], |
create_makefile_pl => 'traditional', |
create_makefile_pl => 'traditional', |
create_readme => 1, |
create_readme => 1, |
create_html => 1, |
create_html => 1, |
dynamic_config => 1, |
dynamic_config => 1, |
auto_features => { |
auto_features => { |
YAML_support => |
YAML_support => { |
{ |
|
description => "Use YAML.pm to write META.yml files", |
description => "Use YAML.pm to write META.yml files", |
requires => { YAML => ' >= 0.35, != 0.49_01 ' }, |
requires => { YAML => ' >= 0.35, != 0.49_01 ' }, |
}, |
}, |
manpage_support => |
manpage_support => { |
{ |
|
description => "Create Unix man pages", |
description => "Create Unix man pages", |
requires => { 'Pod::Man' => 0 }, |
requires => { 'Pod::Man' => 0 }, |
}, |
}, |
HTML_support => |
HTML_support => { |
{ |
|
description => "Create HTML documentation", |
description => "Create HTML documentation", |
requires => { 'Pod::Html' => 0 }, |
requires => { 'Pod::Html' => 0 }, |
}, |
}, |
}, |
}, |
); |
); |
|
|
|
|
EOB |
EOB |
|
|
get_ap_config(\%cfg); |
get_ap_config( \%cfg ); |
|
|
get_sudb_config(\%cfg) if $cfg{AP} && $cfg{AP_PASSWD}; |
get_sudb_config( \%cfg ) if $cfg{AP} && $cfg{AP_PASSWD}; |
|
|
get_su_config(\%cfg); |
get_su_config( \%cfg ); |
|
|
if (%cfg && open T,">$cfg_file") { |
if ( open T, ">$cfg_file" ) { |
while (my ($key, $value) = each %cfg) { |
while ( my ( $key, $value ) = each %cfg ) { |
print T $key, "\t", $value,"\n"; |
print T $key, "\t", $value, "\n"; |
} |
} |
close T; |
close T; |
} |
} |
|
|
sub get_ap_config { |
sub get_ap_config { |
my $cfg = shift; |
my $cfg = shift; |
|
|
print 'To run the AP tests, we need an IP and a password for an AP.', "\n"; |
print 'To run the AP tests, we need an IP and a password of an AP.', "\n"; |
|
|
$cfg->{AP} = $builder->prompt("AP IP: ", $cfg->{AP}) || return; |
$cfg->{AP} = $builder->prompt( "AP IP: ", $cfg->{AP} ) || return; |
$cfg->{AP_PASSWD} = $builder->prompt("AP Password:", $cfg->{AP_PASSWD}) |
$cfg->{AP_PASSWD} = $builder->prompt( "AP Password:", $cfg->{AP_PASSWD} ) |
|| return; |
|| return; |
} |
} |
|
|
sub get_sudb_config { |
sub get_sudb_config { |
|
|
SU that can reliably link to the AP. |
SU that can reliably link to the AP. |
EOL |
EOL |
|
|
$cfg->{SU_ID} = $builder->prompt("SU ID: ", $cfg->{SU_ID}) || return; |
$cfg->{SU_ID} = $builder->prompt( "SU ID: ", $cfg->{SU_ID} ) || return; |
$cfg->{SU_MAC} = $builder->prompt("SU MAC:", $cfg->{SU_MAC}) || return; |
$cfg->{SU_MAC} = $builder->prompt( "SU MAC:", $cfg->{SU_MAC} ) || return; |
} |
} |
|
|
sub get_su_config { |
sub get_su_config { |
|
|
|
|
print 'To run the SU tests, we need an IP and a password of an SU.', "\n"; |
print 'To run the SU tests, we need an IP and a password of an SU.', "\n"; |
|
|
$cfg->{SU} = $builder->prompt("SU IP: ", $cfg->{SU}) || return; |
$cfg->{SU} = $builder->prompt( "SU IP: ", $cfg->{SU} ) || return; |
$cfg->{SU_PASSWD} = $builder->prompt("SU Password:", $cfg->{SU_PASSWD}) |
$cfg->{SU_PASSWD} = $builder->prompt( "SU Password:", $cfg->{SU_PASSWD} ) |
|| return; |
|| return; |
} |
} |
|
|