httemplate/browse/addr_block.cgi

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