Changeset 531

Timestamp:

07/24/13 12:25:40 (11 years ago)

Author:

Kris Deugau

Message:

/trunk

Accept bare @ as a hostname for domain entries. Store the @, and
convert to the domain name on export. See #18.

File:

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

trunk/DNSDB.pm

@@ -438 +438 @@
   # or the intended parent domain for live records.
   my $pname = ($args{defrec} eq 'y' ? 'DOMAIN' : $self->domainName($args{id}));
-  ${$args{host}} =~ s/\.*$/\.$pname/ if ${$args{host}} !~ /$pname$/;
+  ${$args{host}} =~ s/\.*$/\.$pname/ if (${$args{host}} ne '@' && ${$args{host}} !~ /$pname$/);
 
   # Check IP is well-formed, and that it's a v4 address
@@ -3675 +3675 @@
   return ('FAIL', "Hostnames may not contain anything other than (0-9 a-z . _)")
         if $defrec eq 'n' && ($revrec eq 'y' ? $$rectype != $reverse_typemap{TXT} : 1) &&
-                $$host !~ /^[0-9a-z_%.-]+$/i;
+                $$host !~ /^(?:[0-9a-z_%.-]+|@)$/i;
 
   # Collect these even if we're only doing a simple A record so we can call *any* validation sub
@@ -3812 +3812 @@
   return ('FAIL', "Hostnames may not contain anything other than (0-9 a-z - . _)")
         if $defrec eq 'n' && ($revrec eq 'y' ? $$rectype != $reverse_typemap{TXT} : 1) &&
-                $$host !~ /^[0-9a-z_%.-]+$/i;
+                $$host !~ /^(?:[0-9a-z_%.-]+|@)$/i;
 
   # only MX and SRV will use these
@@ -5093 +5093 @@
   my ($datafile,$revrec,$recflags,$zone,$host,$type,$val,$dist,$weight,$port,$ttl,$loc,$stamp) = @_;
 
+  if ($revrec eq 'y') {
+    $val = $zone if $val eq '@';
+  } else {
+    $host = $zone if $host eq '@';
+  }
+
   ## Convert a bare number into an octal-coded pair of octets.
   # Take optional arg to indicate a decimal or hex input.  Defaults to hex.