79 lines
2.6 KiB
Perl
79 lines
2.6 KiB
Perl
package App::Netdisco::Web::GenericReport;
|
|
|
|
use Dancer ':syntax';
|
|
use Dancer::Plugin::Ajax;
|
|
use Dancer::Plugin::DBIC;
|
|
use Dancer::Plugin::Auth::Extensible;
|
|
|
|
use App::Netdisco::Web::Plugin;
|
|
use Path::Class 'file';
|
|
use Safe;
|
|
|
|
use vars qw/$config @data/;
|
|
|
|
foreach my $report (@{setting('reports')}) {
|
|
my $r = $report->{tag};
|
|
|
|
register_report({
|
|
tag => $r,
|
|
label => $report->{label},
|
|
category => ($report->{category} || 'My Reports'),
|
|
($report->{hidden} ? (hidden => true) : ()),
|
|
provides_csv => true,
|
|
});
|
|
|
|
get "/ajax/content/report/$r" => require_login sub {
|
|
# TODO: this should be done by creating a new Virtual Result class on
|
|
# the fly (package...) and then calling DBIC register_class on it.
|
|
|
|
my $schema = ($report->{database} || 'netdisco');
|
|
my $rs = schema($schema)->resultset('Virtual::GenericReport')->result_source;
|
|
(my $query = $report->{query}) =~ s/;$//;
|
|
|
|
$rs->view_definition($query);
|
|
$rs->remove_columns($rs->columns);
|
|
$rs->add_columns( exists $report->{query_columns}
|
|
? @{ $report->{query_columns} }
|
|
: (map {keys %{$_}} @{$report->{columns}})
|
|
);
|
|
|
|
my $set = schema($schema)->resultset('Virtual::GenericReport')
|
|
->search(undef, {
|
|
result_class => 'DBIx::Class::ResultClass::HashRefInflator',
|
|
( (exists $report->{bind_params})
|
|
? (bind => [map { param($_) } @{ $report->{bind_params} }]) : () ),
|
|
});
|
|
@data = $set->all;
|
|
|
|
# Data Munging support...
|
|
|
|
my $compartment = Safe->new;
|
|
$config = $report; # closure for the config of this report
|
|
$compartment->share(qw/$config @data/);
|
|
$compartment->permit_only(qw/:default sort/);
|
|
|
|
my $munger = file(($ENV{NETDISCO_HOME} || $ENV{HOME}), 'site_plugins', $r)->stringify;
|
|
my @results = ((-f $munger) ? $compartment->rdo( $munger ) : @data);
|
|
return if $@ or (0 == scalar @results);
|
|
|
|
if (request->is_ajax) {
|
|
template 'ajax/report/generic_report.tt',
|
|
{ results => \@results,
|
|
is_custom_report => true,
|
|
headings => [map {values %{$_}} @{$report->{columns}}],
|
|
columns => [map {keys %{$_}} @{$report->{columns}}] },
|
|
{ layout => undef };
|
|
}
|
|
else {
|
|
header( 'Content-Type' => 'text/comma-separated-values' );
|
|
template 'ajax/report/generic_report_csv.tt',
|
|
{ results => \@results,
|
|
headings => [map {values %{$_}} @{$report->{columns}}],
|
|
columns => [map {keys %{$_}} @{$report->{columns}}] },
|
|
{ layout => undef };
|
|
}
|
|
};
|
|
}
|
|
|
|
true;
|