X-Git-Url: http://git.rot13.org/?p=dell-switch;a=blobdiff_plain;f=dell-switch.pl;h=82debdaedb3074ce69bf4d348cc57e321b2edb5e;hp=33f1d1da3c16bc7bb4c1967e560048276fe01750;hb=HEAD;hpb=a56c96a6ce1802160b2515f2cd3eac305a0b0ea6

diff --git a/dell-switch.pl b/dell-switch.pl
index 33f1d1d..485d29c 100755
--- a/dell-switch.pl
+++ b/dell-switch.pl
@@ -99,7 +99,8 @@ while() {
 	} elsif ( $buff =~ m/Password:/ ) {
 		send_pty "$passwd\n";
 		$buff = '';
-	} elsif ( $buff =~ m/[\n\r\b]([\w\-\(\)]+)#\s*$/ ) {
+	} elsif ( $buff =~ m/[\n\r\b]([\w\-\(\)\/]+)#\s*$/ ) {
+		# config interface needs / in prompt
 		my $hostname = $1;
 		if ( $buff ) {
 			save_log $ip, $hostname, $command, $buff;
@@ -132,6 +133,8 @@ while() {
 		send_pty " ";
 	} elsif ( $buff =~ s{\Q--More-- or (q)uit\E}{} ) {
 		send_pty " ";
+	} elsif ( $buff =~ s{\r\s{18}\r}{} ) {
+		# strip spaces delete after more prompt
 	} elsif ( $buff =~ s{\e\[0m\s*\r\s+\r}{} ) {
 		# nop
 	} elsif ( $buff =~ m/^[\r\n]+[\w\-]+>$/ ) {