Changeset 675 for trunk/cgi-bin/IPDB.pm

Timestamp:

01/15/15 17:52:26 (9 years ago)

Author:

Kris Deugau

Message:

/trunk

Extend per-IP rDNS through the "confirm add" page and the "edit" page. See #1.

• Add flag in getBlockRDNS return to indicate if the results are from local caching instead of RPC results. There isn't really a clear way to globally flag "RPC server is up".
• Add a sub to retrieve per-IP reverse DNS information for a passed CIDR range. Not limited in IPDB.pm, but dnsadmin will refuse to return anything for a block larger than /24 (v4) or /120 (v6) - an 8 bit inverse mask.
• Use the new sub on editing a small(ish) non-pool block. CSS magic notwithstanding, handling more than 32 IPs in a list like this is awkward.

File:

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

trunk/cgi-bin/IPDB.pm

@@ -32 +32 @@
         &getMasterList &getTypeList &getPoolSelect &findAllocateFrom
         &ipParent &subParent &blockParent &getRoutedCity
-        &allocateBlock &updateBlock &deleteBlock &getBlockData &getBlockRDNS
+        &allocateBlock &updateBlock &deleteBlock &getBlockData &getBlockRDNS &getRDNSbyIP
         &getNodeList &getNodeName &getNodeInfo
         &mailNotify
@@ -47 +47 @@
                 &getMasterList &getTypeList &getPoolSelect &findAllocateFrom
                 &ipParent &subParent &blockParent &getRoutedCity
-                &allocateBlock &updateBlock &deleteBlock &getBlockData &getBlockRDNS
+                &allocateBlock &updateBlock &deleteBlock &getBlockData &getBlockRDNS &getRDNSbyIP
                 &getNodeList &getNodeName &getNodeInfo
                 &mailNotify
@@ -1680 +1680 @@
 
   $args{type} = 'b' if !$args{type};
+  my $cached = 1;
 
   # snag entry from database
@@ -1721 +1722 @@
     my $remote_rdns = _rpc('getRevPattern', %rpcargs);
     $rdns = $remote_rdns if $remote_rdns;
+    $cached = 0;
   }
 
   # hmm.  do we care about where it actually came from?
-  return $rdns;
+  return $rdns, $cached;
 } # end getBlockRDNS()
+
+
+## IPDB::getRDNSbyIP()
+# Get individual reverse entries for the IP or CIDR IP range passed.  Sort of looking the
+# opposite direction down the netblock tree compared to getBlockRDNS() above.
+sub getRDNSbyIP {
+  my $dbh = shift;
+  my %args = @_;  # We want to accept a variety of call types
+
+  # key arguments:  allocation ID, type
+  unless ($args{id} || $args{type}) {
+    $errstr = 'Missing allocation ID or type';
+    return;
+  }
+
+  my @ret = ();
+  # special case:  single IP.  Check if it's an allocation or in a pool, then do the RPC call for fresh data.
+  if ($args{type} =~ /^.i$/) {
+    my ($ip, $localrev) = $dbh->selectrow_array("SELECT ip, rdns FROM poolips WHERE id = ?", undef, ($args{id}) );
+    push @ret, { 'r_ip' => $ip, 'iphost' => $localrev };
+  } else {
+    if ($rpc_url) {
+      my %rpcargs = (
+        rpcuser => $args{user},
+        group => $revgroup,     # not sure how this could sanely be exposed, tbh...
+        cidr => $args{range},
+        );
+
+      my $remote_rdns = _rpc('getRevSet', %rpcargs);
+      return $remote_rdns;
+#      $rdns = $remote_rdns if $remote_rdns;
+#      $cached = 0;
+    }
+  }
+  return \@ret;
+} # end getRDNSbyIP()