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

DataTables for device name / DNS mismatch report

Browse Source
This commit is contained in:
Eric A. Miller
2014-05-26 22:39:55 -04:00
parent d9378e2285
commit 32a4accc05
3 changed files with 40 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Netdisco/lib/App/Netdisco/Web/Plugin/Report/DeviceDnsMismatch.pm
View File

@@ -15,22 +15,26 @@ register_report(
);
get '/ajax/content/report/devicednsmismatch' => require_login sub {
my $suffix = setting('domain_suffix') || '';
my $rs = schema('netdisco')->resultset('Virtual::DeviceDnsMismatch')
->search( undef, { bind => [ $suffix, $suffix ] } );
my @results
= schema('netdisco')->resultset('Virtual::DeviceDnsMismatch')
->search( undef, { bind => [ $suffix, $suffix ] } )
->columns( [qw/ ip dns name location contact /] )->hri->all;
return unless $rs->has_rows;
return unless scalar @results;
if ( request->is_ajax ) {
template 'ajax/report/devicednsmismatch.tt', { results => $rs, },
my $results = to_json( \@results );
template 'ajax/report/devicednsmismatch.tt', { results => $results },
{ layout => undef };
}
else {
header( 'Content-Type' => 'text/comma-separated-values' );
template 'ajax/report/devicednsmismatch_csv.tt', { results => $rs, },
{ layout => undef };
template 'ajax/report/devicednsmismatch_csv.tt',
{ results => \@results },
{ layout => undef };
}
};