Changeset 461

Timestamp:

02/20/13 16:59:41 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Actually handle the -c option in tiny-import.pl

File:

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

trunk/tiny-import.pl

@@ -85 +85 @@
 my %cnt;
 my @deferred;
+my $converted = 0;
 my $errstr = '';
 
@@ -167 +168 @@
 
   # .. but we can at least say how many records weren't imported.
-  print "$ok OK, ".scalar(@deferred)." deferred records in $flatfile\n";
-  $#deferred = -1;
-
+  print "$ok OK, ".scalar(@deferred)." deferred, $converted downconverted records in $flatfile\n";
+  undef @deferred;
+  $converted = 0;
 
   # Sub for various nonstandard types with lots of pure bytes expressed in octal
@@ -273 +274 @@
         $recsth->execute($fparent, $rparent, $host, 65280, $ip, 0, 0, 0, $ttl, $loc);
       } else {
-        push @deferred, $rec unless $nodefer;
-        $impok = 0;
-        #  print "$tmporig deferred;  can't find both forward and reverse zone parents\n";
+        if ($importcfg{conv}) {
+          # downconvert A+PTR if forward zone is not found
+          $recsth->execute(0, $rparent, $host, 12, $ip, 0, 0, 0, $ttl, $loc);
+          $converted++;
+        } else {
+          push @deferred, $rec unless $nodefer;
+          $impok = 0;
+          #  print "$tmporig deferred;  can't find both forward and reverse zone parents\n";
+        }
       }