Changeset 228

Timestamp:

02/08/12 15:14:30 (13 years ago)

Author:

Kris Deugau

Message:

/trunk

Refactoring record data validation, first pass.
Stub out validation subs for all supported types, and fill a hash

with function references for *all* types in initGlobals()

File:

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

trunk/DNSDB.pm

@@ -132 +132 @@
         );
 
+## (Semi)private variables
+# Hash of functions for validating record types.  Filled in initGlobals() since
+# it relies on visibility flags from the rectypes table in the DB
+my %validators;
+
 
 ##
@@ -228 +233 @@
   # can't do nuttin' in forward zones
 } # end _ipparent()
+
+
+##
+## Record validation subs.
+##
+
+# A record
+sub _validate_1 {
+  return ('OK','OK');
+} # done A record
+
+# NS record
+sub _validate_2 {
+  return ('OK','OK');
+} # done NS record
+
+# CNAME record
+sub _validate_5 {
+  return ('OK','OK');
+} # done CNAME record
+
+# SOA record
+sub _validate_6 {
+  return ('OK','OK');
+} # done SOA record
+
+# PTR record
+sub _validate_12 {
+  return ('OK','OK');
+} # done PTR record
+
+# MX record
+sub _validate_15 {
+  return ('OK','OK');
+} # done MX record
+
+# TXT record
+sub _validate_16 {
+  return ('OK','OK');
+} # done TXT record
+
+# RP record
+sub _validate_17 {
+  return ('OK','OK');
+} # done RP record
+
+# AAAA record
+sub _validate_28 {
+  return ('OK','OK');
+} # done AAAA record
+
+# SRV record
+sub _validate_33 {
+  return ('OK','OK');
+} # done SRV record
+
+# Now the custom types
+
+# A+PTR record
+sub _validate_65280 {
+  return ('OK','OK');
+} # done A+PTR record
+
+# AAAA+PTR record
+sub _validate_65281 {
+  return ('OK','OK');
+} # done AAAA+PTR record
+
+# PTR template record
+sub _validate_65282 {
+  return ('OK','OK');
+} # done PTR template record
+
+# A+PTR template record
+sub _validate_65283 {
+  return ('OK','OK');
+} # done AAAA+PTR template record
+
+# AAAA+PTR template record
+sub _validate_65284 {
+  return ('OK','OK');
+} # done AAAA+PTR template record
+
+
 
 ##
@@ -415 +504 @@
 
 # load record types from database
-  my $sth = $dbh->prepare("select val,name from rectypes");
+  my $sth = $dbh->prepare("SELECT val,name,stdflag FROM rectypes");
   $sth->execute;
-  while (my ($recval,$recname) = $sth->fetchrow_array()) {
+  while (my ($recval,$recname,$stdflag) = $sth->fetchrow_array()) {
     $typemap{$recval} = $recname;
     $reverse_typemap{$recname} = $recval;
+    # now we fill the record validation function hash
+    if ($stdflag < 5) {
+      my $fn = "_validate_$recval";
+      $validators{$recval} = \&$fn;
+    } else {
+      my $fn = "sub { return ('FAIL','Type $recval ($recname) not supported'); }";
+      $validators{$recval} = eval $fn;
+    }
   }
 } # end initGlobals