pNet-DNS 0.0.1

data/lib/Net/DNS/RR/RP.rb

@@ -0,0 +1,108 @@
+# The contents of this file are subject to the Mozilla
+# Public Licence Version 1.1 (the "Licence"); you may
+# not use this file except in compliance with the
+# Licence. You may obtain a copy of the Licence at
+# http://www.mozilla.org/MPL
+# Software distributed under the Licence is distributed
+# on an "AS IS" basis,  WITHOUT WARRANTY OF ANY KIND,
+# either express or implied. See the Licence of the
+# specific language governing rights and limitations
+# under the Licence.
+# The Original Code is pNet::DNS.
+# The Initial Developer of the Original Code is
+# Nominet UK (www.nominet.org.uk). Portions created by
+# Nominet UK are Copyright (c) Nominet UK 2006.
+# All rights reserved.
+module Net
+  module DNS
+    class RR
+      #= NAME
+      #
+      #Net::DNS::RR::RP - DNS RP resource record
+      #
+      #= DESCRIPTION
+      #
+      #Class for DNS Responsible Person (RP) resource records.
+      #
+      #= COPYRIGHT
+      #
+      #Copyright (c) 1997-2002 Michael Fuhr. 
+      #
+      #Portions Copyright (c) 2002-2004 Chris Reinhardt.
+      #
+      #Ruby version Copyright (c) 2006 AlexD (Nominet UK)
+      #
+      #All rights reserved.  This program is free software; you may redistribute
+      #it and/or modify it under the same terms as Perl itself.
+      #
+      #= SEE ALSO
+      #
+      #Net::DNS, Net::DNS::Resolver, Net::DNS::Packet,
+      #Net::DNS::Header, Net::DNS::Question, Net::DNS::RR,
+      #RFC 1183 Section 2.2
+      class RP < RR
+        #Returns a domain name that specifies the mailbox for the responsible person.
+        #
+        #    print "mbox = ", rr.mbox, "\n"
+        #
+        attr_accessor :mbox
+        #Returns a domain name that specifies a TXT record containing further
+        #information about the responsible person.
+        #
+        #    print "txtdname = ", rr.txtdname, "\n"
+        #
+        attr_accessor :txtdname
+        def new_from_data(data, offset)
+          if (@rdlength > 0)
+           (@mbox,     offset) = Net::DNS::Packet::dn_expand(data, offset);
+           (@txtdname, offset) = Net::DNS::Packet::dn_expand(data, offset);
+          end
+        end
+        
+        def new_from_string(string)
+          if (string && (string =~ /^(\S+)\s+(\S+)$/))
+            @mbox     = $1;
+            @txtdname = $2;
+            @mbox.sub!(/\.+$/,"");
+            @txtdname.sub!(/\.+$/,"");
+          end
+        end
+        
+        def new_from_hash(values)
+          if values.has_key?(:mbox)
+            @mbox = values[:mbox]
+          end
+          if values.has_key?(:txtdname)
+            @txtdname = values[:txtdname]
+          end
+        end
+        
+        def rdatastr
+          return @mbox ? "#{@mbox}. #{@txtdname}." : '';
+        end
+        
+        def rr_rdata(packet, offset)
+          rdata = "";
+          
+          if (defined?@mbox)
+            rdata += packet.dn_comp(@mbox, offset);
+            rdata += packet.dn_comp(@txtdname, offset + rdata.length);
+          end
+          
+          return rdata;
+        end
+        
+        
+        def _canonicalRdata
+          rdata = "";
+          if (defined?@mbox)
+            rdata += _name2wire(@mbox);
+            rdata += _name2wire(@txtdname);
+          end
+          
+          return rdata;
+        end
+      end
+    end
+  end
+end

data/lib/Net/DNS/RR/RT.rb

@@ -0,0 +1,115 @@
+# The contents of this file are subject to the Mozilla
+# Public Licence Version 1.1 (the "Licence"); you may
+# not use this file except in compliance with the
+# Licence. You may obtain a copy of the Licence at
+# http://www.mozilla.org/MPL
+# Software distributed under the Licence is distributed
+# on an "AS IS" basis,  WITHOUT WARRANTY OF ANY KIND,
+# either express or implied. See the Licence of the
+# specific language governing rights and limitations
+# under the Licence.
+# The Original Code is pNet::DNS.
+# The Initial Developer of the Original Code is
+# Nominet UK (www.nominet.org.uk). Portions created by
+# Nominet UK are Copyright (c) Nominet UK 2006.
+# All rights reserved.
+module Net
+  module DNS
+    class RR
+      #= NAME
+      #
+      #Net::DNS::RR::RT - DNS RT resource record
+      #
+      #= DESCRIPTION
+      #
+      #Class for DNS Route Through (RT) resource records.
+      #
+      #= COPYRIGHT
+      #
+      #Copyright (c) 1997-2002 Michael Fuhr. 
+      #
+      #Portions Copyright (c) 2002-2004 Chris Reinhardt.
+      #Portions Copyright (c) 2005 Olaf Kolkman NLnet Labs.
+      #Ruby version Copyright (c) 2006 AlexD, Nominet UK.
+      #
+      #All rights reserved.  This program is free software; you may redistribute
+      #it and/or modify it under the same terms as Perl itself.
+      #
+      #= SEE ALSO
+      #
+      #Net::DNS, Net::DNS::Resolver, Net::DNS::Packet,
+      #Net::DNS::Header, Net::DNS::Question, Net::DNS::RR,
+      #RFC 1183 Section 3.3
+      class RT < RR
+        #Returns the preference for this route.
+        #
+        #    print "preference = ", rr.preference, "\n"
+        #
+        attr_accessor :preference
+        #Returns the domain name of the intermediate host.
+        #
+        #    print "intermediate = ", rr.intermediate, "\n"
+        #
+        attr_accessor :intermediate
+        def init_rrsort_func 
+          # Highest preference sorted first.
+          set_rrsort_func("preference", Proc.new { |a,b|  a.preference <=> b.preference } )
+          
+          set_rrsort_func("default_sort", get_rrsort_func("preference") );
+        end
+        
+        def new_from_data(data, offset)
+          if (@rdlength > 0)
+            @preference  = data.unpack("\@#{offset} n")[0];
+            offset += Net::DNS::INT16SZ;
+            
+            @intermediate = Net::DNS::Packet::dn_expand(data, offset)[0];
+          end
+        end
+        
+        def new_from_hash(values)
+          if values.has_key?(:intermediate)
+            @intermediate = values[:intermediate]
+          end
+          if values.has_key?(:preference)
+            @preference = values[:preference]
+          end
+        end
+        
+        def new_from_string(string)
+          if (string && (string =~ /^(\d+)\s+(\S+)$/))
+            @preference   = $1;
+            @intermediate = $2;
+            @intermediate.sub!(/\.+$/, "");
+          end
+        end
+        
+        def rdatastr
+          return @preference ? "#{@preference} #{@intermediate}." : '';
+        end
+        
+        def rr_rdata(packet, offset)
+          rdata = "";
+          
+          if (defined?@preference)
+            rdata += [@preference].pack("n");
+            rdata += packet.dn_comp(@intermediate, offset + rdata.length);
+          end
+          
+          return rdata;
+        end
+        
+        def _canonicalRdata(packet, offset)
+          rdata = "";
+          
+          if (defined?@preference)
+            rdata += [@preference].pack("n");
+            rdata += _name2wire(@intermediate);
+          end
+          
+          return rdata;
+        end
+      end
+    end
+  end
+end

data/lib/Net/DNS/RR/SOA.rb

@@ -0,0 +1,195 @@
+# The contents of this file are subject to the Mozilla
+# Public Licence Version 1.1 (the "Licence"); you may
+# not use this file except in compliance with the
+# Licence. You may obtain a copy of the Licence at
+# http://www.mozilla.org/MPL
+# Software distributed under the Licence is distributed
+# on an "AS IS" basis,  WITHOUT WARRANTY OF ANY KIND,
+# either express or implied. See the Licence of the
+# specific language governing rights and limitations
+# under the Licence.
+# The Original Code is pNet::DNS.
+# The Initial Developer of the Original Code is
+# Nominet UK (www.nominet.org.uk). Portions created by
+# Nominet UK are Copyright (c) Nominet UK 2006.
+# All rights reserved.
+module Net
+  module DNS
+    class RR
+      #= NAME
+      #
+      #Net::DNS::RR::SOA - DNS SOA resource record
+      #
+      #= DESCRIPTION
+      #
+      #Class for DNS Start of Authority (SOA) resource records.
+      #
+      #= COPYRIGHT
+      #
+      #Copyright (c) 1997-2002 Michael Fuhr. 
+      #
+      #Portions Copyright (c) 2002-2004 Chris Reinhardt.
+      #
+      #Ruby version Copyright (c) 2006 AlexD, Nominet UK.
+      #
+      #All rights reserved.  This program is free software; you may redistribute
+      #it and/or modify it under the same terms as Perl itself.
+      #
+      #= SEE ALSO
+      #
+      #Net::DNS, Net::DNS::Resolver, Net::DNS::Packet,
+      #Net::DNS::Header, Net::DNS::Question, Net::DNS::RR,
+      #RFC 1035 Section 3.3.13
+      class SOA < RR
+        #Returns the domain name of the original or primary nameserver for
+        #this zone.
+        #
+        #    print "mname = ", rr.mname, "\n"
+        #
+        attr_accessor :mname
+        #Returns a domain name that specifies the mailbox for the person
+        #responsible for this zone.
+        #
+        #    print "rname = ", rr.rname, "\n"
+        #
+        attr_accessor :rname
+        #Returns the zone's serial number.
+        #
+        #    print "serial = ", rr.serial, "\n"
+        #
+        attr_accessor :serial
+        #Returns the zone's refresh interval.
+        #
+        #    print "refresh = ", rr.refresh, "\n"
+        #
+        attr_accessor :refresh
+        #Returns the zone's retry interval.
+        #
+        #    print "retry = ", rr.retry, "\n"
+        #
+        attr_accessor :retry
+        #Returns the zone's expire interval.
+        #
+        #    print "expire = ", rr.expire, "\n"
+        #
+        attr_accessor :expire
+        #Returns the minimum (default) TTL for records in this zone.
+        #
+        #    print "minimum = ", rr.minimum, "\n"
+        #
+        attr_accessor :minimum
+        def new_from_data(data, offset)
+          if (@rdlength > 0)
+           (@mname, offset) = Net::DNS::Packet::dn_expand(data, offset);
+           (@rname, offset) = Net::DNS::Packet::dn_expand(data, offset);
+            
+             (@serial, @refresh, @retry, @expire, @minimum) = data.unpack("\@#{offset} N5");
+          end
+        end
+        
+        def new_from_hash(values)
+          if values.has_key?(:mname)
+            @mname = values[:mname]
+          end
+          if values.has_key?(:rname)
+            @rname = values[:rname]
+          end
+          if values.has_key?(:serial)
+            @serial = values[:serial]
+          end
+          if values.has_key?(:refresh)
+            @refresh = values[:refresh]
+          end
+          if values.has_key?(:retry)
+            @retry = values[:retry]
+          end
+          if values.has_key?(:expire)
+            @expire = values[:expire]
+          end
+          if values.has_key?(:minimum)
+            @minimum = values[:minimum]
+          end
+        end
+        
+        def new_from_string(s)
+          if (s!= nil)
+            #            string =~ tr/()//d;
+            string = s.tr("()", "")
+            
+            # XXX do we need to strip out comments here now that RR.pm does it?
+            string.gsub!(/;.*$/, "");
+            
+            @mname, string = get_next_param(string)
+            @rname, string = get_next_param(string)
+            @serial, string = get_next_param(string)
+            @refresh, string = get_next_param(string)
+            @retry, string = get_next_param(string)
+            @expire, string = get_next_param(string)
+            @minimum, string = get_next_param(string)
+            
+            @mname.sub!(/\.+$/, "");
+            @rname.sub!(/\.+$/, "");
+          end
+        end
+        
+        def get_next_param(s) 
+          s =~ /(\S+)/
+          param = $1
+          string = s[param.length, s.length-param.length]
+          string.sub!(/\s*/, "")
+          return param, string
+        end
+        
+        def rdatastr
+          rdatastr="";
+          
+          if (defined?@mname)
+            rdatastr  = "#{@mname}. #{@rname}. (\n";
+            rdatastr += "\t\t\t\t\t" + "#{@serial}\t; Serial\n";
+            rdatastr += "\t\t\t\t\t" + "#{@refresh}\t; Refresh\n";
+            rdatastr += "\t\t\t\t\t" + "#{@retry}\t; Retry\n";
+            rdatastr += "\t\t\t\t\t" + "#{@expire}\t; Expire\n";
+            rdatastr += "\t\t\t\t\t" + "#{@minimum} )\t; Minimum TTL";
+          else
+            rdatastr = '';
+          end
+          
+          return rdatastr;
+        end
+        
+        def rr_rdata(packet, offset)
+          rdata = "";
+          
+          # Assume that if one field exists, they all exist.  Script will
+          # print a warning otherwise.
+          
+          if (defined?@mname)
+            rdata += packet.dn_comp(@mname, offset);
+            rdata += packet.dn_comp(@rname,  offset + rdata.length);
+            
+            rdata += [@serial, @refresh, @retry, @expire, @minimum].pack("N5");
+          end
+          
+          return rdata;
+        end
+        
+        
+        
+        def _canonicalRdata
+          rdata = "";
+          
+          # Assume that if one field exists, they all exist.  Script will
+          # print a warning otherwise.
+          
+          if (defined?@mname)
+            rdata += _name2wire(@mname);		
+            rdata += _name2wire(@rname);
+            rdata += [@serial, @refresh, @retry, @expire, @minimum].pack("N5");
+          end
+          
+          return rdata;
+        end
+      end
+    end
+  end
+end

data/lib/Net/DNS/RR/SPF.rb

@@ -0,0 +1,46 @@
+# The contents of this file are subject to the Mozilla
+# Public Licence Version 1.1 (the "Licence"); you may
+# not use this file except in compliance with the
+# Licence. You may obtain a copy of the Licence at
+# http://www.mozilla.org/MPL
+# Software distributed under the Licence is distributed
+# on an "AS IS" basis,  WITHOUT WARRANTY OF ANY KIND,
+# either express or implied. See the Licence of the
+# specific language governing rights and limitations
+# under the Licence.
+# The Original Code is pNet::DNS.
+# The Initial Developer of the Original Code is
+# Nominet UK (www.nominet.org.uk). Portions created by
+# Nominet UK are Copyright (c) Nominet UK 2006.
+# All rights reserved.
+module Net
+  module DNS
+    class RR
+      #= NAME
+      #
+      #Net::DNS::RR::SPF - DNS SPF resource record
+      #
+      #= DESCRIPTION
+      #
+      #This is a clone of the TXT record. This class therfore completely inherits
+      #all properties of the Net::DNS::RR::TXT class.
+      #
+      #Please see the Net::DNS::RR::TXT documentation for details
+      #
+      #= COPYRIGHT
+      #
+      #Copyright (c) 2005 Olaf Kolkman (NLnet Labs)
+      #
+      #All rights reserved.  This program is free software; you may redistribute
+      #it and/or modify it under the same terms as Perl itself.
+      #
+      #= SEE ALSO
+      #
+      #Net::DNS, Net::DNS::Resolver, Net::DNS::Packet,
+      #Net::DNS::Header, Net::DNS::Question, Net::DNS::RR,
+      #RFC 1035 Section 3.3.14, draft-schlitt-ospf-classic-02.txt
+      class SPF < TXT
+      end
+    end
+  end
+end