i'm not usually like this.
[freeside.git] / 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