dnsruby 1.55 → 1.56.0

data/demo/check_soa.rb

@@ -1,62 +1,62 @@
-#--
-#Copyright 2007 Nominet UK
-#
-#Licensed under the Apache License, Version 2.0 (the "License");
-#you may not use this file except in compliance with the License.
-#You may obtain a copy of the License at
-#
+# --
+# Copyright 2007 Nominet UK
+# 
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+# 
 #     http://www.apache.org/licenses/LICENSE-2.0
-#
-#Unless required by applicable law or agreed to in writing, software
-#distributed under the License is distributed on an "AS IS" BASIS,
-#WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-#See the License for the specific language governing permissions and
-#limitations under the License.
-#++
-
-
-#= NAME
-#
-#check_soa - Check a domain's nameservers
-#
-#= SYNOPSIS
-#
-#check_soa domain
-#
-#= DESCRIPTION
-#
-#check_soa queries each of a domain's nameservers for the Start
-#of Authority (SOA) record and prints the serial number.  Errors
-#are printed for nameservers that couldn't be reached or didn't
-#answer authoritatively.
-#
-#= AUTHOR
-#
-#The original Bourne Shell and C versions were printed in
-#"DNS and BIND" by Paul Albitz & Cricket Liu.
-#
-#This Perl version was written by Michael Fuhr <mike@fuhr.org>.
-#
-#= SEE ALSO
-#
-#axfr, check_zone, mresolv, mx, perldig, Net::DNS
+# 
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+# ++
+
+
+# = NAME
+# 
+# check_soa - Check a domain's nameservers
+# 
+# = SYNOPSIS
+# 
+# check_soa domain
+# 
+# = DESCRIPTION
+# 
+# check_soa queries each of a domain's nameservers for the Start
+# of Authority (SOA) record and prints the serial number.  Errors
+# are printed for nameservers that couldn't be reached or didn't
+# answer authoritatively.
+# 
+# = AUTHOR
+# 
+# The original Bourne Shell and C versions were printed in
+# "DNS and BIND" by Paul Albitz & Cricket Liu.
+# 
+# This Perl version was written by Michael Fuhr <mike@fuhr.org>.
+# 
+# = SEE ALSO
+# 
+# axfr, check_zone, mresolv, mx, perldig, Net::DNS
 
 require 'dnsruby'
 
-#------------------------------------------------------------------------------
+# ------------------------------------------------------------------------------
 # Get the domain from the command line.
-#------------------------------------------------------------------------------
+# ------------------------------------------------------------------------------
 
-if ARGV.length ==1 
+if ARGV.length ==1
   domain = ARGV[0]
-  
-  #------------------------------------------------------------------------------
-  # Find all the nameservers for the domain.
-  #------------------------------------------------------------------------------
-  
+
+  # ------------------------------------------------------------------------------
+  #  Find all the nameservers for the domain.
+  # ------------------------------------------------------------------------------
+
   res = Dnsruby::Resolver.new
-  
-  #  res.defnames=(0)
+
+  #   res.defnames=(0)
   res.retry_times=(2)
   ns_req = nil
   begin
@@ -68,27 +68,27 @@ if ARGV.length ==1
   if (ns_req.header.ancount == 0)
     print "No nameservers found for #{domain}\n"
     return
-  end 
-  
-  # Send out non-recursive queries
+  end
+
+  #  Send out non-recursive queries
   res.recurse=(0)
-  
-  
-  #------------------------------------------------------------------------------
-  # Check the SOA record on each nameserver.
-  #------------------------------------------------------------------------------
-  
+
+
+  # ------------------------------------------------------------------------------
+  #  Check the SOA record on each nameserver.
+  # ------------------------------------------------------------------------------
+
    (ns_req.answer.select {|r| r.type == "NS"}).each do |nsrr|
-    
-    #----------------------------------------------------------------------
-    # Set the resolver to query this nameserver.
-    #----------------------------------------------------------------------
+
+    # ----------------------------------------------------------------------
+    #  Set the resolver to query this nameserver.
+    # ----------------------------------------------------------------------
     ns = nsrr.domainname
-    
-    # In order to lookup the IP(s) of the nameserver, we need a Resolver
-    # object that is set to our local, recursive nameserver.  So we create
-    # a new object just to do that.
-    
+
+    #  In order to lookup the IP(s) of the nameserver, we need a Resolver
+    #  object that is set to our local, recursive nameserver.  So we create
+    #  a new object just to do that.
+
     local_res = Dnsruby::Resolver.new
     a_req=nil
     begin
@@ -97,20 +97,20 @@ if ARGV.length ==1
       print "Can not find address for #{ns}: #{e}\n"
       next
     end
-    
+
      (a_req.answer.select {|r| r.type == 'A'}).each do |r|
       ip = r.address
-      #----------------------------------------------------------------------
-      # Ask this IP.
-      #----------------------------------------------------------------------
-      
+      # ----------------------------------------------------------------------
+      #  Ask this IP.
+      # ----------------------------------------------------------------------
+
       res.nameserver=(ip.to_s)
-      
+
       print "#{ns} (#{ip}): "
-      
-      #----------------------------------------------------------------------
-      # Get the SOA record.
-      #----------------------------------------------------------------------
+
+      # ----------------------------------------------------------------------
+      #  Get the SOA record.
+      # ----------------------------------------------------------------------
       soa_req=nil
       begin
         soa_req = res.query(domain, 'SOA', 'IN')
@@ -118,38 +118,38 @@ if ARGV.length ==1
         print "Error : #{e}\n"
         next
       end
-      
-      #----------------------------------------------------------------------
-      # Is this nameserver authoritative for the domain?
-      #----------------------------------------------------------------------
-      
+
+      # ----------------------------------------------------------------------
+      #  Is this nameserver authoritative for the domain?
+      # ----------------------------------------------------------------------
+
       unless (soa_req.header.aa)
         print "isn't authoritative for #{domain}\n"
         next
       end
-      
-      #----------------------------------------------------------------------
-      # We should have received exactly one answer.
-      #----------------------------------------------------------------------
-      
+
+      # ----------------------------------------------------------------------
+      #  We should have received exactly one answer.
+      # ----------------------------------------------------------------------
+
       unless (soa_req.header.ancount == 1)
         print "expected 1 answer, got ", soa_req.header.ancount, "\n"
         next
       end
-      
-      #----------------------------------------------------------------------
-      # Did we receive an SOA record?
-      #----------------------------------------------------------------------
-      
+
+      # ----------------------------------------------------------------------
+      #  Did we receive an SOA record?
+      # ----------------------------------------------------------------------
+
       unless ((soa_req.answer)[0].type == "SOA")
         print "expected SOA, got ", (soa_req.answer)[0].type, "\n"
         next
       end
-      
-      #----------------------------------------------------------------------
-      # Print the serial number.
-      #----------------------------------------------------------------------
-      
+
+      # ----------------------------------------------------------------------
+      #  Print the serial number.
+      # ----------------------------------------------------------------------
+
       print "has serial number ", (soa_req.answer)[0].serial, "\n"
     end
   end

data/demo/check_zone.rb

@@ -1,45 +1,45 @@
-#--
-#Copyright 2007 Nominet UK
-#
-#Licensed under the Apache License, Version 2.0 (the "License");
-#you may not use this file except in compliance with the License.
-#You may obtain a copy of the License at
-#
+# --
+# Copyright 2007 Nominet UK
+# 
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+# 
 #     http://www.apache.org/licenses/LICENSE-2.0
-#
-#Unless required by applicable law or agreed to in writing, software
-#distributed under the License is distributed on an "AS IS" BASIS,
-#WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-#See the License for the specific language governing permissions and
-#limitations under the License.
-#++
-
-#= NAME
-#
-#check_zone - Check a DNS zone for errors
-#
-#= SYNOPSIS
-#
-#check_zone [ -r ] <domain>
-#
-#= DESCRIPTION
-#
-#Checks a DNS zone for errors.  Current checks are:
-#
-#* Checks that all A records have corresponding PTR records.
-#
-#* Checks that hosts listed in NS, MX, and CNAME records have
-#A records.
-#
-#= OPTIONS
-#
-#* -r Perform a recursive check on subdomains.
-#
-#= AUTHOR
-#
-#Michael Fuhr <mike@fuhr.org>
-#(Ruby version AlexD, Nominet UK)
-#
+# 
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+# ++
+
+# = NAME
+# 
+# check_zone - Check a DNS zone for errors
+# 
+# = SYNOPSIS
+# 
+# check_zone [ -r ] <domain>
+# 
+# = DESCRIPTION
+# 
+# Checks a DNS zone for errors.  Current checks are:
+# 
+# * Checks that all A records have corresponding PTR records.
+# 
+# * Checks that hosts listed in NS, MX, and CNAME records have
+# A records.
+# 
+# = OPTIONS
+# 
+# * -r Perform a recursive check on subdomains.
+# 
+# = AUTHOR
+# 
+# Michael Fuhr <mike@fuhr.org>
+# (Ruby version AlexD, Nominet UK)
+# 
 
 
 require 'dnsruby'
@@ -48,13 +48,13 @@ require 'getoptLong'
 def check_domain(args)
   domain = args[0]
   klass = "IN"
-  if (args.length > 1) 
+  if (args.length > 1)
     klass = args[1]
   end
   print "----------------------------------------------------------------------\n"
   print "#{domain} (class #{klass}\n"
   print "\n"
-  
+
   res = Dnsruby::Resolver.new
   res.retry_times=(2)
   nspack = nil
@@ -64,16 +64,16 @@ def check_domain(args)
     print "Couldn't find nameservers for #{domain}: #{e}\n"
     return
   end
-  
+
   print "nameservers (will request zone from first available):\n"
   ns=""
   (nspack.answer.select {|r| r.type == "NS"}).each do |ns|
     print "\t", ns.domainname, "\n"
   end
   print "\n"
-  
+
   res.nameserver= (nspack.answer.select {|i| i.type == "NS"}).collect {|i| i.domainname.to_s}
-  
+
   zt = Dnsruby::ZoneTransfer.new
   zt.server=(nspack.answer.select {|i| i.type == "NS"}).collect {|i| i.domainname.to_s}
   zone = zt.transfer(domain) # , klass)
@@ -81,31 +81,31 @@ def check_domain(args)
     print "Zone transfer failed: ", res.errorstring, "\n"
     return
   end
-  
+
   print "checking PTR records\n"
   check_ptr(domain, klass, zone)
   print "\n"
-  
+
   print "checking NS records\n"
   check_ns(domain, klass, zone)
   print "\n"
-  
+
   print "checking MX records\n"
   check_mx(domain, klass, zone)
   print "\n"
-  
+
   print "checking CNAME records\n"
   check_cname(domain, klass, zone)
   print "\n"
-  
+
   if (@recurse)
     print "checking subdomains\n\n"
     subdomains = Hash.new
-    #          foreach (grep { $_->type eq "NS" and $_->name ne $domain } @zone) {
+    #           foreach (grep { $_->type eq "NS" and $_->name ne $domain } @zone) {
     (zone.select {|i| i.type == "NS" && i.name != domain}).each do |z|
       subdomains[z.name] = 1
     end
-    #          foreach (sort keys %subdomains) {
+    #           foreach (sort keys %subdomains) {
     subdomains.keys.sort.each do |k|
       check_domain(k, klass)
     end
@@ -114,7 +114,7 @@ end
 
 def check_ptr(domain, klass, zone)
   res = Dnsruby::Resolver.new
-  #  foreach $rr (grep { $_->type eq "A" } @zone) {
+  #   foreach $rr (grep { $_->type eq "A" } @zone) {
   (zone.select {|z| z.type == "A"}).each do |rr|
     host = rr.name
     addr = rr.address
@@ -130,7 +130,7 @@ end
 
 def check_ns(domain, klass, zone)
   res = Dnsruby::Resolver.new
-  #  foreach $rr (grep { $_->type eq "NS" } @zone) {
+  #   foreach $rr (grep { $_->type eq "NS" } @zone) {
   (zone.select { |z| z.type == "NS" }).each do |rr|
     ans = res.query(rr.nsdname, "A", klass)
     print "\t", rr.nsdname, " has no A record\n" if (ans.header.ancount < 1)
@@ -139,7 +139,7 @@ end
 
 def check_mx(domain, klass, zone)
   res = Dnsruby::Resolver.new
-  #  foreach $rr (grep { $_->type eq "MX" } @zone) {
+  #   foreach $rr (grep { $_->type eq "MX" } @zone) {
   zone.select {|z| z.type == "MX"}.each do |rr|
     ans = res.query(rr.exchange, "A", klass)
     print "\t", rr.exchange, " has no A record\n" if (ans.header.ancount < 1)
@@ -148,7 +148,7 @@ end
 
 def check_cname(domain, klass, zone)
   res = Dnsruby::Resolver.new
-  #  foreach $rr (grep { $_->type eq "CNAME" } @zone)
+  #   foreach $rr (grep { $_->type eq "CNAME" } @zone)
   zone.select {|z| z.type == "CNAME"}.each do |rr|
     ans = res.query(rr.cname, "A", klass)
     print "\t", rr.cname, " has no A record\n" if (ans.header.ancount < 1)
@@ -165,9 +165,9 @@ opts.each do |opt, arg|
 end
 
 if (ARGV.length >=1 && ARGV.length <=2)
-  
+
   check_domain(ARGV)
   exit
-else 
+else
   print "Usage: #{$0} [ -r ] domain [ class ]\n"
 end