Changeset 876 for trunk

Timestamp:

01/05/23 17:45:36 (2 years ago)

Author:

Kris Deugau

Message:

/trunk

Fix up a few more places requiring dot-terminated FQDNs

File:

• trunk/DNSDB/ExportBIND.pm (modified) (3 diffs)

trunk/DNSDB/ExportBIND.pm

@@ -526 +526 @@
 #    ($host,$val) = __revswap($host,$val) if $revrec eq 'y';
 #    print {$zonefiles->{$loc}} "$host  $ttl    IN      SRV     $distance   $weight $port   $val\n" or die $!;
-    my $recdata = "$host        $ttl    IN      SRV     $distance       $weight $port   $val\n";
+    my $recdata = "$host        $ttl    IN      SRV     $distance       $weight $port   $val.\n";
     recprint($zonefiles, $loclist, $loc, $recdata);
   } # SRV
@@ -533 +533 @@
 #    ($host,$val) = __revswap($host,$val) if $revrec eq 'y';
 #    print {$zonefiles->{$loc}} "$host  $ttl    IN      RP      $val\n" or die $!;
-    my $recdata = "$host        $ttl    IN      RP      $val\n";
+    my $recdata = "$host.       $ttl    IN      RP      $val\n";
     recprint($zonefiles, $loclist, $loc, $recdata);
   } # RP
@@ -576 +576 @@
       # fingers and close our eyes and make it Someone Else's Problem.
 #      print {$zonefiles->{$loc}} "$host        $ttl    IN      PTR     $val\n" or die $!;
-      my $recdata = "$host      $ttl    IN      PTR     $val\n";
+      my $recdata = "$host.     $ttl    IN      PTR     $val.\n";
       recprint($zonefiles, $loclist, $loc, $recdata);
     }