httemplate/browse/addr_block.cgi

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