httemplate/browse/addr_block.cgi

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