—
—

              
package Net::DNS::ToolKit::RR::HINFO;
use strict;
#use warnings;
use vars qw($VERSION);
$VERSION = do { my @r = (q$Revision: 0.02 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
require Net::DNS::ToolKit::RR::TXT;
*get = \&Net::DNS::ToolKit::RR::TXT::get;
*parse = \&Net::DNS::ToolKit::RR::TXT::parse;
HideShow 151 lines of Pod
=head1 NAME
Net::DNS::ToolKit::RR::HINFO - Resource Record Handler
=head1 SYNOPSIS
  DO NOT use Net::DNS::ToolKit::RR::HINFO
  DO NOT require Net::DNS::ToolKit::RR::HINFO
  Net::DNS::ToolKit::RR::HINFO is autoloaded by 
  class Net::DNS::ToolKit::RR and its methods
  are instantiated in a 'special' manner.
  use Net::DNS::ToolKit::RR;
  ($get,$put,$parse) = new Net::DNS::ToolKit::RR;
  ($newoff,$name,$type,$class,$ttl,$rdlength,
        @txtstrings) = $get->HINFO(\$buffer,$offset);
  Note: the $get->HINFO method is normally called
  via:  @stuff = $get->next(\$buffer,$offset);
  ($newoff,@dnptrs)=$put->HINFO(\$buffer,$offset,\@dnptrs,
        $name,$type,$class,$ttl,$rdlength,@txtstrings);
  $NAME,$TYPE,$CLASS,$TTL,$rdlength,@txtstrings) 
    = $parse->HINFO($name,$type,$class,$ttl,$rdlength,
        @txtstrings);
=head1 DESCRIPTION
B<Net::DNS::ToolKit::RR:HINFO> appends an HINFO resource record to a DNS packet under
construction, recovers an HINFO resource record from a packet being decoded, and 
converts the numeric/binary portions of the resource record to human
readable form.
  Description from RFC1035.txt
  3.2.1. Format
  All RRs have the same top level format shown below:
                                    1  1  1  1  1  1
      0  1  2  3  4  5  6  7  8  9  0  1  2  3  4  5
    +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
    |                      NAME                     |
    +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
    |                      TYPE                     |
    +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
    |                     CLASS                     |
    +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
    |                      TTL                      |
    +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
    |                   RDLENGTH                    |
    +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--|
    |                     RDATA                     |
    +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
  NAME  an owner name, i.e., the name of the node to which this
        resource record pertains.
  TYPE  two octets containing one of the RR TYPE codes.
  CLASS two octets containing one of the RR CLASS codes.
  TTL   a 32 bit signed integer that specifies the time interval
        that the resource record may be cached before the source
        of the information should again be consulted.  Zero
        values are interpreted to mean that the RR can only be
        used for the transaction in progress, and should not be
        cached.  For example, SOA records are always distributed
        with a zero TTL to prohibit caching.  Zero values can
        also be used for extremely volatile data.
  RDLENGTH an unsigned 16 bit integer that specifies the length
        in octets of the RDATA field.
  RDATA a variable length string of octets that describes the
        resource.  The format of this information varies
        according to the TYPE and CLASS of the resource record.
  3.3.2. HINFO RDATA format
    +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
    /                      CPU                      /
    +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
    /                       OS                      /
    +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
  where:
  CPU   A <character-string> which specifies the CPU type.
  OS    A <character-string> which specifies the operating
        system type.
  Standard values for CPU and OS can be found in [RFC-1010].
HINFO records are used to acquire general information about a host.  The
main use is for protocols such as FTP that can use special procedures
when talking between machines or operating systems of the same type.
=over 4
=item * @stuff = $get->HINFO(\$buffer,$offset);
  Get the contents of the resource record.
  USE: @stuff = $get->next(\$buffer,$offset);
  where: @stuff = (
  $newoff $name,$type,$class,$ttl,$rdlength,
  @txtstrings );
All except the last item, B<@txtstrings>, is provided by
the class loader, B<Net::DNS::ToolKit::RR>. The code in this method knows
how to retrieve B<$anydata>.
  input:        pointer to buffer,
                offset into buffer
  returns:      offset to next resource,
                @common RR elements,
                2 text strings
=item * ($newoff,@dnptrs)=$put->HINFO(\$buffer,$offset,\@dnptrs,
        $name,$type,$class,$ttl,$rdlength,@txtstrings);
Append a HINFO record to $buffer.
  where @common = (
        $name,$type,$class,$ttl);
The method will insert the $rdlength and @txtstrings, then
pass through the updated pointer to the array of compressed names            
The class loader, B<Net::DNS::ToolKit::RR>, inserts the @common elements and
returns updated @dnptrs. This module knows how to insert its RDATA of two
text strings up to 255 characters long and
calculate the $rdlength of the entire record.
  input:        pointer to buffer,
                offset (normally end of buffer), 
                pointer to compressed name array,
                @common RR elements,
                2 text strings =< 255 characters
  output:       offset to next RR,
                new compressed name pointer array,
           or   empty list () on error.
=cut
sub put {
  return () unless @_;          # always return on error
  my($self,$bp,$off,$dnp,@textdata) = @_;
  return () unless @textdata == 2;
  goto &Net::DNS::ToolKit::RR::TXT::put;
}
HideShow 48 lines of Pod
=item * (@COMMON,@txtstrings)=$parse->HINFO(@common,@txtstrings);
Converts binary/numeric field data into human readable form. The common RR
elements are supplied by the class loader, B<Net::DNS::ToolKit::RR>.
For HINFO RR's, this is a null operation.
  input:        2 text strings
  returns:      2 text strings
=back
=head1 DEPENDENCIES
        Net::DNS::ToolKit
        Net::DNS::Codes
=head1 EXPORT
        none
=head1 AUTHOR
Michael Robinton <michael@bizsystems.com>
=head1 COPYRIGHT
Copyright 2003, Michael Robinton <michael@bizsystems.com>
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
    
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.
    
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
=head1 See also:
Net::DNS::Codes(3), Net::DNS::ToolKit(3)
=cut
1;