1 <%= header('Address Blocks', menubar('Main Menu' => $p)) %>
6 my @addr_block = qsearch('addr_block', {});
7 my @router = qsearch('router', {});
10 my $path = $p2 . "edit/process/addr_block";
14 <% if ($cgi->param('error')) { %>
15 <FONT SIZE="+1" COLOR="#ff0000">Error: <%=$cgi->param('error')%></FONT>
21 <% foreach $block (sort {$a->NetAddr cmp $b->NetAddr} @addr_block) { %>
23 <TD><%=$block->NetAddr%></TD>
24 <% if (my $router = $block->router) { %>
25 <% if (scalar($block->svc_broadband) == 0) { %>
27 <%=$router->routername%>
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">
37 <%=$router->routername%>
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>
49 <INPUT TYPE="submit" NAME="submit" VALUE="Allocate">
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">
61 <TR><TD COLSPAN="3"><BR></TD></TR>
63 <FORM ACTION="<%=$path%>/add.cgi" METHOD="POST">
64 <TD>Gateway/Netmask</TD>
66 <INPUT TYPE="text" NAME="ip_gateway" SIZE="15">/<INPUT TYPE="text" NAME="ip_netmask" SIZE="2">
69 <INPUT TYPE="submit" NAME="submit" VALUE="Add">