——=head1 NAME
App::Netdisco::SSHCollector::Platform::GAIAEmbedded
=head1 DESCRIPTION
Collect ARP entries from Checkpoint GAIA embedded Systems
To get this Plugin to work you have to add a user like 'netdisco' with
'Network admin' rights in the GAIA embedded OS.
This collector uses "C<arp>" as the command for the arp utility on your
system. If you wish to specify an absolute path, then add an C<arp_command>
item to your configuration:
device_auth:
- tag: sshgaia
driver: cli
platform: GAIAEmbedded
only: '192.0.2.1'
username: oliver
password: letmein
arp_command: 'arp'
=cut
use
strict;
use
warnings;
use
Expect;
use
Moo;
=head1 PUBLIC METHODS
=over 4
=item B<arpnip($host, $ssh)>
Retrieve ARP entries from device. C<$host> is the hostname or IP address
of the device. C<$ssh> is a Net::OpenSSH connection to the device.
Returns a list of hashrefs in the format C<{ mac =E<gt> MACADDR, ip =E<gt> IPADDR }>.
=back
=cut
sub
arpnip {
my
(
$self
,
$hostlabel
,
$ssh
,
$args
) =
@_
;
debug
"$hostlabel $$ arpnip()"
;
my
(
$pty
,
$pid
) =
$ssh
->open2pty;
unless
(
$pty
) {
debug
"unable to run remote command [$hostlabel] "
.
$ssh
->error;
return
();
}
my
$expect
= Expect->init(
$pty
);
my
(
$pos
,
$error
,
$match
,
$before
,
$after
);
my
$prompt
=
qr/>/
;
(
$pos
,
$error
,
$match
,
$before
,
$after
) =
$expect
->expect(30, -re,
$prompt
);
my
$command
= (
$args
->{arp_command} ||
'arp'
);
$expect
->
send
(
"$command -n \n"
);
(
$pos
,
$error
,
$match
,
$before
,
$after
) =
$expect
->expect(30, -re,
$prompt
);
my
@arpentries
= ();
my
@lines
=
split
(m/\n/,
$before
);
# ? (192.168.17.178) at 5C:F9:DD:71:1F:08 [ether] on LAN1
my
$linereg
=
qr/([0-9.]+)\s+ether\s+([a-fA-F0-9:]+).+/
;
foreach
my
$line
(
@lines
) {
if
(
$line
=~
$linereg
) {
my
(
$ip
,
$mac
) = ($1, $2);
push
@arpentries
, {
mac
=>
$mac
,
ip
=>
$ip
};
}
}
$expect
->
send
(
"exit\n"
);
$expect
->soft_close();
return
@arpentries
;
}
1;