1 <% include("/elements/header.html",'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";
13 % 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) {
24 <TD><%$block->NetAddr%></TD>
25 % if (my $router = $block->router) {
26 % if (scalar($block->svc_broadband) == 0) {
29 <%$router->routername%>
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">
40 <%$router->routername%>
46 <FORM ACTION="<%$path%>/allocate.cgi" METHOD="POST">
47 <INPUT TYPE="hidden" NAME="blocknum" VALUE="<%$block->blocknum%>">
48 <SELECT NAME="routernum" SIZE="1">
51 <OPTION VALUE="<%$_->routernum %>"><%$_->routername%></OPTION>
55 <INPUT TYPE="submit" NAME="submit" VALUE="Allocate">
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">
68 <TR><TD COLSPAN="3"><BR></TD></TR>
70 <FORM ACTION="<%$path%>/add.cgi" METHOD="POST">
71 <TD>Gateway/Netmask</TD>
73 <INPUT TYPE="text" NAME="ip_gateway" SIZE="15">/<INPUT TYPE="text" NAME="ip_netmask" SIZE="2">
76 <INPUT TYPE="submit" NAME="submit" VALUE="Add">