diff options
Diffstat (limited to 'httemplate/browse/addr_block.cgi')
-rw-r--r-- | httemplate/browse/addr_block.cgi | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/httemplate/browse/addr_block.cgi b/httemplate/browse/addr_block.cgi index 8bbc5f350..eac7cf7b6 100644 --- a/httemplate/browse/addr_block.cgi +++ b/httemplate/browse/addr_block.cgi @@ -1,12 +1,4 @@ -<% 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/header.html', 'Address Blocks') %> <% include('/elements/error.html') %> @@ -71,9 +63,18 @@ </FORM> </TR> </TABLE> -</BODY> -</HTML> + +<% 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"; + </%init> |