From d729a00cf5572a2ee1a651d9bcceb5750715bd0b Mon Sep 17 00:00:00 2001
From: "Eirik A. Nygaard" <eirikald@pvv.ntnu.no>
Date: Tue, 3 Apr 2007 14:42:26 +0200
Subject: [PATCH] Bugfixes.

---
 include/ios.pm | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/include/ios.pm b/include/ios.pm
index 750a96b..b6ba7f4 100644
--- a/include/ios.pm
+++ b/include/ios.pm
@@ -6,6 +6,9 @@ use Net::Telnet;
 
 package nms;
 
+use base 'Exporter';
+our @EXPORT = qw(ios_waitprompt ios_enable ios_login ios_connect ios_close);
+
 my $iosprompt = '/[^\s]+[#>]/';
 
 sub ios_waitprompt($) {
@@ -19,13 +22,15 @@ 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);
 }
 
@@ -44,11 +49,14 @@ sub ios_login($$$) {
 	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/;
 	}
-- 
2.39.2