relocate repo files so ND2 is the only code
This commit is contained in:
66
lib/App/Netdisco/Web/Report.pm
Normal file
66
lib/App/Netdisco/Web/Report.pm
Normal file
@@ -0,0 +1,66 @@
|
||||
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('netdisco')->resultset('NodeNbt')
|
||||
->get_distinct_col('domain') ];
|
||||
}
|
||||
elsif ( $tag eq 'moduleinventory' ) {
|
||||
$class_list = [ schema('netdisco')->resultset('DeviceModule')
|
||||
->get_distinct_col('class') ];
|
||||
|
||||
# this is a bit fragile... three params currently
|
||||
my %params = request->params();
|
||||
if (3 == scalar keys %params) {
|
||||
foreach my $col ( @{ var('module_options') } ) {
|
||||
next unless $col->{default} eq 'on';
|
||||
$params{ $col->{name} } = 'checked';
|
||||
}
|
||||
}
|
||||
}
|
||||
elsif ( $tag eq 'portssid' ) {
|
||||
$ssid_list = [ schema('netdisco')->resultset('DevicePortSsid')
|
||||
->get_distinct_col('ssid') ];
|
||||
}
|
||||
elsif ( $tag eq 'nodesdiscovered' ) {
|
||||
$type_list = [ schema('netdisco')->resultset('DevicePort')
|
||||
->get_distinct_col('remote_type') ];
|
||||
}
|
||||
elsif ( $tag eq 'nodevendor' ) {
|
||||
$vendor_list = [
|
||||
schema('netdisco')->resultset('Node')->search(
|
||||
{},
|
||||
{ join => 'oui',
|
||||
columns => ['oui.abbrev'],
|
||||
order_by => 'oui.abbrev',
|
||||
group_by => 'oui.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,
|
||||
};
|
||||
};
|
||||
|
||||
true;
|
||||
Reference in New Issue
Block a user