135/netdisco
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Support enable password in ASA sshcollector (M. Sheinberg)

Browse Source
This commit is contained in:
Oliver Gorwits
2015-02-25 22:07:16 +00:00
parent 9695d1e041
commit 8cb0c0917b
7 changed files with 36 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Netdisco/lib/App/Netdisco/SSHCollector/Platform/ACE.pm
View File

@@ -41,7 +41,7 @@ Returns an array of hashrefs in the format { mac => MACADDR, ip => IPADDR }.
=cut
sub arpnip{
my ($self, $hostlabel, $ssh, @args) = @_;
my ($self, $hostlabel, $ssh, $args) = @_;
debug "$hostlabel $$ arpnip()";

27
Netdisco/lib/App/Netdisco/SSHCollector/Platform/ASA.pm
View File

@@ -14,6 +14,16 @@ C<enable> status after login:
aaa authorization exec LOCAL auto-enable
To use an C<enable> password seaparate from the login password, add an
C<enable_password> under C<sshcollector> in your configuration file:
sshcollector:
- ip: '192.0.2.1'
user: oliver
password: letmein
enable_password: myenablepass
platform: IOS
=cut
use strict;
@@ -37,7 +47,7 @@ Returns an array of hashrefs in the format { mac => MACADDR, ip => IPADDR }.
=cut
sub arpnip {
my ($self, $hostlabel, $ssh, @args) = @_;
my ($self, $hostlabel, $ssh, $args) = @_;
debug "$hostlabel $$ arpnip()";
@@ -45,8 +55,21 @@ sub arpnip {
my $expect = Expect->init($pty);
my ($pos, $error, $match, $before, $after);
my $prompt = qr/#/;
my $prompt;
if ($args->{enable_password}) {
$prompt = qr/>/;
($pos, $error, $match, $before, $after) = $expect->expect(10, -re, $prompt);
$expect->send("enable\n");
$prompt = qr/Password:/;
($pos, $error, $match, $before, $after) = $expect->expect(10, -re, $prompt);
$expect->send( $args->{enable_password} ."\n" );
}
$prompt = qr/#/;
($pos, $error, $match, $before, $after) = $expect->expect(10, -re, $prompt);
$expect->send("terminal pager 2147483647\n");

2
Netdisco/lib/App/Netdisco/SSHCollector/Platform/BigIP.pm
View File

@@ -38,7 +38,7 @@ Returns an array of hashrefs in the format { mac => MACADDR, ip => IPADDR }.
=cut
sub arpnip {
my ($self, $hostlabel, $ssh, @args) = @_;
my ($self, $hostlabel, $ssh, $args) = @_;
debug "$hostlabel $$ arpnip()";

2
Netdisco/lib/App/Netdisco/SSHCollector/Platform/IOS.pm
View File

@@ -32,7 +32,7 @@ Returns an array of hashrefs in the format { mac => MACADDR, ip => IPADDR }.
=cut
sub arpnip {
my ($self, $hostlabel, $ssh, @args) = @_;
my ($self, $hostlabel, $ssh, $args) = @_;
debug "$hostlabel $$ arpnip()";
my @data = $ssh->capture("show ip arp");

2
Netdisco/lib/App/Netdisco/SSHCollector/Platform/IOSXR.pm
View File

@@ -32,7 +32,7 @@ Returns an array of hashrefs in the format { mac => MACADDR, ip => IPADDR }.
=cut
sub arpnip {
my ($self, $hostlabel, $ssh, @args) = @_;
my ($self, $hostlabel, $ssh, $args) = @_;
debug "$hostlabel $$ arpnip()";
my @data = $ssh->capture("show arp vrf all");

2
Netdisco/lib/App/Netdisco/SSHCollector/Platform/PaloAlto.pm
View File

@@ -33,7 +33,7 @@ Returns an array of hashrefs in the format { mac => MACADDR, ip => IPADDR }.
=cut
sub arpnip{
my ($self, $hostlabel, $ssh, @args) = @_;
my ($self, $hostlabel, $ssh, $args) = @_;
debug "$hostlabel $$ arpnip()";