Changeset 221 for branches/acl/cgi-bin/main.cgi

Timestamp:

04/13/05 13:24:15 (20 years ago)

Author:

Kris Deugau

Message:

/branches/acl

Basic ACL support - load ACL data from db, do or don't display
"Add Master" link, do or don't display "Admin tools" link.
Added tabledef for users/ACLs

File:

• branches/acl/cgi-bin/main.cgi (modified) (3 diffs)

branches/acl/cgi-bin/main.cgi

@@ -22 +22 @@
 openlog "IPDB","pid","local2";
 
+# Present HTTP AUTH headers, as well as opening content-type.
+#print 'WWW-Authenticate: Basic realm="ViaNet IP Database"\n';
 # Collect the username from HTTP auth.  If undefined, we're in a test environment.
 my $authuser;
@@ -171 +173 @@
 print qq(<div align=right style="position: absolute; right: 30px;">).
         qq(<a href="/ip/cgi-bin/admin.cgi">Admin tools</a></div><br>\n)
-        if $authuser =~ /kdeugau|jodyh|jipp/;
+        if $IPDBacl{$authuser} =~ /A/;
 
 # We print the footer here, so we don't have to do it elsewhere.
@@ -448 +450 @@
   }
   print "</table>\n";
-  print qq(<a href="/ip/addmaster.shtml">Add new master block</a><br><br>\n);
+  if ($IPDBacl{$authuser} =~ /a/) {
+    print qq(<a href="/ip/addmaster.shtml">Add new master block</a><br><br>\n);
+  }
   print "Note:  Free blocks noted here include both routed and unrouted blocks.\n";