projects
/
dell-switch
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
d8003f4
)
enable and new more prompt
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Mon, 9 May 2016 11:55:52 +0000
(13:55 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Mon, 9 May 2016 11:55:52 +0000
(13:55 +0200)
dell-switch.pl
patch
|
blob
|
history
diff --git
a/dell-switch.pl
b/dell-switch.pl
index
2a7a89d
..
edcdcf5
100755
(executable)
--- a/
dell-switch.pl
+++ b/
dell-switch.pl
@@
-74,6
+74,8
@@
while(1) {
} elsif ( $buff =~ m/Password:/ ) {
send_pty "$passwd\n";
$buff = '';
+ } elsif ( $buff =~ m/([\w\-]+)>$/ ) {
+ send_pty "enable\n";
} elsif ( $buff =~ m/([\w\-]+)#$/ ) {
my $hostname = $1;
if ( $buff ) {
@@
-93,6
+95,8
@@
while(1) {
exit 1;
} elsif ( $buff =~ s{More: <space>, Quit: q.*One line: <return> }{} ) {
send_pty " ";
+ } elsif ( $buff =~ s{\Q--More-- or (q)uit\E}{} ) {
+ send_pty " "
} elsif ( $buff =~ s{\e\[0m\r\s+\r}{} ) {
}
}