<% include("/elements/header.html",'Address Blocks', menubar('Main Menu' => $p)) %> % % %use NetAddr::IP; % %my @addr_block = qsearch('addr_block', {}); %my @router = qsearch('router', {}); %my $block; %my $p2 = popurl(2); %my $path = $p2 . "edit/process/addr_block"; % % % if ($cgi->param('error')) { Error: <%$cgi->param('error')%>

% } <%table()%> % foreach $block (sort {$a->NetAddr cmp $b->NetAddr} @addr_block) { <%$block->NetAddr%> % if (my $router = $block->router) { % if (scalar($block->svc_broadband) == 0) { <%$router->routername%>

% } else { <%$router->routername%> % } % } else {

% foreach (@router) { <%$_->routername%> % }

% } % }

Gateway/Netmask /

<%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Configuration');