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

Timestamp:

01/04/13 17:19:57 (11 years ago)

Author:

Kris Deugau

Message:

/trunk

Begin adding DNS integration via RPC. See #1.
IPDB.pm

• Add a global in IPDB.pm to identify the URL for RPC DNS changes. A blank URL means this capability is disabled. (also MyIPDB.pm)
• Accept extra parameters in addMaster() for DNS changes (default rDNS pattern, DNS location/scope/view) and while we're at it, add space to handle VRF as an informational field
• Drop maskbits from INSERTs in addMaster()
• Make the RPC call to add a reverse zone when adding a new master block. To assist with export caching, we split the zone into /16 or /24 chunks and add each one separately.

main.cgi

• Retrieve DNS locations for adding a master block
• Pass the HTTP user in to addMaster() for logging in the DNS backend

Modify templates for add master
Remove long-obsolete function in widgets.js, add function for:
Add rDNS pattern reference page

Note the RPC calls require at least dnsadmin:trunk@r447 to work properly.

File:

• trunk/cgi-bin/main.cgi (modified) (4 diffs)

trunk/cgi-bin/main.cgi

@@ -17 +17 @@
 use POSIX qw(ceil);
 use NetAddr::IP;
+use Frontier::Client;
 
 use Sys::Syslog;
@@ -100 +101 @@
     $aclerr = 'addmaster';
   }
+
+  # Retrieve the list of DNS locations if we've got a place to grab them from
+  if ($IPDB::rpc_url) {
+    # Make an object to represent the XML-RPC server.
+    my $server = Frontier::Client->new(url => $IPDB::rpc_url, debug => 0);
+    my $result;
+
+    my %rpcargs = (
+        rpcuser => $authuser,
+        rpcsystem => 'ipdb',
+        group => 1,     # bleh
+        defloc => '',
+        );
+    $result = $server->call('dnsdb.getLocDropdown', %rpcargs);
+    $page->param(loclist => $result);
+  }
+
 } elsif ($webvar{action} eq 'newmaster') {
 
@@ -108 +126 @@
     $page->param(cidr => "$cidr");
 
-    my ($code,$msg) = addMaster($ip_dbh, $webvar{cidr});
+    my ($code,$msg) = addMaster($ip_dbh, $webvar{cidr}, (vrf => $webvar{vrf}, rdns => $webvar{rdns}, 
+        rwhois => $webvar{rwhois}, defloc => $webvar{loc}, user => $authuser) );
 
     if ($code eq 'FAIL') {
@@ -114 +133 @@
       $page->param(err => $msg);
     } else {
+      if ($code eq 'WARN') {
+        $msg =~ s/\n\n/<br>\n/g;
+        $msg =~ s/:\n/:<br>\n/g;
+        $page->param(warn => $msg);
+      }
       syslog "info", "$authuser added master block $webvar{cidr}";
     }