| version 1.5, 2007/02/05 23:10:37 |
version 1.8, 2007/02/06 21:19:40 |
|
|
| 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 $ |
# $RedRiver: Build.PL,v 1.7 2007/02/06 20:41:10 andrew Exp $ |
| |
|
| my $cfg_file = File::Spec->catfile('t', 'tests.cfg'); |
my $cfg_file = File::Spec->catfile('t', 'tests.cfg'); |
| |
|
|
|
| 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, |
| }, |
}, |
|
|
| |
|
| 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"; |
| } |
} |
|
|
| 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}) |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to Build.PL CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / trango / Net-Telnet-Trango