Changeset 810 for trunk/cgi-bin/main.cgi

Timestamp:

03/08/16 13:38:18 (9 years ago)

Author:

Kris Deugau

Message:

/trunk

Add "Add VRF" page. See #54.

File:

• trunk/cgi-bin/main.cgi (modified) (1 diff)

trunk/cgi-bin/main.cgi

@@ -110 +110 @@
 } elsif ($webvar{action} eq 'showvrf') {
   showVRF();
+
+} elsif ($webvar{action} eq 'addvrf') {
+  if ($IPDBacl{$authuser} !~ /s/) {
+    $aclerr = 'addvrf';
+  }
+
+  # Retrieve the list of DNS locations if we've got a place to grab them from
+  if ($IPDB::rpc_url) {
+    my %rpcargs = (
+        rpcuser => $authuser,
+        group => 1,     # bleh
+        defloc => '',
+        );
+    my $result = IPDB::_rpc('getLocDropdown', %rpcargs);
+    $page->param(loclist => $result);
+  }
+
 } elsif ($webvar{action} eq 'addmaster') {
   if ($IPDBacl{$authuser} !~ /a/) {