httemplate/browse/router.cgi

   1 <%= header('Routers', menubar('Main Menu'   => $p)) %>
   2 <%
   3
   4 my @router = qsearch('router', {});
   5 my $p2 = popurl(2);
   6
   7 %>
   8
   9 <% if ($cgi->param('error')) { %>
  10    <FONT SIZE="+1" COLOR="#ff0000">Error: <%=$cgi->param('error')%></FONT>
  11    <BR><BR>
  12 <% } %>
  13
  14 <%
  15 my $hidecustomerrouters = 0;
  16 my $hideurl = '';
  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>';
  21 } else {
  22   $hidecustomerrouters = 0;
  23   $cgi->param('hidecustomerrouters', 1);
  24   $hideurl = '<A HREF="' . $cgi->self_url() . '">Hide customer routers</A>';
  25 }
  26 %>
  27
  28 <A HREF="<%=$p2%>edit/router.cgi">Add a new router</A>&nbsp;|&nbsp;<%=$hideurl%>
  29
  30 <%=table()%>
  31   <TR>
  32     <TD><B>Router name</B></TD>
  33     <TD><B>Address block(s)</B></TD>
  34   </TR>
  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, '&nbsp;';
  40      }
  41 %>
  42   <TR>
  43     <TD ROWSPAN="<%=scalar(@addr_block)+1%>">
  44       <A HREF="<%=$p2%>edit/router.cgi?<%=$router->routernum%>"><%=$router->routername%></A>
  45     </TD>
  46   </TR>
  47   <% foreach my $block ( @addr_block ) { %>
  48   <TR>
  49     <TD><%=UNIVERSAL::isa($block, 'FS::addr_block') ? $block->NetAddr : '&nbsp;'%></TD>
  50   </TR>
  51   <% } %>
  52   </TR>
  53 <% } %>
  54 </TABLE>
  55 </BODY>
  56 </HTML>
  57