register_report(
{
category
=>
'Wireless'
,
tag
=>
'apchanneldist'
,
label
=>
'Access Point Channel Distribution'
,
provides_csv
=> 1,
api_endpoint
=> 1,
}
);
get
'/ajax/content/report/apchanneldist'
=> require_login
sub
{
my
@results
= schema(vars->{
'tenant'
})->resultset(
'DevicePortWireless'
)->search(
{
channel
=> {
'!='
,
'0'
} },
{
select
=> [
'channel'
, {
count
=>
'channel'
} ],
as
=> [
qw/ channel ch_count /
],
group_by
=> [
qw/channel/
],
order_by
=> {
-desc
=> [
qw/count/
] },
},
)->hri->all;
return
unless
scalar
@results
;
if
( request->is_ajax ) {
my
$json
= to_json( \
@results
);
template
'ajax/report/apchanneldist.tt'
, {
results
=>
$json
}, {
layout
=>
'noop'
};
}
else
{
header(
'Content-Type'
=>
'text/comma-separated-values'
);
template
'ajax/report/apchanneldist_csv.tt'
, {
results
=> \
@results
}, {
layout
=>
'noop'
};
}
};
1;