1 <%= header('Routers', menubar('Main Menu' => $p)) %>
4 my @router = qsearch('router', {});
9 <% if ($cgi->param('error')) { %>
10 <FONT SIZE="+1" COLOR="#ff0000">Error: <%=$cgi->param('error')%></FONT>
14 <A HREF="<%=$p2%>edit/router.cgi"><I>Add a new router</I></A><BR><BR>
18 <TD><B>Router name</B></TD>
19 <TD><B>Address block(s)</B></TD>
21 <% foreach my $router (sort {$a->routernum <=> $b->routernum} @router) {
22 my @addr_block = $router->addr_block;
23 if (scalar(@addr_block) == 0) {
24 push @addr_block, ' ';
28 <TD ROWSPAN="<%=scalar(@addr_block)+1%>">
29 <A HREF="<%=$p2%>edit/router.cgi?<%=$router->routernum%>"><%=$router->routername%></A>
32 <% foreach my $block ( @addr_block ) { %>
34 <TD><%=UNIVERSAL::isa($block, 'FS::addr_block') ? $block->NetAddr : ' '%></TD>