Changeset 1002 for trunk/DNSDB.pm

Timestamp:

01/27/26 15:48:00 (3 days ago)

Author:

Kris Deugau

Message:

/trunk

Forcibly clean up some stray dashes in DNS labels so that downstream AXFR
consumers don't reject the zone.

File:

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

trunk/DNSDB.pm

@@ -4816 +4816 @@
   return ($retcode,$retmsg) if $retcode eq 'FAIL';
 
+  # Minor cleanup of invalid DNS labels
+##fixme: seems like map should be used here to be decently Perlish, but any time I stick
+# a s/// inside the block map only returns the match/replace count instead of whatever
+# the changed $_ is for some reason
+  my @hbits = split '.', $host;
+  foreach (@hbits) {
+    s/^-+//;
+    s/-+$//;
+  }
+  $host = join '.', @hbits;
+
   # Set up database fields and bind parameters
   $fields .= "host,type,val,ttl,"._recparent($defrec,$revrec);
@@ -4982 +4993 @@
 
   return ($retcode,$retmsg) if $retcode eq 'FAIL';
+
+  # Minor cleanup of invalid DNS labels
+##fixme: seems like map should be used here to be decently Perlish, but any time I stick
+# a s/// inside the block map only returns the match/replace count instead of whatever
+# the changed $_ is for some reason
+  my @hbits = split '.', $host;
+  foreach (@hbits) {
+    s/^-+//;
+    s/-+$//;
+  }
+  $host = join '.', @hbits;
 
   # Set up database fields and bind parameters.  Note only the optional fields