projects
/
dell-switch
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
67acb51
)
fix more prompt for PowerConnect 5548
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Mon, 21 Sep 2015 15:54:35 +0000
(17:54 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Mon, 21 Sep 2015 15:54:35 +0000
(17:54 +0200)
dell-switch.pl
patch
|
blob
|
history
diff --git
a/dell-switch.pl
b/dell-switch.pl
index
a4fc2bb
..
158c8e4
100755
(executable)
--- a/
dell-switch.pl
+++ b/
dell-switch.pl
@@
-15,7
+15,7
@@
require 'config.pl';
#$Net::OpenSSH::debug = ~0;
#$Net::OpenSSH::debug = ~0;
-my $ip = shift @ARGV ||
'10.20.0.2'
;
+my $ip = shift @ARGV ||
die "usage: $0 IP command[ command ...]\n"
;
my @commands = @ARGV;
@commands = <DATA> unless @commands;
my @commands = @ARGV;
@commands = <DATA> unless @commands;
@@
-87,7
+87,7
@@
while(1) {
}
} elsif ( $buff =~ m/% Unrecognized command/ ) {
exit 1;
}
} elsif ( $buff =~ m/% Unrecognized command/ ) {
exit 1;
- } elsif ( $buff =~ s{More: <space>, Quit: q
,
One line: <return> }{} ) {
+ } elsif ( $buff =~ s{More: <space>, Quit: q
.*
One line: <return> }{} ) {
send_pty " ";
} elsif ( $buff =~ s{\e\[0m\r\s+\r}{} ) {
}
send_pty " ";
} elsif ( $buff =~ s{\e\[0m\r\s+\r}{} ) {
}