register_report(
{
category
=>
'Device'
,
tag
=>
'portutilization'
,
label
=>
'Port Utilization'
,
provides_csv
=> 1,
}
);
get
'/ajax/content/report/portutilization'
=> require_login
sub
{
return
unless
schema(
'netdisco'
)->resultset(
'Device'
)->count;
my
$age_num
= param(
'age_num'
) || 3;
my
$age_unit
= param(
'age_unit'
) ||
'months'
;
my
@results
= schema(
'netdisco'
)->resultset(
'Virtual::PortUtilization'
)
->search(
undef
, {
bind
=> [
"$age_num $age_unit"
,
"$age_num $age_unit"
,
"$age_num $age_unit"
] })->hri->all;
if
(request->is_ajax) {
my
$json
= to_json (\
@results
);
template
'ajax/report/portutilization.tt'
, {
results
=>
$json
},
{
layout
=>
undef
};
}
else
{
header(
'Content-Type'
=>
'text/comma-separated-values'
);
template
'ajax/report/portutilization_csv.tt'
, {
results
=> \
@results
, },
{
layout
=>
undef
};
}
};
1;