httemplate/browse/router.cgi

   1 <% include('/elements/header.html', 'Routers') %>
   2
   3 <% include('/elements/error.html') %>
   4
   5 %my $hidecustomerrouters = 0;
   6 %my $hideurl = '';
   7 %if ($cgi->param('hidecustomerrouters') eq '1') {
   8 %  $hidecustomerrouters = 1;
   9 %  $cgi->param('hidecustomerrouters', 0);
  10 %  $hideurl = '<A HREF="' . $cgi->self_url() . '">Show customer routers</A>';
  11 %} else {
  12 %  $hidecustomerrouters = 0;
  13 %  $cgi->param('hidecustomerrouters', 1);
  14 %  $hideurl = '<A HREF="' . $cgi->self_url() . '">Hide customer routers</A>';
  15 %}
  16
  17 <A HREF="<%$p2%>edit/router.cgi">Add a new router</A>&nbsp;|&nbsp;<%$hideurl%>
  18
  19 <% include('/elements/table-grid.html') %>
  20 % my $bgcolor1 = '#eeeeee';
  21 %   my $bgcolor2 = '#ffffff';
  22 %   my $bgcolor = '';
  23
  24   <TR>
  25     <TH CLASS="grid" BGCOLOR="#cccccc">Router name</TH>
  26     <TH CLASS="grid" BGCOLOR="#cccccc">Address block(s)</TH>
  27   </TR>
  28
  29 % foreach my $router (sort {$a->routernum <=> $b->routernum} @router) {
  30 %     next if $hidecustomerrouters && $router->svcnum;
  31 %     my @addr_block = $router->addr_block;
  32 %     if (scalar(@addr_block) == 0) {
  33 %       push @addr_block, '&nbsp;';
  34 %     }
  35 %
  36 %    if ( $bgcolor eq $bgcolor1 ) {
  37 %      $bgcolor = $bgcolor2;
  38 %    } else {
  39 %      $bgcolor = $bgcolor1;
  40 %    }
  41
  42   <TR>
  43
  44     <TD CLASS="grid" BGCOLOR="<% $bgcolor %>">
  45       <A HREF="<%$p2%>edit/router.cgi?<%$router->routernum%>"><%$router->routername%></A>
  46     </TD>
  47
  48     <TD CLASS="inv" BGCOLOR="<% $bgcolor %>">
  49       <TABLE CLASS="inv" CELLSPACING=0 CELLPADDING=0>
  50
  51 %       foreach my $block ( @addr_block ) {
  52
  53           <TR>
  54             <TD><%UNIVERSAL::isa($block, 'FS::addr_block') ? $block->NetAddr : '&nbsp;'%></TD>
  55           </TR>
  56 %       }
  57       </TABLE>
  58     </TD>
  59
  60   </TR>
  61
  62 % }
  63
  64 </TABLE>
  65
  66 <% include('/elements/footer.html') %>
  67
  68 <%init>
  69
  70 die "access denied"
  71   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
  72
  73 my @router = qsearch('router', {});
  74 my $p2 = popurl(2);
  75
  76 </%init>