diff options
author | ivan <ivan> | 2008-01-13 20:38:30 +0000 |
---|---|---|
committer | ivan <ivan> | 2008-01-13 20:38:30 +0000 |
commit | d8c81a25cb29cf0ca5d7cdeb8160f79d4fbb0bc6 (patch) | |
tree | e63f705baffda5f6d9b17f1be203785fc3726e96 /httemplate/browse/addr_block.cgi | |
parent | 167b4b17fae06fbf56dd4b2655489643f35bfd8b (diff) |
ACLs
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> |