Changeset 452 for trunk/DNSDB.pm

Timestamp:

01/11/13 12:21:13 (11 years ago)

Author:

Kris Deugau

Message:

/trunk

Continue tweaking RPC for actual usage. See #43.

• Add and expose getRevPattern() to retrieve the narrowest template pattern applicable to a passed CIDR (netblock or IP)
• Add and expose getZonesByCIDR() to retrieve a list of revzones and zone IDs for records within a passed CIDR block. Note the block may be larger than the zones, so we may return more than one revzone.

File:

• trunk/DNSDB.pm (modified) (4 diffs)

trunk/DNSDB.pm

@@ -52 +52 @@
         &addRec &updateRec &delRec
         &getLogCount &getLogEntries
+        &getRevPattern
         &getTypelist
         &parentID
         &isParent
-        &zoneStatus &importAXFR
+        &zoneStatus &getZonesByCIDR &importAXFR
         &export
         &mailNotify
@@ -79 +80 @@
                 &addRec &updateRec &delRec
                 &getLogCount &getLogEntries
+                &getRevPattern
                 &getTypelist
                 &parentID
                 &isParent
-                &zoneStatus &importAXFR
+                &zoneStatus &getZonesByCIDR &importAXFR
                 &export
                 &mailNotify
@@ -3926 +3928 @@
 
 
+## IPDB::getRevPattern()
+# Get the narrowest template pattern applicable to a passed CIDR address (may be a netblock or an IP)
+sub getRevPattern {
+  my $dbh = shift;
+  my $cidr = shift;
+  my $group = shift || 1;       # just in case
+
+  my ($revpatt) = $dbh->selectrow_array("SELECT r.host FROM records r JOIN revzones z ON r.rdns_id=z.rdns_id ".
+        "WHERE r.type=65282 OR r.type=65283 AND z.group_id=? AND CAST (r.val AS inet) >>= ? ".
+        "ORDER BY CAST (r.val AS inet) DESC LIMIT 1", undef, ($group, $cidr) );
+  return $revpatt;
+} # end getRevPattern()
+
+
 ## DNSDB::getTypelist()
 # Get a list of record types for various UI dropdowns
@@ -4153 +4169 @@
   return $status;
 } # end zoneStatus()
+
+
+## DNSDB::getZonesByCIDR()
+# Get a list of zone names and IDs that records for a passed CIDR block are within.
+sub getZonesByCIDR {
+  my $dbh = shift;
+  my %args = @_;
+
+  my $result = $dbh->selectall_arrayref("SELECT rdns_id,revnet FROM revzones WHERE revnet >>= ? OR revnet <<= ?",
+        { Slice => {} }, ($args{cidr}, $args{cidr}) );
+  return $result;
+} # end getZonesByCIDR()