Changeset 359 for trunk

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:

• trunk/tiny-import.pl (modified) (2 diffs)

trunk/tiny-import.pl

@@ -246 +246 @@
       $cnt{A}++;
 
+      my ($host,$ip,$ttl,$stamp,$loc) = split /:/, $rec, 5;
+      $host =~ s/^\+//;
+      $host =~ s/\.$//;
+      $ttl = 0 if !$ttl;
+      $stamp = '' if !$stamp;
+      $loc = '' if !$loc;
+      $loc = '' if $loc =~ /^:+$/;
+
+      my $domid = DNSDB::_hostparent($dbh, $host);
+      if ($domid) {
+        $recsth->execute($domid, 0, $host, 1, $ip, 0, 0, 0, $ttl);
+      } else {
+        push @deferred, $rec unless $nodefer;
+      }
+
     } elsif ($rec =~ /^Z/) {
       $cnt{SOA}++;
@@ -273 +288 @@
 
       my ($zone,$ip,$host,$dist,$ttl,$stamp,$loc) = split /:/, $rec, 7;
-      $zone =~ s/^\.//;
+      $zone =~ s/^\@//;
       $zone =~ s/\.$//;
       $host =~ s/\.$//;