Changeset 802


Ignore:
Timestamp:
11/06/20 10:57:20 (4 years ago)
Author:
Kris Deugau
Message:

/trunk

Commit 4th archived iteration of bind2hosts in development

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/bind2hosts

    r801 r802  
    146146##fixme:  maybe wrap this in an eval() instead of the warn/badrec/last bits?
    147147  for (; $nc < 3; $nc++) {
    148     my ($atom) = ($rec =~ /^([\w\d]+)\s/);
     148    my ($atom) = ($rec =~ /^([\w\d.]+)\s/);
    149149    # should be safe?
    150150    last if !$atom;
     
    255255#    push @{$cmap{$rdata}}, $curlabel;
    256256##todo:  expand $rdata with $origin if unqualified
    257     $cmap{$curlabel} = $rdata;
     257
     258    $cmap{$curlabel} = $rdata.($rdata =~ /\./ ? '' : ".$origin");
    258259#print "$origrec\n";
    259260  } # CNAME record
Note: See TracChangeset for help on using the changeset viewer.