26d3fbdd40
* Reduce macsuck bandwidth usage to database get_port_macs transfers a full list of all device_port.(mac,ip) in every macsuck. With 8k devices and 40k interfaces it takes up around 15MB. Transferring them 8k times during an 1h macsuck cycle requires bandwidth in the 300 to 400 mbit/s range. This patch changes get_port_macs to be called inside walk_fwtable and only transfer the macs found in the current target device/vlan.
59 lines
1.3 KiB
Perl
59 lines
1.3 KiB
Perl
package App::Netdisco::Util::PortMAC;
|
|
|
|
use Dancer qw/:syntax :script/;
|
|
use Dancer::Plugin::DBIC 'schema';
|
|
|
|
use base 'Exporter';
|
|
our @EXPORT = ();
|
|
our @EXPORT_OK = qw/ get_port_macs /;
|
|
our %EXPORT_TAGS = (all => \@EXPORT_OK);
|
|
|
|
=head1 NAME
|
|
|
|
App::Netdisco::Util::PortMAC
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
Helper subroutine to support parts of the Netdisco application.
|
|
|
|
There are no default exports, however the C<:all> tag will export all
|
|
subroutines.
|
|
|
|
=head1 EXPORT_OK
|
|
|
|
=head2 get_port_macs
|
|
|
|
Returns a Hash reference of C<< { MAC => IP } >> for all interface MAC
|
|
addresses supplied as array reference
|
|
|
|
=cut
|
|
|
|
sub get_port_macs {
|
|
|
|
my ($fw_mac_list) = @_;
|
|
my $port_macs = {};
|
|
|
|
my $dp_macs
|
|
= schema('netdisco')->resultset('DevicePort')
|
|
->search( { mac => { '-in' => $fw_mac_list } },
|
|
{ select => [ 'mac', 'ip' ],
|
|
group_by => [ 'mac', 'ip' ] } );
|
|
my $dp_cursor = $dp_macs->cursor;
|
|
while ( my @vals = $dp_cursor->next ) {
|
|
$port_macs->{ $vals[0] } = $vals[1];
|
|
}
|
|
|
|
my $d_macs
|
|
= schema('netdisco')->resultset('Device')
|
|
->search( { mac => { '-in' => $fw_mac_list } },
|
|
{ select => [ 'mac', 'ip' ] } );
|
|
my $d_cursor = $d_macs->cursor;
|
|
while ( my @vals = $d_cursor->next ) {
|
|
$port_macs->{ $vals[0] } = $vals[1];
|
|
}
|
|
|
|
return $port_macs;
|
|
}
|
|
|
|
1;
|