%doc>
IP Reports
%doc>
<%attr>
title => 'IP Reports'
section => 'Reports'
%attr>
<%args>
$report_type => undef
$version => 4
$days => 90
$edit => 0
%args>
<%once>
my $ipreports_tab = "";
%once>
<%init>
my $DEBUG = 0;
my (@headers, @rows) = ();
if (defined($report_type) && $report_type ne "") {
$ipreports_tab = $report_type;
}
%init>
<%perl>
if ( $report_type eq 'unused_subnets' ){
$m->comp('unused_subnets.html');
}elsif ( $report_type eq 'unused_v4_subnets' ){
$m->comp('unused_subnets.html', version=>4);
}elsif( $report_type eq 'unused_v6_subnets' ){
$m->comp('unused_subnets.html', version=>6);
}elsif ( $report_type eq 'maxed_v4_subnets' ){
$m->comp('maxed_subnets.html', version=>4);
}elsif ( $report_type eq 'maxed_v6_subnets' ){
$m->comp('maxed_subnets.html', version=>6);
}elsif ( $report_type eq 'unused_v4_statics' ){
%perl>
<& 'unused_statics.html', version=>$version, days=>$days, edit=>$edit &>
%}