<%doc> Show maxed out subnets % % <%attr> title => 'Maxed Out Subnets' section => 'Reports' % % <%args> $version => undef; % % <%init> my $DEBUG = 0; print "
", Dumper(%ARGS), "

" if $DEBUG; my $threshold = Netdot->config->get('SUBNET_USAGE_MINPERCENT'); my @pairs = Ipblock->get_maxed_out_subnets(version=>$version); my @subnets = map { $_->[0] } @pairs;
The following subnets are below <% $threshold %>% free:
 
% if ( !scalar(@subnets) ){

No maxed-out subnets found.

% }else{ <& /generic/sortresults.mhtml, object=>\@subnets &> % }