chiark / gitweb /
Allow invocation on 2nd-level domains by coping with superzone `.'
authorianmdlvl <ianmdlvl>
Thu, 17 Jan 2002 19:17:05 +0000 (19:17 +0000)
committerianmdlvl <ianmdlvl>
Thu, 17 Jan 2002 19:17:05 +0000 (19:17 +0000)
debian/changelog
scripts/named-conf

index 44f6ab1..3d20fe7 100644 (file)
@@ -1,3 +1,9 @@
+chiark-utils (2.2.3) unstable; urgency=low
+
+  * Allow invocation on 2nd-level domains by coping with superzone `.'
+
+ --
+
 chiark-utils (2.2.2) unstable; urgency=low
 
   * chiark-named-conf does checks on all slaves even for `*' zones.
index a43e5ab..ba36757 100755 (executable)
@@ -360,8 +360,10 @@ sub zone_investigate() {
        $super_zone= $zone;
        for (;;) {
            debug_trace("zone $zone superzone $super_zone");
+           $super_zone eq '.'
+               and die "no superzone ? ($super_zone)\n";
            $super_zone =~ s/^[^.]+\.//
-               or die "no superzone ? ($super_zone)\n";
+               or $super_zone= '.';
            ($rcode,@start_nsnames)=
                lookup($super_zone,'ns-','06',"superzone search");
            last if !$rcode;
@@ -698,7 +700,7 @@ sub lookup ($$$$) {
     defined($c= open $h, "-|") or die "$quis: fork adnshost:\n $!\n";
     if (!$c) {
        exec 'adnshost','-Fi','+Do','+Dt','+Dc','-Cf',"-t$type",
-            '-',"$domain.";
+            '-',"$domain";
        die "$quis: exec adnshost:\n $!\n";
     }
     @result= $h->getlines();