Changeset 802

Timestamp:

11/06/20 10:57:20 (4 years ago)

Author:

Kris Deugau

Message:

/trunk

Commit 4th archived iteration of bind2hosts in development

File:

• trunk/bind2hosts (modified) (2 diffs)

trunk/bind2hosts

@@ -146 +146 @@
 ##fixme:  maybe wrap this in an eval() instead of the warn/badrec/last bits?
   for (; $nc < 3; $nc++) {
-    my ($atom) = ($rec =~ /^([\w\d]+)\s/);
+    my ($atom) = ($rec =~ /^([\w\d.]+)\s/);
     # should be safe?
     last if !$atom;
@@ -255 +255 @@
 #    push @{$cmap{$rdata}}, $curlabel;
 ##todo:  expand $rdata with $origin if unqualified
-    $cmap{$curlabel} = $rdata;
+
+    $cmap{$curlabel} = $rdata.($rdata =~ /\./ ? '' : ".$origin");
 #print "$origrec\n";
   } # CNAME record