home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / xampp / xampp-perl-addon-1.4.9-installer.exe / Unknown.pm < prev    next >
Encoding:
Perl POD Document  |  2003-12-13  |  1.2 KB  |  72 lines
  1. package Net::DNS::RR::Unknown;
  2. #
  3. # $Id: Unknown.pm,v 2.100 2003/12/13 01:37:05 ctriv Exp $
  4. #
  5. use strict;
  6. use vars qw(@ISA $VERSION);
  7.  
  8. use Net::DNS;
  9.  
  10. @ISA     = qw(Net::DNS::RR);
  11. $VERSION = (qw$Revision: 2.100 $)[1];
  12.  
  13. sub new {
  14.     my ($class, $self, $data, $offset) = @_;
  15.     
  16.     my $length = $self->{'rdlength'};
  17.     
  18.     if ($length > 0) {
  19.         my $hex = unpack('H*', substr($$data, $offset,$length));
  20.         $self->{'rdata'} = "\\# $length $hex";
  21.     }
  22.  
  23.     return bless $self, $class;
  24. }
  25.  
  26.  
  27. sub rdatastr {
  28.     my $self = shift;
  29.     return defined $self->{'rdata'} ? $self->{'rdata'} : '# NODATA';
  30.  
  31. }
  32.  
  33. sub rr_rdata {
  34.     my $self  = shift;
  35.     my $rdata = '';
  36.     return $rdata;
  37. }
  38.  
  39. 1;
  40. __END__
  41.  
  42. =head1 NAME
  43.  
  44. Net::DNS::RR::Unknown - Unknown RR record
  45.  
  46. =head1 SYNOPSIS
  47.  
  48. C<use Net::DNS::RR>;
  49.  
  50. =head1 DESCRIPTION
  51.  
  52. Class for dealing with unknown RR types (RFC3597)
  53.  
  54. =head1 METHODS
  55.  
  56. =head1 COPYRIGHT
  57.  
  58. Copyright (c) 1997-2002 Michael Fuhr. 
  59.  
  60. Portions Copyright (c) 2002-2003 Chris Reinhardt.
  61.  
  62. Portions Copyright (c) 2003  Olaf M. Kolkman, RIPE NCC.
  63.  
  64. All rights reserved.  This program is free software; you may redistribute
  65. it and/or modify it under the same terms as Perl itself.
  66.  
  67. =head1 SEE ALSO
  68.  
  69. L<Net::DNS>, L<Net::DNS::RR>, RFC 3597
  70.  
  71. =cut
  72.