1 <% include('/elements/header.html', 'Address Blocks') %>
3 <% include('/elements/error.html') %>
6 % foreach $block (sort {$a->NetAddr cmp $b->NetAddr} @addr_block) {
9 <TD><%$block->NetAddr%></TD>
10 % if (my $router = $block->router) {
11 % if (scalar($block->svc_broadband) == 0) {
14 <%$router->routername%>
17 <FORM ACTION="<%$path%>/deallocate.cgi" METHOD="POST">
18 <INPUT TYPE="hidden" NAME="blocknum" VALUE="<%$block->blocknum%>">
19 <INPUT TYPE="submit" NAME="submit" VALUE="Deallocate">
25 <%$router->routername%>
31 <FORM ACTION="<%$path%>/allocate.cgi" METHOD="POST">
32 <INPUT TYPE="hidden" NAME="blocknum" VALUE="<%$block->blocknum%>">
33 <SELECT NAME="routernum" SIZE="1">
36 <OPTION VALUE="<%$_->routernum %>"><%$_->routername%></OPTION>
40 <INPUT TYPE="submit" NAME="submit" VALUE="Allocate">
44 <FORM ACTION="<%$path%>/split.cgi" METHOD="POST">
45 <INPUT TYPE="hidden" NAME="blocknum" VALUE="<%$block->blocknum%>">
46 <INPUT TYPE="submit" NAME="submit" VALUE="Split">
53 <TR><TD COLSPAN="3"><BR></TD></TR>
55 <FORM ACTION="<%$path%>/add.cgi" METHOD="POST">
56 <TD>Gateway/Netmask</TD>
58 <INPUT TYPE="text" NAME="ip_gateway" SIZE="15">/<INPUT TYPE="text" NAME="ip_netmask" SIZE="2">
61 <INPUT TYPE="submit" NAME="submit" VALUE="Add">
67 <% include('/elements/footer.html') %>
72 unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
74 my @addr_block = qsearch('addr_block', {});
75 my @router = qsearch('router', {});
78 my $path = $p2 . "edit/process/addr_block";