package nms;
+use base 'Exporter';
+our @EXPORT = qw(ios_waitprompt ios_enable ios_login ios_connect ios_close);
+
my $iosprompt = '/[^\s]+[#>]/';
sub ios_waitprompt($) {
#print "PRE: $prematch\nM: $match\n";
}
-sub ios_enable($$) {
+sub ios_enable {
my ($t, $enablepass) = @_;
print STDERR "Enabling...\n";
my @lines = $t->print("enable");
- $t->waitfor('/Password: /');
- $t->print($enablepass);
+ if ($enablepass) {
+ $t->waitfor('/Password: /');
+ $t->print($enablepass);
+ }
ios_waitprompt($t);
}
ios_waitprompt($t);
}
+use Data::Dumper;
+
sub ios_getroute {
my ($t, $net) = @_;
my @output = $t->cmd("show ip route".($net ? " $net" : ''));
+ print Dumper(@output);
foreach (@output) {
return 0 if $_ =~ /^% Network not in table/;
}