Files
netdisco/lib/App/Netdisco/Web/Report.pm
Oliver Gorwits 534a9d9378 #1111 Support for OUI28/MA-M and OUI36/MA-S
* new oui importer using IEEE csv for MA-L+M+S

* schema update for new vendor table

* change vendor to manufacturer because Device has a vendor field

* remove oui from manuf table, and update node oui after manuf update

* faster way to bulk update node oui

* switch from using oui table to manufacturer table for vendor lookup

* some other oui cleanup

* faster/scalable way to join a macaddr to manuf table

* remove device.oui support

* update node oui in bulk at end of macsuck run

* correct literal sql instead of bind

* more efficient to get oui base for each mac

* comment better the base lookup in macsuck
2023-11-14 18:55:54 +00:00

58 lines
1.8 KiB
Perl

package App::Netdisco::Web::Report;
use Dancer ':syntax';
use Dancer::Plugin::DBIC;
use Dancer::Plugin::Auth::Extensible;
get '/report/*' => require_login sub {
my ($tag) = splat;
# used in the report search sidebar to populate select inputs
my ( $domain_list, $class_list, $ssid_list, $type_list, $vendor_list );
if ( $tag eq 'netbios' ) {
$domain_list = [ schema(vars->{'tenant'})->resultset('NodeNbt')
->get_distinct_col('domain') ];
}
elsif ( $tag eq 'moduleinventory' ) {
$class_list = [ schema(vars->{'tenant'})->resultset('DeviceModule')
->get_distinct_col('class') ];
}
elsif ( $tag eq 'portssid' ) {
$ssid_list = [ schema(vars->{'tenant'})->resultset('DevicePortSsid')
->get_distinct_col('ssid') ];
}
elsif ( $tag eq 'nodesdiscovered' ) {
$type_list = [ schema(vars->{'tenant'})->resultset('DevicePort')
->get_distinct_col('remote_type') ];
}
elsif ( $tag eq 'nodevendor' ) {
$vendor_list = [
schema(vars->{'tenant'})->resultset('Node')->search(
{},
{ join => 'manufacturer',
columns => ['manufacturer.abbrev'],
order_by => 'manufacturer.abbrev',
group_by => 'manufacturer.abbrev',
}
)->get_column('abbrev')->all
];
}
# trick the ajax into working as if this were a tabbed page
params->{tab} = $tag;
var( nav => 'reports' );
template 'report',
{
report => setting('_reports')->{$tag},
domain_list => $domain_list,
class_list => $class_list,
ssid_list => $ssid_list,
type_list => $type_list,
vendor_list => $vendor_list,
}, { layout => 'main' };
};
true;