httemplate/browse/addr_block.cgi

   1 <%= header('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
  14 <% if ($cgi->param('error')) { %>
  15    <FONT SIZE="+1" COLOR="#ff0000">Error: <%=$cgi->param('error')%></FONT>
  16    <BR><BR>
  17 <% } %>
  18
  19 <%=table()%>
  20
  21 <% foreach $block (sort {$a->NetAddr cmp $b->NetAddr} @addr_block) { %>
  22   <TR>
  23     <TD><%=$block->NetAddr%></TD>
  24   <% if (my $router = $block->router) { %>
  25     <% if (scalar($block->svc_broadband) == 0) { %>
  26     <TD>
  27       <%=$router->routername%>
  28     </TD>
  29     <TD>
  30       <FORM ACTION="<%=$path%>/deallocate.cgi" METHOD="POST">
  31         <INPUT TYPE="hidden" NAME="blocknum" VALUE="<%=$block->blocknum%>">
  32         <INPUT TYPE="submit" NAME="submit" VALUE="Deallocate">
  33       </FORM>
  34     </TD>
  35     <% } else { %>
  36     <TD COLSPAN="2">
  37     <%=$router->routername%>
  38     </TD>
  39     <% } %>
  40   <% } else { %>
  41     <TD>
  42       <FORM ACTION="<%=$path%>/allocate.cgi" METHOD="POST">
  43         <INPUT TYPE="hidden" NAME="blocknum" VALUE="<%=$block->blocknum%>">
  44         <SELECT NAME="routernum" SIZE="1">
  45     <% foreach (@router) { %>
  46           <OPTION VALUE="<%=$_->routernum %>"><%=$_->routername%></OPTION>
  47     <% } %>
  48         </SELECT>
  49         <INPUT TYPE="submit" NAME="submit" VALUE="Allocate">
  50       </FORM>
  51     </TD>
  52     <TD>
  53       <FORM ACTION="<%=$path%>/split.cgi" METHOD="POST">
  54         <INPUT TYPE="hidden" NAME="blocknum" VALUE="<%=$block->blocknum%>">
  55         <INPUT TYPE="submit" NAME="submit" VALUE="Split">
  56       </FORM>
  57     </TD>
  58   </TR>
  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