Changeset 129 for trunk

Timestamp:

09/30/11 17:29:57 (13 years ago)

Author:

Kris Deugau

Message:

/trunk

Data validation - check attempts to add an A or AAAA record to
make sure that the address really is a valid IP.

File:

• trunk/DNSDB.pm (modified) (1 diff)

trunk/DNSDB.pm

@@ -1281 +1281 @@
   my $val = shift;
   my $ttl = shift;
+
+  # Validation
+  if ($rectype == $reverse_typemap{A} or $rectype == $reverse_typemap{AAAA}) {
+    my $tmpip = new NetAddr::IP $val or
+        return ("FAIL", "Address must be a valid IP address");
+  }
 
   my $fields = ($defrec eq 'y' ? 'group_id' : 'domain_id').",host,type,val,ttl";