Changeset 359 for trunk


Ignore:
Timestamp:
07/06/12 13:21:35 (12 years ago)
Author:
Kris Deugau
Message:

/trunk

Checkpoint, tiny-import.pl

  • Fill in A record handling
  • Fix buglet in MX handling (didn't strip the right leading character)
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tiny-import.pl

    r358 r359  
    246246      $cnt{A}++;
    247247
     248      my ($host,$ip,$ttl,$stamp,$loc) = split /:/, $rec, 5;
     249      $host =~ s/^\+//;
     250      $host =~ s/\.$//;
     251      $ttl = 0 if !$ttl;
     252      $stamp = '' if !$stamp;
     253      $loc = '' if !$loc;
     254      $loc = '' if $loc =~ /^:+$/;
     255
     256      my $domid = DNSDB::_hostparent($dbh, $host);
     257      if ($domid) {
     258        $recsth->execute($domid, 0, $host, 1, $ip, 0, 0, 0, $ttl);
     259      } else {
     260        push @deferred, $rec unless $nodefer;
     261      }
     262
    248263    } elsif ($rec =~ /^Z/) {
    249264      $cnt{SOA}++;
     
    273288
    274289      my ($zone,$ip,$host,$dist,$ttl,$stamp,$loc) = split /:/, $rec, 7;
    275       $zone =~ s/^\.//;
     290      $zone =~ s/^\@//;
    276291      $zone =~ s/\.$//;
    277292      $host =~ s/\.$//;
Note: See TracChangeset for help on using the changeset viewer.