===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/Build.PL,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- trango/Net-Telnet-Trango/Build.PL	2007/02/05 18:10:55	1.1
+++ trango/Net-Telnet-Trango/Build.PL	2007/02/05 19:21:02	1.2
@@ -1,8 +1,10 @@
 use strict;
 use warnings;
 use Module::Build;
-# $RedRiver$
+# $RedRiver: Build.PL,v 1.1 2007/02/05 18:10:55 andrew Exp $
 
+my $cfg_file = File::Spec->catfile('t', 'do_network.tests');
+
 my $builder = Module::Build->new(
     module_name         => 'Net::Telnet::Trango',
     license             => 'perl',
@@ -11,7 +13,33 @@
     build_requires => {
         'Test::More' => 0,
     },
-    add_to_cleanup      => [ 'Net-Telnet-Trango-*' ],
+    add_to_cleanup      => [ 'Net-Telnet-Trango-*', $cfg_file ],
 );
 
+get_config();
+
 $builder->create_build_script();
+
+sub get_config
+{
+    my %cfg;
+    print <<EOB;
+
+Net::Telnet::Trango needs to log into an AP to
+perform it\'s full suite of tests. To log in, we
+need a test AP, a login, a password.
+
+To skip these tests, hit "return".
+
+EOB
+
+    $cfg{AP}       = $builder->prompt("AP: ", $cfg{AP}) || return;
+    $cfg{PASSWD}   = $builder->prompt("Password:", $cfg{PASSWD}) || return;
+
+    if (open T,">$cfg_file") {
+        while (my ($key, $value) = each %cfg) {
+            print T $key, "\t", $value,"\n";
+        }
+        close T;
+    }
+}