chiark / gitweb /
Fix ref \\
authorianmdlvl <ianmdlvl>
Mon, 31 Dec 2001 02:57:46 +0000 (02:57 +0000)
committerianmdlvl <ianmdlvl>
Mon, 31 Dec 2001 02:57:46 +0000 (02:57 +0000)
scripts/named-conf

index cee3774..9360c6d 100755 (executable)
@@ -263,7 +263,7 @@ sub zone_check () {
            next if $nsrrset_checked{$ns}++;
            push @to_check_soa, $addr, $why;
            zone_check_nsrrset($super_ns_addr,"$addr, $wa",
-                              %$delgs_or_auths,$glueless_ok);
+                              $delgs_or_auths,$glueless_ok);
        } elsif (($addr,$wa) = @to_check_soa) {
            next if !$soa_checked{$ns}++;
            zone_check_soa($addr,"$addr, $wa");
@@ -274,13 +274,13 @@ sub zone_check () {
 
 sub zone_consistency() {
     my ($d, $org_ser, $origin, $a, $showok);
-    zone_consistency_set('delegations',%delgs);
+    zone_consistency_set('delegations',\%delgs);
     foreach $d (keys %delgs) { delete $auths{$d}; }
-    zone_consistency_set('zone nameserver rrset',%auths);
+    zone_consistency_set('zone nameserver rrset',\%auths);
     foreach $h (keys %glue) {
-       zone_consistency_set("glue for $h", %{ $glue{$h} });
+       zone_consistency_set("glue for $h", $glue{$h});
     }
-    zone_consistency_set("SOA ORIGIN and SERIAL",%soas);
+    zone_consistency_set("SOA ORIGIN and SERIAL",\%soas);
     if ($cfg->{'style'} eq 'primary') {
        foreach $org_ser (keys %soas) {
            $org_ser =~ m/^(\S+) \d+$/ or die "$org_ser ?";
@@ -301,7 +301,7 @@ sub zone_consistency() {
     }
 }
 
-sub zone_consistency_set ($\%) {
+sub zone_consistency_set ($%) {
     my ($msg,$set) = @_;
     my ($d,$o);
     if (keys(%$set) != 1) {
@@ -339,7 +339,7 @@ sub zone_check_soa ($$) {
     }
 }
 
-sub zone_check_nsrrset ($$\%\%) {
+sub zone_check_nsrrset ($$$$) {
     my ($uaddr,$ww, $delgs_or_auths,$glueless_ok) = @_;
     my (@s, $s, %s2g, @glue, $glue);
     dig::dig({