<%= header('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 { %>
|
|
<% }
} %>
|