<%= 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 { %>
<% } } %>
Gateway/Netmask /