version 1.6, 2007/02/06 00:41:49 |
version 1.7, 2007/02/06 20:41:10 |
|
|
use warnings; |
use warnings; |
use Module::Build; |
use Module::Build; |
use File::Spec; |
use File::Spec; |
# $RedRiver: Build.PL,v 1.5 2007/02/05 23:10:37 andrew Exp $ |
# $RedRiver: Build.PL,v 1.6 2007/02/06 00:41:49 andrew Exp $ |
|
|
my $cfg_file = File::Spec->catfile('t', 'tests.cfg'); |
my $cfg_file = File::Spec->catfile('t', 'tests.cfg'); |
|
|
|
|
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}) |