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>
15 my $hidecustomerrouters = 0;
17 if ($cgi->param('hidecustomerrouters') eq '1') {
18 $hidecustomerrouters = 1;
19 $cgi->param('hidecustomerrouters', 0);
20 $hideurl = '<A HREF="' . $cgi->self_url() . '">Show customer routers</A>';
22 $hidecustomerrouters = 0;
23 $cgi->param('hidecustomerrouters', 1);
24 $hideurl = '<A HREF="' . $cgi->self_url() . '">Hide customer routers</A>';
28 <A HREF="<%=$p2%>edit/router.cgi">Add a new router</A> | <%=$hideurl%>
32 <TD><B>Router name</B></TD>
33 <TD><B>Address block(s)</B></TD>
35 <% foreach my $router (sort {$a->routernum <=> $b->routernum} @router) {
36 next if $hidecustomerrouters && $router->svcnum;
37 my @addr_block = $router->addr_block;
38 if (scalar(@addr_block) == 0) {
39 push @addr_block, ' ';
43 <TD ROWSPAN="<%=scalar(@addr_block)+1%>">
44 <A HREF="<%=$p2%>edit/router.cgi?<%=$router->routernum%>"><%=$router->routername%></A>
47 <% foreach my $block ( @addr_block ) { %>
49 <TD><%=UNIVERSAL::isa($block, 'FS::addr_block') ? $block->NetAddr : ' '%></TD>