287     return $x;

   287     return $x;

   288 }

   288 }

   289 

   289 

   290 sub get_auth_info {

   290 sub get_auth_info {

   291     my $name = shift;

   291     my $name = shift;

   292     my %auth = (zone => undef, master => undef);

   293     my %auth = (zone => undef, master => undef);

   294     my $response = $resolver->send($name, 'SOA')

   297     my $response = $resolver->send($name, 'SOA')

   295       or die $resolver->errorstring, "\n";

   298       or die $resolver->errorstring, "\n";

   296 

   299 

   297     #    use Data::Dumper;

   300     #    use Data::Dumper;

   298     #    die Dumper $response;

   301     #    die Dumper $response;