summaryrefslogtreecommitdiff
path: root/httemplate/browse/addr_block.cgi
diff options
context:
space:
mode:
authorivan <ivan>2008-01-13 20:38:30 +0000
committerivan <ivan>2008-01-13 20:38:30 +0000
commitd8c81a25cb29cf0ca5d7cdeb8160f79d4fbb0bc6 (patch)
treee63f705baffda5f6d9b17f1be203785fc3726e96 /httemplate/browse/addr_block.cgi
parent167b4b17fae06fbf56dd4b2655489643f35bfd8b (diff)
ACLs
Diffstat (limited to 'httemplate/browse/addr_block.cgi')
-rw-r--r--httemplate/browse/addr_block.cgi23
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>