blob: feee4ecaa140b491382f748dd7199a108ee2727c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
<%= header('Routers', menubar('Main Menu' => $p)) %>
<%
my @router = qsearch('router', {});
my $p2 = popurl(2);
%>
<% if ($cgi->param('error')) { %>
<FONT SIZE="+1" COLOR="#ff0000">Error: <%=$cgi->param('error')%></FONT>
<BR><BR>
<% } %>
<A HREF="<%=$p2%>edit/router.cgi"><I>Add a new router</I></A><BR><BR>
<%=table()%>
<TR>
<TD><B>Router name</B></TD>
<TD><B>Address block(s)</B></TD>
</TR>
<% foreach my $router (sort {$a->routernum <=> $b->routernum} @router) {
my @addr_block = $router->addr_block;
%>
<TR>
<TD ROWSPAN="<%=scalar(@addr_block)%>">
<A HREF="<%=$p2%>edit/router.cgi?<%=$router->routernum%>"><%=$router->routername%></A>
</TD>
<TD>
<% foreach my $block ( @addr_block ) { %>
<%=$block->NetAddr%></BR>
<% } %>
</TD>
</TR>
<% } %>
</TABLE>
</BODY>
</HTML>
|
