% include("/elements/header.html",'Address Blocks', menubar('Main Menu' => $p)) %> %use NetAddr::IP; % %my @addr_block = qsearch('addr_block', {}); %my @router = qsearch('router', {}); %my $block; %my $p2 = popurl(2); %my $path = $p2 . "edit/process/addr_block"; <% include('/elements/error.html') %> <%table()%> % foreach $block (sort {$a->NetAddr cmp $b->NetAddr} @addr_block) {