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 %>
  24   <TR>
  25     <TD ROWSPAN="<%=scalar(@addr_block)%>">
  26       <A HREF="<%=$p2%>edit/router.cgi?<%=$router->routernum%>"><%=$router->routername%></A>
  27     </TD>
  28     <TD>
  29     <% foreach my $block ( @addr_block ) { %>
  30       <%=$block->NetAddr%></BR>
  31     <% } %>
  32     </TD>
  33   </TR>
  34 <% } %>
  35 </TABLE>
  36 </BODY>
  37 </HTML>
  38