cope with additional spaces in soa records
authorHeiko Schlittermann (JUMPER) <hs@schlittermann.de>
Wed, 21 Jan 2015 20:41:45 +0100
changeset 62 aff0448cbef9
parent 61 bedb2cce973e
child 63 df6ce1a4c43b
cope with additional spaces in soa records
debian/rules
lib/DNS/Vi.pm
t/10-dnsvi.t
t/samples/a
--- a/debian/rules	Wed Jan 21 20:33:49 2015 +0100
+++ b/debian/rules	Wed Jan 21 20:41:45 2015 +0100
@@ -1,4 +1,11 @@
 #! /usr/bin/make -f
 
+export PERL_MM_OPT=
+export PERL_MB_OPT=
+export PERL5LIB=
+
 %:
-	PERL_MM_OPT= PERL_MB_OPT= dh $@
+	$@
+
+override_dh_installchangelogs:
+	dh_installchangelogs CHANGES
--- a/lib/DNS/Vi.pm	Wed Jan 21 20:33:49 2015 +0100
+++ b/lib/DNS/Vi.pm	Wed Jan 21 20:41:45 2015 +0100
@@ -58,8 +58,8 @@
                 next if $rrset{rrtype} ~~ $arg{-skip};
 
                 if ($rrset{rrtype} eq 'SOA') {
-                    next if $soa_seen;
-                    $soa_seen = 1;
+                    next if $soa_seen++;
+		    $rrset{data} =~ s/\s+/ /g;	# squeeze spaces
                 }
 
                 # label ergänzen, wenn nicht FQDN
--- a/t/10-dnsvi.t	Wed Jan 21 20:33:49 2015 +0100
+++ b/t/10-dnsvi.t	Wed Jan 21 20:41:45 2015 +0100
@@ -38,6 +38,9 @@
         TXT    => 4,
         AAAA   => 0,
         MX     => 0,
+	SOA    => {
+	    'km21.de.' => ['pu.km21.de. hostmaster.schlittermann.de. 1397766411 86400 7200 604800 300'],
+	},
     },
     b => {
         RRSETS => 11,
--- a/t/samples/a	Wed Jan 21 20:33:49 2015 +0100
+++ b/t/samples/a	Wed Jan 21 20:41:45 2015 +0100
@@ -1,7 +1,8 @@
 $ORIGIN km21.de.
 $TTL 1d
 ; do NOT EDIT the SOA records SERIAL number!
-@               SOA    pu.schlittermann.de. hostmaster.schlittermann.de. 1397766411 86400 7200 604800 300
+; keep the spaces in the next line!
+@               SOA    pu      hostmaster.schlittermann.de. 1397766411 86400 7200 604800 300
                 NS     hh.schlittermann.de.
                 NS     pu.schlittermann.de.
                 TXT    "invoice: self"