httemplate/browse/addr_block.cgi

   1 <% include('/elements/header.html', 'Address Blocks') %>
   2
   3 <% include('/elements/error.html') %>
   4
   5 <% include('/elements/table-grid.html') %>
   6 % my $bgcolor1 = '#eeeeee';
   7 %   my $bgcolor2 = '#ffffff';
   8 %   my $bgcolor = '';
   9
  10   <TR>
  11     <TH CLASS="grid" BGCOLOR="#cccccc">Address block(s)</TH>
  12     <TH CLASS="grid" BGCOLOR="#cccccc">Router</TH>
  13     <TH CLASS="grid" BGCOLOR="#cccccc">Action(s)</TH>
  14   </TR>
  15
  16 % foreach $block (sort {$a->NetAddr cmp $b->NetAddr} @addr_block) {
  17 %    if ( $bgcolor eq $bgcolor1 ) {
  18 %      $bgcolor = $bgcolor2;
  19 %    } else {
  20 %      $bgcolor = $bgcolor1;
  21 %    }
  22
  23     <TR>
  24       <TD CLASS="grid" BGCOLOR="<% $bgcolor %>"><%$block->NetAddr%></TD>
  25
  26 %   if (my $router = $block->router) {
  27 %
  28 %     if (scalar($block->svc_broadband) == 0) {
  29
  30         <TD CLASS="grid" BGCOLOR="<% $bgcolor %>">
  31           <%$router->routername%>
  32         </TD>
  33         <TD CLASS="grid" BGCOLOR="<% $bgcolor %>">
  34           <FORM ACTION="<%$path%>/deallocate.cgi" METHOD="POST">
  35             <INPUT TYPE="hidden" NAME="blocknum" VALUE="<%$block->blocknum%>">
  36             <INPUT TYPE="submit" NAME="submit" VALUE="Deallocate">
  37           </FORM>
  38         </TD>
  39 %     } else {
  40
  41         <TD COLSPAN="2" CLASS="grid" BGCOLOR="<% $bgcolor %>">
  42         <%$router->routername%>
  43         </TD>
  44 %     }
  45 %
  46 %   } else {
  47
  48       <TD CLASS="grid" BGCOLOR="<% $bgcolor %>">
  49         <FORM ACTION="<%$path%>/allocate.cgi" METHOD="POST">
  50           <INPUT TYPE="hidden" NAME="blocknum" VALUE="<%$block->blocknum%>">
  51           <SELECT NAME="routernum" SIZE="1">
  52 %           foreach (@router) {
  53               <OPTION VALUE="<%$_->routernum %>"><%$_->routername%></OPTION>
  54 %           }
  55           </SELECT>
  56           <INPUT TYPE="submit" NAME="submit" VALUE="Allocate">
  57         </FORM>
  58       </TD>
  59       <TD CLASS="grid" BGCOLOR="<% $bgcolor %>">
  60         <FORM ACTION="<%$path%>/split.cgi" METHOD="POST">
  61           <INPUT TYPE="hidden" NAME="blocknum" VALUE="<%$block->blocknum%>">
  62           <INPUT TYPE="submit" NAME="submit" VALUE="Split">
  63         </FORM>
  64       </TD>
  65
  66 %   }
  67
  68   </TR>
  69 % }
  70
  71 </TABLE>
  72
  73 <BR><BR>
  74 <FORM ACTION="<%$path%>/add.cgi" METHOD="POST">
  75 Gateway/Netmask:
  76 <INPUT TYPE="text" NAME="ip_gateway" SIZE="15">/<INPUT TYPE="text" NAME="ip_netmask" SIZE="2">
  77 <INPUT TYPE="submit" NAME="submit" VALUE="Add">
  78
  79 <% include('/elements/footer.html') %>
  80 <%init>
  81
  82 die "access denied"
  83   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
  84
  85 my @addr_block = qsearch('addr_block', {});
  86 my @router = qsearch('router', {});
  87 my $block;
  88 my $p2 = popurl(2);
  89 my $path = $p2 . "edit/process/addr_block";
  90
  91 </%init>