pNet-DNS 0.0.1

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

@@ -0,0 +1,109 @@
+# 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::MINFO - DNS MINFO resource record
+      #
+      #= DESCRIPTION
+      #
+      #Class for DNS Mailbox Information (MINFO) 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.7
+      class MINFO < RR
+        #Returns the RR's responsible mailbox field.  See RFC 1035.
+        #
+        #    print "rmailbx = ", rr.rmailbx, "\n"
+        #
+        attr_accessor :rmailbx
+        #Returns the RR's error mailbox field.
+        #
+        #    print "emailbx = ", rr.emailbx, "\n"
+        #
+        attr_accessor :emailbx
+        def new_from_data(data, offset)
+          if (@rdlength > 0)
+           (@rmailbx, offset) = Net::DNS::Packet::dn_expand(data, offset);
+           (@emailbx, offset) = Net::DNS::Packet::dn_expand(data, offset);
+          end
+        end
+        
+        def new_from_string(string)
+          if (string && (string =~ /^(\S+)\s+(\S+)$/))
+            @rmailbx = $1;
+            @emailbx = $2;
+            @rmailbx.sub!(/\.+$/, "");
+            @emailbx.sub!(/\.+$/,"");
+          end
+        end
+        
+        def new_from_hash(values)
+          if values.has_key?(:rmailbx)
+            @rmailbx = values[:rmailbx]
+          end
+          if values.has_key?(:emailbx)
+            @emailbx = values[:emailbx]
+          end
+        end
+        
+        def rdatastr
+          return @rmailbx ? "#{@rmailbx}. #{@emailbx}." : '';
+        end
+        
+        def rr_rdata(packet, offset)
+          rdata = "";
+          
+          if (defined?@rmailbx)
+            rdata += packet.dn_comp(@rmailbx, offset);
+            
+            rdata += packet.dn_comp(@emailbx, offset + rdata.length);
+          end
+          
+          return rdata;
+        end
+        
+        
+        def _canonicalRdata(data, offset)
+          rdata = "";
+          
+          if (defined?@rmailbx)
+            rdata += _name2wire(@rmailbx);
+            rdata +=  _name2wire(@emailbx);
+          end
+          
+          return rdata;
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,92 @@
+# 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::MR - DNS MR resource record
+      #
+      #= DESCRIPTION
+      #
+      #Class for DNS Mail Rename (MR) 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.8
+      class MR < RR
+        #Returns the RR's new name field.
+        #
+        #    print "newname = ", rr.newname, "\n"
+        #
+        attr_accessor :newname
+        def new_from_data(data, offset)
+          if (@rdlength > 0)
+            @newname = Net::DNS::Packet::dn_expand(data, offset)[0];
+          end
+        end
+        
+        def new_from_string(s)
+          if (s)
+            string = s.sub(/\.+$/, "");
+            @newname = string;
+          end
+        end
+        
+        def new_from_hash(values)
+          if values.has_key?(:newname)
+            @newname = values[:newname]
+          end
+        end
+        
+        def rdatastr
+          return @newname ? "#{@newname}." : '';
+        end
+        
+        def rr_rdata(packet, offset)
+          rdata = "";
+          
+          if (defined?@newname)
+            rdata += packet.dn_comp(@newname, offset);
+          end
+          
+          return rdata;
+        end
+        
+        def _canonicalRdata
+          rdata = "";
+          if (defined?@newname)
+            rdata += _name2wire(@newname);
+          end
+          return rdata;
+        end        
+      end
+    end
+  end
+end

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

@@ -0,0 +1,124 @@
+# 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::MX - DNS MX resource record
+      #
+      #= DESCRIPTION
+      #
+      #Class for DNS Mail Exchanger (MX) 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 1035 Section 3.3.9
+      class MX < RR
+        #Returns the preference for this mail exchange.
+        #
+        #    print "preference = ", rr.preference, "\n"
+        #
+        attr_accessor :preference
+        #Returns name of this mail exchange.
+        #
+        #    print "exchange = ", rr.exchange, "\n"
+        #
+        attr_accessor :exchange
+        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;
+            
+            @exchange = Net::DNS::Packet.dn_expand(data, offset)[0];
+          end
+        end
+        
+        def new_from_string(string)
+          
+          if (string && (string =~ /^(\d+)\s+(\S+)$/))
+            @preference = $1.to_i;
+            @exchange   = $2;
+            @exchange.gsub(/\.+$/, "")
+          end
+        end
+        
+        def new_from_hash(values)
+          if values.has_key?(:preference)
+            @preference = values[:preference]
+          end
+          if values.has_key?(:exchange)
+            @exchange = values[:exchange]
+          end
+        end
+        
+        def rdatastr
+          if (defined?@preference)
+            return "#{@preference} #{@exchange}" 
+          else
+           '';
+          end
+        end
+        
+        def rr_rdata(packet, offset)
+          rdata = "";
+          
+          if (defined?@preference)
+            rdata += [@preference].pack("n");
+            rdata += packet.dn_comp(@exchange, offset + rdata.length);
+          end
+          
+          return rdata;
+        end
+        
+        def _canonicalRdata 
+          rdata = "";
+          
+          if (defined?@preference)
+            rdata += [@preference].pack("n");
+            rdata += _name2wire(@exchange)
+          end
+          
+          return rdata;
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,182 @@
+# 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::NAPTR - DNS NAPTR resource record
+      #
+      #= DESCRIPTION
+      #
+      #Class for DNS Naming Authority Pointer (NAPTR) 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.
+      #
+      #Net::DNS::RR::NAPTR is based on code contributed by Ryan Moats.
+      #
+      #= SEE ALSO
+      #
+      #Net::DNS, Net::DNS::Resolver, Net::DNS::Packet,
+      #Net::DNS::Header, Net::DNS::Question, Net::DNS::RR,
+      #RFC 2168
+      class NAPTR < RR
+        #Returns the order field.
+        #
+        #    print "order = ", rr.order, "\n"
+        #
+        attr_accessor :order
+        #Returns the preference field.
+        #
+        #    print "preference = ", rr.preference, "\n"
+        #
+        attr_accessor :preference
+        #Returns the flags field.
+        #
+        #    print "flags = ", rr.flags, "\n"
+        #
+        attr_accessor :flags
+        #Returns the service field.
+        #
+        #    print "service = ", rr.service, "\n"
+        #
+        attr_accessor :service
+        #Returns the regexp field.
+        #
+        #    print "regexp = ", rr.regexp, "\n"
+        #
+        attr_accessor :regexp
+        #Returns the replacement field.
+        #
+        #    print "replacement = ", rr.replacement, "\n"
+        #
+        attr_accessor :replacement
+        def init_rrsort_func 
+          set_rrsort_func("order", Proc.new { |a,b| a.order <=> b.order || a.preference <=> b.preference } )                    
+          set_rrsort_func("default_sort", get_rrsort_func("order"))
+          set_rrsort_func("preference", Proc.new { |a,b| a.preference <=> b.preference || a.order <=> b.order } );
+        end        
+        
+        def new_from_data(data, offset)
+          if (@rdlength > 0)
+            @order = data.unpack("\@#{offset} n")[0];
+            offset += Net::DNS::INT16SZ;
+            
+            @preference = data.unpack("\@#{offset} n")[0];
+            offset += Net::DNS::INT16SZ;
+            
+            len = data.unpack("\@#{offset} C")[0];
+            offset+=1;
+            @flags = data.unpack("\@#{offset} a#{len}")[0];
+            offset += len;
+            
+            len = data.unpack("\@#{offset} C")[0];
+            offset+=1;
+            @service = data.unpack("\@#{offset} a#{len}")[0];
+            offset += len;
+            
+            len = data.unpack("\@#{offset} C")[0];
+            offset+=1;
+            @regexp = data.unpack("\@#{offset} a#{len}")[0];
+            offset += len;
+            
+            @replacement = Net::DNS::Packet::dn_expand(data, offset)[0];
+          end
+          
+        end
+        
+        def new_from_string(string)
+          if (string && string =~ /^(\d+)\s+(\d+)\s+['"] (.*?) ['"] \s+['"] (.*?) ['"] \s+['"] (.*?) ['"] \s+(\S+) $/x)
+            
+            @order       = $1;
+            @preference  = $2;
+            @flags       = $3;
+            @service     = $4;
+            @regexp      = $5;
+            @replacement = $6;
+            @replacement.sub!(/\.+$/,"");
+          end
+        end
+        
+        def new_from_hash(values)
+          if values.has_key?(:order)
+            @order = values[:order]
+          end
+          if values.has_key?(:preference)
+            @preference = values[:preference]
+          end
+          if values.has_key?(:flags)
+            @flags = values[:flags]
+          end
+          if values.has_key?(:service)
+            @service = values[:service]
+          end
+          if values.has_key?(:regexp)
+            @regexp = values[:regexp]
+          end
+          if values.has_key?(:replacement)
+            @replacement = values[:replacement]
+          end
+        end
+        
+        def rdatastr
+          rdatastr=""
+          
+          if (defined?@order)
+            rdatastr = @order.to_s + ' ' +@preference.to_s + ' "'  +@flags.to_s + '" "' +@service.to_s + '" "' +@regexp.to_s + '" ' +@replacement.to_s + '.';
+          else
+            rdatastr = '';
+          end
+          
+          return rdatastr;
+        end
+        
+        def rr_rdata(packet, offset)
+          rdata = "";
+          
+          if (defined?@order)
+            
+            rdata += [@order, @preference].pack("n2");
+            
+            rdata += [@flags.length].pack("C");
+            rdata += @flags;
+            
+            rdata += [@service.length].pack("C");
+            rdata += @service;
+            
+            rdata += [@regexp.length].pack("C");
+            rdata += @regexp;
+            
+            rdata += packet.dn_comp(@replacement, offset + rdata.length);
+          end
+          
+          return rdata;
+        end
+      end
+    end
+  end
+end