<%doc> IP Reports <%attr> title => 'IP Reports' section => 'Reports' <%args> $report_type => undef $version => 4 $days => 90 $edit => 0 <%once> my $ipreports_tab = ""; <%init> my $DEBUG = 0; my (@headers, @rows) = (); if (defined($report_type) && $report_type ne "") { $ipreports_tab = $report_type; }
IP Reports

<%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' ){
Static addresses not seen on the network in the past days
<& 'unused_statics.html', version=>$version, days=>$days, edit=>$edit &>
%}