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 <A HREF="<%=$p2%>edit/router.cgi"><I>Add a new router</I></A><BR><BR>
  15
  16 <%=table()%>
  17   <TR>
  18     <TD><B>Router name</B></TD>
  19     <TD><B>Address block(s)</B></TD>
  20   </TR>
  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, '&nbsp;';
  25      }
  26 %>
  27   <TR>
  28     <TD ROWSPAN="<%=scalar(@addr_block)+1%>">
  29       <A HREF="<%=$p2%>edit/router.cgi?<%=$router->routernum%>"><%=$router->routername%></A>
  30     </TD>
  31   </TR>
  32   <% foreach my $block ( @addr_block ) { %>
  33   <TR>
  34     <TD><%=UNIVERSAL::isa($block, 'FS::addr_block') ? $block->NetAddr : '&nbsp;'%></TD>
  35   </TR>
  36   <% } %>
  37   </TR>
  38 <% } %>
  39 </TABLE>
  40 </BODY>
  41 </HTML>
  42