<% include('/elements/header.html', 'Address Blocks') %> <% include('/elements/error.html') %> <% include('/elements/table-grid.html') %> % my $bgcolor1 = '#eeeeee'; % my $bgcolor2 = '#ffffff'; % my $bgcolor = ''; Address block(s) Router Action(s) % foreach $block (sort {$a->NetAddr cmp $b->NetAddr} @addr_block) { % if ( $bgcolor eq $bgcolor1 ) { % $bgcolor = $bgcolor2; % } else { % $bgcolor = $bgcolor1; % } <%$block->NetAddr%> % if (my $router = $block->router) { % % if (scalar($block->svc_broadband) == 0) { <%$router->routername%>

% } else { <%$router->routername%> % } % % } else {

% foreach (@router) { <%$_->routername%> % }

% } % }

Gateway/Netmask: / <% include('/elements/footer.html') %> <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); my @addr_block = qsearch('addr_block', {}); my @router = qsearch('router', {}); my $block; my $p2 = popurl(2); my $path = $p2 . "edit/process/addr_block";