Changeset 811 for trunk/bind-import

Timestamp:

11/24/20 17:18:34 (4 years ago)

Author:

Kris Deugau

Message:

/trunk

Fourth sampled iteration of bind-import

File:

• trunk/bind-import (modified) (7 diffs)

trunk/bind-import

@@ -36 +36 @@
 my %amap;
 my %namemap;
+my %cmap;
 
 if ($zname =~ /\.arpa\.?$/ || $zname =~ m,^[\d./]+$,) {
@@ -100 +101 @@
   $name .= ".$zname" if $name !~ /$zname$/ && $zname !~ /\.$/;
 $name = $zname if /^\s*IN/;
-  s/([\w_.-]+)\s+//;
+$name = $zname if /^\@/;
+  s/([\w\@_.-]+)\s+//;
   my ($class) = /(IN|CS|CH|HS)\s/;
   if ($class) {
@@ -121 +123 @@
   my ($type) = /([A-Z-]+)\s/;
   if (!$reverse_typemap{$type}) {
-    print "Unknown type $type, skipping\n";
+    print "Unknown type $type, skipping\n  ($_)\n";
     next;
   }
@@ -135 +137 @@
   }
 
+# temp hack for hosts file
 if ($type eq 'A') {
 #  if ($amap{$name}) {
@@ -142 +145 @@
 #  }
   push @{$namemap{$rdata}}, $name;
+}
+if ($type eq 'CNAME') {
+  push @{$cmap{$rdata}}, $name;
 }
 
@@ -162 +168 @@
 
 #print Dumper \%amap;
+#print Dumper \%namemap;
+#print Dumper \%cmap;
+
 foreach my $n (keys %amap) {
   foreach my $ip (@{$amap{$n}}) {
@@ -169 +178 @@
 }
 
-#print Dumper \%namemap;
-foreach my $ip (sort keys %namemap) {
-  print "$ip    ".join(' ', @{$namemap{$ip}})."\n";
+foreach my $c (keys %cmap) {
+  if ($amap{$c}) {
+    print Dumper(\@{$amap{$c}});
+  }
+#  print $amap{$c};
 }
+
+# cname targ -> IP
+
+#foreach my $ip (sort keys %namemap) {
+#  print "$ip   ".join(' ', @{$namemap{$ip}})."\n";
+#}
+